pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

OnGuard: Autosized layout in EditProductFrm

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8719 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-19 23:08:20 +00:00
parent 8a04d28a5a
commit da35203b4e
2 changed files with 155 additions and 82 deletions
Download Patch File Download Diff File Expand all files Collapse all files

118
components/onguard/source/qonguard4.lfm
View File

@ -1,30 +1,47 @@
object EditProductFrm: TEditProductFrm object EditProductFrm: TEditProductFrm
Left = 280 Left = 280
Height = 110 Height = 128
Top = 326 Top = 326
Width = 526 Width = 516
HorzScrollBar.Page = 525 HorzScrollBar.Page = 525
HorzScrollBar.Range = 521 HorzScrollBar.Range = 521
VertScrollBar.Page = 109 VertScrollBar.Page = 109
VertScrollBar.Range = 105 VertScrollBar.Range = 105
ActiveControl = ProductEd ActiveControl = ProductEd
AutoSize = True
BorderIcons = [] BorderIcons = []
BorderStyle = bsDialog
Caption = 'Description and Key' Caption = 'Description and Key'
ClientHeight = 128
ClientWidth = 516
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.3.0.0'
object Panel1: TPanel object Panel1: TPanel
Left = 4 AnchorSideLeft.Control = Owner
Height = 68 AnchorSideTop.Control = Owner
Top = 5 Left = 8
Width = 517 Height = 80
Top = 8
Width = 495
AutoSize = True
BorderSpacing.Around = 8
BevelOuter = bvLowered
ClientHeight = 80
ClientWidth = 495
TabOrder = 0 TabOrder = 0
object GenerateKeySb: TSpeedButton object GenerateKeySb: TSpeedButton
Left = 482 AnchorSideLeft.Control = KeyPasteSb
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = KeyEd
AnchorSideTop.Side = asrCenter
Left = 455
Height = 23 Height = 23
Hint = 'Generate encryption key' Hint = 'Generate encryption key'
Top = 37 Top = 44
Width = 23 Width = 23
Color = clBtnFace BorderSpacing.Left = 4
BorderSpacing.Right = 16
Glyph.Data = { Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100 42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000000000000000000000000000000000 040000000000CC00000000000000000000000000000000000000000000000000
@ -38,16 +55,19 @@ object EditProductFrm: TEditProductFrm
0000800000088888888880000000888888888888888880000000888888888888 0000800000088888888880000000888888888888888880000000888888888888
888880000000 888880000000
} }
NumGlyphs = 0
OnClick = GenerateKeySbClick OnClick = GenerateKeySbClick
end end
object KeyPasteSb: TSpeedButton object KeyPasteSb: TSpeedButton
Left = 456 AnchorSideLeft.Control = KeyEd
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = KeyEd
AnchorSideTop.Side = asrCenter
Left = 428
Height = 23 Height = 23
Hint = 'Paste from clipboard' Hint = 'Paste from clipboard'
Top = 37 Top = 44
Width = 23 Width = 23
Color = clBtnFace BorderSpacing.Left = 4
Glyph.Data = { Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100 42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000000000000000000000000000000000 040000000000CC00000000000000000000000000000000000000000000000000
@ -61,49 +81,73 @@ object EditProductFrm: TEditProductFrm
0000200000BB0000022220000000222220000222222220000000222222222222 0000200000BB0000022220000000222220000222222220000000222222222222
222220000000 222220000000
} }
NumGlyphs = 0
OnClick = KeyPasteSbClick OnClick = KeyPasteSbClick
end end
object Label1: TLabel object Label1: TLabel
Left = 12 AnchorSideLeft.Control = Panel1
Height = 20 AnchorSideTop.Control = ProductEd
Top = 12 AnchorSideTop.Side = asrCenter
Width = 84 Left = 13
Height = 15
Top = 17
Width = 63
BorderSpacing.Left = 12
Caption = '&Description:' Caption = '&Description:'
Color = clNone Color = clNone
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 12 AnchorSideLeft.Control = Panel1
Height = 20 AnchorSideTop.Control = KeyEd
Top = 40 Left = 13
Width = 32 Height = 15
Top = 44
Width = 22
BorderSpacing.Left = 12
Caption = '&Key:' Caption = '&Key:'
Color = clNone Color = clNone
ParentColor = False ParentColor = False
end end
object ProductEd: TEdit object ProductEd: TEdit
Left = 104 AnchorSideLeft.Control = Label1
Height = 28 AnchorSideLeft.Side = asrBottom
Top = 8 AnchorSideTop.Control = Panel1
Width = 345 Left = 84
Height = 23
Top = 13
Width = 340
BorderSpacing.Left = 8
BorderSpacing.Top = 12
OnChange = InfoChanged OnChange = InfoChanged
TabOrder = 0 TabOrder = 0
end end
object KeyEd: TEdit object KeyEd: TEdit
Left = 104 AnchorSideLeft.Control = ProductEd
Height = 28 AnchorSideTop.Control = ProductEd
Top = 38 AnchorSideTop.Side = asrBottom
Width = 345 AnchorSideRight.Control = ProductEd
AnchorSideRight.Side = asrBottom
Left = 84
Height = 23
Top = 44
Width = 340
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
BorderSpacing.Bottom = 12
OnChange = InfoChanged OnChange = InfoChanged
TabOrder = 1 TabOrder = 1
end end
end end
object OKBtn: TButton object OKBtn: TButton
Left = 361 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CancelBtn
Left = 349
Height = 25 Height = 25
Top = 80 Top = 96
Width = 75 Width = 75
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'OK' Caption = 'OK'
Default = True Default = True
@ -111,10 +155,16 @@ object EditProductFrm: TEditProductFrm
TabOrder = 1 TabOrder = 1
end end
object CancelBtn: TButton object CancelBtn: TButton
Left = 441 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 428
Height = 25 Height = 25
Top = 80 Top = 96
Width = 75 Width = 75
Anchors = [akTop, akRight]
BorderSpacing.Bottom = 8
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'

