Skip to content

Commit

Permalink
ADD: Review feature
Browse files Browse the repository at this point in the history
  • Loading branch information
@PascalCorpsman
PascalCorpsman committed Oct 31, 2024
1 parent 80373c9 commit bf4cac3
Show file tree
Hide file tree
Showing 18 changed files with 1,643 additions and 928 deletions.
8 changes: 8 additions & 0 deletions src/FPC_Understand.lpi
View file
Original file line number Diff line number Diff line change
Expand Up @@ -266,6 +266,14 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit13"/>
</Unit>
<Unit>
<Filename Value="ucommentframe.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="CommentFrame"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/>
<UnitName Value="uCommentFrame"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
Expand Down
102 changes: 51 additions & 51 deletions src/FPC_Understand.lpr
View file
Original file line number Diff line number Diff line change
@@ -1,51 +1,51 @@
(******************************************************************************)
(* *)
(* Author : Uwe Schächterle (Corpsman) *)
(* *)
(* This file is part of FPC understand *)
(* *)
(* See the file license.md, located under: *)
(* https://github.com/PascalCorpsman/Software_Licenses/blob/main/license.md *)
(* for details about the license. *)
(* *)
(* It is not allowed to change or remove this text from any *)
(* source file of the project. *)
(* *)
(******************************************************************************)
Program FPC_Understand;

{$MODE objfpc}{$H+}

Uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
{$IFDEF HASAMIGA}
athreads,
{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, tachartlazaruspkg, Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7,
Unit8, Unit9, Unit10, Unit11, Unit12, unit13;

{$R *.res}

Begin
RequireDerivedFormResource := True;
Application.Scaled := True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm6, Form6);
Application.CreateForm(TForm7, Form7);
Application.CreateForm(TForm8, Form8);
Application.CreateForm(TForm9, Form9);
Application.CreateForm(TForm10, Form10);
Application.CreateForm(TForm11, Form11);
Application.CreateForm(TForm12, Form12);
Application.CreateForm(TForm13, Form13);
Application.Run;
End.

(******************************************************************************)
(* *)
(* Author : Uwe Schächterle (Corpsman) *)
(* *)
(* This file is part of FPC understand *)
(* *)
(* See the file license.md, located under: *)
(* https://github.com/PascalCorpsman/Software_Licenses/blob/main/license.md *)
(* for details about the license. *)
(* *)
(* It is not allowed to change or remove this text from any *)
(* source file of the project. *)
(* *)
(******************************************************************************)
Program FPC_Understand;

{$MODE objfpc}{$H+}

Uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
{$IFDEF HASAMIGA}
athreads,
{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, tachartlazaruspkg, Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7,
Unit8, Unit9, Unit10, Unit11, Unit12, unit13;

{$R *.res}

Begin
RequireDerivedFormResource := True;
Application.Scaled := True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm6, Form6);
Application.CreateForm(TForm7, Form7);
Application.CreateForm(TForm8, Form8);
Application.CreateForm(TForm9, Form9);
Application.CreateForm(TForm10, Form10);
Application.CreateForm(TForm11, Form11);
Application.CreateForm(TForm12, Form12);
Application.CreateForm(TForm13, Form13);
Application.Run;
End.

33 changes: 33 additions & 0 deletions src/ucommentframe.lfm
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,33 @@
object CommentFrame: TCommentFrame
Left = 0
Height = 136
Top = 0
Width = 224
ClientHeight = 136
ClientWidth = 224
TabOrder = 0
DesignLeft = 338
DesignTop = 115
object Memo1: TMemo
Left = 8
Height = 98
Top = 8
Width = 208
Anchors = [akTop, akLeft, akRight, akBottom]
Lines.Strings = (
'Memo1'
)
ScrollBars = ssAutoBoth
TabOrder = 0
WordWrap = False
end
object Button1: TButton
Left = 8
Height = 25
Top = 111
Width = 208
Anchors = [akLeft, akRight, akBottom]
Caption = 'Remove'
TabOrder = 1
end
end
52 changes: 52 additions & 0 deletions src/ucommentframe.pas
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,52 @@
(******************************************************************************)
(* *)
(* Author : Uwe Schächterle (Corpsman) *)
(* *)
(* This file is part of FPC understand *)
(* *)
(* See the file license.md, located under: *)
(* https://github.com/PascalCorpsman/Software_Licenses/blob/main/license.md *)
(* for details about the license. *)
(* *)
(* It is not allowed to change or remove this text from any *)
(* source file of the project. *)
(* *)
(******************************************************************************)
Unit uCommentFrame;

{$MODE ObjFPC}{$H+}

Interface

Uses
Classes, SysUtils, Forms, Controls, StdCtrls;

Type

{ TCommentFrame }

TCommentFrame = Class(TFrame)
Button1: TButton;
Memo1: TMemo;
private

public
Line: integer;
Order: integer; // Die Sortierte Reihenfolge
Constructor Create(TheOwner: TComponent); override;
End;

Implementation

{$R *.lfm}

{ TCommentFrame }

Constructor TCommentFrame.Create(TheOwner: TComponent);
Begin
Inherited Create(TheOwner);
memo1.clear;
End;

End.

Loading

0 comments on commit bf4cac3

Please sign in to comment.