Copy Commander

[corpsman]

So ich hab mal wieder was mit Lazarus Programmiert und das will ich euch nun natürlich nicht vor enthalten .

Es handelt sich hierbei um das Programm CopyCommander2, in der Verison 0.01.

CopyCommander2 kann wie der Name schon sagt, Dateien / Verzeichnisse Kopieren / Verschieben und Löschen.

Sinn macht Copy Commnader aus folgendem Grund :

Will man z.B. aus einem Verzeichnis mit sehr vielen evtl. großen Dateien, nur wenige herauskopieren, so
selecktiert man in der Regel alle einzeln mit der Maus und kopiert diese Dateien dann.

Hat man nun eine Datei übersehen, so mus man erst warten bis das Betriebsystem den kompletten Kopierauftrag
vollendet hat (Trifft nicht für Linux Mint Mate zu ), bevor man die vergessene Datei kopieren kann. Denn ein 2. Kopierauftrag wirkt sich
auf die Übertragungsrate leider Katastrpohal aus.

CopyCommander2 kopiert mittels einer Warteschlange, in diese können auch während eines Kopiervorgangs weitere Dateien / Verzeichnisse hinzugefügt oder wieder gelöscht werden.

Dank Multithreading ist ein Ruckelfreies bedienen der Anwendung während des Kopierens möglich ( insofern die CPU genug Power hat ).

Ich habe euch eine Version für Windows, und Linux sammt Sourcecode ins Zip gepackt, also alles was das Herz begehrt .

So denn wünsche ich euch viel Spass beim Testen und hoffe mal das ihr keine Bugs mehr findet.

Mit foldenden Tastaturkommandos könnt ihr starten:
STRG + S Links mit Rechts vergleichen
F2 = Umbennen
F5 = Copy (aktuelle Ansicht in die Andere)
F6 = Move (aktuelle Ansicht in die Andere)
F7 = Verzeichnis Erstellen
F8 = Löschen

Hier das etwa 2 MB Große Zip File.
Und wer sehen will was ich sonst noch so zu CopyCommander geschrieben habe kann Hier den Veröffentlichungsthread lesen.

[Edit]
Nach gut 13 Jahren habe ich den Source nun komplett überarbeitet und eine neue Version online gestellt.
Und ne Vorschau gibt es nun auch:

CC_Preview.png (64.29 KiB) 5303 mal betrachtet

[hausi]

Sicher tolles Programm, leider kann ich es nicht unter Windows kompilieren.

Hausi

[corpsman]

was schreibt der Compiler denn ?

Mir scheint, ich habe den source hochgeladen bevor ich ihn nach win compiliert habe ...

Nun habe ich auf Jedenfall das ganze nochmals hochgeladen und die version die jetzt on ist. Mus gehen, wenn nicht schreib mir bitte unbedingt was er anprangert.
( das es geht siehst du daran das der compiler 3 user generierte Warnungen ausgeben müste , .. )

[monta]

Beim start der EXE: Division by Zero

Beim Kompilieren:

Code: Alles auswählen

unit2.pas(53,2) Warning: User defined: Sorry no Multimonitor support under Windows
unit2.pas(49,3) Note: Local variable "i" not used
unit2.pas(50,3) Note: Local variable "p" not used
unit2.pas(9,37) Hint: Unit "math" not used in Unit2
unit1.pas(251,3) Note: Local variable "s" is assigned but never used
unit1.pas(728,2) Warning: User defined: Sorry no Multimonitor support under Windows
unit1.pas(711,3) Note: Local variable "r" not used
unit1.pas(36,46) Hint: Parameter "CloseAction" not used
unit1.pas(44,7) Hint: Parameter "Shift" not used
unit1.pas(48,7) Hint: Parameter "Shift" not used
unit1.pas(1437,22) Warning: Function result does not seem to be set
unit1.pas(1459,11) Error: Identifier not found "Cint"
unit1.pas(1459,11) Error: Error in type definition
unit1.pas(1502,2) Warning: User defined: The Check Disk Space Function is not aviable under Windows
unit1.pas(1536,39) Hint: Local variable "buffer" does not seem to be initialized
unit1.pas(1574) Fatal: There were 2 errors compiling module, stopping

Was ist eigentlich Cint, wieso nicht einfach integer, dann kompillierts auch ordentlich.

Die DbZ beim starten kommt von deiner Button-Breiten-Berechnung, hab die mal auskommentiert, dann geht es:

Code: Alles auswählen

Procedure TForm1.Panel1Resize(Sender: TObject);
Var
  w, i: Integer;
Begin
  ListView1.Columns[0].Width := Panel1.Width - 35 - 45 - 30;
  ListView1.Columns[1].Width := 35;
  ListView1.Columns[2].Width := 45;
  //w := (Panel1.width - 14) Div ((high(Buttons) + 1) Div 2);
  w := 50;
  For i := 0 To ((high(Buttons) - 1) Div 2) Do Begin
    Buttons[i].width := w;
    Buttons[i].left := 7 + i * Buttons[0].width;
  End;
End;
 
Procedure TForm1.Panel2Resize(Sender: TObject);
Var
  w, i: Integer;
Begin
  ListView2.Columns[0].Width := Panel2.Width - 35 - 45 - 30;
  ListView2.Columns[1].Width := 35;
  ListView2.Columns[2].Width := 45;
//  w := (Panel2.width - 14) Div ((high(Buttons) + 1) Div 2);
w := 50;
  For i := ((high(Buttons) + 1) Div 2) To High(Buttons) Do Begin
    Buttons[i].width := w;
    Buttons[i].left := 7 + (i - ((high(Buttons) + 1) Div 2)) * w;
  End;
