Skip to content

Commit 16706a7

Browse files
PascalCorpsmanPascalCorpsman
committed
+Update License
1 parent b673177 commit 16706a7

File tree

8 files changed

+199
-63
lines changed

8 files changed

+199
-63
lines changed

‎CopyCommander2.lpr‎

Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,17 @@
1+
(******************************************************************************)
2+
(* *)
3+
(* Author : Uwe Schächterle (Corpsman) *)
4+
(* *)
5+
(* This file is part of CopyCommander2 *)
6+
(* *)
7+
(* See the file license.md, located under: *)
8+
(* https://github.com/PascalCorpsman/Software_Licenses/blob/main/license.md *)
9+
(* for details about the license. *)
10+
(* *)
11+
(* It is not allowed to change or remove this text from any *)
12+
(* source file of the project. *)
13+
(* *)
14+
(******************************************************************************)
115
Program project1;
216

317
{$MODE objfpc}{$H+}

‎ucopycommander.pas‎

Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,17 @@
1+
(******************************************************************************)
2+
(* *)
3+
(* Author : Uwe Schächterle (Corpsman) *)
4+
(* *)
5+
(* This file is part of CopyCommander2 *)
6+
(* *)
7+
(* See the file license.md, located under: *)
8+
(* https://github.com/PascalCorpsman/Software_Licenses/blob/main/license.md *)
9+
(* for details about the license. *)
10+
(* *)
11+
(* It is not allowed to change or remove this text from any *)
12+
(* source file of the project. *)
13+
(* *)
14+
(******************************************************************************)
115
Unit ucopycommander;
216

317
{$MODE ObjFPC}{$H+}

‎ufifo.pas‎

Lines changed: 27 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -1,23 +1,33 @@
11
(******************************************************************************)
2-
(* Programmer : Corpsman 23.09.2005 *)
2+
(* uFifo.pas 23.09.2005 *)
33
(* *)
4-
(* Simulation einer FIFO in FPC. *)
4+
(* Version : 0.04 *)
55
(* *)
6-
(* All die Bekannten Eigenschaften, Befehle wie bei einem FiFo. *)
6+
(* Author : Uwe Schächterle (Corpsman) *)
77
(* *)
8-
(* Version : 0.04 *)
8+
(* Support : www.Corpsman.de *)
99
(* *)
10-
(* Historie : 0.01 - initialversion *)
11-
(* 0.02 - Speed up durch entfernen Schleife in Push *)
12-
(* Bugfix Verlust von Daten beim Push *)
13-
(* 0.03 - property count *)
14-
(* 0.04 - TFifo thread Safe gemacht *)
10+
(* Description : Simulation einer FIFO in FPC. *)
11+
(* All die Bekannten Eigenschaften, Befehle wie bei einem FiFo. *)
1512
(* *)
16-
(* Support : www.Corpsman.de *)
13+
(* License : See the file license.md, located under: *)
14+
(* https://github.com/PascalCorpsman/Software_Licenses/blob/main/license.md *)
15+
(* for details about the license. *)
1716
(* *)
18-
(* Allgemeines : Keine Garantie, für schäden an Software oder Hardware. *)
19-
(* diese Unit kann nur auf eigene Verantwortung genutzt werden. *)
20-
(* Und ist somit Freeware. *)
17+
(* It is not allowed to change or remove this text from any *)
18+
(* source file of the project. *)
19+
(* *)
20+
(* Warranty : There is no warranty, neither in correctness of the *)
21+
(* implementation, nor anything other that could happen *)
22+
(* or go wrong, use at your own risk. *)
23+
(* *)
24+
(* Known Issues: none *)
25+
(* *)
26+
(* History : 0.01 - Initial version *)
27+
(* 0.02 - Speed up durch entfernen Schleife in Push *)
28+
(* Bugfix Verlust von Daten beim Push *)
29+
(* 0.03 - property count *)
30+
(* 0.04 - TFifo thread Safe gemacht *)
2131
(* *)
2232
(******************************************************************************)
2333

@@ -307,3 +317,7 @@
307317

308318
End.
309319

320+
321+
322+
323+

‎unit1.pas‎

Lines changed: 88 additions & 50 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,91 @@
1+
(******************************************************************************)
2+
(* CopyCommander2 15.02.2022 *)
3+
(* *)
4+
(* Version : 0.09 *)
5+
(* *)
6+
(* Author : Uwe Schächterle (Corpsman) *)
7+
(* *)
8+
(* Support : www.Corpsman.de *)
9+
(* *)
10+
(* Description : <Module_description> *)
11+
(* *)
12+
(* License : See the file license.md, located under: *)
13+
(* https://github.com/PascalCorpsman/Software_Licenses/blob/main/license.md *)
14+
(* for details about the license. *)
15+
(* *)
16+
(* It is not allowed to change or remove this text from any *)
17+
(* source file of the project. *)
18+
(* *)
19+
(* Warranty : There is no warranty, neither in correctness of the *)
20+
(* implementation, nor anything other that could happen *)
21+
(* or go wrong, use at your own risk. *)
22+
(* *)
23+
(* Known Issues: *)
24+
(* - die "ins" taste funktioniert unter Linux nicht (zumindest nicht wie *)
25+
(* erwartet), Shift Pfeil runter geht aber. *)
26+
(* - Wird ein Laufender Job Abgebrochen, dann werden die "fehlenden" Bytes *)
27+
(* nicht Korrekt von den Bytes to Copy abgezogen *)
28+
(* \-> Am Ende bleiben dann Bytes über, die Engine nullt das zwar ganz *)
29+
(* am Schluss wenn die JobFifo leer ist, aber sauber ist anders. *)
30+
(* -Ändert sich die Anzahl der Bytes in einem Job der noch in der *)
31+
(* Warteschlange ist, dann stimmt am ende die Statistik nicht mehr *)
32+
(* Da die Byteanzahl beim Adden gespeichert und dann nicht mehr *)
33+
(* aktualisiert wird *)
34+
(* *)
35+
(* History : 0.01 - Initial version *)
36+
(* (15.02.2022) 0.01 = Initialversion *)
37+
(* (17.02.2022) 0.02 = Auswerten Paramstr beim Start (besseres *)
38+
(* Fehlerhandling) *)
39+
(* Windows: show Drive Letters as top Level *)
40+
(* Fix: ListViewSelectItemIndex *)
41+
(* Fix: Linux: F7 dialog was doubled if entered via *)
42+
(* keyboard. *)
43+
(* (18.02.2022) 0.03 = Fix: Anchors of Progress Label *)
44+
(* Refactor file ext icons ( Pull request by H. Elsner) *)
45+
(* (21.02.2022) 0.04 = Shortcut buttons seperated for left and right panels *)
46+
(* (Pull request by H. Elsner) *)
47+
(* Added menu item to copy shortcut button to the other *)
48+
(* panel ( Pull request by H. Elsner) *)
49+
(* Added menu item to move shortcut button to the other *)
50+
(* panel ( Pull request by H. Elsner) *)
51+
(* Added double click to pathname-edits to create *)
52+
(* shortcuts ( Pull request by H. Elsner) *)
53+
(* Added menu Open in file manager ( Pull request by H. *)
54+
(* Elsner) *)
55+
(* Added app icon ( Pull request by H. Elsner) *)
56+
(* (22.02.2022) 0.05 = Fix: Roll back OnActivate procedure *)
57+
(* Fix: Open file manager was incorrectly called in LINUX*)
58+
(* environmat *)
59+
(* Fix showing bug for files with no "name" *)
60+
(* (12.03.2022) 0.06 = Fix: Diff Dialog did not find hidden files *)
61+
(* Fix: Filesize of Files larger than 2^32-Bit was wrong *)
62+
(* detected -> Error on file finish *)
63+
(* Feature Request - blue and green arrows in sync dialog*)
64+
(* (10.04.2022) 0.07 = Fix: Progress was not correct (filesize to copy did *)
65+
(* not decrease during progress) *)
66+
(* Fix: Crash, when GetHasQuestions was called before *)
67+
(* init *)
68+
(* Add Overall Progressbar *)
69+
(* (11.04.2022) 0.08 = Fix: Progress Calculation was complete garbage, *)
70+
(* rewrite calculations *)
71+
(* Enable Rename Feature in Submenu *)
72+
(* Add some video extensions to list *)
73+
(* (15.09.2022) 0.09 = Edit Eingabefelder gegen ComboBox getauscht, *)
74+
(* es werden die letzten 10 [maxDirs=10] gemerkt und in *)
75+
(* einer Drop-Down-Liste angeboten, *)
76+
(* Die Liste kann via contextmenü gelöscht werden *)
77+
(* 0.10 = *)
78+
(* *)
79+
(******************************************************************************)
80+
(* Silk icon set 1.3 used *)
81+
(* ---------------------- *)
82+
(* Mark James *)
83+
(* http://www.famfamfam.com/lab/icons/silk/ *)
84+
(******************************************************************************)
85+
(* This work is licensed under a *)
86+
(* Creative Commons Attribution 2.5 License. *)
87+
(* [ http://creativecommons.org/licenses/by/2.5/ ] *)
88+
(******************************************************************************)
189
Unit Unit1;
290

391
{$MODE objfpc}{$H+}
@@ -440,63 +528,13 @@
440528

441529
Procedure TForm1.FormCreate(Sender: TObject);
442530
Begin
443-
(*
444-
* Historie:
445-
* (15.02.2022) 0.01 = Initialversion
446-
* (17.02.2022) 0.02 = Auswerten Paramstr beim Start (besseres Fehlerhandling)
447-
* Windows: show Drive Letters as top Level
448-
* Fix: ListViewSelectItemIndex
449-
* Fix: Linux: F7 dialog was doubled if entered via keyboard.
450-
* (18.02.2022) 0.03 = Fix: Anchors of Progress Label
451-
* Refactor file ext icons ( Pull request by H. Elsner)
452-
* (21.02.2022) 0.04 = Shortcut buttons seperated for left and right panels ( Pull request by H. Elsner)
453-
* Added menu item to copy shortcut button to the other panel ( Pull request by H. Elsner)
454-
* Added menu item to move shortcut button to the other panel ( Pull request by H. Elsner)
455-
* Added double click to pathname-edits to create shortcuts ( Pull request by H. Elsner)
456-
* Added menu Open in file manager ( Pull request by H. Elsner)
457-
* Added app icon ( Pull request by H. Elsner)
458-
* (22.02.2022) 0.05 = Fix: Roll back OnActivate procedure
459-
* Fix: Open file manager was incorrectly called in LINUX environmat
460-
* Fix showing bug for files with no "name"
461-
* (12.03.2022) 0.06 = Fix: Diff Dialog did not find hidden files
462-
* Fix: Filesize of Files larger than 2^32-Bit was wrong detected -> Error on file finish
463-
* Feature Request - blue and green arrows in sync dialog
464-
* (10.04.2022) 0.07 = Fix: Progress was not correct (filesize to copy did not decrease during progress)
465-
* Fix: Crash, when GetHasQuestions was called before init
466-
* Add Overall Progressbar
467-
* (11.04.2022) 0.08 = Fix: Progress Calculation was complete garbage, rewrite calculations
468-
* Enable Rename Feature in Submenu
469-
* Add some video extensions to list
470-
* (15.09.2022) 0.09 = Edit Eingabefelder gegen ComboBox getauscht,
471-
* es werden die letzten 10 [maxDirs=10] gemerkt und in einer Drop-Down-Liste angeboten,
472-
* Die Liste kann via contextmenü gelöscht werden
473-
* 0.10 =
474-
*
475-
*******************************************************
476-
* Silk icon set 1.3 used
477-
* ----------------------
478-
* Mark James
479-
* http://www.famfamfam.com/lab/icons/silk/
480-
*******************************************************
481-
* This work is licensed under a
482-
* Creative Commons Attribution 2.5 License.
483-
* [ http://creativecommons.org/licenses/by/2.5/ ]
484-
*******************************************************
485-
486-
*
487-
* Known Bugs: - die "ins" taste funktioniert unter Linux nicht (zumindest nicht wie erwartet), Shift Pfeil runter geht aber.
488-
* - Wird ein Laufender Job Abgebrochen, dann werden die "fehlenden" Bytes nicht Korrekt von den Bytes to Copy abgezogen
489-
* \-> Am Ende bleiben dann Bytes über, die Engine nullt das zwar ganz am Schluss wenn die JobFifo leer ist, aber sauber ist anders.
490-
*)
491531
Caption := 'Copycommander2 ver. 0.09';
492532
(*
493533
* Mindest Anforderungen:
494534
* - Alle "Todo's" erledigt
495535
* Noch Offen:
496536
* -del dir im Synchronize Dialog
497537
* -Kontext menü "show Size" -> Für Verzeichnisse
498-
* Bekannte Bugs: Ändert sich die Anzahl der Bytes in einem Job der noch in der Warteschlange ist, dann stimmt am ende die Statistik nicht mehr
499-
* Da die Byteanzahl beim Adden gespeichert und dann nicht mehr aktualisiert wird
500538
*)
501539
finiFile := TIniFile.Create(GetAppConfigFileUTF8(false));
502540
Width := finiFile.ReadInteger(iniGeneral, iniAppWidth, Width);

‎unit2.pas‎

Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,17 @@
1+
(******************************************************************************)
2+
(* *)
3+
(* Author : Uwe Schächterle (Corpsman) *)
4+
(* *)
5+
(* This file is part of CopyCommander2 *)
6+
(* *)
7+
(* See the file license.md, located under: *)
8+
(* https://github.com/PascalCorpsman/Software_Licenses/blob/main/license.md *)
9+
(* for details about the license. *)
10+
(* *)
11+
(* It is not allowed to change or remove this text from any *)
12+
(* source file of the project. *)
13+
(* *)
14+
(******************************************************************************)
115
Unit Unit2;
216

317
{$MODE ObjFPC}{$H+}

‎unit3.pas‎

Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,17 @@
1+
(******************************************************************************)
2+
(* *)
3+
(* Author : Uwe Schächterle (Corpsman) *)
4+
(* *)
5+
(* This file is part of CopyCommander2 *)
6+
(* *)
7+
(* See the file license.md, located under: *)
8+
(* https://github.com/PascalCorpsman/Software_Licenses/blob/main/license.md *)
9+
(* for details about the license. *)
10+
(* *)
11+
(* It is not allowed to change or remove this text from any *)
12+
(* source file of the project. *)
13+
(* *)
14+
(******************************************************************************)
115
Unit Unit3;
216

317
{$MODE ObjFPC}{$H+}

0 commit comments

Comments
 (0)