Delphi-Quellcode:
var
aBmp:TBitmap;
h:HINST;
OpenFileBmp:Integer;
begin
// standardicons von windows laden...
aBmp := TBitmap.Create();
h := LoadLibrary('comctl32.dll');
if h <> 0 then
try
aBmp.LoadFromResourceID(h, 120);
aBmp.Canvas.CopyRect(rect(0, 0, 15, 15), aBmp.Canvas, rect(96, 0, 112, 15));
aBmp.Width := 16;
aBmp.Height := 16;
OpenFileBmp := imagelist1.Add(aBmp, nil);
finally
FreeLibrary(h);
end;
funzt, nur eine Sache noch
- der Hintergrund ist im alten Windows-Stil gehalten, wie kann man den Transparent machen?
aBmp.Transparent*
hab ich schon probiert, klappt nicht...
auch als ich die
BlendColor vom ImageList eingestellt hatte, funktionierte es nicht (
DrawingStyle war auf
dsTransparent
Danke an Luckie
Daniel