End;

Allerdings sehe ich unter Windows da oben keine Button, da soll doch sicher was in dem Leerraum oben erscheinen?

Ansonsten noch ein Vorschlag, was mich etwas stört. Könnte man nicht wahlweise die Extension auch an den Dateinamen dran hängen. Das ist so, gerade bei gleichen Dateinamen mit unterschiedlichen Erweiterungen wie oben bei unit1 etwas unübersichtlich, finde ich zumindest.

[corpsman]

also den Div by 0 kann ich nachvollziehen, das war dann wohl mein Fehler, da bei mir ja immer Buttons da sine ..., und ja da gibts buttons oben, diese sind aber nur da, wenn der User, also du das machst was in der How_to.txt drin steht.

Dort ist genau erklärt :

If you want to use predefined loaddirectories create a file named "predirs.txt" in the
copycommander folder. This file contains the

number of Buttons
ButtonCaption ; ButtonLink
Link for left browser
Link for right browser

here is following a linux Sample file :

3
Home;/home/username
cdrom;/media/cdrom0
Media;/media
/home/username
/media

and here is one for Windows systems :

3
Eigene Dateien;C:\Eigene Dateien
Windows;C:\windows
CDROM;D:\
C:\Eigene Dateien
D:\

was die Dateiendung angeht, so ist das wohl geschmackssache, wie du dem source entnehmen kannst ist da auch noch nicht alles vollständig. das Sortieren nach den Dateiendungen fehlt z.b. auch noch...

Aber aus diesem Grund liegt der Source ja bei, so kann jeder sehen was ich verbockt habe *g*

[monta]

ich gebe zu, ich hab die how_to.txt nicht gelesen.

[corpsman]

*g*

in gewisser Hinsicht, ist ads ja gut, sonst hättest du dir bestimmt diese Shortcut buttons gemacht, und der Bug wäre unendeckt geblieben

[corpsman]

So Nachdem ich das Forum in letzter Zeit doch ein wenig Arg mit Fragen bombadiert habe

viewtopic.php?f=18&t=14139
viewtopic.php?f=18&t=14131
viewtopic.php?f=18&t=14130

Sollt ihr heute auch die Ergebnisse Meiner Arbeit sehen.

Ich habe den CopyCommander nach gut 13 Jahren aus der Versenkung gehohlt und nochmal komplett überarbeitet.
Neue Features sind unter Anderem:
- Fast vollständig via Popup Menü Steuerbar (kein Editieren mehr von .ini Files)
- Jobs sind nun in einer Klasse und nicht irgendwelche Pseudo strings
- CheckDispSpace ist nun auf Linux und Windows Verfügbar
- Die Warteschlangen werden nun sauber in einer TTreeView Angezeigt und dort in Jobs und SubJobs zerlegt
- Anzeige wie lange es noch dauern wird
- Kleine Geschwindigkeitshistorie
- Der Synchronize Dialog wurde Komplett überabeitet

=> Wenn man es Genau nimmt hat vom Original Code so gut wie nichts überlebt

Wie es sich gehört habe ich die Links aus dem 1. Post Aktualisiert die zeigten mittlerweile auch ins Leere, und für alle die nicht Scrollen wollen ist der neue Download Link gleich hier

[Roland Chastain]

Sehr interessant. Aber ich weiß nicht, wie man das Programm benutzt. Es gibt keine How_to.txt-Datei mehr?

[corpsman]

Eignentlich sollte es Intuitiv sein.
Die Übersicht der Tastaturbefehle könnte ich allerdings schon noch mit anhängen.

STRG + S Links mit Rechts vergleichen
F2 = Umbennen
F5 = Copy (aktuelle Ansicht in die Andere)
F6 = Move (aktuelle Ansicht in die Andere)
F7 = Verzeichnis Erstellen
F8 = Löschen

und dann einfach in den Context Menüs nachsehen ...

Wer von Früher noch den Norton Commander oder von Linux den Midnight Commander kennt, ist quasi wie zu Hause.

[Edit]
So im Zip ist nun eine neue How_to_use.txt drin

[Roland Chastain]

Danke schön. Ich hatte nicht daran gedacht, es mit der rechten Maustaste zu versuchen.

[Roland Chastain]

So im Zip ist nun eine neue How_to_use.txt drin

Gesehen. Danke.

[Aliobaba]

...Danke!!
gefällt mir sehr!

Nur ein Punkt: Wenn man in der Hierarchie-Ebene unter Windows "ganz oben" ist (also z.B. bei "C:\"), dann wäre es schön, wenn man dann bei weiterem Anklicken des "Pfeil nach oben" alle vorhandenen Laufwerks-Buchstaben angezeigt bekäme.
Manuell kann man ja den Laufwerksbuchstaben eingeben.

... uuups: Und soeben ist mir das Programm abgestürzt bei der Anwahl von "Diff viewer" [re. Maustaste]

[wennerer]

Hi,
hast du gut gemacht!
Ein kleiner Bug ist mir aufgefallen. Wenn man mit F7 ein Verzeichnis erstellt (mit einem anderen Namen als NewFolder) und mit ok bestätigt startet der Dialog nochmal von Neuem. Mit dem Popup-Menü funktionierts wie es sollte. Getestet unter Linux.

Viele Grüße
Bernd

[h-elsner]

Wenn ich das Programm schließe, bekomme ich folgende Meldung:

Heap_dump.png (9.74 KiB) 5191 mal betrachtet

Gruß HE