Label Print?

[Privateer3000]

Hallo Leuts,

lässt sich eine Komponente wie Label auch drucken.
Mit RichEdit gehts,weiss ich...aber auch die Caption eines Labels??
Und weil wir dabei sind :lol: gehts mit Shapes auch???

Schönen Sonntag!!!

TOOOOOOOOOOOOOOOR für Spanien

[Daniel B]

Hi,

es kommt drauf an wie du Druckst.
Aber schonmal

Code:

WriteLn(Printfile, Label1.Caption);

probiert?

Grüsse, Daniel :)

[Privateer3000]

Danke,
ich versuch es das erste Mal.
Also keine Ahnung wie und wo deine Zeile verwendet werden muss.
Such grad Tuts darüber....bisher noch nichts

[Daniel]

Hallo Privateer,

Du könntest Deine Druck-Ausgabe selber formatieren. Über die Unit "Printers" und das Object "TPrinter" holst Du Dir ein Handle auf die Zeichenfläche (Canvas) des Druckers. Dort kannst Du dann mit TextOut(...) und DrawRect(...) etc. jegliche Form von Krativität austoben. Ist allerdings ein wenig aufwendiger.


Grüße,
Daniel

[Daniel B]

Aaahh, dein Problem ist das du grundsätzlich nicht Drucken kannst.
Du könntest ja einfach Print; schreiben, aber das ist nicht das was du willst.

Du kannst nämlich sachen so Drucken, als würdest du eine normale Textfile beschreiben.

Indem du eine Datei mit AssignPrn(tf, 'LPT1'); öffnest und somit einfach nur WriteLn(blabla); benutzt.
Printers in die uses aufnehmen.
Das findet man sogar in der OH. Ich hab aber zur Zeit kein Dlephi, kann somit nicht nachsehen nach welchen Befehlen du suchen müsstest. Aber unter Printer, Printers, findest du bestimmt was. AssignPrn auch.

Grüsse, Daniel :)

[Privateer3000]

Habs mir anders überlegt...

Ich möchte die Labels lieber vorher in eine Datei speicher..
diese kann ich wenns erforderlich immer noch ausdrucken.

Also nochmal:

Ich möchte sprichwörtlich die Labels "einsammeln" (sind Label1..Label12)
und sie untereinander in einem Textfile abspeichern..
nimmt man da nun
write
SaveToFile
oder sonstwas

wäre Dankbar für Hilfe

[Daniel]

Alle Labels eines Fensters könntest Du folgendermassen einsammeln:

Code:

Procedure ScanLabels( aForm : TForm );
var index : Integer;
Begin
  For index:= 0 To aForm.ComponentCount-1 Do
  Begin
    If (aForm.Component[index] is TLabel) Then
      With TLabel(aForm.Component[index]) Do
        WriteToFile( aForm.Name+'.'+Name+'.Caption:= '+Caption);
  End;
End;

Und die Prozedur WriteToFile könnte folgendermaßen aussehen:

Code:

Procedure WriteToFile( aString : String );
var aFile : TextFile;
Begin
  AssignFile( aFile, 'C:\DATA.TXT' );
  Reset( aFile );
  WriteLn( aFile, aString );
  CloseFile( aFile );
End;

Ich habe weder die eine noch die andere Methode getestet, aber das Prinzip sollte in jedem Fall funktionieren.


Grüße,
Daniel

[Privateer3000]

Danke Daniel,

Componet ist ein undef. Bezeichner

was muss ich noch machen???

[Daniel]

Sorry. Es muss jeweils .Components lauten. Das 's' am Ende ist wichtig. :roll:

Grüße,
Daniel

[Privateer3000]

Dankeschön...

PS:sieh mal unter Fragen/Anregungen nach