不懂,帮你UP
注:不用这么想吧?我看过你的问题,但确实不懂,只好帮你up。
注:不用这么想吧?我看过你的问题,但确实不懂,只好帮你up。
解决方案 »
- TEdit的Ctl3D属性
- 求助,FTP+语音文件播放,怎么实现?
- 怎样用程序在SQL Server上新建数据库(.MDF文件,不是表),并能使用,因为我想做成象一些程序一样的有‘新建帐套’的工能?3Q
- 请问一个关于指针的问题
- 100分问个简单问题(分太多了),关于DBChart中的Series
- 如何延长hint的时间?
- 一个常识性的问题!!!
- MDI的主窗体是否必须是应用程序的主窗体?
- 在设计窗体时的如果控件有CM_MOUSEENTER事件就会这样(内详)。请解决DELPHI BUG。
- 101分求解,如何在两个数据库中查询数据?
- 偶要备份数据库文件,怎么能让filelistbox,能被同时多选?
- 请问谁有Diablo II 的硬盘版?
BitBlt(MyDC, Co*Image1.Picture.Width, Ro*Image1.Picture.Height,
Image1.Picture.Width, Image1.Picture.Height,
Image1.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);先载入图片:
for i:=1 to 1 do
begin
for j := 1 to 6 do
begin
s:=Appdir+'\images\'+inttostr(i)+'0'+inttostr(j)+'.bmp';
AryBitmapA[i,j] :=TBitmap.Create;
AryBitmapA[i,j].LoadFromFile(s);
AryBitmapB[i,j] :=TBitmap.Create;
AryBitmapB[i,j].LoadFromFile(Appdir+'\images\'+inttostr(i)+'0'+inttostr(i)+'0'+inttostr(j)+'.bmp');
Aryimage[i,j].Width:=AryBitmapA[i,j].Width;
Aryimage[i,j].Height :=AryBitmapA[i,j].Height ;
Aryimage[i,j].Canvas.Draw(0,0, AryBitmapA[i,j]);
end;
end;绘画图片:(功能当鼠标停在图片上时增亮显示) function Tfrmquery.invertbmpc( image: Timage; bmp: TBitmap):Boolean;
var
numm: integer;
i: integer;
begin
try
image.Repaint;
numm:= Bmp.Width;
bmp.Transparent:=true;
bmp.TransparentColor:=$00F5FEF5;
for i:=0 to numm do
begin
bitblt(image.canvas.handle,i,0,i,bmp.height,
bmp.canvas.handle,i,0,srccopy);
end;
bmp.TransparentMode := tmAuto; // Transparent color now is clDefault = TColor($20000000);
for i:=0 to numm do
begin
bitblt(image.canvas.handle,i,0,i,bmp.height,
bmp.canvas.handle,i,0,srccopy);
end;
finally end;end;