Hallo zusammen!
Ich versuche, die Bitmaps, die auf meinen ToolButtons angezeigt werden, auch als Icon der zugehörigen Forms anzeigen zu lassen.
Im Netz hab ich dazu folgendes gefunden:
Delphi-Quellcode:
function CreateIconFromBitmap(Bitmap:TBitmap):TIcon;
begin
with TImageList.CreateSize(Bitmap.Width, Bitmap.Height) do
begin
try
AllocBy := 1;
{$IFDEF VER90}
with Bmp do
AddMasked(Bitmap, Canvas.Pixels[Width-1, Height-1]);
{$ELSE}
AddMasked(Bitmap, Bitmap.TransparentColor);
{$ENDIF}
Result := TIcon.Create;
try
GetIcon(0, Result);
except
Result.Free;
raise;
end;
finally
Free;
end;
end;
end;
function GetIcon(Index:Word):TIcon;
var
Image: TBitmap;
begin
Image := TBitmap.Create;
ImageList1.GetBitmap(Index,Image);
Result := CreateIconFromBitmap(Image);
Image.Free;
end;
Ich setze das Icon dann im FormCreate des Forms z.B. mit
Delphi-Quellcode:
Ic := GetIcon(18);
Icon.Handle := IC.Handle;
IC.Free;
Angezeigt wird es auch - allerdings invers und farblos!
Wie kann ich das korrigieren!?
Danke für Eure Hilfe ...