Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Kroko1999,
11. Dez 2007
Ein paar Tipps und Hinweise
(a) nenne Die Klasse zBsp: TSpeedButtonEx mit den Zahlen kommst du früher oder später durcheinander
(b) verlagere FImages in den private Teil
(c) benenne die Setter-proc von SetImage in SetImageIndex um
(d) die ImageList musst Du von außen setzen
(e)
procedure TSpeedbutton1.SetImageIndex(Value: Integer);
begin
if FImageIndex<>Value then
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Kroko1999,
11. Dez 2007
kommt der Fehler auch, wenn Du meine Variante, also direkt über Glyph, auch?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Kroko1999,
11. Dez 2007
(a) Ist FImages denn createt?
(b) Es geht auch ohne tmpBmp:
begin
Try
FImages.GetBitmap(1,SpeedButton.Glyph);
except
end;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Kroko1999,
11. Dez 2007
property ImageIndex: Integer read FImageindex write SetImage;
property + F1
ImageList.GetBitmap + F1