<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
On 21/2/10 6:57, Pierre Delore wrote:
<blockquote
cite="mid:1216601162.2059581266778646429.JavaMail.root@spooler8-g27.priv.proxad.net"
type="cite">
<style type="text/css">p { margin: 0; }</style>
<div
style="font-family: Verdana; font-size: 12pt; color: rgb(0, 0, 0);">Hi,<br>
<br>
I have a transparency problem when I try to display a bitmap stored in
a TImagList. <br>
The bitmap I want to display is a green arrow with a white background.
I want to display it without transparency. <br>
With the code below the bitmap is displayed but the background is not
white (it's a copy of a part of the screen). If I uncomment the 2 lines
with the fillrect, the background is set to green. <br>
<br>
Any ideas?<br>
<br>
>--------------------------------------------------------------------------------------------------------<br>
procedure TImgList.Paint;<br>
var<br>
Bitmap: TBitmap;<br>
begin<br>
Bitmap := TBitmap.Create;<br>
try<br>
Bitmap.Height := pHeight;<br>
Bitmap.Width := pWidth;<br>
<br>
TImgListItem(ListImg.Items[index]).ImgList.GetBitmap(tagv,Bitmap);
//the image is a green arrow with a white background<br>
<br>
Bitmap.Transparent:=False;<br>
//Canvas.Brush.Color := clGreen; If I uncomment this part
the background is set to green<br>
//Canvas.FillRect(0,0,pwidth,pheight);<br>
Canvas.Draw(0, 0, Bitmap);<br>
finally<br>
Bitmap.Free;<br>
end;<br>
<br>
inherited Paint;<br>
end; <br>
</div>
</blockquote>
<br>
Difficult to be sure based on an uncompilable code snippet. Presumably
TImgList is a TImage (not a TImageList)?<br>
But you carefully create a bitmap and draw it on the component's
canvas, and then draw over it again with a call to inherited Paint.<br>
<br>
HTH<br>
<br>
Howard<br>
</body>
</html>