Delphi XE2 Stile Malerei

Question

Ich habe Probleme mit falsch bemalten Ecken beim Zeichnen von VCL-Stil Fensterelemente. Bei Stilen, die abgerundete Ecken haben, bekomme ich einen weißen Hintergrund in dem Raum zwischen dem Begrenzungsrechteck des Steuerelements und der abgerundeten Fensterecke des Stils.

Das war die obere Bild unter Verwendung von Aqua Light Slate laufen, aber jeder Stil mit abgerundeten Ecken wird das gleiche Problem zeigen. Was vermisse ich?

type 
    TSample = class(TCustomControl) 
    protected 
    procedure Paint; override; 
    end; 

{ TForm1 } 
procedure TForm1.FormCreate(Sender: TObject); 
var 
    R: TRect; 
    S: TSample; 
begin 
    R := ClientRect; 
    InflateRect(R, -20, -20); 
    S := TSample.Create(Application); 
    S.Parent := Self; 
    S.BoundsRect := R; 
end; 

{ TSample } 
procedure TSample.Paint; 
var 
    Details: TThemedElementDetails; 
begin 
    Details := StyleServices.GetElementDetails(twCaptionActive); 
    StyleServices.DrawParentBackground(Self.Handle, Canvas.Handle, Details, False); 
    StyleServices.DrawElement(Canvas.Handle, Details, ClientRect); 
end; 

Answer 1

Ok, verbringe ich einige Minuten in Ihnen hinterfragen und ich die Antwort gefunden. Um die abgerundeten Ecken zu zeichnen, rufen Sie die Funktion StyleServices.GetElementRegion auf, um die Region abzurufen, und wenden Sie dann die SetWindowRgn-Funktion an, um die Region auf das Steuerelement anzuwenden.

Kontrolle dieser Probe

procedure TSample.Paint; 
var 
    Details : TThemedElementDetails; 
    Region : HRgn; 
    LRect : TRect; 
begin 
    Details := StyleServices.GetElementDetails(twCaptionActive); 
    LRect := Rect(0, 0, Width, Height); 
    StyleServices.GetElementRegion(Details, LRect, Region); 
    SetWindowRgn(Handle, Region, True); 
    StyleServices.DrawParentBackground(Self.Handle, Canvas.Handle, Details, False); 
    StyleServices.DrawElement(Canvas.Handle, Details, ClientRect); 
end; 

Und das Ergebnis ist