1.我想将一个图片放大或缩小。例如:一张100*100的图片缩小成一张32*32的图片或放大成一张200*200的图片。
2.窗口上有一个加载图片按钮。我想让用户点击此按钮后出现的对话框中至出现各类图片文件(例如:BMP,JPG,GIF等等)
3.如何判断IMAGE控件中图片文件的类型
2.窗口上有一个加载图片按钮。我想让用户点击此按钮后出现的对话框中至出现各类图片文件(例如:BMP,JPG,GIF等等)
3.如何判断IMAGE控件中图片文件的类型
解决方案 »
- Create时读取Listview的数据
- 求一QReport组件 教程/介绍,找了2天找不到
- 怎么建账套
- 谁有《Delphi深度历险》的电子版图书 ,请发至:[email protected] 送50分
- 组件随窗体的变化而随之变化,并且位置不变??
- 使用netapi32.dll中的NetUserAdd函数时发生的问题...如何解决???
- 我的一个工具条可以拖动和停放,但是每次停放后会出现一个小的关闭按钮,如何让他消失呢,而不影响拖动和停放功能?
- 新手问题:Delphi里面怎么加组件?
- delphi程序打包以后是否可以更改?该怎样打包?
- 用nmftp怎样判断服务器上的一个目录或者文件是否存在?
- ★★★请问如何给动态生成的菜单和子菜单加图标★★★
- 如何显示消息?
控制Image的Width和Height不就OK
TRect AAA,ARect ;
Graphics::TBitmap *Bitmap; DBImage1->CopyToClipboard();
DBImage1->PasteFromClipboard();
if (Clipboard()->HasFormat(CF_BITMAP))
{
Bitmap = new Graphics::TBitmap();
try{
Bitmap->Assign(Clipboard());
float xw,xh;//,s_h,n_h,s_w,n_w; int x_h=200;
int x_w=x_h*((float)Bitmap->Width/(float)Bitmap->Height);
delete_Image();
TImage *Imagex=new TImage(image_proc);
Imagex->Parent=ScrollBox1;
Imagex->AutoSize=false;
Imagex->Left=3;
Imagex->Top=4;
Imagex->Visible=true;
Imagex->Width=x_w;
Imagex->Height=x_h;
Imagex->Name="Image2"; xh=(float)Bitmap->Height/(float)Imagex->Height;
xw=(float)Bitmap->Width/(float)Imagex->Width;
ProgressBar1->Max=Imagex->Height;
for(int i=0;i<=Imagex->Height;i++)
{
for(int j=0;j<=Imagex->Width;j++)
{
AAA = Rect(j,i,j+1,i+1);
ARect = Rect(xw*j,xh*i,xw*j+1,xh*i+1);
Imagex->Canvas->CopyRect(AAA, Bitmap->Canvas, ARect);
}
ProgressBar1->Position=i;
}
//Imagex->AutoSize=true;
delete Bitmap;
}
catch(...){
delete Bitmap;
}
}
ProgressBar1->Position=0;
ok_pictrue=true;