|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.546 Beiträge
Delphi 11 Alexandria
|
AW: Komponente von TShape mit Caption
30. Jan 2012, 15:09
Aus dem Kopf und ohne Gewähr:
Delphi-Quellcode:
procedure TDeinShape.Paint;
var
R: TRect;
begin
inherited;
Canvas.Font.Assign(Font);
Canvas.Brush.Style := bsClear;
R := Rect(0, 0, Width, Height);
DrawText(Canvas.Handle, PChar(Text), -1, R, DT_SINGLELINE or DT_CENTER or DT_VCENTER);
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|