hi
aus meiner TitelDatenbank übernehme ich per Mausklick auf die Zeile der DBGrid den Eintrag in eine RichEdit :
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
| procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
HS : String;
HS1 : String;
begin
HS := DBGrid1.Fields[0].AsString;
While Length(HS) < 10 do HS := HS + ' '; HS1 := DBGrid1.Fields[1].AsString;
While Length(HS1) < 20 do HS1 := HS1 + ' '; HS := HS + HS1;
HS1 := DBGrid1.Fields[2].AsString;
While Length(HS1) < 30 do HS1 := HS1 + ' ';
HS := HS + HS1;
HS1 := DBGrid1.Fields[3].AsString;
While Length(HS1) < 8 do HS1 := HS1 + ' ';
HS := HS + HS1;
HS1 := DBGrid1.Fields[4].AsString;
While Length(HS1) < 2 do HS1 := HS1 + ' ';
HS := HS + HS1;
HS1 := DBGrid1.Fields[5].AsString;
While Length(HS1) < 2 do HS1 := HS1 + ' ';
HS := HS + HS1;
Playliste.RichEdit1.Lines.Add(HS);
PlayListe.RichEdit1.Lines.Add(' ');
end; |
So nun mein Problem :
Wie krige ich die RichEdit zum Drucken so das oben am Blatt und von links her ein Rand bleibt damit ich den Ausdruck evtl Lochen und abheften kann. Komme da nicht weiter. Hat jemand ein Beispiel für mich wie so etwas geht ????
gruß
patrick dee