119
components/onguard/source/qonguard4.lrs
View File

@ -1,51 +1,74 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TEditProductFrm','FORMDATA',[ LazarusResources.Add('TEditProductFrm','FORMDATA',[
'TPF0'#15'TEditProductFrm'#14'EditProductFrm'#4'Left'#3#24#1#6'Height'#2'n'#3 'TPF0'#15'TEditProductFrm'#14'EditProductFrm'#4'Left'#3#24#1#6'Height'#3#128#0
+'Top'#3'F'#1#5'Width'#3#14#2#18'HorzScrollBar.Page'#3#13#2#19'HorzScrollBar.' +#3'Top'#3'F'#1#5'Width'#3#4#2#18'HorzScrollBar.Page'#3#13#2#19'HorzScrollBar'
+'Range'#3#9#2#18'VertScrollBar.Page'#2'm'#19'VertScrollBar.Range'#2'i'#13'Ac' +'.Range'#3#9#2#18'VertScrollBar.Page'#2'm'#19'VertScrollBar.Range'#2'i'#13'A'
+'tiveControl'#7#9'ProductEd'#11'BorderIcons'#11#0#7'Caption'#6#19'Descriptio' +'ctiveControl'#7#9'ProductEd'#8'AutoSize'#9#11'BorderIcons'#11#0#11'BorderSt'
+'n and Key'#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#0#6 +'yle'#7#8'bsDialog'#7'Caption'#6#19'Description and Key'#12'ClientHeight'#3
+'TPanel'#6'Panel1'#4'Left'#2#4#6'Height'#2'D'#3'Top'#2#5#5'Width'#3#5#2#8'Ta' +#128#0#11'ClientWidth'#3#4#2#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'p'
+'bOrder'#2#0#0#12'TSpeedButton'#13'GenerateKeySb'#4'Left'#3#226#1#6'Height'#2 +'oScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TPanel'#6'Panel1'#22'AnchorS'
+#23#4'Hint'#6#23'Generate encryption key'#3'Top'#2'%'#5'Width'#2#23#5'Color' +'ideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#8
+#7#9'clBtnFace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0 +#6'Height'#2'P'#3'Top'#2#8#5'Width'#3#239#1#8'AutoSize'#9#20'BorderSpacing.A'
+#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0 +'round'#2#8#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#2'P'#11'ClientWid'
+#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128 +'th'#3#239#1#8'TabOrder'#2#0#0#12'TSpeedButton'#13'GenerateKeySb'#22'AnchorS'
+#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0 +'ideLeft.Control'#7#10'KeyPasteSb'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
+#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128 +'AnchorSideTop.Control'#7#5'KeyEd'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'L'
+#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#132'DDDD'#128#0 +'eft'#3#199#1#6'Height'#2#23#4'Hint'#6#23'Generate encryption key'#3'Top'#2
+#0#0#136#136#136#132#255#255#255#244#128#0#0#0#136#136#136#132#240#0#0#244 +','#5'Width'#2#23#18'BorderSpacing.Left'#2#4#19'BorderSpacing.Right'#2#16#10
+#128#0#0#0#128#0#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#0#0#244 +'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0
+#128#0#0#0#128#240#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#15'DD' +#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#128#0#0#0#128#240#0#4#255#255'OH'#128#0#0#0#128#255#255#244#255#255'D'#136 +#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128
+#128#0#0#0#128#240#15#4'DDH'#136#128#0#0#0#128#255#255#15#8#136#136#136#128#0 +#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0
+#0#0#128#255#255#0#136#136#136#136#128#0#0#0#128#0#0#8#136#136#136#136#128#0 +#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136
+#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136 +#136#136#136#136#136#136#128#0#0#0#136#136#136#132'DDDD'#128#0#0#0#136#136
+#136#128#0#0#0#9'NumGlyphs'#2#0#7'OnClick'#7#18'GenerateKeySbClick'#0#0#12'T' +#136#132#255#255#255#244#128#0#0#0#136#136#136#132#240#0#0#244#128#0#0#0#128
+'SpeedButton'#10'KeyPasteSb'#4'Left'#3#200#1#6'Height'#2#23#4'Hint'#6#20'Pas' +#0#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#0#0#244#128#0#0#0#128
+'te from clipboard'#3'Top'#2'%'#5'Width'#2#23#5'Color'#7#9'clBtnFace'#10'Gly' +#240#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#15'DD'#128#0#0#0#128
+'ph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0#0 +#240#0#4#255#255'OH'#128#0#0#0#128#255#255#244#255#255'D'#136#128#0#0#0#128
+#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 +#240#15#4'DDH'#136#128#0#0#0#128#255#255#15#8#136#136#136#128#0#0#0#128#255
+#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#192#192#192 +#255#0#136#136#136#136#128#0#0#0#128#0#0#8#136#136#136#136#128#0#0#0#136#136
+#0#128#128#128#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255 +#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0
+#255#0#0#255#255#255#0'"""""""" '#0#0#0'"""""""" '#0#0#0'"""DDDDD '#0#0#0' ' +#7'OnClick'#7#18'GenerateKeySbClick'#0#0#12'TSpeedButton'#10'KeyPasteSb'#22
+#0#0'O'#255#255#255#244' '#0#0#0#8'88O'#0#0#0#244' '#0#0#0#3#131#131'O'#255 +'AnchorSideLeft.Control'#7#5'KeyEd'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
+#255#255#244' '#0#0#0#8'88O'#0#15'DD '#0#0#0#3#131#131'O'#255#255'OB '#0#0#0 +'AnchorSideTop.Control'#7#5'KeyEd'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'L'
+#8'88O'#255#255'D" '#0#0#0#3#131#131'DDD@" '#0#0#0#8'888880" '#0#0#0#3#128#0 +'eft'#3#172#1#6'Height'#2#23#4'Hint'#6#20'Paste from clipboard'#3'Top'#2','#5
+#0#0#3#128'" '#0#0#0#8'0www'#8'0" '#0#0#0#3#131#11#0#176#131#128'" '#0#0#0' ' +'Width'#2#23#18'BorderSpacing.Left'#2#4#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0
+#0#0#187#0#0#2'" '#0#0#0'"" '#0#2'""" '#0#0#0'"""""""" '#0#0#0#9'NumGlyphs'#2 +'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0
+#0#7'OnClick'#7#15'KeyPasteSbClick'#0#0#6'TLabel'#6'Label1'#4'Left'#2#12#6'H' +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0
+'eight'#2#20#3'Top'#2#12#5'Width'#2'T'#7'Caption'#6#13'&Description:'#5'Colo' +#128#0#0#0#128#0#128#0#128#128#0#0#192#192#192#0#128#128#128#0#0#0#255#0#0
+'r'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#12#6'Hei' +#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0'"""""""'
+'ght'#2#20#3'Top'#2'('#5'Width'#2' '#7'Caption'#6#5'&Key:'#5'Color'#7#6'clNo' +'" '#0#0#0'"""""""" '#0#0#0'"""DDDDD '#0#0#0' '#0#0'O'#255#255#255#244' '#0#0
+'ne'#11'ParentColor'#8#0#0#5'TEdit'#9'ProductEd'#4'Left'#2'h'#6'Height'#2#28 +#0#8'88O'#0#0#0#244' '#0#0#0#3#131#131'O'#255#255#255#244' '#0#0#0#8'88O'#0
+#3'Top'#2#8#5'Width'#3'Y'#1#8'OnChange'#7#11'InfoChanged'#8'TabOrder'#2#0#0#0 +#15'DD '#0#0#0#3#131#131'O'#255#255'OB '#0#0#0#8'88O'#255#255'D" '#0#0#0#3
+#5'TEdit'#5'KeyEd'#4'Left'#2'h'#6'Height'#2#28#3'Top'#2'&'#5'Width'#3'Y'#1#8 +#131#131'DDD@" '#0#0#0#8'888880" '#0#0#0#3#128#0#0#0#3#128'" '#0#0#0#8'0www'
+'OnChange'#7#11'InfoChanged'#8'TabOrder'#2#1#0#0#0#7'TButton'#5'OKBtn'#4'Lef' +#8'0" '#0#0#0#3#131#11#0#176#131#128'" '#0#0#0' '#0#0#187#0#0#2'" '#0#0#0'""'
+'t'#3'i'#1#6'Height'#2#25#3'Top'#2'P'#5'Width'#2'K'#25'BorderSpacing.InnerBo' +' '#0#2'""" '#0#0#0'"""""""" '#0#0#0#7'OnClick'#7#15'KeyPasteSbClick'#0#0#6
+'rder'#2#4#7'Caption'#6#2'OK'#7'Default'#9#11'ModalResult'#2#1#8'TabOrder'#2 +'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#6'Panel1'#21'AnchorSideTop.C'
+#1#0#0#7'TButton'#9'CancelBtn'#4'Left'#3#185#1#6'Height'#2#25#3'Top'#2'P'#5 +'ontrol'#7#9'ProductEd'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#13#6
+'Width'#2'K'#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Ca' +'Height'#2#15#3'Top'#2#17#5'Width'#2'?'#18'BorderSpacing.Left'#2#12#7'Captio'
+'ncel'#11'ModalResult'#2#2#8'TabOrder'#2#2#0#0#0 +'n'#6#13'&Description:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'
+#6'Label2'#22'AnchorSideLeft.Control'#7#6'Panel1'#21'AnchorSideTop.Control'#7
+#5'KeyEd'#4'Left'#2#13#6'Height'#2#15#3'Top'#2','#5'Width'#2#22#18'BorderSpa'
+'cing.Left'#2#12#7'Caption'#6#5'&Key:'#5'Color'#7#6'clNone'#11'ParentColor'#8
+#0#0#5'TEdit'#9'ProductEd'#22'AnchorSideLeft.Control'#7#6'Label1'#19'AnchorS'
+'ideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#6'Panel1'#4'Left'#2
+'T'#6'Height'#2#23#3'Top'#2#13#5'Width'#3'T'#1#18'BorderSpacing.Left'#2#8#17
+'BorderSpacing.Top'#2#12#8'OnChange'#7#11'InfoChanged'#8'TabOrder'#2#0#0#0#5
+'TEdit'#5'KeyEd'#22'AnchorSideLeft.Control'#7#9'ProductEd'#21'AnchorSideTop.'
+'Control'#7#9'ProductEd'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSide'
+'Right.Control'#7#9'ProductEd'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Lef'
+'t'#2'T'#6'Height'#2#23#3'Top'#2','#5'Width'#3'T'#1#7'Anchors'#11#5'akTop'#6
+'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#8#20'BorderSpacing.Bottom'#2#12
+#8'OnChange'#7#11'InfoChanged'#8'TabOrder'#2#1#0#0#0#7'TButton'#5'OKBtn'#21
+'AnchorSideTop.Control'#7#6'Panel1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23
+'AnchorSideRight.Control'#7#9'CancelBtn'#4'Left'#3']'#1#6'Height'#2#25#3'Top'
+#2'`'#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Rig'
+'ht'#2#4#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#2'OK'#7'Default'#9#11
,'ModalResult'#2#1#8'TabOrder'#2#1#0#0#7'TButton'#9'CancelBtn'#21'AnchorSideT'
+'op.Control'#7#6'Panel1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSide'
+'Right.Control'#7#6'Panel1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3
+#172#1#6'Height'#2#25#3'Top'#2'`'#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akR'
+'ight'#0#20'BorderSpacing.Bottom'#2#8#25'BorderSpacing.InnerBorder'#2#4#6'Ca'
+'ncel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#2#0#0#0
]); ]);