من یه برنامه دارم که در ان با روش ساده ای فایل gif رو با محتوای متن صفحات کتاب نشون میدم.
یه TImage روی فرم گذاشتم به اسم image1.
autosize رو هم true کردم.
با این کد فایل gif رو ترسیم می کنم:
procedure TForm1.LoadGif(FileName:String);
var
f : TFileStream;
graphic : TOleGraphic;
B:TBitmap;
begin
graphic := TOleGraphic.Create;
f := TFileStream.Create(FileName
,fmOpenRead or fmShareDenyNone);
try
graphic.LoadFromStream(f);
B:=TBitmap.Create;
B.PixelFormat:=pf24Bit;
B.Width := graphic.Width;
B.Height := graphic.Height;
B.Canvas.Draw(0,0,Graphic);
Image1.Picture.Assign(B);
finally
graphic.Free;
B.free;
f.Free
end
end;
میخوام تصویر رو به با حفظ تناسب تغییر اندازه بدم.(فعلا در برنامه نمونه نسبت رو 75 درصد گذاشتم اما برنامه کامل به ارتفاع فرم ربط داره و توضیحش یه کم پیچیده است)
از یه کد مفصل برای تغییر اندازه استفاده کردم اما خوب نتیجه نمیده.
ظاهرا این روش بارگذاری gif تصویر رو خراب می کنه.
تا حالا حدود سه ساعت با بررسی برنامه و نصب کامپوننت تلف کردم و نتیجه ای نگرفتم.
ممکنه یه نگاهی به این برنامه بندازید؟
کد تغییر اندازه رو هم جدا میذارم:
فایل های ضمیمه
TestGif.rar
(210.8 کیلوبایت)
Best Quality ReSize Bitmap.rar
(3.4 کیلوبایت)
