Tpanel+Tspeedbutton+Imagelist zu einer Komponente machen!

[snow]

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!