Skip to content

Commit 96bb466

Browse files
ansgarbeckeransgarbecker
committed
feat(ui): turn all TEdit's with NumbersOnly into TSpinEditEx
TUpDown still can handle only SmallInt's, so here we go with superstar TSpinEditEx
1 parent 18e9431 commit 96bb466

File tree

13 files changed

+369
-305
lines changed

13 files changed

+369
-305
lines changed

‎source/connections.lfm‎

Lines changed: 39 additions & 27 deletions
Original file line numberDiff line numberDiff line change
@@ -104,7 +104,7 @@ object connform: Tconnform
104104
Width = 25
105105
BorderSpacing.Around = 5
106106
Caption = 'Port:'
107-
FocusControl = editPort
107+
FocusControl = spinPort
108108
end
109109
object lblPassword: TLabel
110110
AnchorSideTop.Control = editUsername
@@ -180,7 +180,7 @@ object connform: Tconnform
180180
Caption = 'Library:'
181181
end
182182
object chkCompressed: TCheckBox
183-
AnchorSideTop.Control = editPort
183+
AnchorSideTop.Control = spinPort
184184
AnchorSideTop.Side = asrBottom
185185
Left = 194
186186
Height = 19
@@ -192,18 +192,20 @@ object connform: Tconnform
192192
TabOrder = 8
193193
OnClick = Modification
194194
end
195-
object editPort: TEdit
195+
object spinPort: TSpinEditEx
196196
AnchorSideTop.Control = editPassword
197197
AnchorSideTop.Side = asrBottom
198198
Left = 194
199199
Height = 23
200200
Top = 192
201201
Width = 57
202202
BorderSpacing.Around = 5
203-
NumbersOnly = True
203+
MaxLength = 0
204+
SpinButtonWidth = 17
204205
TabOrder = 7
205-
Text = '0'
206206
OnChange = Modification
207+
NullValue = 0
208+
Value = 0
207209
end
208210
object editPassword: TEdit
209211
AnchorSideTop.Control = editUsername
@@ -360,15 +362,15 @@ object connform: Tconnform
360362
ClientWidth = 513
361363
ImageIndex = 147
362364
object lblSSHLocalPort: TLabel
363-
AnchorSideTop.Control = editSSHlocalport
365+
AnchorSideTop.Control = spinSSHlocalport
364366
AnchorSideTop.Side = asrCenter
365367
Left = 3
366368
Height = 15
367369
Top = 221
368370
Width = 56
369371
BorderSpacing.Around = 5
370372
Caption = 'Local port:'
371-
FocusControl = editSSHlocalport
373+
FocusControl = spinSSHlocalport
372374
end
373375
object lblSSHUser: TLabel
374376
AnchorSideTop.Control = editSSHUser
@@ -425,7 +427,7 @@ object connform: Tconnform
425427
FocusControl = editSSHPrivateKey
426428
end
427429
object lblSSHTimeout: TLabel
428-
AnchorSideTop.Control = editSSHTimeout
430+
AnchorSideTop.Control = spinSSHTimeout
429431
AnchorSideTop.Side = asrCenter
430432
Left = 3
431433
Height = 15
@@ -434,7 +436,7 @@ object connform: Tconnform
434436
BorderSpacing.Around = 5
435437
Caption = 'SSH timeout:'
436438
end
437-
object editSSHlocalport: TEdit
439+
object spinSSHlocalport: TSpinEditEx
438440
AnchorSideTop.Control = editSSHPrivateKey
439441
AnchorSideTop.Side = asrBottom
440442
Left = 194
@@ -443,10 +445,12 @@ object connform: Tconnform
443445
Width = 314
444446
Anchors = [akTop, akLeft, akRight]
445447
BorderSpacing.Around = 5
446-
NumbersOnly = True
448+
MaxLength = 0
449+
SpinButtonWidth = 17
447450
TabOrder = 8
448-
Text = 'editSSHlocalport'
449451
OnChange = Modification
452+
NullValue = 0
453+
Value = 0
450454
end
451455
object editSSHUser: TEdit
452456
AnchorSideTop.Control = editSSHhost
@@ -493,7 +497,7 @@ object connform: Tconnform
493497
OnChange = Modification
494498
OnExit = editTrim
495499
end
496-
object editSSHport: TEdit
500+
object spinSSHport: TSpinEditEx
497501
AnchorSideTop.Control = comboSSHExe
498502
AnchorSideTop.Side = asrBottom
499503
Left = 434
@@ -502,13 +506,15 @@ object connform: Tconnform
502506
Width = 74
503507
Anchors = [akTop, akRight]
504508
BorderSpacing.Around = 5
505-
NumbersOnly = True
509+
MaxLength = 0
510+
SpinButtonWidth = 17
506511
TabOrder = 3
507-
Text = 'editSSHport'
508512
OnChange = Modification
513+
NullValue = 0
514+
Value = 0
509515
end
510516
object editSSHPrivateKey: TEditButton
511-
AnchorSideTop.Control = editSSHTimeout
517+
AnchorSideTop.Control = spinSSHTimeout
512518
AnchorSideTop.Side = asrBottom
513519
Left = 194
514520
Height = 23
@@ -530,18 +536,20 @@ object connform: Tconnform
530536
OnDblClick = PickFile
531537
OnExit = editTrim
532538
end
533-
object editSSHTimeout: TEdit
539+
object spinSSHTimeout: TSpinEditEx
534540
AnchorSideTop.Control = lblSshPassHint
535541
AnchorSideTop.Side = asrBottom
536542
Left = 194
537543
Height = 23
538544
Top = 161
539545
Width = 60
540546
BorderSpacing.Around = 5
541-
NumbersOnly = True
547+
MaxLength = 0
548+
SpinButtonWidth = 17
542549
TabOrder = 6
543-
Text = '1'
544550
OnChange = Modification
551+
NullValue = 0
552+
Value = 0
545553
end
546554
object comboSSHExe: TComboBox
547555
AnchorSideTop.Control = chkSSHActive
@@ -608,7 +616,7 @@ object connform: Tconnform
608616
Caption = 'Query timeout:'
609617
end
610618
object lblKeepAlive: TLabel
611-
AnchorSideTop.Control = editQueryTimeout
619+
AnchorSideTop.Control = spinQueryTimeout
612620
AnchorSideTop.Side = asrBottom
613621
Left = 3
614622
Height = 15
@@ -648,7 +656,7 @@ object connform: Tconnform
648656
Caption = 'Log queries to file:'
649657
end
650658
object chkLocalTimeZone: TCheckBox
651-
AnchorSideTop.Control = editKeepAlive
659+
AnchorSideTop.Control = spinKeepAlive
652660
AnchorSideTop.Side = asrBottom
653661
Left = 194
654662
Height = 19
@@ -709,31 +717,35 @@ object connform: Tconnform
709717
TabOrder = 4
710718
OnClick = Modification
711719
end
712-
object editQueryTimeout: TEdit
720+
object spinQueryTimeout: TSpinEditEx
713721
AnchorSideTop.Control = editStartupScript
714722
AnchorSideTop.Side = asrBottom
715723
Left = 194
716724
Height = 23
717725
Top = 33
718726
Width = 90
719727
BorderSpacing.Around = 5
720-
NumbersOnly = True
728+
MaxLength = 0
729+
SpinButtonWidth = 17
721730
TabOrder = 1
722-
Text = '0'
723731
OnChange = Modification
732+
NullValue = 0
733+
Value = 0
724734
end
725-
object editKeepAlive: TEdit
726-
AnchorSideTop.Control = editQueryTimeout
735+
object spinKeepAlive: TSpinEditEx
736+
AnchorSideTop.Control = spinQueryTimeout
727737
AnchorSideTop.Side = asrBottom
728738
Left = 194
729739
Height = 23
730740
Top = 61
731741
Width = 90
732742
BorderSpacing.Around = 5
733-
NumbersOnly = True
743+
MaxLength = 0
744+
SpinButtonWidth = 17
734745
TabOrder = 2
735-
Text = '0'
736746
OnChange = Modification
747+
NullValue = 0
748+
Value = 0
737749
end
738750
object ColorBoxBackgroundColor: TColorBox
739751
AnchorSideTop.Control = chkCleartextPluginEnabled

0 commit comments

Comments
 (0)