Прозрачность в TImage

← →
nali (2007-04-20 15:48) [0]

Можно ли задавать при использовании TImage прозрачный цвет который не входит в стандартную палитру виндоус, а то при выполнении следующего кода TImage становится прозрачным только если задается цвет из стандартной палитры виндоус. Но c clGreen то же не работает.

Image1.Picture.Bitmap.Width:=Image3.Width;
Image1.Picture.Bitmap.Height:=Image3.Height;
Image1.Picture.Bitmap.PixelFormat:=pf24bit;

Image1.Picture.Bitmap.TransparentColor:=$F5F5F5;
Image1.Transparent:=true;

Image1.Canvas.Brush.Style:=bsSolid;
Image1.Canvas.Brush.Color:=$F5F5F5;
Image1.Canvas.FillRect(Rect(0,0,Image3.Width,Image3.Height));

← →
nali (2007-04-20 15:57) [1]

Немного поспешил, там в коде вместо Image3 длжен стоять Image1. То есть так:

Image1.Picture.Bitmap.Width:=Image1.Width;
Image1.Picture.Bitmap.Height:=Image1.Height;
Image1.Picture.Bitmap.PixelFormat:=pf24bit;

Image1.Picture.Bitmap.TransparentColor:=$F5F5F5;
Image1.Transparent:=true;

Image1.Canvas.Brush.Style:=bsSolid;
Image1.Canvas.Brush.Color:=$F5F5F5;
Image1.Canvas.FillRect(Rect(0,0,Image1.Width,Image1.Height));

← →
nali (2007-04-20 16:23) [2]

Странно с clWhite то же не срабатывает, а с clRed нормально.
Возможно у меня Delphi глючит, уже замечал глюки при выборе цвета в объектном инспекторе - помню название какого-то
цвета не соответствовало отображаемому.

Прозрачность в TImage Найти похожие ветки