Skip to content

Commit bf4cac3

Browse files
PascalCorpsmanPascalCorpsman
committed
ADD: Review feature
1 parent 80373c9 commit bf4cac3

18 files changed

+1643
-928
lines changed

‎src/FPC_Understand.lpi‎

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -266,6 +266,14 @@
266266
<ResourceBaseClass Value="Form"/>
267267
<UnitName Value="Unit13"/>
268268
</Unit>
269+
<Unit>
270+
<Filename Value="ucommentframe.pas"/>
271+
<IsPartOfProject Value="True"/>
272+
<ComponentName Value="CommentFrame"/>
273+
<HasResources Value="True"/>
274+
<ResourceBaseClass Value="Frame"/>
275+
<UnitName Value="uCommentFrame"/>
276+
</Unit>
269277
</Units>
270278
</ProjectOptions>
271279
<CompilerOptions>

‎src/FPC_Understand.lpr‎

Lines changed: 51 additions & 51 deletions
Original file line numberDiff line numberDiff line change
@@ -1,51 +1,51 @@
1-
(******************************************************************************)
2-
(* *)
3-
(* Author : Uwe Schächterle (Corpsman) *)
4-
(* *)
5-
(* This file is part of FPC understand *)
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-
(******************************************************************************)
15-
Program FPC_Understand;
16-
17-
{$MODE objfpc}{$H+}
18-
19-
Uses
20-
{$IFDEF UNIX}
21-
cthreads,
22-
{$ENDIF}
23-
{$IFDEF HASAMIGA}
24-
athreads,
25-
{$ENDIF}
26-
Interfaces, // this includes the LCL widgetset
27-
Forms, tachartlazaruspkg, Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7,
28-
Unit8, Unit9, Unit10, Unit11, Unit12, unit13;
29-
30-
{$R *.res}
31-
32-
Begin
33-
RequireDerivedFormResource := True;
34-
Application.Scaled := True;
35-
Application.Initialize;
36-
Application.CreateForm(TForm1, Form1);
37-
Application.CreateForm(TForm2, Form2);
38-
Application.CreateForm(TForm3, Form3);
39-
Application.CreateForm(TForm4, Form4);
40-
Application.CreateForm(TForm5, Form5);
41-
Application.CreateForm(TForm6, Form6);
42-
Application.CreateForm(TForm7, Form7);
43-
Application.CreateForm(TForm8, Form8);
44-
Application.CreateForm(TForm9, Form9);
45-
Application.CreateForm(TForm10, Form10);
46-
Application.CreateForm(TForm11, Form11);
47-
Application.CreateForm(TForm12, Form12);
48-
Application.CreateForm(TForm13, Form13);
49-
Application.Run;
50-
End.
51-
1+
(******************************************************************************)
2+
(* *)
3+
(* Author : Uwe Schächterle (Corpsman) *)
4+
(* *)
5+
(* This file is part of FPC understand *)
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+
(******************************************************************************)
15+
Program FPC_Understand;
16+
17+
{$MODE objfpc}{$H+}
18+
19+
Uses
20+
{$IFDEF UNIX}
21+
cthreads,
22+
{$ENDIF}
23+
{$IFDEF HASAMIGA}
24+
athreads,
25+
{$ENDIF}
26+
Interfaces, // this includes the LCL widgetset
27+
Forms, tachartlazaruspkg, Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7,
28+
Unit8, Unit9, Unit10, Unit11, Unit12, unit13;
29+
30+
{$R *.res}
31+
32+
Begin
33+
RequireDerivedFormResource := True;
34+
Application.Scaled := True;
35+
Application.Initialize;
36+
Application.CreateForm(TForm1, Form1);
37+
Application.CreateForm(TForm2, Form2);
38+
Application.CreateForm(TForm3, Form3);
39+
Application.CreateForm(TForm4, Form4);
40+
Application.CreateForm(TForm5, Form5);
41+
Application.CreateForm(TForm6, Form6);
42+
Application.CreateForm(TForm7, Form7);
43+
Application.CreateForm(TForm8, Form8);
44+
Application.CreateForm(TForm9, Form9);
45+
Application.CreateForm(TForm10, Form10);
46+
Application.CreateForm(TForm11, Form11);
47+
Application.CreateForm(TForm12, Form12);
48+
Application.CreateForm(TForm13, Form13);
49+
Application.Run;
50+
End.
51+

‎src/ucommentframe.lfm‎

Lines changed: 33 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,33 @@
1+
object CommentFrame: TCommentFrame
2+
Left = 0
3+
Height = 136
4+
Top = 0
5+
Width = 224
6+
ClientHeight = 136
7+
ClientWidth = 224
8+
TabOrder = 0
9+
DesignLeft = 338
10+
DesignTop = 115
11+
object Memo1: TMemo
12+
Left = 8
13+
Height = 98
14+
Top = 8
15+
Width = 208
16+
Anchors = [akTop, akLeft, akRight, akBottom]
17+
Lines.Strings = (
18+
'Memo1'
19+
)
20+
ScrollBars = ssAutoBoth
21+
TabOrder = 0
22+
WordWrap = False
23+
end
24+
object Button1: TButton
25+
Left = 8
26+
Height = 25
27+
Top = 111
28+
Width = 208
29+
Anchors = [akLeft, akRight, akBottom]
30+
Caption = 'Remove'
31+
TabOrder = 1
32+
end
33+
end

‎src/ucommentframe.pas‎

Lines changed: 52 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,52 @@
1+
(******************************************************************************)
2+
(* *)
3+
(* Author : Uwe Schächterle (Corpsman) *)
4+
(* *)
5+
(* This file is part of FPC understand *)
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+
(******************************************************************************)
15+
Unit uCommentFrame;
16+
17+
{$MODE ObjFPC}{$H+}
18+
19+
Interface
20+
21+
Uses
22+
Classes, SysUtils, Forms, Controls, StdCtrls;
23+
24+
Type
25+
26+
{ TCommentFrame }
27+
28+
TCommentFrame = Class(TFrame)
29+
Button1: TButton;
30+
Memo1: TMemo;
31+
private
32+
33+
public
34+
Line: integer;
35+
Order: integer; // Die Sortierte Reihenfolge
36+
Constructor Create(TheOwner: TComponent); override;
37+
End;
38+
39+
Implementation
40+
41+
{$R *.lfm}
42+
43+
{ TCommentFrame }
44+
45+
Constructor TCommentFrame.Create(TheOwner: TComponent);
46+
Begin
47+
Inherited Create(TheOwner);
48+
memo1.clear;
49+
End;
50+
51+
End.
52+

0 commit comments

Comments
 (0)