Button mit Glyph: Alternativen zum BitBtn

[Dawn87]

Hallo,

ich habe vor mehrere Buttons mit einem Glyph (Bmp oder Ico) zu versehen. Bisher verwende ich den BitBtn, da habe ich aber das Problem, dass ich zur Entwicklungszeit nicht weiß wie lang die Beschriftung der Buttons ist (Mehrsprachigkeit) und kann dementsprechend die Margin-Eigenschaft nicht richtig setzen. Das Ergebnis ist optisch sehr unschön, da der Text nicht wirklich Mittig dargestellt wird.

Kennt jemand eine Alternative zu den BitBtns?

Ich möchte das meine Buttons ungefähr wie auf dem angehängten Bild aussehen.

Grüße

[Bernhard Geyer]

Wenns was kosten darf dann wäre das ElPack geeignet. Der dort "normale" Button kann PNG's als Glyph.

[turboPASCAL]

Per SedMessage:

Delphi-Quellcode:

function SetIconToCaption(h_Wnd: HWND; IconID: Integer): Bool;
var
  aIcon: HICON;
begin
  Result := FALSE;

  aIcon := LoadImage(hInstance, MAKEINTRESOURCE(IconID), IMAGE_ICON, 16, 16, LR_DEFAULTSIZE);
  if aIcon > 0 then
   Result := SendMessage(h_Wnd, WM_SETICON, ICON_SMALL, LPARAM(aIcon)) <> 0;
  DeleteObject(aIcon);
end;

procedure TForm1.XYZ;
begin
  SetIconToCaption(Button1.Handle, 1);
end;