DevExpress: TcxButton, Glyph zur Laufzeit ändern

[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.