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 gehts mit Shapes auch???

Schönen Sonntag!!!

TOOOOOOOOOOOOOOOR für Spanien

Hi,

es kommt drauf an wie du Druckst.
Aber schonmal

markieren

Code:

WriteLn(Printfile, Label1.Caption);

probiert?

Grüsse, Daniel

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

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

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

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

Alle Labels eines Fensters könntest Du folgendermassen einsammeln:

markieren

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:

markieren

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

Danke Daniel,

Componet ist ein undef. Bezeichner

was muss ich noch machen???

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

Grüße,
Daniel

Dankeschön...

PS:sieh mal unter Fragen/Anregungen nach