Skip to content

Commit 7b29c0d

Browse files
AKotov-devAKotov-dev
committed
v0.1 + Initial Release
1 parent 9aa87bc commit 7b29c0d

13 files changed

Lines changed: 245 additions & 82 deletions

File tree

‎naivegui/backup/naivegui.lps‎

Lines changed: 10 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -53,7 +53,8 @@
5353
<ResourceBaseClass Value="Form"/>
5454
<UnitName Value="Unit1"/>
5555
<IsVisibleTab Value="True"/>
56-
<CursorPos X="75" Y="9"/>
56+
<TopLine Value="388"/>
57+
<CursorPos X="88" Y="393"/>
5758
<UsageCount Value="35"/>
5859
<Loaded Value="True"/>
5960
<LoadedDesigner Value="True"/>
@@ -81,10 +82,6 @@
8182
</Unit>
8283
</Units>
8384
<JumpHistory HistoryIndex="29">
84-
<Position>
85-
<Filename Value="unit1.pas"/>
86-
<Caret Line="278" Column="7" TopLine="263"/>
87-
</Position>
8885
<Position>
8986
<Filename Value="unit1.pas"/>
9087
<Caret Line="284" Column="73" TopLine="270"/>
@@ -185,10 +182,6 @@
185182
<Filename Value="unit1.pas"/>
186183
<Caret Line="342" Column="10" TopLine="335"/>
187184
</Position>
188-
<Position>
189-
<Filename Value="unit1.pas"/>
190-
<Caret Line="58" Column="15" TopLine="191"/>
191-
</Position>
192185
<Position>
193186
<Filename Value="unit1.pas"/>
194187
<Caret Line="59" Column="15" TopLine="59"/>
@@ -201,6 +194,14 @@
201194
<Filename Value="unit1.pas"/>
202195
<Caret Line="9" Column="67"/>
203196
</Position>
197+
<Position>
198+
<Filename Value="unit1.pas"/>
199+
<Caret Line="391" TopLine="348"/>
200+
</Position>
201+
<Position>
202+
<Filename Value="unit1.pas"/>
203+
<Caret Line="421" TopLine="416"/>
204+
</Position>
204205
</JumpHistory>
205206
<RunParams>
206207
<FormatVersion Value="2"/>

‎naivegui/backup/unit1.lfm‎

