Absätze in RichEdit nicht drucken!!

[thbi]

Hallo


Ich versuche ein RichEdit auszudrucken aber die Zeilenumbrüche werden nicht mitgedruckt!! Anstatt des Umbruchs werden Kästchen ausgedruckt und der Ausdruck ist ein einer Zeile und hört beim Seitenrand auf!!

Den Zeilen umbrich habe ich So Realisiert:

Delphi-Quellcode:

 RichEdit1.Lines.Add (#10 + #13);

Eine leere Zeile einfügen bringt auch nichts!! Im RichEdit wird es richtig angezeigt.

Vielleicht kennt einer einen anderen Lösungsvorschlag!!


THX

Mfg thbi

[marabu]

Hallo,

mit den Suchworten RichEdit AND Print hier in der DP-Suche wirst du erschlagen von Treffern. Die meisten davon haben auch wirklich was mit dem Thema zu tun.

Grüße vom marabu

[thbi]

Des was dort steht weiß ich!!

Wenn ich des so drucke funzt es aber ich will ja auch Seitenränder haben!! Der Druckt mir des in die linke obere Ecke!!
Des wegen hab ich ja nach eine andere Methode gefragt wie man noch anders "Return" machen kann!!



Mfg thbi

[marabu]

Zitat:

Zitat von thbi

Des was dort steht weiß ich!! Wenn ich des so drucke funzt es aber ich will ja auch Seitenränder haben!!

Meinst du mit dort diesen thread? Was funktioniert denn bei dir damit nicht?

marabu

[thbi]

Des habe ich probiert aber es geht nicht!! Der Schreibt mir nur die erste Zeile rein und auch ohne Formatierung!!

Danke für den Tip!!


Mfg thbi

[thbi]

HI

Es funzt wunderbar aber die Absätze werden immer noch als Kästchen angezeigt!!


Bestimmt kann mir da einer helfen!!

Mfg thbi

[PierreB]

Zitat:

Zitat von thbi

HI

Es funzt wunderbar aber die Absätze werden immer noch als Kästchen angezeigt!!

Warte mal, meinst du beim ausdrucken wird bei den Zeilenumbrüchen ein Kästchen ausgedruckt ? Hab ich zwar noch nie gesehen, aber versuch mal:

Delphi-Quellcode:

RichEdit1.Plaintext := true;

[thbi]

Habs Probiert funzt ned!!

Vielleicht hast noch nen anderen Tip??


Mfg thbi

[Flocke]

Zitat:

Zitat von thbi

Delphi-Quellcode:

 RichEdit1.Lines.Add (#10 + #13);

Das Lines.Add hängt selbst einen Zeilenumbruch an, du solltest das also nicht zusätzlich machen. Außerdem hieße es #13#10 (CR/LF) und nicht umgekehrt.

Delphi-Quellcode:

 RichEdit1.Lines.Add('');

erzeugt eine Leerzeile.

[Matze]

Ansonsten schaue mal hier.


PS: Du musst nicht jeden deiner Sätze mit 2 Ausrufezeichen oder 2 Fragezeichen beenden, sonst hilft man dir nicht gerne, so geht es zumindest mir, denn das kommt sehr unhöflich rüber.

[thbi]

Des bringt auch nichts!! Des war auch mein erster gedanke des wegen weiß ich ja nicht mehr weiter!!


Mfg thbi

[thbi]

Da steht nichts neues wo mit weiter helfen könnte des hab ich schon alles ausprobiert!


Mfg thbi

[Flocke]

P.S. Crosspostings zwischen hier und dort sind nicht gerade hilfreich - ein Forum hätte auch gereicht.

In diesem Code:

Delphi-Quellcode:

RichEdit1.Lines.Add(#15 + Form1.ListView1.Items.Item[b].Caption + '  ' + Form1.ListView1.Items.Item[b].SubItems.Strings[0] + '  ' + Form1.ListView1.Items.Item[b].SubItems.Strings[1] +'  ' + Form1.ListView1.Items.Item[b].SubItems.Strings[2] +' / ' + Form1.ListView1.Items.Item[b].SubItems.Strings[3] + #10 + #13);
RichEdit1.Lines.Add (#10 + #13);

Was soll das #15? Das ist das Steuerzeichen ^O (SI) und macht eigentlich keinen Sinn.
Hast du beide "#10 + #13" rausgenommen?

[thbi]

Jeder gibt andere Antworten!!

Ja ich habe beide raus und rein! Alle Varianten durch! Hab sogar "vk_return" probiert! Hat nichts gebracht!


Mfg thbi

[marabu]

thbi, sobald du den Code hier einstellst, mit dem sich dein ominöses Druckproblem nachstellen lässt, hat das Räselraten ein Ende.

Gute Nacht.

[DGL-luke]

EDIT: ja, flocke war tatsächlich etwa 6 Stunden schneller. :wall: :stupid: :duck:

[marabu]

Hi Lukas,

wie thbi Absätze in einem RichEdit control realisieren muss, hat ihm Flocke schon knapp 6 Stunden vorher geschrieben.

@thbi: Durch selektives Lesen ist mir der zitierte Quellcode aus dem anderen Forum entgangen - hier eine angepasste Fassung:

Delphi-Quellcode:

var
  li: TListItems;
begin
  li := ListView1.Items;
  RichEdit1.Lines.Add(
      li[b].Caption + '  '
    + li[b].SubItems[0] + '  '
    + li[b].SubItems[1] + '  '
    + li[b].SubItems[2] +' / '
    + li[b].SubItems[3]);
  RichEdit1.Lines.Add('');
end;

Die Daten hast du doch von irgendwoher in die ListView gebracht - von da würde ich sie auch wieder holen um sie in das RichEdit zu schreiben.

Grüße vom marabu

[thbi]

Moin

Ja ich habe es in die Listview gebracht aber meinst du des genau wie ich des dort rausholen soll??

Des ist eine DateTimePicker und 3 EDIT-Fenster!

Wie soll des funzen? :gruebel:


mfg thbi

[marabu]

Hallo thbi,

eine ListView ist in erster Linie eine visuelle Komponente. Speichern solltest du deine Daten eigentlich in einer eigenen Datenstruktur und wenn es so weit ist, dass die Daten angezeigt werden sollen, dann kann sich die ListView (Stichwort ListView.OwnerData) die Daten aus dieser Datenstruktur holen. Wenn du diese Daten dann noch irgendwo anders benötigst, dann holst du sie dir auch aus dieser Datenstruktur - und nicht aus der ListView.

Grüße vom marabu

[thbi]

Des heißt ich müsste mein ganzen Programm umschreiben?

Oder ich schreibe alles zuerst in eine ListView und dann Speichern in eine Datei und die dann drucken! Danach sollte mein Problem behoben sein?

Mfg thbi

[marabu]

Dein ganzes Programm umschreiben? Soviel kann das nicht sein. Die Daten kannst du in einer StringList speichern:

Delphi-Quellcode:

type
  TMainForm = class(TForm)
  ...
  private
    slDaten: TStringList;
  ...
  end;

procedure TMainForm.AddLine;
var
  Fields: TStringList;
begin
  Fields := TStringList.Create;
  Fields.Add(Edit1.Text);
  Fields.Add(Edit2.Text);
  Fields.Add(DateToStr(DateTimePicker.Date));
  slDaten.Add(Fields.CommaText);
  Fields.Free;  
  ListView.Items.Count := slDaten.Count;
end;

Initialisiere slDaten in FormCreate() und schmeiß weg in FormDestroy(). Dann setzt du bei deiner ListView OwnerData := TRUE und schreibst etwas Code für OnData():

Delphi-Quellcode:

procedure TMainForm.ListViewData(Sender: TObject; Item: TListItem);
var
  sl: TStringList;
  i: integer;
begin
  sl := TStringList.Create;
  sl.CommaText := slNewsList[Item.Index];
  Item.Caption := Format('%.0n', [1.0 * Succ(Item.Index)]);
  with Item.SubItems do
    for i := 0 to Pred(sl.Count) do 
      Add(sl[i]);
end;

So oder ähnlich. Mach hin.

marabu

[thbi]

Werde des dann mal heute Nachmittag probieren!

Soll ich dan die ListView drucken oder immer noch zuerst in ein RichEdit laden? Aber wenn ich es wieder in ein RichEdit lade ist dann mein Fehler nicht immer noch da?


Mfg thbi

[marabu]

Mit deinem Fehler hat das alles nichts zu tun, aber den kriegen wir auch noch in den Griff - versprochen.

marabu

[thbi]

Des ist aber momentan mein Problem! Sonst funzt alles! :wall:

Hab auch schon gegoogelt hat auch nichts gebracht!

Vielleicht kommen mal die geistreichen Ideen bald! :coder2:

mfg thbi

[marabu]

Wir haben dir ja schon mit vereinten Kräften beschrieben, was an deinem Code zum Befüllen des RichEdit Controls nicht stimmt. Wenn du immer noch kleine Rechtecke druckst, dann solltest du mal den aktuellen Code zeigen, mit dem du die Rechtecke produzierst.

marabu

[thbi]

Also des ist noch mein Code ohne Änderung von heute Früh aber des hat ja keinen einfluss auf den Quellcode!


Wird in die RichEdit geladen:

Delphi-Quellcode:

 var b: Integer;

begin
  RichEdit1.PlainText := True;

 RichEdit1.SelAttributes.Style:=[];
 for b:=0 to Form1.ListView1.Items.Count-1 do
  begin
     RichEdit1.SelAttributes.Size:=12;
    RichEdit1.Lines.Add(Form1.ListView1.Items.Item[b].Caption + '  ' + Form1.ListView1.Items.Item[b].SubItems.Strings[0] + '  ' + Form1.ListView1.Items.Item[b].SubItems.Strings[1] +'  ' + Form1.ListView1.Items.Item[b].SubItems.Strings[2] +' / ' + Form1.ListView1.Items.Item[b].SubItems.Strings[3]);
    RichEdit1.Lines.Add (#13 + #10);
  end;

 if CheckBox1.Checked=True then RichEdit1.Lines.Add(Edit1.Text);

end;

Code zum drucken:

Delphi-Quellcode:

var sl : TStrings;                                        
    breite,hoehe,x,y,randlinks,randoben,zeile : integer;

begin
sl := RichEdit1.Lines;                                     
  if Form1.PrintDialog1.Execute then
    begin
    Printer.BeginDoc; //Druckjob beginnen
    //Blattgröße in 1/10 mm ermitteln:
    breite:=GetDeviceCaps(Printer.Canvas.Handle, HORZSIZE)*10;
    hoehe:=GetDeviceCaps(Printer.Canvas.Handle, VERTSIZE)*10;
    randlinks:=200; //2,0 cm
    randoben:=200; //2,0 cm
    x:=randlinks;
    y:=randoben*-1;
    SetMapMode(Printer.Canvas.Handle, MM_LOMETRIC); //Umstellen auf 1/10 mm
    for zeile:=0 to sl.Count-1 do               
      begin
      if -y>(hoehe-2*randoben) then
        begin
        y:=randoben*-1;
        Printer.NewPage;
        end;
      Printer.Canvas.Font.Name:='Courier New';
      Printer.Canvas.Brush.Color:=clWhite;
      Printer.Canvas.Font.Height:=70; //10 mm
      if y=-randoben then
        begin
        Printer.Canvas.Font.Style:=[fsbold];
        Printer.Canvas.TextOut(x + 100, y , 'Miniplan ' + 'von ' + Form2.Edit2.Text + ' bis ' + Form2.Edit3.Text);
        Printer.Canvas.Font.Style:=[];
        y:=y-Printer.Canvas.TextHeight(sl[zeile]);
        end;
      Printer.Canvas.Font.Height:=50;
      Printer.Canvas.TextOut(x, y, sl[zeile]);  
      y:=y-Printer.Canvas.TextHeight(sl[zeile]);
      end;
    Printer.EndDoc;
 end;
 Close;

end;

Hoffe das irgendwas findes was man noch umstellen muss!

Mfg thbi

[marabu]

Als erstes mache bitte folgende Änderung:

Delphi-Quellcode:

...
// RichEdit1.Lines.Add (#13 + #10); // nicht gut
RichEdit1.Lines.Add (''); // besser so
...

Dann könntest den erzeugten RTF-Code (RichEdit.Lines.SaveToFile) mal anhängen, damit man sich den fehlerhaften Output einmal anschauen kann.

marabu

[thbi]

Der Fehler hat sich bis jetz immer noch nicht behoben! hab geszcht ubd probiert! nichts geht! Der Druckt mir imemr noch die Kästchen mit! :coder2:

Hat keiner mehr ne Idee? :?:



Mfg thbi

[marabu]

Hänge doch mal den RTF-Code an (siehe oben).

marabu