| Autor |
Beitrag |
Leathl
      
Beiträge: 276
|
Verfasst: Fr 17.01.03 18:27
Zuletzt bearbeitet von Leathl am So 16.08.09 13:28, insgesamt 1-mal bearbeitet
|
|
torstenheinze
      
Beiträge: 461
|
Verfasst: Fr 17.01.03 18:31
übernimm die verschiedenen einträge in ein richedit und machedas in das format wie du das haben willst, und dann drucke das
richedit1.lines.add('Lehrer/in: ' + Lehrername + 'Tel: ' + telnum)
|
|
Leathl 
      
Beiträge: 276
|
Verfasst: Fr 17.01.03 18:38
Zuletzt bearbeitet von Leathl am So 16.08.09 13:28, insgesamt 1-mal bearbeitet
|
|
torstenheinze
      
Beiträge: 461
|
Verfasst: Fr 17.01.03 18:46
einfach den eintrag beispielsweisenummer 2 aus der liste lesen und als wert einér stringvariable übergeben
und die stringvar könnte bsp lehrername oder so heißen
|
|
torstenheinze
      
Beiträge: 461
|
Verfasst: Fr 17.01.03 18:51
Quelltext 1: 2: 3: 4: 5: 6: 7:
| var s: string; begin memo1.Clear; s := listbox1.Items.Strings[1]; memo1.Lines.Add('Lehrername: ' + s); end; |
Moderiert von Tino: Code-Tags hinzugefügt.
|
|
torstenheinze
      
Beiträge: 461
|
Verfasst: Fr 17.01.03 18:51
statt memo1 kannst du auch richedit1 nehmen
|
|
Leathl 
      
Beiträge: 276
|
Verfasst: Fr 17.01.03 19:28
Zuletzt bearbeitet von Leathl am So 16.08.09 13:28, insgesamt 1-mal bearbeitet
|
|
Keldorn
      
Beiträge: 2266
Erhaltene Danke: 4
Vista
D6 Prof, D 2005 Pro, D2007 Pro, DelphiXE2 Pro
|
Verfasst: Fr 17.01.03 20:59
| Zitat: |
kann ich im richedit ne tabelle machen???
|
Wenn du unbedingt ein Richedit nehmen willst:
Du kannst dir wie im Word eine Tabelle mit tabstops aufbauen. wenn du über einen Tabstop drüber schreibast, geht dir die Formatierung aber trotzdem flöten.
Schau dir die Eigenschaft Paragraph des Richedits an. Dort gibt es tab und tabcount die du verwenden kannst.
um eine Zeile hinzuzufügen sähe dann so aus
Quelltext 1:
| richedit1.lines.add('blabla1'+chr(Vk_Tab)+'blablabla2'+chr(Vk_tab)+'blabla3') |
Mfg Frank
_________________ Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)
|
|
Leathl 
      
Beiträge: 276
|
Verfasst: Fr 17.01.03 21:41
Zuletzt bearbeitet von Leathl am So 16.08.09 13:29, insgesamt 1-mal bearbeitet
|
|
Keldorn
      
Beiträge: 2266
Erhaltene Danke: 4
Vista
D6 Prof, D 2005 Pro, D2007 Pro, DelphiXE2 Pro
|
Verfasst: Sa 18.01.03 12:16
| Zitat: |
wie kann ich davon die abstände größer machen??
|
na, hab ich doch oben schon gesagt.
mit tab und Tabcount
| Zitat: |
+chr(Vk_Tab)+chr(Vk_Tab)
|
nützt dir gar nix.
| Zitat: |
das passt aber bei längeren sachen auch nicht icon_sad.gif... gibts nicht was, wie ich das ganz genau drunter machen kann??? dass es auch alles so passt?!
|
Schau dir word und Excel an und probier mal dort das zu erreichen. das ist nicht so einfach. im Excel kannst du deine Spalten an die Maximal länge anpassen, kannst dort aber wieder über den Seitenrand beim drucken kommen oder mußt die Seite verkleinern. so oder so wird es irgendwo Problemchen geben.
Als alternative kannst ein Listview verwenden, das kannst du so einstellen, daß die Spaltenbreite automatisch an den Inhalt angepaßt werden. wie du das dann aber wieder ausdrucken kannst ist eine anderes sache.
Mfg Frank
_________________ Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Sa 18.01.03 14:24
Schon mal darangedacht die Ausgabe direkt auf dem Canvas des Druckers zu machen?
|
|
Leathl 
      
Beiträge: 276
|
Verfasst: Sa 18.01.03 14:58
Zuletzt bearbeitet von Leathl am So 16.08.09 13:29, insgesamt 1-mal bearbeitet
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Sa 18.01.03 15:03
Na ja du mußt den Listview auslesen und dann mit Texout auf dem canvas ausgeben. Ist natürlich etwas mehr Arbeit, aber dafür kannst du auch Linien usw. zeichnen.
|
|
torstenheinze
      
Beiträge: 461
|
Verfasst: Sa 18.01.03 15:14
mal eine frage, wie kann man , wenn man auf das canvas gezeichnet hat das dann drucken?
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Sa 18.01.03 15:46
Du zeichnes doch direkt auf den Canvas des Printers nicht auf den Canvas der Form oder so. Steckt glaube ich alles ín der Unit TPrinter.
|
|
torstenheinze
      
Beiträge: 461
|
Verfasst: Sa 18.01.03 17:01
achso, also zeichne ich mit einer funktion auf das canvas der formn, und dann zeichne ich genau das selbe auf das canvas des druckers und dann das selbe mit der nächsten funktion.
so hab ich im pinzip ne vorschau.
ob das stimmt... 
|
|
Leathl 
      
Beiträge: 276
|
Verfasst: Sa 18.01.03 18:08
Zuletzt bearbeitet von Leathl am So 16.08.09 13:30, insgesamt 1-mal bearbeitet
|
|
torstenheinze
      
Beiträge: 461
|
Verfasst: Sa 18.01.03 18:48
<Objekt>.canvas.moveto(x,y);
<Objekt>.canvas.lineto(x,y);
wenn du damit geschickt die linien zeichnest, dann kannst du dich freuen, wenn am ende eine tabelle rauskommt.
strichstärke kannst du auch vorher einstellen, suche mal ein bischen unter brush und pen in der hilfe...
______________________________________________________

|
|
Leathl 
      
Beiträge: 276
|
Verfasst: Sa 18.01.03 18:52
Zuletzt bearbeitet von Leathl am So 16.08.09 13:31, insgesamt 1-mal bearbeitet
|
|
torstenheinze
      
Beiträge: 461
|
Verfasst: So 19.01.03 13:45
mach das ganze mit einer schleife.
so dass die nächste linie immer 10 pixel unter der vorigen ist, bis die schleife zu ende ist, und die schleife soll dann sooft durchlaufen, wie es einträge in der listbox gibt, dann zeichnest du noch die ninien, die die spalten trennen, und mit canvas.textout gibst du die position des textes an.
|
|