Beispiel (TMyCompo ist von TGraphicControl abgeleitet, es wurde nur die Paint-Methode überschrieben):
Delphi-Quellcode:
procedure TMyCompo.Paint;
var
R: TRect;
begin
inherited;
Canvas.Brush.Color := clYellow;
Canvas.FillRect(Rect(0, 0, Width, Height));
R := Rect((Width - 50) div 2, (Height - 50) div 2,
(Width + 50) div 2, (Height + 50) div 2);
Frame3D(Canvas, R, $00DADADA, clDkGray , 1);
end;
Somit wird das Ding gelb gefüllt, und in der Mitte erscheint so ein Frame mit Kantenlänge 50 Pixel, siehe Screenshot.