Hier bitte:
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