Hi
Ich steh zur Zeit völlig im Wald und zweifle an meinen Fähigkeiten:
Ich hab einen TcxButton (ähnlich TBitBtn) und der soll zur Laufzeit ein anderes Bildchen zeigen. Ich habe wirklich hübsche Bitmaps in einer TImageList und ich will doch nur, das das Buttoni immer das nächste Bildchen anzeigt. Auf einer Paintbox krieg ich das gebacken, aber dieses /%§$%§-TcxButton busht rum und will einfach nicht. Bin ich zu blöd?
Das hier hab ich:
Delphi-Quellcode:
Procedure TForm1.cxButtonClick(Sender: TObject);
Begin
cxButton.Tag := (cxButton.Tag + 1) Mod ilImages.Count;
cxButton.Caption := format('Apply Bitmap [current %d]', [cxButton.Tag]);
ilImages.Draw(cxButton.Glyph.Canvas, 0, 0, cxButton.Tag);
End;
Dann habe ich noch probiert, die Bitmap aus der Imagelist zu extrahieren (GetBitmap) und dann in das Button.Glyph.Canvas zu zeichnen. Klappt auch nicht. Bin ich zu dämlich dazu?
Bitte bitte, erbarmt sich vielleicht einer von Euch?