Forum: Win32/Win64 API (native code)
Delphi
by ConnorMcLeod,
25. Mai 2011
Kennst Du schon TXStyleForm? Vllt sind da die richtigen Ideen drin...
Forum: Win32/Win64 API (native code)
Delphi
by ConnorMcLeod,
19. Mai 2011
hm, kranke Idee:
wenn man einen Button (z.B. 100 Pixel breit) zeichnen lässt, der 3mal so breit ist, als das echte Ziel, dann hat man schon mal eine Fläche mit den richtigen Farben (300 Pixel breit). Auf diese Art ist das Systemicon aus dem Weg. Dann die Ränder links und rechts in die gewünschte Fläche (100 Pixel) reinkopieren und danach auf diese 100 Pixel beschneiden. Damit ist der Button...
Forum: Win32/Win64 API (native code)
Delphi
by ConnorMcLeod,
14. Mai 2011
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.
function OpenThemeData(hwnd: HWND; pszClassList: LPCWSTR): THandle; stdcall; external 'uxtheme.dll';
function CloseThemeData(hTheme: THandle): HRESULT; stdcall;...
Forum: Win32/Win64 API (native code)
Delphi
by ConnorMcLeod,
14. Mai 2011
Hier bitte:
uses
Themes
;
procedure PaintCloseButton(ACanvas: TCanvas; ARect: TRect);
var
CloseBtnDrawDetails: TThemedElementDetails;
begin
CloseBtnDrawDetails := ThemeServices.GetElementDetails(twCloseButtonNormal);