Codepad - Quelltexteditor

[bigg]

Nur zur Info: Ich habe die Version 2.0 nun veröffnentlicht. Die Lizenzbedingungen haben sich jedoch geändert. Codepad ist nicht mehr Open Source, sondern Freeware. Weitere Informationen erhaltet ihr auf meiner Website .


[edit=Matze]Beitrag aktualisiert. MfG, Matze[/edit]

[67g]

Hallo,

es wäre hilfreich wenn eine history.txt bzw. Changelog beiliegen würde. Sofern von Dir noch Aufgaben geplant sind, sollte eine ToDo Liste beiliegen.

TFourth TabSet :
Leider liegt bei dem von Dir zur Verfügung gestellten Archiv keine Lizenz bei, es ist auch nicht nachvollziehbar von wem die Komponente stammt oder ob diese weiterentwickelt wird und von welcher Seite man das Original Archiv beziehen kann. Da in der Source nur Modifiziert durch [dich] steht, nehme ich an dass Du nicht der Hersteller bist.

Gruß 67g.

[bigg]

Die Komponente stammt aus einer Bibliothek und wird nicht mehr weiterentwickelt.
Sie ist Freeware und hier zu finden:

http://4thfebruary.tripod.com/progra...lib/index.html

Ausgangspunkt der Enwicklung war das TTabSet.



Allgemeines zum Source-Code:
Nunja, bei so kleinen Funktionen spare ich mir das Ausrücken.
Größere Funkionen, wie diese hier sind bereist formatiert, aber eben noch nicht alle großen

Delphi-Quellcode:

////////////////////////////////////////////////////////////////////////////////
// Öffnen: Gloable Funktion "Öffnen"
////////////////////////////////////////////////////////////////////////////////

procedure TMainForm.OpenAFile(FileName: String);
var i, FileSize, FileType: Integer;
var ShortName: String;
var IsOpen: Boolean;
var MDi: TChild;

Label OpenLabel;

begin
IsOpen := False;
ShortName := ExtractFileName(FileName);

if Self.MDiChildCount < MAX_FILES then
begin if FileExists(FileName) then
  begin FileSize := GetFileSize(FileName);

    if FileSize < MAX_FILE_SIZE then
    begin // Datei ist nicht zu groß...
      for i := 0 to Self.MDiChildCount -1 do // Datei bereits geöffnet?
      begin if Self.MDiChildren[i].Hint = FileName then
      begin
        Self.MDiChildren[i].BringToFront;
        Self.MDiChildren[i].WindowState := wsNormal;
        IsOpen := True;
        Break;
      end;
      end;

      if not IsOpen then
      begin
        FileType := IsBinaryFile(FileName); // Datei-Typ ermitteln

        case FileType of
        -2: AddMessage('Öffnen: "' + ShortName + '" wird von einem fremden Prozess verwendet.');
         0: begin OpenLabel:
            begin // normal öffnen
              Inc(ID);
              OpenFileList.Add(FileName);

              MDi := TChild.Create(Application);  // leeres Fenster erstellen
              MDi.Caption := ShortName;           // Dateiname in der Überschrift speichern
              MDi.Hint := FileName;               // Pfad im Hint speichern
              MDi.Tag := ID;                      // ID im Tag speichern

              CreateToolButton(MDi.Caption, ID);
              DetectHighlighter(FileName);        // Syntax zuweisen

              try
                MDi.Editor.Lines.LoadFromFile(FileName);
              except
                MDi.Close;
                AddMessage('Öffnen: "' + ShortName + '" konnte nicht geöffnet werden.');
              end;
           end; // Openlabel
           end;
        1: begin
            if Application.MessageBox(
              PChar('Die Datei "' + ShortName + '" besitzt ein ungültiges Dateiformat.' + br +
              'Möchten Sie die Datei trotzdem öffnen?'), PChar('Öffnen'), 36) = ID_YES then
              goto OpenLabel;
        end;
        end; // Case
      end; // IsOpen
    end else AddMessage('Öffnen: "' + ShortName + '" ist zu groß. (' + ByteToMB(FileSize) + ' MB)');
  end;
end else AddMessage('Öffnen: Limit geöffneter Dokumente erreicht. "' + ShortName + '" wurde nicht geöffnet.');
end;

Eine ToDo-Liste gibt es, diese wird jedoch momentan nicht veröffentlicht.

Zitat:

Das ist mir schon klar! Aebr das ist ja verdammt viel dann - Außerdem: Wenn man WinXP laufen lässt hat man locker schon mal 100MB zusammen! Wink

WinXP läuft bereits ab 64 MB.

[67g]

Zitat von bigg:

Die Komponente stammt aus einer Bibliothek und wird nicht mehr weiterentwickelt.
Sie ist Freeware und hier zu finden:

http://4thfebruary.tripod.com/progra...lib/index.html

Ausgangspunkt der Enwicklung war das TTabSet.

Danke, für die Informationen, ich wollte nur sicher gehen, daß ich da nicht eine kommerzielle Komponente nutze wofür ich keine Lizenz besitze !

Gruß 67g.

[s.h.a.r.k]

Zitat von bigg:

Zitat:

Das ist mir schon klar! Aebr das ist ja verdammt viel dann - Außerdem: Wenn man WinXP laufen lässt hat man locker schon mal 100MB zusammen! Wink

