hab was herausgefunden.
Ich hab derzeit folgenden Code.
Delphi-Quellcode:
uses
SysUtils, Classes, Controls, Buttons, Graphics;
type
TSpeedButton1 = class(TSpeedButton)
private
Fimageindex : Integer;
tmpbmp : Tbitmap;
procedure Setimage(Value: Integer);
{ Private-Deklarationen }
protected
{ Protected-Deklarationen }
public
FImages : Timagelist;
{ Public-Deklarationen }
published
property Images : Timagelist read FImages write Fimages;
property Imageindex : Integer read FImageindex write SetImage;
{ Published-Deklarationen }
end;
Delphi-Quellcode:
procedure Tspeedbutton1.Setimage(Value: Integer);
begin
//
Fimages:= Timagelist.Create(nil);
Fimages.CreateSize(48,48);
Fimages.Clear;
tmpbmp:=tbitmap.Create;
//tmpbmp.LoadFromFile('i:/delphi/Buttons/button_play.bmp');
//Fimages.Add(tmpbmp,tmpbmp);
tmpbmp.Free;
FImages.GetBitmap(0,Glyph);
Fimages.Free;
end;
wenn ich in die FImages von einer datei lade, dann klappt alles prima.
Ich glaube das Fimages nicht richtig mit Images verknüft ist oder dass man das nicht mir Timagelist so machen darf.
Anscheinend ist die Fimages lehr.
Gruß snow
Zitat:
kommt der Fehler auch, wenn Du meine Variante, also direkt über Glyph, auch?
Ja Leider!