You've already forked lazarus-ccr
OnGuard: Fix sample projects not loading. Activate themes in sample projects. Anchored layout of sample forms.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8707 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -1,36 +1,51 @@
|
||||
object NafFrm: TNafFrm
|
||||
Left = 307
|
||||
Height = 232
|
||||
Height = 223
|
||||
Top = 291
|
||||
Width = 334
|
||||
Width = 355
|
||||
HorzScrollBar.Page = 333
|
||||
HorzScrollBar.Range = 325
|
||||
VertScrollBar.Page = 231
|
||||
VertScrollBar.Range = 177
|
||||
ActiveControl = AccessCodeEd
|
||||
AutoSize = True
|
||||
BorderIcons = [biSystemMenu, biMinimize]
|
||||
Caption = 'Network Access File Manager'
|
||||
Font.Color = clText
|
||||
Font.Height = 11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Pitch = fpVariable
|
||||
ClientHeight = 223
|
||||
ClientWidth = 355
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
ShowHint = True
|
||||
LCLVersion = '2.3.0.0'
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 8
|
||||
Height = 97
|
||||
Top = 8
|
||||
Width = 317
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Control = DeleteBt
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 90
|
||||
Top = 12
|
||||
Width = 324
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 12
|
||||
BorderSpacing.Top = 12
|
||||
BorderSpacing.Bottom = 12
|
||||
Caption = 'File Settings'
|
||||
ClientHeight = 70
|
||||
ClientWidth = 320
|
||||
TabOrder = 0
|
||||
object GenerateCodeSb: TSpeedButton
|
||||
Left = 288
|
||||
AnchorSideTop.Control = AccessCodeEd
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = GroupBox1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 285
|
||||
Height = 23
|
||||
Hint = 'Generate code'
|
||||
Top = 19
|
||||
Top = 4
|
||||
Width = 23
|
||||
Color = clBtnFace
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 12
|
||||
Glyph.Data = {
|
||||
42010000424D4201000000000000760000002800000011000000110000000100
|
||||
040000000000CC00000000000000000000000000000000000000000000000000
|
||||
@ -44,61 +59,98 @@ object NafFrm: TNafFrm
|
||||
0000888800888080088880000000888888000008888880000000888888888888
|
||||
888880000000
|
||||
}
|
||||
NumGlyphs = 0
|
||||
OnClick = GenerateCodeSbClick
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 8
|
||||
Height = 18
|
||||
Top = 24
|
||||
Width = 38
|
||||
AnchorSideLeft.Control = GroupBox1
|
||||
AnchorSideTop.Control = AccessCodeEd
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 12
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 31
|
||||
BorderSpacing.Left = 12
|
||||
Caption = 'C&ode:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 8
|
||||
Height = 18
|
||||
Top = 52
|
||||
Width = 54
|
||||
AnchorSideLeft.Control = GroupBox1
|
||||
AnchorSideTop.Control = FileNameEd
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 12
|
||||
Height = 15
|
||||
Top = 41
|
||||
Width = 51
|
||||
BorderSpacing.Left = 12
|
||||
Caption = '&Filename:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object FileNameEd: TEdit
|
||||
Left = 64
|
||||
Height = 22
|
||||
Top = 48
|
||||
Width = 185
|
||||
AnchorSideLeft.Control = Label5
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = GenerateCodeSb
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = BrowseBt
|
||||
Left = 71
|
||||
Height = 23
|
||||
Top = 37
|
||||
Width = 210
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 10
|
||||
BorderSpacing.Right = 4
|
||||
BorderSpacing.Bottom = 10
|
||||
OnChange = FileNameEdChange
|
||||
TabOrder = 1
|
||||
end
|
||||
object BrowseBt: TButton
|
||||
Left = 253
|
||||
Height = 25
|
||||
Hint = 'Browse for network access file'
|
||||
Top = 46
|
||||
Width = 59
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '&Browse...'
|
||||
OnClick = BrowseBtClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object AccessCodeEd: TEdit
|
||||
Left = 64
|
||||
Height = 22
|
||||
Top = 20
|
||||
Width = 221
|
||||
AnchorSideLeft.Control = FileNameEd
|
||||
AnchorSideTop.Control = GroupBox1
|
||||
AnchorSideRight.Control = GenerateCodeSb
|
||||
Left = 71
|
||||
Height = 23
|
||||
Top = 4
|
||||
Width = 210
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Right = 4
|
||||
OnChange = AccessCodeEdChange
|
||||
TabOrder = 0
|
||||
end
|
||||
object BrowseBt: TSpeedButton
|
||||
AnchorSideLeft.Control = FileNameEd
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = FileNameEd
|
||||
AnchorSideRight.Control = GroupBox1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = FileNameEd
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 285
|
||||
Height = 23
|
||||
Hint = 'Browse for network access file'
|
||||
Top = 37
|
||||
Width = 23
|
||||
Anchors = [akTop, akRight, akBottom]
|
||||
BorderSpacing.Right = 12
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '...'
|
||||
OnClick = BrowseBtClick
|
||||
end
|
||||
end
|
||||
object UpdateBt: TButton
|
||||
Left = 10
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = GroupBox2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 25
|
||||
Hint = 'Update the selected NAF using the specified code'
|
||||
Top = 200
|
||||
Top = 182
|
||||
Width = 75
|
||||
BorderSpacing.Left = 12
|
||||
BorderSpacing.Top = 12
|
||||
BorderSpacing.Bottom = 12
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '&Update'
|
||||
Enabled = False
|
||||
@ -106,11 +158,17 @@ object NafFrm: TNafFrm
|
||||
TabOrder = 2
|
||||
end
|
||||
object CreateBt: TButton
|
||||
Left = 90
|
||||
AnchorSideLeft.Control = UpdateBt
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = GroupBox2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 95
|
||||
Height = 25
|
||||
Hint = 'Create teh NAF using the specified code'
|
||||
Top = 200
|
||||
Top = 182
|
||||
Width = 75
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 12
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '&Create'
|
||||
Enabled = False
|
||||
@ -118,11 +176,17 @@ object NafFrm: TNafFrm
|
||||
TabOrder = 3
|
||||
end
|
||||
object ResetBt: TButton
|
||||
Left = 170
|
||||
AnchorSideLeft.Control = CreateBt
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = GroupBox2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 178
|
||||
Height = 25
|
||||
Hint = 'Reset the specified NAF, removing invalid slots'
|
||||
Top = 200
|
||||
Top = 182
|
||||
Width = 75
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 12
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '&Reset'
|
||||
Enabled = False
|
||||
@ -130,73 +194,128 @@ object NafFrm: TNafFrm
|
||||
TabOrder = 4
|
||||
end
|
||||
object GroupBox2: TGroupBox
|
||||
Left = 8
|
||||
Height = 72
|
||||
Top = 112
|
||||
Width = 320
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = GroupBox1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = DeleteBt
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 56
|
||||
Top = 114
|
||||
Width = 324
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 12
|
||||
Caption = 'Access Slots'
|
||||
ClientHeight = 36
|
||||
ClientWidth = 320
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 8
|
||||
Height = 18
|
||||
Top = 20
|
||||
Width = 33
|
||||
AnchorSideLeft.Control = GroupBox2
|
||||
AnchorSideTop.Control = GroupBox2
|
||||
Left = 24
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 28
|
||||
BorderSpacing.Left = 24
|
||||
BorderSpacing.Top = 8
|
||||
Caption = 'Total:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 96
|
||||
Height = 18
|
||||
Top = 20
|
||||
Width = 46
|
||||
AnchorSideTop.Control = GroupBox2
|
||||
AnchorSideRight.Control = Bevel1
|
||||
Left = 115
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 41
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Top = 8
|
||||
Caption = 'Locked:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 196
|
||||
Height = 18
|
||||
Top = 20
|
||||
Width = 42
|
||||
AnchorSideTop.Control = GroupBox2
|
||||
AnchorSideRight.Control = InvalidSlotsLb
|
||||
Left = 244
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 38
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'Invalid:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object TotalSlotsLb: TLabel
|
||||
Left = 44
|
||||
Height = 18
|
||||
Top = 20
|
||||
AnchorSideLeft.Control = Label1
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = GroupBox2
|
||||
Left = 60
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 6
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 8
|
||||
Caption = '0'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object LockedSlotsLb: TLabel
|
||||
Left = 148
|
||||
Height = 18
|
||||
Top = 20
|
||||
AnchorSideLeft.Control = Bevel1
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = GroupBox2
|
||||
Left = 164
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 6
|
||||
BorderSpacing.Top = 8
|
||||
Caption = '0'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object InvalidSlotsLb: TLabel
|
||||
Left = 240
|
||||
Height = 18
|
||||
Top = 20
|
||||
AnchorSideTop.Control = GroupBox2
|
||||
AnchorSideRight.Control = GroupBox2
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 290
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 6
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 24
|
||||
Caption = '0'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Bevel1: TBevel
|
||||
AnchorSideLeft.Control = GroupBox2
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
Left = 156
|
||||
Height = 36
|
||||
Top = 0
|
||||
Width = 8
|
||||
Shape = bsSpacer
|
||||
end
|
||||
end
|
||||
object DeleteBt: TButton
|
||||
Left = 250
|
||||
AnchorSideLeft.Control = ResetBt
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = GroupBox2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 261
|
||||
Height = 25
|
||||
Hint = 'Delete teh selected NAF'
|
||||
Top = 200
|
||||
Top = 182
|
||||
Width = 75
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 12
|
||||
BorderSpacing.Right = 12
|
||||
BorderSpacing.Bottom = 12
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '&Delete'
|
||||
Enabled = False
|
||||
@ -209,11 +328,11 @@ object NafFrm: TNafFrm
|
||||
Filter = 'Network Access Files (*.naf)|*.naf|All Files (*.*)|*.*'
|
||||
FilterIndex = 0
|
||||
Options = []
|
||||
left = 160
|
||||
top = 72
|
||||
Left = 160
|
||||
Top = 48
|
||||
end
|
||||
object OgMakeCodes1: TOgMakeCodes
|
||||
left = 136
|
||||
top = 288
|
||||
Left = 136
|
||||
Top = 288
|
||||
end
|
||||
end
|
||||
|
||||
Reference in New Issue
Block a user