Ctl3D selbst zeichnen

[blablab]

Hallo!

Ich benutze eine DrawGrid und möchte dass eine Zeile aussieht wie ein normales Panel mit BevelOuter=bvRaised und BevelInner=bvNone.
Ich bin mir nur nicht sicher, wie ich das machen soll. Eigentlich könnte ich ja einfach die Farben raussuchen und damit das Teil malen. Nur leider sind das ja alles Speziel-Farben, die man bei Windows einstellen kann. Deshalb sollte ich diese "Windows-Farben" kennen oder vielleicht gibt es ja noch einen eleganteren Weg...

Freue mich schon auf eure Antworten!

Grüße
blablab

[uligerhardt]

Zitat von blablab:

Nur leider sind das ja alles Speziel-Farben, die man bei Windows einstellen kann. Deshalb sollte ich diese "Windows-Farben" kennen oder vielleicht gibt es ja noch einen eleganteren Weg...

Dafür gibt's clBtnFace und Co. Wenn du den VCL-Quelltext hast, mach mal die Graphics.pas auf und schau dir die Zeilen mit clSystemColor an.

Falls du unter XP und höher gethemeten Look haben willst, schau dir mal die Unit Themes an.

[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;

[blablab]

Genau das hab ich gesucht!
Vielen Dank!!!