Hallo zusammen,

Ich habe ein einfaches TMemo, in dass ein bischen Text eingegeben wird. Jetzt will ein Kunde seine Zeilenumbrüche besser im Griff haben und wünscht sich Absatzmarken, wie man sie sich z.B. in Word anzeigen lassen kann. Ich könnte natürlich alle #10#13 im Memo.text durch #10#13#183 ersetzen, aber dann habe ich das Absatzzeichen als editierbares Zeichen im Memo drin, was ja auch nicht gewünscht ist.

Habt ihr eine Idee oder eine Komponente, mit der man das lösen kann? Ich könnte auch WPTools verwenden, aber das erscheint mir an dieser Stelle eher Overkill.

Da bleibt dann wohl nur ein RichEdit, wo man nicht nur Text reinmachen kann.



PS: #13#10 (CRLF) und nicht #10#13, oder doch besser sLineBreak.

PPS: Im neuen TRichEdit ist der Zeilenumbruch nur noch ein #13 (Mac), anstatt den bekannten #10 (Linux/Unix) und Windows (#13#10).

Theoretisch kann man in TRichEdit Bereiche schützen. Im Grunde sogar sehr einfach. Das Paragraph Zeichen könnte man dann schützen, man könnte es dann nicht mehr löschen. Soviel zu den guten Nachrichten.

Ich kann mich jetzt nicht mehr an die Einzelheiten erinnern, aber ich kann mich erinnern, dass ich mal mit dem Schutz experimentiert habe und daran geradezu verzweifelt bin. Irgendwie konnte ich den gesperrten Bereich nicht wieder entsperren. Ich weiß nicht ob es dann wieder hingekriegt habe, aber daran kann ich mich erinnern.

Vielen Dank für den Hinweis mit dem geschützten Bereich im TRichedit.

Damit habe ich das jetzt implementiert. Für die Entfernung des Schutzes muss man einfach in OnProtectChange das AllowChange entsprechend setzen.

Im OnChange werden die Absatzmarken eingefügt und gleich geschützt. Dann musste ich noch in OnSelectionChange einige Cursorbewegungen abfangen und abändern, damit der Cursor sich so verhält, wie man es erwartet. Dabei muss man noch aufpassen, dass sich die Events nicht rekursiv aufrufen.

Vielleicht kannst Du hiermit etwas anfangen:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.SetMemoTab(Memo: TMemo; TabWidth: Integer);
var
  DialogUnitsX: LongInt;
  PixelsX: LongInt;
  TabArray: array[0..19] of integer; // kann ggf. auch größer gesetzt werden
  i: integer;
begin
  Memo.WantTabs := true;
  DialogUnitsX := LoWord(GetDialogBaseUnits);
  PixelsX := TabWidth;
  for i := 1 to Length(TabArray) do
    TabArray[i - 1] := ((PixelsX * i) * 4) div DialogUnitsX;
  SendMessage(Memo.Handle, EM_SETTABSTOPS, Length(TabArray), LongInt(@TabArray));
  Memo.Refresh;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text:='';
  // Starteinstellung, hier mit TabAbstand = 50 Pixel
  SetMemoTab(Memo1, 50);
end;

// Möglichkeit zur nachträglichen Änderung des TabAbstandes
procedure TForm1.Button1Click(Sender: TObject);
Var TabDist: Integer;
begin
  // TabAbstand zuvor in Edit1 vorgeben, z.B. auf 100 Pixel
  if not TryStrToInt(Edit1.text, TabDist) then exit;
  SetMemoTab(Memo1, TabDist);
end;

Die Einstellung der Tabs wirkt sich grundsätzlich immer auf alle Zeilen aus, d.h. dies auch bei nachträglicher Veränderung des Tabulaturabstandes.

Danke, aber Tabulatoren sind momentan noch nicht gefragt, evtl. später.