PlainEdit 1.7.6 - Texteditor für Windows

[Gaijin]

Zitat von jmit:

In dem Fenster "Seite einrichten" ist der Übernehmen-Button immer aktiv. Schön wäre es, wenn er nur nach einer Änderung aktiv wäre, und nach der Übernahmen wieder inkativ. So könnte man sofort erkennen, ob eine Änderung schon übernommen wurde.

Ich habe es mir mal aufgeschrieben und werde mich der Sache annehmen, sobald ich dafür Zeit finde.

Zitat von jmit:

Nur weiter so, der Editor gefällt mir sehr gut.

Danke!

[Gaijin]

Version 1.4.1:
[+] Einzelne Einträge in den Drop-Down-Feldern "Suchen" und "Ersetzen" können nun mit der Tastenkombination "Shift + Entf" gelöscht werden.
[+] In den Dateieigenschaften werden nun auch Informationen zum ausgewählten Text angezeigt.
[+] In die Liste der zuletzt geöffneten Dateien werden jetzt auch unter neuem Namen gespeicherte Dateien aufgenommen. In den Optionen sind die entsprechenden Einstellungen nun unter "Zuletzt verwendete Dateien" zu finden.
[*] Bei der Suche werden Fundstellen jetzt zentriert, sofern sie sich nicht im sichtbaren Bereich befunden haben (vorher wurden sie in der ersten bzw. letzten Zeile angezeigt).
[*] Die Pfade zu den externen Programmen können jetzt auch Umgebungsvariablen enthalten.
[*] Kleinere Änderungen an der Programmoberfläche und dem Suchfeld.
[-] Beim Entfernen von überflüssigen Leerzeichen konnte es vorkommen, dass ein Zeichen zu viel ausgegeben wurde, sofern der ursprüngliche Text nur ein Zeichen enthielt.
[-] Wenn für mehr als ein Programm in den Optionen kein Shortcut ausgewählt wurde, konnten die Einstellungen nicht gespeichert werden.

(Download im ersten Posting)

[jmit]

Hallo Gaijin,

ich habe wieder einmal eine Frage zum Editor Plainedit. Wenn ich ein Log-File öffnen will, das von einem noch laufenden Programm erstellt wurde, dann kann ich es mit PlainEdit nicht öffnen. Mit einem anderen Editor, z.B Ultra-Edit, funktioniert es ohne Probleme.
Hast Du dafür eine Erklärung.
Vielen Dank für die Info.

Gruß Jörg

[Gaijin]

Zitat von jmit:

Wenn ich ein Log-File öffnen will, das von einem noch laufenden Programm erstellt wurde, dann kann ich es mit PlainEdit nicht öffnen. Mit einem anderen Editor, z.B Ultra-Edit, funktioniert es ohne Probleme.

Das liegt daran, dass PlainEdit Schreibzugriffe auf diese Datei während des Ladens der Daten verhindert.
In der nächsten Version werde ich das ändern. Die zu erwartenden "theoretischen" Probleme sollten nicht so groß sein, wie wenn die Datei nicht geöffnet werden kann.

[Gaijin]

Version 1.4.2:
[+] Überwachung von Dateien: Option für "Cursor am Dateiende positionieren" (für Log-Files).
[+] Überwachung von Dateien: Änderungen automatisch verwerfen und Datei neu laden.
[+] PlainEdit kann jetzt beim Schließen des letzten Dokuments automatisch minimiert werden.
[+] Wenn eine geöffnete Datei vom Datenträger gelöscht wurde, wird jetzt beim Speichern eine entsprechende Hinweismeldung ausgegeben.
[*] Beim Laden einer Datei wurde der Zugriff für andere Prozesse gesperrt, wodurch bereits von anderen Programmen geöffneten Dateien nicht in PlainEdit geöffnet werden konnten.
[*] Das Einfügen von Inhalten aus der Zwischenablage am Zeilenanfang und am Zeilenende umfasst jetzt auch teilweise markierte Zeilen. Vorher wurden nur vollständig markierte Zeilen verarbeitet.

[Gaijin]

Version 1.4.3:
[+] UTF-8-Dateien werden jetzt beim Laden erkannt und konvertiert, sofernt dabei die Steuerungstaste gedrückt wird.
[*] Diverse Änderungen an der Programmoberfläche.
[-] Dateien mit bestimmten Sonderzeichen (Binärdateien) wurden manchmal als Unicode-Dateien interpretiert und falsch angezeigt.

(Download im ersten Posting.)

[jmit]

Hallo Gaijin,

