Hallo Jungs, also ich habe eine TLabel.
Sie erhält folgenden Wert:
label1.Caption := ' hallo' + #13#10 + 'tschüss';
Ich würde jetzt aber gerne, dass z.B. "hallo" fettgedruckt gezeigt wird und "tschüss" normal.
Und entsprechen auch für das Drucken.
Die Zeilenumbrüche erkennt ja Canvas so nicht an, also drucke ich es wie folgt aus.
Mit Erfolg.
Delphi-Quellcode:
tmp_row := Label1.Caption ;
if (Pos(#13#10,tmp_row) > 0) then
begin
repeat
position := Pos(#13#10,tmp_row);
if (position > 0) then
part := Copy(tmp_row,1,position-1)
else
part := tmp_row ;
Printer.Canvas.TextOut(x,y,part);
Delete(tmp_row,1,position+1);
y := y + font_heigth ;
until
position <= 0;
end
else
begin
Printer.Canvas.TextOut(x,y,tmp_row);
end;
Wie kann ich da auch einzelne Wörter oder Sätze formatieren?
Danke im voraus
