Ctl3D selbst zeichnen

[DeddyH]

Malt ein "Pseudo-Panel" ohne Caption auf das Form:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
var R: TRect;
    OldColor: TColor;
begin
  R := Rect(10,10,195,51);
  OldColor := Canvas.Brush.Color;
  try
    Canvas.Brush.Color := clBtnFace;
    Canvas.FillRect(R);
    ExtCtrls.Frame3D(Canvas,R,clBtnHighLight,clBtnShadow,1);
  finally
    Canvas.Brush.Color := OldColor;
  end;
end;