Tpanel+Tspeedbutton+Imagelist zu einer Komponente machen!

[snow]

Hallo

Ich hab folgendes vor.

ICh will Tspeedbuttons auf einem Tpanel haben. Ich will die Groupindex verändern und das Bild des TSpedbutton soll aus einer TImagelist geladen werden.

Kann man in DelphiKomponenten Zusammenfassen?

Ich hätte am liebsten eine komponente, die ich wie ein panel auf die Form ziehe und dann die speedbuttons erstelle. Diese sollen dann auf der Form verteilbar sein und dann möchte ich den Speedbuttons Bilder aus einer Imagelist zuweisen.

Da ich keine Erfahrung mit Komponeneten habe würde ich gern euere Meinung erfragen, Wie viel Aufwand das ist und wie ich anfangen soll?

Gruß snow

[Kroko1999]

Lesen bilder, siehe dort!

[snow]

Kenn ich schon!

Hab auch schon das Grundgerüst für einen NeuenSpeedbutton

Ich hab ihn vom TSpeedbutton abgeleitet und die Propertys

Imageindex : Integer;
Images : TImagelist;

hinzugefügt.

So das klappt, doch wie kann ich jetzt auf eine änderung des ImageIndex reagieren.(Der soll dann in der Imagelist nach schlagen und die Bitmap holen, und sie im Glyph abspeichern.

Wie das unter normalen umständen aussieht weis ich. Aber wie kann ich delphi sagen, das es auf änderungen reagieren soll(am liebsten ohne Timer).

Gruß snow

[Kroko1999]

Delphi-Quellcode:

property ImageIndex: Integer read FImageindex write SetImage;

property + F1
ImageList.GetBitmap + F1

[snow]

Was ist Setimage?

ne procedure?

Gruß snow

[Kroko1999]

Zitat:

Zitat von snow

Was ist Setimage?

ne procedure?

Gruß snow

ja, wie wäre es mit ein paar Grundlagen in Delphi und OOP, :roll:

[snow]

Das hab ich jetzt hinbekommen. ICh hab jetzt eine procedure die auf das schreiben auf Imageindex reagiert.

Doch wenn ich in der das hier amchen lasse, dann

Delphi-Quellcode:

begin
//
Try
tmpbmp :=Tbitmap.create;
FImages.GetBitmap(1,tmpbmp);
tmpbmp.Free;
except
end;

bekomm ich ne zugriffsverletzung beim lesen von

00000000000C.

was nun? In der Imagelist gibt es auch ein image mit dem index von 1.
Gruß Snow

[Kroko1999]

(a) Ist FImages denn createt?
(b) Es geht auch ohne tmpBmp:

Delphi-Quellcode:

begin
  Try
    FImages.GetBitmap(1,SpeedButton.Glyph);
  except
  end;
end;

[snow]

FImages ist mit der Property Images verknüpft, welche eine Timagelist enthält.

Diese ist im OI ausgewählt und befindet sich auf der Form.

Gruß snow

[Kroko1999]

kommt der Fehler auch, wenn Du meine Variante, also direkt über Glyph, auch?