mbshareat
یک شنبه 13 بهمن 1387, 13:27 عصر
بنده یه برنامه نوشته ام که تصویر با فرمت Gif رو در یک TImage.TPicture.TBitmap ترسیم می کنه ولی نمی دونم چرا نمی تونه اندازه واقعی تصویر را به شیئ مورد نظر منتقل کنه.
در این برنامه یک شیئ TBitBtn و یک TImage روی فرم گذاشته ام.:متفکر:
برنامه از این قراره:
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 رو هم توضیح بدین واقعا ممنون می شم .:خجالت:
در این برنامه یک شیئ TBitBtn و یک TImage روی فرم گذاشته ام.:متفکر:
برنامه از این قراره:
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 رو هم توضیح بدین واقعا ممنون می شم .:خجالت: