Потеря цвета

← →
webpauk (2005-06-23 16:38) [0]

При копировании Bitmap на Timage теряются цвета. Может кто знает где собака зарыта?

Btmp:=TBitmap.Create; try Btmp.LoadFromFile(...); with Image1.Canvas do begin Brush.Color:=clWhite; Pen.Color:=clGray; Rectangle(0,0, Image1.Width-1, Image1.Height-1); end; SetRect(fR1, 0, 0, Btmp.Width, Btmp.Height); SetRect(fR2, (Image1.Width-Btmp.Width) div 2, (Image1.Height-Btmp.Height) div 2, Btmp.Width, Btmp.Height); Image1.Canvas.BrushCopy(fR2, Btmp, fR1, clWhite);

А это работает нормально:
Image1.Picture.Bitmap:=Btmp;

← →
-=XP=- © (2005-06-23 16:44) [1]

Какая глубина цвета в загружаемом растре?

Btmp.PixelFormat := pf24bit;

← →
rOOse © (2005-06-23 16:47) [2]

подгони размеры image к bitmap

А у меня нормально. Только вот в чем смысл операций?!

Потеря цвета Найти похожие ветки