| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Прозрачность в TImage
nali © (2007-04-20 15:48:00)Можно ли задавать при использовании 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 16:23:00) [1]Странно с clWhite то же не срабатывает, а с clRed нормально.
Возможно у меня Delphi глючит, уже замечал глюки при выборе цвета в объектном инспекторе - помню название какого-то
цвета не соответствовало отображаемому.
nali (2007-04-20 15:57:00) [2]Немного поспешил, там в коде вместо 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));
| |
