Uses
Windows,..,AxCtrls;
{برای استفاده از TOleGraphic به اضافه کردن Axctrls نیازه}
محتوای روتین کلیک دکمه:
Var
G:TOleGraphic;
S:TFileStream;
Begin
S:=TFileStream.Create(C:\A.gif',fmOpenRead Or fmShareDenyNone);
G:=TOleGraphic.Create();
G.LoadFromStream(S);
Image1.Height:=G.Height;
Image1.Width:=G.Width;
Image1.Canvas.Draw(0,0,G);
Imge1.Canvas.LineTo(100,100);
End;
اگه برنامه رو امتحان کنین متوجه می شین که خط اندازه طبیعی داره اما فایل گرافیکی تغییر اندازه داره.
من قبلا سعی کرده بودم آیکن رو هم توی کادر تصویر بریزم ولی علاوه بر تغییر اندازه رنگهاش هم ناجور شد.انگار 256 رنگ شده باشه.
در ضمن من خیلی راهها رو امتحان کردم تا فایل
Png رو بتونم در
TCanvas بریزم ولی موفق نشدم.اگه راهی هست منو راهنمایی کنین.
اگه برام
fmShareDenyNone رو هم توضیح بدین واقعا ممنون می شم .