paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 00:19:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

Jedi code format: New button to reload the configuration in the test application.

Browse Source
This commit is contained in:
DomingoGP 2024-09-10 22:06:30 +02:00
parent 4310c9339a
commit e4da339c52
2 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/jcf2/TestApplication/unit1.lfm
View File

@ -6,6 +6,7 @@ object Form1: TForm1
Caption = 'JCF' Caption = 'JCF'
ClientHeight = 612 ClientHeight = 612
ClientWidth = 1301 ClientWidth = 1301
LCLVersion = '3.99.0.0'
OnCreate = FormCreate OnCreate = FormCreate
object Button1: TButton object Button1: TButton
Left = 616 Left = 616
@ -566,6 +567,8 @@ object Form1: TForm1
object SynGutterMarks1: TSynGutterMarks object SynGutterMarks1: TSynGutterMarks
Width = 24 Width = 24
MouseActions = <> MouseActions = <>
MaxExtraMarksColums = 0
Options = [sgmoDeDuplicateMarksOnOverflow]
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17 Width = 17
@ -1066,6 +1069,8 @@ object Form1: TForm1
object SynGutterMarks1: TSynGutterMarks object SynGutterMarks1: TSynGutterMarks
Width = 24 Width = 24
MouseActions = <> MouseActions = <>
MaxExtraMarksColums = 0
Options = [sgmoDeDuplicateMarksOnOverflow]
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17 Width = 17
@ -1195,6 +1200,15 @@ object Form1: TForm1
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
TabOrder = 10 TabOrder = 10
end end
object btnReadConfig: TButton
Left = 616
Height = 25
Top = 112
Width = 75
Caption = 'Read config'
TabOrder = 11
OnClick = btnReadConfigClick
end
object SynPasSyn1: TSynPasSyn object SynPasSyn1: TSynPasSyn
Enabled = False Enabled = False
CompilerMode = pcmObjFPC CompilerMode = pcmObjFPC

7
components/jcf2/TestApplication/unit1.pas
View File

@ -20,6 +20,7 @@ type
{ TForm1 } { TForm1 }
TForm1 = class(TForm) TForm1 = class(TForm)
btnReadConfig: TButton;
Button1: TButton; Button1: TButton;
Button2: TButton; Button2: TButton;
btnClearAndPaste: TButton; btnClearAndPaste: TButton;
@ -42,6 +43,7 @@ type
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
SynPasSyn1: TSynPasSyn; SynPasSyn1: TSynPasSyn;
procedure btnClearAndPasteClick(Sender: TObject); procedure btnClearAndPasteClick(Sender: TObject);
procedure btnReadConfigClick(Sender: TObject);
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure edFileNameAcceptFileName(Sender: TObject; var Value: string); procedure edFileNameAcceptFileName(Sender: TObject; var Value: string);
@ -215,6 +217,11 @@ begin
Memo1.PasteFromClipboard; Memo1.PasteFromClipboard;
end; end;
procedure TForm1.btnReadConfigClick(Sender: TObject);
begin
FormattingSettings.Read;
end;
procedure TForm1.Button2Click(Sender: TObject); procedure TForm1.Button2Click(Sender: TObject);
var var
FullName:string; FullName:string;