klasse, dass es wieder eine neue Version gibt. Ich arbeite nur noch mit PlainEdit.
Wird es in zukünftigen Version auch einmal die Möglichkeit geben, Dateien zu vergleichen?

Gruß Jörg

[Gaijin]

Zitat von jmit:

Wird es in zukünftigen Version auch einmal die Möglichkeit geben, Dateien zu vergleichen?

Versprechen kann ich es dir nicht, aber ich werde mich mal damit beschäftigen...

[kalmi01]

Zitat:

Versprechen kann ich es dir nicht, aber ich werde mich mal damit beschäftigen...

Habe Dir eine Unit gesendet, die Du dafür einbauen kannst.

So könnte dann Dein Compare aussehen:

Delphi-Quellcode:

    procedure TCEp.Compare(const Child1, Child2 : TCEpChild);
      var
        i, j   : integer;
        Differ : TStandardTextComparer;
        Diff   : TDifference;
        BMark  : TSynEditMark;
      begin
        Child1.ChainWith(Child2);
        Child2.ChainWith(Child1);
        Child1.Compare(Child2);
        Child2.Compare(Child1);

        Differ := TStandardTextComparer.Create;
        Differ.IgnoreCase   := ((MainForm.TB_SelectHighlighter.Text <> 'PostScript')
                                and
                                (MainForm.TB_SelectHighlighter.Text <> 'Text'));
        Differ.IgnoreSpaces := false;
        Differ.SpacesAsOne  := (MainForm.TB_SelectHighlighter.Text <> 'Text');
        Differ.Heuristic    := 0;

        Differ.Clear;
        Differ.Compare(Child1.Editor.Lines, Child2.Editor.Lines);

        SetLength(Child1.CmpLineR, Child1.Editor.Lines.Count+1);
        SetLength(Child1.CmpLineG, Child1.Editor.Lines.Count+1);
        for i := 0 to Child1.Editor.Lines.Count
        do begin
             Child1.CmpLineR[i] := false;
             Child1.CmpLineG[i] := false;
           end;
           
        SetLength(Child2.CmpLineR, Child2.Editor.Lines.Count+1);
        SetLength(Child2.CmpLineG, Child2.Editor.Lines.Count+1);
        for i := 0 to Child2.Editor.Lines.Count
        do begin
             Child2.CmpLineR[i] := false;
             Child2.CmpLineG[i] := false;
           end;
           
        for i := 0 to Differ.Count - 1 do
        begin
          Diff := Differ.Diff[i];

          for j := Diff.Left.Start to Diff.Left.Stop
          do Child1.CmpLineR[j] := true;

          if (Diff.Left.Start = Diff.Left.Stop)
          then Child1.CmpLineG[Diff.Left.Start] := true;

          BMark := TSynEditMark.Create(Child1.Editor);
          with BMark
          do begin
               Line := Diff.Left.Start;
               ImageIndex := 10;
               Visible := true;
             end;
          Child1.Editor.Marks.Place(BMark);

          for j := Diff.Right.Start to Diff.Right.Stop
          do Child2.CmpLineR[j] := true;

          if (Diff.Right.Start = Diff.Right.Stop)
          then Child2.CmpLineG[Diff.Right.Start] := true;

          BMark := TSynEditMark.Create(Child2.Editor);
          with BMark
          do begin
               Line := Diff.Right.Start;
               ImageIndex := 10;
               Visible := true;
             end;
          Child2.Editor.Marks.Place(BMark);
        end;
        i := Differ.Count;
        Differ.Free;

        with Child1.Editor
        do begin
             OnSpecialLineColors := Child1.EditorSpecialLineColors;

             CaretX := 1;
             CaretY := 1;
             TopLine := 1;

             Repaint;
           end;
        with Child2.Editor
        do begin
             OnSpecialLineColors := Child2.EditorSpecialLineColors;

             CaretX := 1;
             CaretY := 1;
             TopLine := 1;

             Repaint;
           end;

        Application.ProcessMessages;
        MessageBox(0, PAnsiChar(IntToStr(i) + '  Unterschiede gefunden.'), 'Dateiunterschiede finden', MB_ICONINFORMATION or MB_OK or MB_TOPMOST);
      end;

[Gaijin]

Zitat von kalmi01:

Habe Dir eine Unit gesendet, die Du dafür einbauen kannst.

Danke für die Unit!

Das Beispiel verstehe ich aber irgendwie nicht.
Was ist eigentlich "TCEp" und "TCEpChild"? Was machen "Child1.ChainWith", "Child1.Compare" und "EditorSpecialLineColors"?