baf28e29fb
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9517 8e941d3f-bd1b-0410-a28a-d453659cc2b4
164 lines
3.7 KiB
Plaintext
164 lines
3.7 KiB
Plaintext
object Form1: TForm1
|
|
Left = 314
|
|
Height = 487
|
|
Top = 130
|
|
Width = 977
|
|
Caption = 'Legal Notice Plugin Demo'
|
|
ClientHeight = 487
|
|
ClientWidth = 977
|
|
LCLVersion = '4.99.0.0'
|
|
OnCreate = FormCreate
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Height = 70
|
|
Top = 417
|
|
Width = 977
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
ClientHeight = 70
|
|
ClientWidth = 977
|
|
TabOrder = 0
|
|
object Edit1: TEdit
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 96
|
|
Height = 23
|
|
Top = 6
|
|
Width = 640
|
|
Anchors = [akTop, akLeft, akRight]
|
|
TabOrder = 0
|
|
Text = 'Edit1'
|
|
OnChange = Edit1Change
|
|
end
|
|
object Label1: TLabel
|
|
AnchorSideTop.Control = Edit1
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 13
|
|
Height = 15
|
|
Top = 10
|
|
Width = 67
|
|
Caption = 'Legal notice:'
|
|
end
|
|
object Button1: TButton
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 868
|
|
Height = 25
|
|
Top = 6
|
|
Width = 100
|
|
Anchors = [akTop, akRight]
|
|
AutoSize = True
|
|
Caption = 'Save to image'
|
|
TabOrder = 1
|
|
OnClick = Button1Click
|
|
end
|
|
object ComboBox1: TComboBox
|
|
AnchorSideTop.Control = Edit1
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 744
|
|
Height = 23
|
|
Top = 6
|
|
Width = 116
|
|
Anchors = [akTop, akRight]
|
|
ItemHeight = 15
|
|
ItemIndex = 3
|
|
Items.Strings = (
|
|
'top/left'
|
|
'top/right'
|
|
'bottom/left'
|
|
'bottom/right'
|
|
)
|
|
Style = csDropDownList
|
|
TabOrder = 2
|
|
Text = 'bottom/right'
|
|
OnChange = ComboBox1Change
|
|
end
|
|
object CheckBox1: TCheckBox
|
|
Left = 96
|
|
Height = 19
|
|
Top = 36
|
|
Width = 110
|
|
Caption = 'Show map center'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 3
|
|
OnChange = CheckBox1Change
|
|
end
|
|
object CheckBox2: TCheckBox
|
|
Left = 224
|
|
Height = 19
|
|
Top = 36
|
|
Width = 111
|
|
Caption = 'Show legal notice'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 4
|
|
OnChange = CheckBox2Change
|
|
end
|
|
object Label2: TLabel
|
|
AnchorSideTop.Control = CheckBox1
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 387
|
|
Height = 15
|
|
Top = 38
|
|
Width = 124
|
|
Caption = 'Legal note opacity: (%):'
|
|
end
|
|
object SpinEdit1: TSpinEdit
|
|
AnchorSideLeft.Control = Label2
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Label2
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 519
|
|
Height = 23
|
|
Top = 34
|
|
Width = 69
|
|
Alignment = taRightJustify
|
|
BorderSpacing.Left = 8
|
|
Increment = 5
|
|
MaxValue = 100
|
|
TabOrder = 5
|
|
Value = 50
|
|
OnChange = FloatSpinEdit1Change
|
|
end
|
|
end
|
|
object Bevel1: TBevel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = Owner
|
|
AnchorSideBottom.Control = Panel1
|
|
Left = 486
|
|
Height = 417
|
|
Top = 0
|
|
Width = 4
|
|
Anchors = [akTop, akLeft, akBottom]
|
|
Shape = bsSpacer
|
|
end
|
|
object Panel2: TPanel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
AnchorSideRight.Control = Bevel1
|
|
AnchorSideBottom.Control = Panel1
|
|
Left = 0
|
|
Height = 417
|
|
Top = 0
|
|
Width = 486
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
end
|
|
object Panel3: TPanel
|
|
AnchorSideLeft.Control = Bevel1
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Owner
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = Panel1
|
|
Left = 490
|
|
Height = 417
|
|
Top = 0
|
|
Width = 487
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BevelOuter = bvNone
|
|
TabOrder = 2
|
|
end
|
|
end
|