Lines changed: 18 additions & 17 deletions
Original file line numberDiff line numberDiff line change
@@ -2,10 +2,10 @@ object MainForm: TMainForm
22
Left = 299
33
Height = 627
44
Top = 127
5-
Width = 829
5+
Width = 813
66
Caption = 'NaiveGUI'
77
ClientHeight = 627
8-
ClientWidth = 829
8+
ClientWidth = 813
99
SessionProperties = 'Height;Width;Top;Left'
1010
LCLVersion = '4.4.0.0'
1111
OnCreate = FormCreate
@@ -79,7 +79,7 @@ object MainForm: TMainForm
7979
AnchorSideRight.Control = StopBtn
8080
AnchorSideBottom.Control = BypassBox
8181
AnchorSideBottom.Side = asrBottom
82-
Left = 591
82+
Left = 567
8383
Height = 37
8484
Top = 169
8585
Width = 123
@@ -94,10 +94,10 @@ object MainForm: TMainForm
9494
AnchorSideRight.Side = asrBottom
9595
AnchorSideBottom.Control = StartBtn
9696
AnchorSideBottom.Side = asrBottom
97-
Left = 722
97+
Left = 698
9898
Height = 37
9999
Top = 169
100-
Width = 99
100+
Width = 107
101101
Anchors = [akTop, akRight, akBottom]
102102
BorderSpacing.Right = 8
103103
Caption = 'Stop'
@@ -128,10 +128,10 @@ object MainForm: TMainForm
128128
object SpeedButton3: TSpeedButton
129129
AnchorSideRight.Control = Owner
130130
AnchorSideRight.Side = asrBottom
131-
Left = 591
131+
Left = 563
132132
Height = 60
133133
Top = 8
134-
Width = 230
134+
Width = 242
135135
Anchors = [akTop, akRight]
136136
BorderSpacing.Right = 8
137137
Caption = 'Create Client and Server'
@@ -273,7 +273,7 @@ object MainForm: TMainForm
273273
AnchorSideTop.Control = Label3
274274
AnchorSideTop.Side = asrCenter
275275
AnchorSideRight.Control = SPortEdit
276-
Left = 529
276+
Left = 517
277277
Height = 17
278278
Top = 119
279279
Width = 48
@@ -285,7 +285,7 @@ object MainForm: TMainForm
285285
AnchorSideTop.Control = Label3
286286
AnchorSideTop.Side = asrCenter
287287
AnchorSideRight.Control = HPortEdit
288-
Left = 696
288+
Left = 680
289289
Height = 17
290290
Top = 119
291291
Width = 34
@@ -296,7 +296,7 @@ object MainForm: TMainForm
296296
object SPortEdit: TEdit
297297
AnchorSideTop.Control = Label3
298298
AnchorSideTop.Side = asrCenter
299-
Left = 580
299+
Left = 568
300300
Height = 37
301301
Top = 109
302302
Width = 80
@@ -309,7 +309,7 @@ object MainForm: TMainForm
309309
AnchorSideTop.Side = asrCenter
310310
AnchorSideRight.Control = Owner
311311
AnchorSideRight.Side = asrBottom
312-
Left = 733
312+
Left = 717
313313
Height = 37
314314
Top = 109
315315
Width = 88
@@ -320,7 +320,7 @@ object MainForm: TMainForm
320320
end
321321
object Label9: TLabel
322322
AnchorSideLeft.Control = Label7
323-
Left = 529
323+
Left = 517
324324
Height = 17
325325
Top = 88
326326
Width = 86
@@ -334,7 +334,7 @@ object MainForm: TMainForm
334334
AnchorSideTop.Control = StartBtn
335335
AnchorSideTop.Side = asrCenter
336336
AnchorSideRight.Control = StartBtn
337-
Left = 577
337+
Left = 553
338338
Height = 12
339339
Top = 181
340340
Width = 11
@@ -354,7 +354,7 @@ object MainForm: TMainForm
354354
Left = 0
355355
Height = 20
356356
Top = 607
357-
Width = 829
357+
Width = 813
358358
Align = alBottom
359359
Caption = 'License: GPLv3 Author: alex_q_2000 (C) 2026 https://github.com/AKotov-dev/NaiveGUI'
360360
Font.Color = clGray
@@ -410,7 +410,7 @@ object MainForm: TMainForm
410410
Left = 0
411411
Height = 386
412412
Top = 221
413-
Width = 829
413+
Width = 813
414414
Align = alBottom
415415
Anchors = [akTop, akLeft, akRight, akBottom]
416416
BorderSpacing.Top = 15
@@ -435,9 +435,9 @@ object MainForm: TMainForm
435435
TabOrder = 1
436436
end
437437
object Image1: TImage
438-
Left = 464
438+
Left = 432
439439
Height = 64
440-
Top = 152
440+
Top = 8
441441
Width = 64
442442
AutoSize = True
443443
Picture.Data = {
@@ -704,6 +704,7 @@ object MainForm: TMainForm
704704
Top = 240
705705
end
706706
object SaveDialog1: TSaveDialog
707+
FileName = 'naivegui_config.tar.gz'
707708
Filter = 'Archive (*.tar.gz)|*.tar.gz'
708709
Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
709710
Left = 192

‎naivegui/backup/unit1.pas‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -388,6 +388,10 @@ procedure TMainForm.PassBtnClick(Sender: TObject);
388388
//Создаём конфиги Клиента и Сервера
389389
procedure TMainForm.SpeedButton3Click(Sender: TObject);
390390
begin
391+
//Не запускать, если поля пустые
392+
if (DomainEdit.Text = '') or (UserEdit.Text = '') or (PasswordEdit.Text = '') or
393+
(SPortEdit.Text = '') or (HPortEdit.Text = '') or (BypassBox.Text = '') then Exit;
394+
391395
//Клиент
392396
CreateClientConfig;
393397
//Сервер

‎naivegui/lib/x86_64-linux/naivegui.or‎

0 Bytes
Binary file not shown.

‎naivegui/lib/x86_64-linux/unit1.lfm‎

Lines changed: 22 additions & 23 deletions
Original file line numberDiff line numberDiff line change
@@ -1,11 +1,11 @@
11
object MainForm: TMainForm
22
Left = 299
3-
Height = 627
3+
Height = 639
44
Top = 127
5-
Width = 829
5+
Width = 813
66
Caption = 'NaiveGUI'
7-
ClientHeight = 627
8-
ClientWidth = 829
7+
ClientHeight = 639
8+
ClientWidth = 813
99
SessionProperties = 'Height;Width;Top;Left'
1010
LCLVersion = '4.4.0.0'
1111
OnCreate = FormCreate
@@ -79,7 +79,7 @@ object MainForm: TMainForm
7979
AnchorSideRight.Control = StopBtn
8080
AnchorSideBottom.Control = BypassBox
8181
AnchorSideBottom.Side = asrBottom
82-
Left = 591
82+
Left = 567
8383
Height = 37
8484
Top = 169
8585
Width = 123
@@ -94,10 +94,10 @@ object MainForm: TMainForm
9494
AnchorSideRight.Side = asrBottom
9595
AnchorSideBottom.Control = StartBtn
9696
AnchorSideBottom.Side = asrBottom
97-
Left = 722
97+
Left = 698
9898
Height = 37
9999
Top = 169
100-
Width = 99
100+
Width = 107
101101
Anchors = [akTop, akRight, akBottom]
102102
BorderSpacing.Right = 8
103103
Caption = 'Stop'
@@ -128,10 +128,10 @@ object MainForm: TMainForm
128128
object SpeedButton3: TSpeedButton
129129
AnchorSideRight.Control = Owner
130130
AnchorSideRight.Side = asrBottom
131-
Left = 591
131+
Left = 563
132132
Height = 60
133133
Top = 8
134-
Width = 230
134+
Width = 242
135135
Anchors = [akTop, akRight]
136136
BorderSpacing.Right = 8
137137
Caption = 'Create Client and Server'
@@ -273,7 +273,7 @@ object MainForm: TMainForm
273273
AnchorSideTop.Control = Label3
274274
AnchorSideTop.Side = asrCenter
275275
AnchorSideRight.Control = SPortEdit
276-
Left = 529
276+
Left = 517
277277
Height = 17
278278
Top = 119
279279
Width = 48
@@ -285,7 +285,7 @@ object MainForm: TMainForm
285285
AnchorSideTop.Control = Label3
286286
AnchorSideTop.Side = asrCenter
287287
AnchorSideRight.Control = HPortEdit
288-
Left = 696
288+
Left = 680
289289
Height = 17
290290
Top = 119
291291
Width = 34
@@ -296,7 +296,7 @@ object MainForm: TMainForm
296296
object SPortEdit: TEdit
297297
AnchorSideTop.Control = Label3
298298
AnchorSideTop.Side = asrCenter
299-
Left = 580
299+
Left = 568
300300
Height = 37
301301
Top = 109
302302
Width = 80
@@ -309,7 +309,7 @@ object MainForm: TMainForm
309309
AnchorSideTop.Side = asrCenter
310310
AnchorSideRight.Control = Owner
311311
AnchorSideRight.Side = asrBottom
312-
Left = 733
312+
Left = 717
313313
Height = 37
314314
Top = 109
315315
Width = 88
@@ -320,7 +320,7 @@ object MainForm: TMainForm
320320
end
321321
object Label9: TLabel
322322
AnchorSideLeft.Control = Label7
323-
Left = 529
323+
Left = 517
324324
Height = 17
325325
Top = 88
326326
Width = 86
@@ -334,7 +334,7 @@ object MainForm: TMainForm
334334
AnchorSideTop.Control = StartBtn
335335
AnchorSideTop.Side = asrCenter
336336
AnchorSideRight.Control = StartBtn
337-
Left = 577
337+
Left = 553
338338
Height = 12
339339
Top = 181
340340
Width = 11
@@ -353,9 +353,9 @@ object MainForm: TMainForm
353353
AnchorSideBottom.Side = asrBottom
354354
Left = 0
355355
Height = 20
356-
Top = 607
357-
Width = 829
358-
Align = alBottom
356+
Top = 619
357+
Width = 813
358+
Anchors = [akLeft, akRight, akBottom]
359359
Caption = 'License: GPLv3 Author: alex_q_2000 (C) 2026 https://github.com/AKotov-dev/NaiveGUI'
360360
Font.Color = clGray
361361
Font.Height = -11
@@ -408,10 +408,9 @@ object MainForm: TMainForm
408408
AnchorSideRight.Side = asrBottom
409409
AnchorSideBottom.Control = StaticText1
410410
Left = 0
411-
Height = 386
411+
Height = 398
412412
Top = 221
413-
Width = 829
414-
Align = alBottom
413+
Width = 813
415414
Anchors = [akTop, akLeft, akRight, akBottom]
416415
BorderSpacing.Top = 15
417416
Font.Height = -13
@@ -435,9 +434,9 @@ object MainForm: TMainForm
435434
TabOrder = 1
436435
end
437436
object Image1: TImage
438-
Left = 464
437+
Left = 432
439438
Height = 64
440-
Top = 152
439+
Top = 8
441440
Width = 64
442441
AutoSize = True
443442
Picture.Data = {

‎naivegui/lib/x86_64-linux/unit1.o‎

376 Bytes
Binary file not shown.

‎naivegui/lib/x86_64-linux/unit1.ppu‎

0 Bytes
Binary file not shown.

‎naivegui/naivegui‎

0 Bytes
Binary file not shown.

‎naivegui/naivegui.lps‎

Lines changed: 9 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -53,8 +53,7 @@
5353
<ResourceBaseClass Value="Form"/>
5454
<UnitName Value="Unit1"/>
5555
<IsVisibleTab Value="True"/>
56-
<TopLine Value="390"/>
57-
<CursorPos X="45" Y="411"/>
56+
<CursorPos X="14"/>
5857
<UsageCount Value="35"/>
5958
<Loaded Value="True"/>
6059
<LoadedDesigner Value="True"/>
@@ -82,10 +81,6 @@
8281
</Unit>
8382
</Units>
8483
<JumpHistory HistoryIndex="29">
85-
<Position>
86-
<Filename Value="unit1.pas"/>
87-
<Caret Line="278" Column="7" TopLine="263"/>
88-
</Position>
8984
<Position>
9085
<Filename Value="unit1.pas"/>
9186
<Caret Line="284" Column="73" TopLine="270"/>
@@ -186,10 +181,6 @@
186181
<Filename Value="unit1.pas"/>
187182
<Caret Line="342" Column="10" TopLine="335"/>
188183
</Position>
189-
<Position>
190-
<Filename Value="unit1.pas"/>
191-
<Caret Line="58" Column="15" TopLine="191"/>
192-
</Position>
193184
<Position>
194185
<Filename Value="unit1.pas"/>
195186
<Caret Line="59" Column="15" TopLine="59"/>
@@ -202,6 +193,14 @@
202193
<Filename Value="unit1.pas"/>
203194
<Caret Line="9" Column="67"/>
204195
</Position>
196+
<Position>
197+
<Filename Value="unit1.pas"/>
198+
<Caret Line="391" TopLine="348"/>
199+
</Position>
200+
<Position>
201+
<Filename Value="unit1.pas"/>
202+
<Caret Line="421" TopLine="416"/>
203+
</Position>
205204
</JumpHistory>
206205
<RunParams>
207206
<FormatVersion Value="2"/>

0 commit comments

Comments
 (0)