Delphi-PRAXiS - Delphi Rahmen zeichnen

Zitat:

Zitat von Chris P

@Amateurprofi: Genau das meinte ich.

Wie kann man nun die Dicke des Rahmens bestimmen? Mit CreatePen wäre das ja kein Problem.
Wie macht man das bei einem Brush?

Soweit ich weiß gibt es nonVCL keine vorgefertigte Prozedur um Rahmen mit anderen Stärken als 1 zu zeichnen.
Aber schau Dir doch mal in der Unit ExtCtrls die Prozedur Frame3D an und schreibe die, entsprechend Deinen Wünschen, um, so daß Du sie nonVLC verwenden kannst.

Delphi-Quellcode:

			procedure Frame3D(Canvas: TCanvas; var Rect: TRect; TopColor, BottomColor: TColor;
		

Mit Frame3D kannst Du Rahmen beliebiger Stärke zeichnen und obendrein noch für linke/obere und rechte/untere Kante unterschiedliche Farben verwenden, was den 3d-Effekt gibt. Schön an dieser Prozedur ist auch, daß das als var übergebene Rechteck von der Prozedur verändert wird und nach Aufruf von Frame3D das Rechteck innerhalb des Rahmens beschreibt.