Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: Ctl3D selbst zeichnen

   
    by DeddyH, 12. Jan 2011
  Malt ein "Pseudo-Panel" ohne Caption auf das Form:
  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);