WinXP läuft bereits ab 64 MB.

Hm... schon mal WinXP bei 64MB laufen lassen?! Vergiss es. Es hat keinen Wert WinXP auf so einem System überhaupt zu installieren. Selbst 128MB sind fast zu wenig! Aber egal - sonst wirds leicht OT

[bigg]

Zitat von s.h.a.r.k:

Hm... schon mal WinXP bei 64MB laufen lassen?! Vergiss es. Es hat keinen Wert WinXP auf so einem System überhaupt zu installieren. Selbst 128MB sind fast zu wenig! Aber egal - sonst wirds leicht OT

Ich kann ja mal VMWare anlaufen lassen

PS: Sogar mit nur 32 MB konnte ich Codepad starten.
64 MB sind schon okay, 32 MB sind in jedem Fall zu wenig.

Ich hoffe das reicht dir jetzt

[67g]

Na da soll mal einer noch sagen, Open Source Progger geben sich keine Mühe.

[bigg]

Mini-Update v. 1.0.0.19 -21
- die Funktion "Neues Fenster" im Menü "Fenster" setzt nun die Kursorkoordinaten u.f.n.w.s.s.
- Dialog "Datei-Informationen" redesignt
- Menüeintrag "Sonderzeichen" unter Einfügen hinzugefügt
- Lizenzhinweise eingepflegt
- Mit den Tasten F10, F11 und F12 kann man den Schriftgrad anpassen

@mael:
Ich hoffe das geht so in Ordnung

[dartrax]

Hallo bigg,

ich bin auf der Suche nach einem Codeeditor-Control auf dein Projekt gestoßen. Den SynEdit hatte ich schon vorher gefunden, ein schönes Beispiel hast du, wie man daraus einen Editor baut...

Ein paar kleine Vorschläge habe ich noch: Wenn etwas markiert ist und Shift gedrückt wird, könnte das doch den gleichen Effekt haben wie Format > in Großbuchstaben konvertieren!
Wenn keine Datei geöffnet ist, könnte die Symbolleiste, wo die geöffneten Dateien angezeigt werden, einen Button "Neue Datei" bekommen... Auch wenn's den schon woanders gibt, eine leere Symbolleiste ist einfach irritierend.
Bei den Farbauswahlgeschichten wäre eine Funktion zum Aufnehmen einer Farbe auf dem ganzen Bildschirm unter dem Mauscursor sinnvoll.

dartrax

[bigg]

hi dartrax,

ich wollte schon gestern etwas zu deinem Statement schreiben, habe aber versehentlich den Browser
geschlossen.

Zitat:

Wenn etwas markiert ist und Shift gedrückt wird, könnte das doch den gleichen Effekt haben wie Format > in Großbuchstaben konvertieren!

SHIFT wird schon zum Markieren verwendet, daher fällt dieser ShortCut schonmal weg.

Zitat:

Wenn keine Datei geöffnet ist, könnte die Symbolleiste, wo die geöffneten Dateien angezeigt werden, einen Button "Neue Datei" bekommen... Auch wenn's den schon woanders gibt, eine leere Symbolleiste ist einfach irritierend.

Mich persönlich stört die leere Leiste nicht, ich würde sie im Höchstfall automatisch aus- /einblenden lassen,
eine weitere Funktion "Neues Fenster" wird es jedoch nicht geben.

Zitat:

Bei den Farbauswahlgeschichten wäre eine Funktion zum Aufnehmen einer Farbe auf dem ganzen Bildschirm unter dem Mauscursor sinnvoll.

Einen ColorPicker wollte ich schon immer einbauen, gute Idee, ich schreib's mal die ToDo-List.



Update 22
- beim Umbenennen einer Datei konnte es manchmal vorkommen, dass Dateien plötzlich verschoben wurden
- beim Löschen einer Datei wurde der Eintrag im Verlauf nicht entfernt
- die MD5-Hashberechnung kann nun abgebrochen werden, außerdem wurde die Funktion um eine Statusanzeige ergänzt
- die Suche wird nun automatisch geschlossen, sofern man auf Suchen klickt

[dartrax]

Hallo bigg,

Zitat von bigg:

SHIFT wird schon zum Markieren verwendet, daher fällt dieser ShortCut schonmal weg.

daran habe ich noch gar nicht gedacht. Trotzdem: Sollte es für Groß/Kleinschreibung einen Shortcut geben, es gäbe nichts intuitiveres. Wie wäre es, wenn bei Key-Up geprüft wird, ob die Markierung verändert wurde, und nur wenn das Ergebnis negativ ausfällt, die Konvertierung durchgeführt wird?

Ansonsten hänge ich gerade daran fest, dein Hauptformular in Delphi zu öffnen. Compilieren geht, zum Öffnen fehlt aber die Klasse TFourthTabSet. Ich würde die Controls ja gerne als Komponenten einbinden, aber dazu fehlen Packages, oder? Abgesehen davon, dass ich gar nicht weiß, ob du die unverändert übernommen hast, habe ich mir die Originalfiles von der Seite http://4thfebruary.tripod.com/progra...lib/index.html heruntergeladen, aber ich konnte sie nicht installieren... Kompatibel nur bis Delphi 6...
Habe ich etwas übersehen?

dartrax