Hallo zusammen,

ich bin nun schon mehrere Stunden auf der Suche nach einem passenden API-Aufruf bzw. Code, der mir einen Window-Button (oder BorderIcon), wie ihn Windows zeichnet, darstellt -- gerne auch automatisch mit Transparenz Im Anhang findet ihr die aktuelle Version von Trillian, bei der ich das mal wieder gesehen habe, hab die verschiedenen Icons sogar extra durchnummeriert:

1. ein zusätzliches Icon, nicht neben den BorderIcons.
2. Hauptmenü -- dafür brauche ich nur den Rahmen
3. und weitere zwei Buttons

Kennt jemand einen Weg über die Windows API?

PS: Über den ThemeService bekomme ich nur nicht-transparente Button und auch nur welche, die ein Icon besitzen. Es muss doch einen Weg über die API geben... Wäre doch verrückt, wenn nicht?!

Hier bitte:

zusammenfalten · markieren

Delphi-Quellcode:

uses
    Themes
  ;

procedure PaintCloseButton(ACanvas: TCanvas; ARect: TRect);
var
  CloseBtnDrawDetails: TThemedElementDetails;
begin
        CloseBtnDrawDetails := ThemeServices.GetElementDetails(twCloseButtonNormal);
        ThemeServices.DrawElement(ACanvas.Handle, CloseBtnDrawDetails, ARect);
... oder normal ...
        Windows.DrawFrameControl(ACanvas.Handle, ARect, DFC_CAPTION, DFCS_CAPTIONCLOSE);
end;

Den Rest findest Du bestimmt selbst raus. HTH

Genau der Code liefert mich aber einen Button, den ich nicht haben will Der ist nämlich zum einen nicht transparent und zum anderen hat der ein Icon in der Mitte! Ich will eines ohne Icon und das gibts nicht. Habe schon alle twXXX-Optionen durchprobiert.

Das hier zeichnet einen Buttonhintergrund, aber transparent ist er noch nicht. Vllt findest Du noch den richtigen Klassennamen für OpenThemeData raus. Die Klassen stehen in der Datei AeroStyle.xml, aber genauer habe ich nicht geforscht.

zusammenfalten · markieren

Delphi-Quellcode:

function OpenThemeData(hwnd: HWND; pszClassList: LPCWSTR): THandle; stdcall; external 'uxtheme.dll';
function CloseThemeData(hTheme: THandle): HRESULT; stdcall; external 'uxtheme.dll';
function DrawThemeBackground(hTheme: THandle; hdc: HDC; iPartId, iStateId:
  Integer; const pRect: TRect;
  pClipRect: PRECT): HRESULT; stdcall; external 'uxtheme.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
  ltd: THandle;
begin
  ltd := OpenThemeData(Handle, PWideChar('button'));
  try
    DrawThemeBackground(ltd, Canvas.Handle, 1, 1, Rect(20, 20, 100, 50), 0);
  finally
    CloseThemeData(ltd);
  end;
end;

Hm... Ich glaube ich habe die Antwort gefunden. Lass mich aber auch gerne vom Gegenteil überzeugen, sind ja immerhin schon fast fünf Jahre seit dem Post vergangen.

Zitat von http://social.msdn.microsoft.com/Forums/en-US/windowsuidevelopment/thread/05474b1f-d92b-4774-8ea5-751cda72ea7a:

Hi devexpert,

Unfortunately, we do not expose the caption buttons though any API. The only way to get these is by letting the DWM draw the non-client area of your app.

Thanks,
Wale

Ich habe von den Jedis den JvCaptionButton benutzt, aber die gleichen Probleme gehabt mit Style/Theme und fehlender Transparenz.
Erstaunlicherweise gibt es ein paar Programme, die da ganz ordentliche Buttons hinkriegen, wie z.B. UltraMon.

Wenn du dafür eine Lösung finden solltest, könntest du die ja hier posten...