Label audrucken, mit Zeilenumbruch.

[thiagojonas]

Hallo,
ich möchtege gern ein Label mit Zeilenumbruch ausdrucken.
Das Problem ist, dass Canvas '#13#10' ignoriert, das heißt die Werte werden hintereinander bis über das Blatt hinaus ausgedruckt.
Weiß jemand wie man das lösen könnte?

[Frankfurtoder]

Label Eigenschaftn WordWrap?
Bin mir nicht sicher ob du das meinst.

[soulies]

hoi,

einfach mal so als denkanstoss vllt. (keine garantie des es funzt)

Delphi-Quellcode:

var
   x,y,font_heigth,position : Integer ;
   tmp_row,part : String ;
begin
     x := 200 ;
     y := 200 ;
     font_heigth := Abs(Dein_Label.Font.Height) * Dein_Label.Font.Size  ;

     Printer.BeginDoc;
       tmp_row := Dein_Label.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;
     Printer.EndDoc;
end;

cya

[DeddyH]

Oder mit DrawText auf den PrinterCanvas zeichnen (inkl. DT_WORDBREAK).

[thiagojonas]

Super Prima code, respekt .
Kann ich einzelne Labels ein Style zuweisen? Bold onder Italic?

[DeddyH]

Schau Dir mal die Font-Property von TLabel an.

[thiagojonas]

Äh... Sorry ich meinte wie kann ich einzelne Labels Fett ausdrucken?

[DeddyH]

Dazu musst Du den Font des Printer.Canvas ändern.

[thiagojonas]

Ja das weiß ich, aber wenn ich das machen, dann wird alles Fett gedruckt und nicht z.B. nur die Überschrift.

So ging es bei nicht:

Label1.Canvas.Font.Style := [bsbold]

[DeddyH]

Delphi-Quellcode:

Printer.BeginDoc;
Printer.Canvas.Font.Style := [fsBold];
Printer.Canvas.TextOut(100,100,'Fett');
Printer.Canvas.Font.Style := [];
Printer.Canvas.TextOut(100,200,'Nicht fett');
Printer.EndDoc;

So in der Art.