Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by DeddyH,
10. Okt 2008
Komisch. Ich habe gerade mal Folgendes ausprobiert:procedure TForm1.FormPaint(Sender: TObject);
const sText = 'Erste Zeile'#13#10'Zweite Zeile';
var R: TRect;
begin
R := Rect(0,
ClientHeight shr 1 - Canvas.TextHeight(sText),
Width,
ClientHeight shr 1 + Canvas.TextHeight(sText));
DrawText(Canvas.Handle,PChar(sText),-1,R,DT_CENTER);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by DeddyH,
10. Okt 2008
Lass mal das DT_VCENTER weg.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by DeddyH,
10. Okt 2008
Wie sieht der Aufruf von DrawText denn aus?