DevExpress: TcxButton, Glyph zur Laufzeit ändern

[alzaimar]

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?

[uligerhardt]

Hmmm, so geht's:

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);
  ilImages.Draw(FBitmap.Canvas, 0, 0, cxButton.Tag);
  cxButton.Glyph.Assign(FBitmap);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //cxButton.Glyph.Width := ilImages.Width;
  //cxButton.Glyph.Height := ilImages.Height;
  FBitmap := TBitmap.Create;
  FBitmap.SetSize(ilImages.Width, ilImages.Height);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FBitmap.Free;
end;

Keine optimale Lösung, aber vermutlich besser als nichts.

[alzaimar]

Welche Version hast Du? Bei der aktuellsten Version 6.28 klappt es nämlich nicht. Leider.

Beim 1.Mal wird die Bitmap noch neu gezeichnet, aber danach geht nix mehr.

Mein Workaround: Mit der TActionlist arbeiten.

Ich habe schon einen Bugreport an DevExpress geschickt...

[uligerhardt]

Zitat von alzaimar:

Welche Version hast Du? Bei der aktuellsten Version 6.28 klappt es nämlich nicht. Leider.

Wir sind noch auf 6.26.

Zitat von alzaimar:

Beim 1.Mal wird die Bitmap noch neu gezeichnet, aber danach geht nix mehr.

Bei mir geht's mit Extra-Bitmap zum Cachen zuverlässig (AFAICT), ohne geht gar nix.

Zitat von alzaimar:

Ich habe schon einen Bugreport an DevExpress geschickt...

Die reagieren ja zum Glück recht schnell.

[RavenIV]

Zitat von uligerhardt:

Zitat von alzaimar:

Welche Version hast Du? Bei der aktuellsten Version 6.28 klappt es nämlich nicht. Leider.

Wir sind noch auf 6.26.

Es gibt ja schon die Version 31.
Oder hab ich das mit den Versionsnummern falsch verstanden?

[uligerhardt]

Zitat von RavenIV:

Zitat von uligerhardt:

Zitat von alzaimar:

Welche Version hast Du? Bei der aktuellsten Version 6.28 klappt es nämlich nicht. Leider.

Wir sind noch auf 6.26.

Es gibt ja schon die Version 31.

Ja, aber wir brauchen (noch) D5.

Zitat von RavenIV:

Oder hab ich das mit den Versionsnummern falsch verstanden?

Nö, ich glaube nicht. Die Nummer hinter dem Punkt läuft synchron über alle DevEx-VCL-Produkte, während die vor dem Punkt produktspezifisch ist. Wir haben z.B. einmal 5.26 und einmal 6.26.

[alzaimar]

Also: Es ist ein waschechter Bug, der sich in der 6.28'er eingeschlichen hat und bald gefixt wird. Es gibt einen Workaround, der es erlaubt, einmalig das Glyph zu setzen, aber das beliebige Überschreiben zur Laufzeit geht nicht.

Wie schon erwähnt, erzeuge ich nun Actions, die ich der Action-Eigenschaft des Buttons zuweise und damit klappt es. Ist auch sauberer.

Gut zu wissen, das ich doch nicht zu blöd dafür bin.

Edit: Schlecht zu wissen, das ich wohl zu blöd bin erstens die Posts zu lesen (Version 31) und dann noch mal bei DevEx nachzuschauen, ob es eine neue Version gibt. Nun gut. Dann lass ich das eben mit den Programmieren.

Und werde.
Äh.
Briefmarkenbefeuchter.

Shit.
Die sind ja selbstklebend.

[uligerhardt]

Zitat von alzaimar:

Und werde.
Äh.
Briefmarkenbefeuchter.

Shit.
Die sind ja selbstklebend.

Die Welt ist einfach schlecht...

[DeddyH]

Vielleicht wäre noch eine Stelle als Zitronenfalter frei

[RavenIV]

Zitat von DeddyH:

Vielleicht wäre noch eine Stelle als Zitronenfalter frei

Bei uns in der Firma könnten wir noch einen Klodeckelrunterklapper gebrauchen...