You've already forked lazarus-ccr
jvcllaz: Add demo for TJvPanel.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7003 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
81
components/jvcllaz/examples/JvPanel/JvPanelDemo.lpi
Normal file
81
components/jvcllaz/examples/JvPanel/JvPanelDemo.lpi
Normal file
@ -0,0 +1,81 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="12"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<SessionStorage Value="InProjectDir"/>
|
||||||
|
<Title Value="JvPanelDemo"/>
|
||||||
|
<Scaled Value="True"/>
|
||||||
|
<ResourceType Value="res"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<XPManifest>
|
||||||
|
<DpiAware Value="True"/>
|
||||||
|
</XPManifest>
|
||||||
|
<Icon Value="0"/>
|
||||||
|
</General>
|
||||||
|
<BuildModes>
|
||||||
|
<Item Name="Default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<UseFileFilters Value="True"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<FormatVersion Value="2"/>
|
||||||
|
<Modes Count="0"/>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="2">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="JvStdCtrlsLazR"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item2>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units>
|
||||||
|
<Unit>
|
||||||
|
<Filename Value="JvPanelDemo.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
</Unit>
|
||||||
|
<Unit>
|
||||||
|
<Filename Value="main.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="MainForm"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
</Unit>
|
||||||
|
</Units>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvPanelDemo"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="3">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
22
components/jvcllaz/examples/JvPanel/JvPanelDemo.lpr
Normal file
22
components/jvcllaz/examples/JvPanel/JvPanelDemo.lpr
Normal file
@ -0,0 +1,22 @@
|
|||||||
|
program JvPanelDemo;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}{$ENDIF}
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms, main
|
||||||
|
{ you can add units after this };
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
RequireDerivedFormResource:=True;
|
||||||
|
Application.Scaled:=True;
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TMainForm, MainForm);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
996
components/jvcllaz/examples/JvPanel/main.lfm
Normal file
996
components/jvcllaz/examples/JvPanel/main.lfm
Normal file
@ -0,0 +1,996 @@
|
|||||||
|
object MainForm: TMainForm
|
||||||
|
Left = 435
|
||||||
|
Height = 496
|
||||||
|
Top = 239
|
||||||
|
Width = 947
|
||||||
|
AutoSize = True
|
||||||
|
Caption = 'JvPanel demo'
|
||||||
|
ClientHeight = 496
|
||||||
|
ClientWidth = 947
|
||||||
|
OnCreate = FormCreate
|
||||||
|
ShowHint = True
|
||||||
|
LCLVersion = '2.1.0.0'
|
||||||
|
object gbArrangeSettings: TGroupBox
|
||||||
|
AnchorSideLeft.Control = gbCaption
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = Owner
|
||||||
|
Left = 504
|
||||||
|
Height = 326
|
||||||
|
Top = 12
|
||||||
|
Width = 213
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
BorderSpacing.Top = 12
|
||||||
|
Caption = 'Arrange settings'
|
||||||
|
ClientHeight = 306
|
||||||
|
ClientWidth = 209
|
||||||
|
TabOrder = 0
|
||||||
|
object cbAutoArrange: TCheckBox
|
||||||
|
AnchorSideLeft.Control = gbArrangeSettings
|
||||||
|
AnchorSideTop.Control = btnAddButton
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 8
|
||||||
|
Height = 19
|
||||||
|
Top = 35
|
||||||
|
Width = 89
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
Caption = 'Auto arrange'
|
||||||
|
OnChange = cbAutoArrangeChange
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object cbWrapControls: TCheckBox
|
||||||
|
AnchorSideLeft.Control = cbAutoArrange
|
||||||
|
AnchorSideTop.Control = cbAutoArrange
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 8
|
||||||
|
Height = 19
|
||||||
|
Top = 56
|
||||||
|
Width = 94
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
Caption = 'Wrap controls'
|
||||||
|
Checked = True
|
||||||
|
OnChange = cbWrapControlsChange
|
||||||
|
State = cbChecked
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object seHorDistance: TSpinEdit
|
||||||
|
AnchorSideLeft.Control = lblHorDistance
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbHorAlignLines
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 142
|
||||||
|
Height = 23
|
||||||
|
Top = 100
|
||||||
|
Width = 50
|
||||||
|
Alignment = taRightJustify
|
||||||
|
BorderSpacing.Left = 32
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
OnChange = seHorDistanceChange
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object seVertDistance: TSpinEdit
|
||||||
|
AnchorSideLeft.Control = seHorDistance
|
||||||
|
AnchorSideTop.Control = seHorDistance
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 142
|
||||||
|
Height = 23
|
||||||
|
Top = 125
|
||||||
|
Width = 50
|
||||||
|
Alignment = taRightJustify
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
OnChange = seVertDistanceChange
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object lblHorDistance: TLabel
|
||||||
|
AnchorSideLeft.Control = cbAutoArrange
|
||||||
|
AnchorSideTop.Control = seHorDistance
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 8
|
||||||
|
Height = 15
|
||||||
|
Top = 104
|
||||||
|
Width = 102
|
||||||
|
BorderSpacing.Top = 8
|
||||||
|
Caption = 'Horizontal distance'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object lblVertDistance: TLabel
|
||||||
|
AnchorSideLeft.Control = cbAutoArrange
|
||||||
|
AnchorSideTop.Control = seVertDistance
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 8
|
||||||
|
Height = 15
|
||||||
|
Top = 129
|
||||||
|
Width = 85
|
||||||
|
Caption = 'Vertical distance'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object lblBorderLeft: TLabel
|
||||||
|
AnchorSideLeft.Control = cbAutoArrange
|
||||||
|
AnchorSideTop.Control = seBorderLeft
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 8
|
||||||
|
Height = 15
|
||||||
|
Top = 154
|
||||||
|
Width = 58
|
||||||
|
BorderSpacing.Top = 8
|
||||||
|
Caption = 'Left border'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object seBorderLeft: TSpinEdit
|
||||||
|
AnchorSideLeft.Control = seVertDistance
|
||||||
|
AnchorSideTop.Control = seVertDistance
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 142
|
||||||
|
Height = 23
|
||||||
|
Top = 150
|
||||||
|
Width = 50
|
||||||
|
Alignment = taRightJustify
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
OnChange = seBorderLeftChange
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object seBorderTop: TSpinEdit
|
||||||
|
AnchorSideLeft.Control = seVertDistance
|
||||||
|
AnchorSideTop.Control = seBorderLeft
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 142
|
||||||
|
Height = 23
|
||||||
|
Top = 175
|
||||||
|
Width = 50
|
||||||
|
Alignment = taRightJustify
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
BorderSpacing.Right = 8
|
||||||
|
OnChange = seBorderTopChange
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object lblBorderTop: TLabel
|
||||||
|
AnchorSideLeft.Control = cbAutoArrange
|
||||||
|
AnchorSideTop.Control = seBorderTop
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 8
|
||||||
|
Height = 15
|
||||||
|
Top = 179
|
||||||
|
Width = 58
|
||||||
|
BorderSpacing.Top = 8
|
||||||
|
Caption = 'Top border'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object btnAddButton: TButton
|
||||||
|
AnchorSideLeft.Control = gbArrangeSettings
|
||||||
|
AnchorSideTop.Control = gbArrangeSettings
|
||||||
|
Left = 8
|
||||||
|
Height = 25
|
||||||
|
Top = 4
|
||||||
|
Width = 87
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderSpacing.Bottom = 6
|
||||||
|
Caption = 'Add button'
|
||||||
|
OnClick = btnAddButtonClick
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object btnClear: TButton
|
||||||
|
AnchorSideLeft.Control = btnAddButton
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = btnAddButton
|
||||||
|
Left = 103
|
||||||
|
Height = 25
|
||||||
|
Top = 4
|
||||||
|
Width = 53
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
Caption = 'Clear'
|
||||||
|
OnClick = btnClearClick
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object cbHorAlignLines: TCheckBox
|
||||||
|
AnchorSideLeft.Control = cbWrapControls
|
||||||
|
AnchorSideTop.Control = cbWrapControls
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 8
|
||||||
|
Height = 19
|
||||||
|
Hint = 'HorizontalAlignLines aligns the control-lines. This only works if WrapControls or MaxControlsPerLine is enabled'
|
||||||
|
Top = 77
|
||||||
|
Width = 159
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
Caption = 'Horizontal alignment lines'
|
||||||
|
OnChange = cbHorAlignLinesChange
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object lblMaxCtrlsPerLine: TLabel
|
||||||
|
AnchorSideLeft.Control = cbAutoArrange
|
||||||
|
AnchorSideTop.Control = seMaxCtrlsPerLine
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 8
|
||||||
|
Height = 15
|
||||||
|
Top = 204
|
||||||
|
Width = 110
|
||||||
|
BorderSpacing.Top = 8
|
||||||
|
Caption = 'Max controls per line'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object seMaxCtrlsPerLine: TSpinEdit
|
||||||
|
AnchorSideLeft.Control = seVertDistance
|
||||||
|
AnchorSideTop.Control = seBorderTop
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 142
|
||||||
|
Height = 23
|
||||||
|
Hint = 'MaxControlsPerLine specifies the max. number of controls that fit into a line. '#13#10'The following controls are moved to the next line. A value of zero means no limit. '#13#10'WrapControls is still considered.'
|
||||||
|
Top = 200
|
||||||
|
Width = 50
|
||||||
|
Alignment = taRightJustify
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
BorderSpacing.Right = 8
|
||||||
|
OnChange = seMaxCtrlsPerLineChange
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
object lblArrangeSettingsAutoSize: TLabel
|
||||||
|
AnchorSideLeft.Control = cbAutoArrange
|
||||||
|
AnchorSideTop.Control = cmbArrangeSettingsAutoSize
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 8
|
||||||
|
Height = 15
|
||||||
|
Top = 229
|
||||||
|
Width = 48
|
||||||
|
Caption = 'Auto size'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object cmbArrangeSettingsAutoSize: TComboBox
|
||||||
|
AnchorSideLeft.Control = cmbVertAlignment
|
||||||
|
AnchorSideTop.Control = seMaxCtrlsPerLine
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = seMaxCtrlsPerLine
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 101
|
||||||
|
Height = 23
|
||||||
|
Top = 225
|
||||||
|
Width = 91
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
ItemHeight = 15
|
||||||
|
ItemIndex = 0
|
||||||
|
Items.Strings = (
|
||||||
|
'asNone'
|
||||||
|
'asWidth'
|
||||||
|
'asHeight'
|
||||||
|
'asBoth'
|
||||||
|
)
|
||||||
|
OnChange = cmbArrangeSettingsAutoSizeChange
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 10
|
||||||
|
Text = 'asNone'
|
||||||
|
end
|
||||||
|
object cmbHorAlignment: TComboBox
|
||||||
|
AnchorSideLeft.Control = cmbVertAlignment
|
||||||
|
AnchorSideTop.Control = cmbArrangeSettingsAutoSize
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = seMaxCtrlsPerLine
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 101
|
||||||
|
Height = 23
|
||||||
|
Hint = 'HorizontalAlignment aligns the arranged control-block in the panel unless AutoSize is asBoth or asWidth.'
|
||||||
|
Top = 250
|
||||||
|
Width = 91
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
ItemHeight = 15
|
||||||
|
ItemIndex = 0
|
||||||
|
Items.Strings = (
|
||||||
|
'asLeft'
|
||||||
|
'asCenter'
|
||||||
|
'asRight'
|
||||||
|
)
|
||||||
|
OnChange = cmbHorAlignmentChange
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 11
|
||||||
|
Text = 'asLeft'
|
||||||
|
end
|
||||||
|
object lblHorAlignment: TLabel
|
||||||
|
AnchorSideLeft.Control = cbAutoArrange
|
||||||
|
AnchorSideTop.Control = cmbHorAlignment
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 8
|
||||||
|
Height = 15
|
||||||
|
Top = 254
|
||||||
|
Width = 77
|
||||||
|
Caption = 'Hor alignment'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object lblVertAlignment: TLabel
|
||||||
|
AnchorSideLeft.Control = cbAutoArrange
|
||||||
|
AnchorSideTop.Control = cmbVertAlignment
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 8
|
||||||
|
Height = 15
|
||||||
|
Top = 279
|
||||||
|
Width = 77
|
||||||
|
Caption = 'Vert alignment'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object cmbVertAlignment: TComboBox
|
||||||
|
AnchorSideLeft.Control = lblVertAlignment
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cmbHorAlignment
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = seMaxCtrlsPerLine
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 101
|
||||||
|
Height = 23
|
||||||
|
Hint = 'VerticalAlignment aligns the arranged control-block in the panel '#13#10'unless AutoSize is asBoth or asHeight.'
|
||||||
|
Top = 275
|
||||||
|
Width = 91
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
BorderSpacing.Bottom = 8
|
||||||
|
ItemHeight = 15
|
||||||
|
ItemIndex = 0
|
||||||
|
Items.Strings = (
|
||||||
|
'asTop'
|
||||||
|
'asVCenter'
|
||||||
|
'asBottom'
|
||||||
|
)
|
||||||
|
OnChange = cmbVertAlignmentChange
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 12
|
||||||
|
Text = 'asTop'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object gbCaption: TGroupBox
|
||||||
|
AnchorSideLeft.Control = Panel1
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = Owner
|
||||||
|
AnchorSideRight.Control = gbArrangeSettings
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 296
|
||||||
|
Height = 126
|
||||||
|
Top = 12
|
||||||
|
Width = 192
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
BorderSpacing.Top = 12
|
||||||
|
Caption = 'Caption'
|
||||||
|
ClientHeight = 106
|
||||||
|
ClientWidth = 188
|
||||||
|
TabOrder = 1
|
||||||
|
object edCaption: TEdit
|
||||||
|
AnchorSideLeft.Control = gbCaption
|
||||||
|
AnchorSideTop.Control = gbCaption
|
||||||
|
AnchorSideRight.Control = gbCaption
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 8
|
||||||
|
Height = 23
|
||||||
|
Top = 4
|
||||||
|
Width = 172
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderSpacing.Right = 8
|
||||||
|
OnChange = edCaptionChange
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object lblAlignment: TLabel
|
||||||
|
AnchorSideLeft.Control = edCaption
|
||||||
|
AnchorSideTop.Control = cmbAlignment
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 8
|
||||||
|
Height = 15
|
||||||
|
Top = 33
|
||||||
|
Width = 56
|
||||||
|
Caption = 'Alignment'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object lblLayout: TLabel
|
||||||
|
AnchorSideLeft.Control = edCaption
|
||||||
|
AnchorSideTop.Control = cmbLayout
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 8
|
||||||
|
Height = 15
|
||||||
|
Top = 58
|
||||||
|
Width = 36
|
||||||
|
Caption = 'Layout'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object cmbAlignment: TComboBox
|
||||||
|
AnchorSideLeft.Control = lblAlignment
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = edCaption
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = edCaption
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 80
|
||||||
|
Height = 23
|
||||||
|
Top = 29
|
||||||
|
Width = 100
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
ItemHeight = 15
|
||||||
|
ItemIndex = 2
|
||||||
|
Items.Strings = (
|
||||||
|
'taLeftJustify'
|
||||||
|
'taRightJustify'
|
||||||
|
'taCenter'
|
||||||
|
)
|
||||||
|
OnChange = cmbAlignmentChange
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'taCenter'
|
||||||
|
end
|
||||||
|
object cmbLayout: TComboBox
|
||||||
|
AnchorSideLeft.Control = cmbAlignment
|
||||||
|
AnchorSideTop.Control = cmbAlignment
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = edCaption
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 80
|
||||||
|
Height = 23
|
||||||
|
Top = 54
|
||||||
|
Width = 100
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
ItemHeight = 15
|
||||||
|
ItemIndex = 1
|
||||||
|
Items.Strings = (
|
||||||
|
'tlTop'
|
||||||
|
'tlCenter'
|
||||||
|
'tlBottom'
|
||||||
|
)
|
||||||
|
OnChange = cmbLayoutChange
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'tlCenter'
|
||||||
|
end
|
||||||
|
object cbMultiLine: TCheckBox
|
||||||
|
AnchorSideLeft.Control = lblAlignment
|
||||||
|
AnchorSideTop.Control = cmbLayout
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 8
|
||||||
|
Height = 19
|
||||||
|
Top = 79
|
||||||
|
Width = 72
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
BorderSpacing.Bottom = 8
|
||||||
|
Caption = 'Multi-line'
|
||||||
|
OnChange = cbMultiLineChange
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object gbBorder: TGroupBox
|
||||||
|
AnchorSideLeft.Control = gbCaption
|
||||||
|
AnchorSideTop.Control = gbCaption
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = gbCaption
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 296
|
||||||
|
Height = 107
|
||||||
|
Top = 150
|
||||||
|
Width = 192
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Top = 12
|
||||||
|
Caption = 'Border'
|
||||||
|
ClientHeight = 87
|
||||||
|
ClientWidth = 188
|
||||||
|
TabOrder = 2
|
||||||
|
object cmbBorderStyle: TComboBox
|
||||||
|
AnchorSideLeft.Control = lblBorderStyle
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = gbBorder
|
||||||
|
AnchorSideRight.Control = gbBorder
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 80
|
||||||
|
Height = 23
|
||||||
|
Top = 4
|
||||||
|
Width = 100
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Left = 47
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderSpacing.Right = 8
|
||||||
|
ItemHeight = 15
|
||||||
|
ItemIndex = 0
|
||||||
|
Items.Strings = (
|
||||||
|
'bsNone'
|
||||||
|
'bsSingle'
|
||||||
|
)
|
||||||
|
OnChange = cmbBorderStyleChange
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'bsNone'
|
||||||
|
end
|
||||||
|
object lblBorderStyle: TLabel
|
||||||
|
AnchorSideLeft.Control = gbBorder
|
||||||
|
AnchorSideTop.Control = cmbBorderStyle
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 8
|
||||||
|
Height = 15
|
||||||
|
Top = 8
|
||||||
|
Width = 25
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
Caption = 'Style'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object seBorderWidth: TSpinEdit
|
||||||
|
AnchorSideLeft.Control = cmbBorderStyle
|
||||||
|
AnchorSideTop.Control = cmbBorderStyle
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = cmbBorderStyle
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 80
|
||||||
|
Height = 23
|
||||||
|
Top = 29
|
||||||
|
Width = 100
|
||||||
|
Alignment = taRightJustify
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
OnChange = seBorderWidthChange
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object lblBorderWidth: TLabel
|
||||||
|
AnchorSideLeft.Control = lblBorderStyle
|
||||||
|
AnchorSideTop.Control = seBorderWidth
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 8
|
||||||
|
Height = 15
|
||||||
|
Top = 33
|
||||||
|
Width = 32
|
||||||
|
BorderSpacing.Top = 8
|
||||||
|
Caption = 'Width'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object cbFlatBorder: TCheckBox
|
||||||
|
AnchorSideLeft.Control = lblBorderWidth
|
||||||
|
AnchorSideTop.Control = cbFlatBorderColor
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 8
|
||||||
|
Height = 19
|
||||||
|
Top = 57
|
||||||
|
Width = 77
|
||||||
|
BorderSpacing.Top = 6
|
||||||
|
Caption = 'Flat border'
|
||||||
|
OnChange = cbFlatBorderChange
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object cbFlatBorderColor: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbFlatBorder
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = seBorderWidth
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = seBorderWidth
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 97
|
||||||
|
Height = 25
|
||||||
|
Top = 54
|
||||||
|
Width = 83
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Left = 12
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
BorderSpacing.Bottom = 8
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'Color'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbFlatBorderColorColorChanged
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object gbMisc: TGroupBox
|
||||||
|
AnchorSideLeft.Control = gbArrangeSettings
|
||||||
|
AnchorSideTop.Control = gbArrangeSettings
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = gbArrangeSettings
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 504
|
||||||
|
Height = 51
|
||||||
|
Top = 350
|
||||||
|
Width = 213
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Top = 12
|
||||||
|
BorderSpacing.Bottom = 16
|
||||||
|
Caption = 'Misc'
|
||||||
|
ClientHeight = 31
|
||||||
|
ClientWidth = 209
|
||||||
|
TabOrder = 3
|
||||||
|
object cbMovable: TCheckBox
|
||||||
|
AnchorSideLeft.Control = gbMisc
|
||||||
|
AnchorSideTop.Control = gbMisc
|
||||||
|
Left = 16
|
||||||
|
Height = 19
|
||||||
|
Top = 4
|
||||||
|
Width = 66
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderSpacing.Bottom = 8
|
||||||
|
Caption = 'Movable'
|
||||||
|
OnChange = cbMovableChange
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object cbSizeable: TCheckBox
|
||||||
|
AnchorSideLeft.Control = cbMovable
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbMovable
|
||||||
|
Left = 98
|
||||||
|
Height = 19
|
||||||
|
Top = 4
|
||||||
|
Width = 62
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
Caption = 'Sizeable'
|
||||||
|
OnChange = cbSizeableChange
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object gbBevel: TGroupBox
|
||||||
|
AnchorSideLeft.Control = gbBorder
|
||||||
|
AnchorSideTop.Control = gbBorder
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = gbCaption
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
AnchorSideBottom.Control = gbBorder
|
||||||
|
AnchorSideBottom.Side = asrBottom
|
||||||
|
Left = 296
|
||||||
|
Height = 105
|
||||||
|
Top = 269
|
||||||
|
Width = 192
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Top = 12
|
||||||
|
Caption = 'Bevel'
|
||||||
|
ClientHeight = 85
|
||||||
|
ClientWidth = 188
|
||||||
|
TabOrder = 4
|
||||||
|
object cmbBevelInner: TComboBox
|
||||||
|
AnchorSideLeft.Control = lblBevelInner
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = gbBevel
|
||||||
|
AnchorSideRight.Control = gbBevel
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 58
|
||||||
|
Height = 23
|
||||||
|
Top = 4
|
||||||
|
Width = 122
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Left = 23
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderSpacing.Right = 8
|
||||||
|
ItemHeight = 15
|
||||||
|
ItemIndex = 0
|
||||||
|
Items.Strings = (
|
||||||
|
'bvNone'
|
||||||
|
'bvLowered'
|
||||||
|
'bvRaised'
|
||||||
|
'bvSpace'
|
||||||
|
)
|
||||||
|
OnChange = cmbBevelInnerChange
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'bvNone'
|
||||||
|
end
|
||||||
|
object lblBevelInner: TLabel
|
||||||
|
AnchorSideLeft.Control = gbBevel
|
||||||
|
AnchorSideTop.Control = cmbBevelInner
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 8
|
||||||
|
Height = 15
|
||||||
|
Top = 8
|
||||||
|
Width = 27
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
Caption = 'Inner'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object seBevelWidth: TSpinEdit
|
||||||
|
AnchorSideLeft.Control = cmbBevelInner
|
||||||
|
AnchorSideTop.Control = cmbBevelOuter
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = cmbBevelInner
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 58
|
||||||
|
Height = 23
|
||||||
|
Top = 54
|
||||||
|
Width = 122
|
||||||
|
Alignment = taRightJustify
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
BorderSpacing.Bottom = 8
|
||||||
|
OnChange = seBevelWidthChange
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object lblBevelWidth: TLabel
|
||||||
|
AnchorSideLeft.Control = lblBevelInner
|
||||||
|
AnchorSideTop.Control = seBevelWidth
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 8
|
||||||
|
Height = 15
|
||||||
|
Top = 58
|
||||||
|
Width = 32
|
||||||
|
BorderSpacing.Top = 8
|
||||||
|
Caption = 'Width'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object lblBevelOuter: TLabel
|
||||||
|
AnchorSideLeft.Control = lblBevelInner
|
||||||
|
AnchorSideTop.Control = cmbBevelOuter
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 8
|
||||||
|
Height = 15
|
||||||
|
Top = 33
|
||||||
|
Width = 30
|
||||||
|
Caption = 'Outer'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object cmbBevelOuter: TComboBox
|
||||||
|
AnchorSideLeft.Control = cmbBevelInner
|
||||||
|
AnchorSideTop.Control = cmbBevelInner
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = gbBevel
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 58
|
||||||
|
Height = 23
|
||||||
|
Top = 29
|
||||||
|
Width = 122
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
BorderSpacing.Right = 8
|
||||||
|
ItemHeight = 15
|
||||||
|
ItemIndex = 2
|
||||||
|
Items.Strings = (
|
||||||
|
'bvNone'
|
||||||
|
'bvLowered'
|
||||||
|
'bvRaised'
|
||||||
|
'bvSpace'
|
||||||
|
)
|
||||||
|
OnChange = cmbBevelInnerChange
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'bvRaised'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object gbHotTrack: TGroupBox
|
||||||
|
AnchorSideLeft.Control = gbArrangeSettings
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = gbArrangeSettings
|
||||||
|
Left = 733
|
||||||
|
Height = 365
|
||||||
|
Top = 12
|
||||||
|
Width = 200
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
BorderSpacing.Right = 16
|
||||||
|
Caption = 'Hot tracking'
|
||||||
|
ClientHeight = 345
|
||||||
|
ClientWidth = 196
|
||||||
|
Constraints.MinWidth = 200
|
||||||
|
TabOrder = 5
|
||||||
|
object cbHotTrack: TCheckBox
|
||||||
|
AnchorSideLeft.Control = gbHotTrack
|
||||||
|
AnchorSideTop.Control = gbHotTrack
|
||||||
|
Left = 8
|
||||||
|
Height = 19
|
||||||
|
Top = 4
|
||||||
|
Width = 103
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
Caption = 'HotTrack active'
|
||||||
|
OnChange = cbHotTrackChange
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object gbHotTrackOptions: TGroupBox
|
||||||
|
AnchorSideLeft.Control = cbHotTrack
|
||||||
|
AnchorSideTop.Control = CheckListBox1
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = gbHotTrack
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 8
|
||||||
|
Height = 109
|
||||||
|
Top = 228
|
||||||
|
Width = 180
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Top = 12
|
||||||
|
BorderSpacing.Right = 8
|
||||||
|
BorderSpacing.Bottom = 8
|
||||||
|
Caption = 'Hot track options'
|
||||||
|
ClientHeight = 89
|
||||||
|
ClientWidth = 176
|
||||||
|
TabOrder = 1
|
||||||
|
object cbHotTrackOptionsEnabled: TCheckBox
|
||||||
|
AnchorSideLeft.Control = gbHotTrackOptions
|
||||||
|
AnchorSideTop.Control = gbHotTrackOptions
|
||||||
|
Left = 8
|
||||||
|
Height = 19
|
||||||
|
Top = 6
|
||||||
|
Width = 62
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
BorderSpacing.Top = 6
|
||||||
|
Caption = 'Enabled'
|
||||||
|
OnChange = cbHotTrackOptionsEnabledChange
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object cbHotTrackOptionsColor: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbHotTrackOptionsEnabled
|
||||||
|
AnchorSideTop.Control = cbHotTrackOptionsEnabled
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = gbHotTrackOptions
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 8
|
||||||
|
Height = 25
|
||||||
|
Top = 29
|
||||||
|
Width = 160
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderSpacing.Right = 8
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBtnFace
|
||||||
|
Caption = 'Color'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbHotTrackOptionsColorColorChanged
|
||||||
|
end
|
||||||
|
object cbHotTrackOptionsFrameColor: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbHotTrackOptionsColor
|
||||||
|
AnchorSideTop.Control = cbHotTrackOptionsColor
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = cbHotTrackOptionsColor
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 8
|
||||||
|
Height = 25
|
||||||
|
Top = 56
|
||||||
|
Width = 160
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
BorderSpacing.Bottom = 8
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'Frame color'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbHotTrackOptionsFrameColorColorChanged
|
||||||
|
end
|
||||||
|
object cbHotTrackoptionsFrameVisible: TCheckBox
|
||||||
|
AnchorSideLeft.Control = cbHotTrackOptionsEnabled
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbHotTrackOptionsEnabled
|
||||||
|
Left = 78
|
||||||
|
Height = 19
|
||||||
|
Top = 6
|
||||||
|
Width = 89
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
Caption = 'Frame visible'
|
||||||
|
OnChange = cbHotTrackoptionsFrameVisibleChange
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object btnHotTrackFont: TButton
|
||||||
|
AnchorSideLeft.Control = cbHotTrack
|
||||||
|
AnchorSideTop.Control = cbHotTrack
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = gbHotTrack
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 8
|
||||||
|
Height = 25
|
||||||
|
Top = 27
|
||||||
|
Width = 180
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderSpacing.Right = 8
|
||||||
|
Caption = 'Hot track font'
|
||||||
|
OnClick = btnHotTrackFontClick
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object CheckListBox1: TCheckListBox
|
||||||
|
AnchorSideLeft.Control = btnHotTrackFont
|
||||||
|
AnchorSideTop.Control = btnHotTrackFont
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = btnHotTrackFont
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 8
|
||||||
|
Height = 160
|
||||||
|
Hint = 'Defines how HotTrackFont follows changes in the panel''s normal Font'
|
||||||
|
Top = 56
|
||||||
|
Width = 180
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
Items.Strings = (
|
||||||
|
'hoFollowFont'
|
||||||
|
'hoPreserveCharSet'
|
||||||
|
'hoPreserveColor'
|
||||||
|
'hoPreserveHeight'
|
||||||
|
'hoPreserveName'
|
||||||
|
'hoPreservePitch'
|
||||||
|
'hoPreserveStyle'
|
||||||
|
'hoPreserveOrientation'
|
||||||
|
'hoPreserveQuality'
|
||||||
|
)
|
||||||
|
ItemHeight = 17
|
||||||
|
TabOrder = 3
|
||||||
|
Data = {
|
||||||
|
09000000000000000000000000
|
||||||
|
}
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Height = 496
|
||||||
|
Top = 0
|
||||||
|
Width = 280
|
||||||
|
Align = alLeft
|
||||||
|
BevelInner = bvLowered
|
||||||
|
BevelOuter = bvNone
|
||||||
|
BorderWidth = 4
|
||||||
|
ClientHeight = 496
|
||||||
|
ClientWidth = 280
|
||||||
|
ParentColor = False
|
||||||
|
TabOrder = 6
|
||||||
|
object JvPanel1: TJvPanel
|
||||||
|
Left = 56
|
||||||
|
Height = 160
|
||||||
|
Hint = 'This is TJvPanel.'
|
||||||
|
Top = 31
|
||||||
|
Width = 160
|
||||||
|
Caption = 'TJvPanel in action!'
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object btnFont: TButton
|
||||||
|
AnchorSideLeft.Control = cbColor
|
||||||
|
AnchorSideTop.Control = cbColor
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 296
|
||||||
|
Height = 25
|
||||||
|
Top = 415
|
||||||
|
Width = 50
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderSpacing.Bottom = 16
|
||||||
|
Caption = 'Font'
|
||||||
|
OnClick = btnFontClick
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object cbColor: TColorButton
|
||||||
|
AnchorSideLeft.Control = gbBevel
|
||||||
|
AnchorSideTop.Control = gbBevel
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 296
|
||||||
|
Height = 25
|
||||||
|
Top = 386
|
||||||
|
Width = 67
|
||||||
|
BorderSpacing.Top = 12
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'Color'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorColorChanged
|
||||||
|
end
|
||||||
|
object cbHintColor: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbColor
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbColor
|
||||||
|
Left = 367
|
||||||
|
Height = 25
|
||||||
|
Top = 386
|
||||||
|
Width = 91
|
||||||
|
BorderSpacing.Left = 4
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'Hint color'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbHintColorColorChanged
|
||||||
|
end
|
||||||
|
object FontDialog: TFontDialog
|
||||||
|
MinFontSize = 0
|
||||||
|
MaxFontSize = 0
|
||||||
|
left = 880
|
||||||
|
top = 8
|
||||||
|
end
|
||||||
|
end
|
325
components/jvcllaz/examples/JvPanel/main.pas
Normal file
325
components/jvcllaz/examples/JvPanel/main.pas
Normal file
@ -0,0 +1,325 @@
|
|||||||
|
unit main;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Spin,
|
||||||
|
CheckLst, ExtCtrls, JvPanel;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TMainForm }
|
||||||
|
|
||||||
|
TMainForm = class(TForm)
|
||||||
|
btnAddButton: TButton;
|
||||||
|
btnClear: TButton;
|
||||||
|
btnHotTrackFont: TButton;
|
||||||
|
btnFont: TButton;
|
||||||
|
cbAutoArrange: TCheckBox;
|
||||||
|
cbSizeable: TCheckBox;
|
||||||
|
cbWrapControls: TCheckBox;
|
||||||
|
cbFlatBorder: TCheckBox;
|
||||||
|
cbMovable: TCheckBox;
|
||||||
|
cbHorAlignLines: TCheckBox;
|
||||||
|
cbHotTrack: TCheckBox;
|
||||||
|
cbHotTrackOptionsEnabled: TCheckBox;
|
||||||
|
cbHotTrackoptionsFrameVisible: TCheckBox;
|
||||||
|
cbMultiLine: TCheckBox;
|
||||||
|
CheckListBox1: TCheckListBox;
|
||||||
|
cmbAlignment: TComboBox;
|
||||||
|
cmbArrangeSettingsAutoSize: TComboBox;
|
||||||
|
cmbHorAlignment: TComboBox;
|
||||||
|
cmbBevelOuter: TComboBox;
|
||||||
|
cmbBorderStyle: TComboBox;
|
||||||
|
cmbBevelInner: TComboBox;
|
||||||
|
cmbVertAlignment: TComboBox;
|
||||||
|
cmbLayout: TComboBox;
|
||||||
|
cbFlatBorderColor: TColorButton;
|
||||||
|
cbHotTrackOptionsColor: TColorButton;
|
||||||
|
cbHotTrackOptionsFrameColor: TColorButton;
|
||||||
|
cbColor: TColorButton;
|
||||||
|
cbHintColor: TColorButton;
|
||||||
|
edCaption: TEdit;
|
||||||
|
FontDialog: TFontDialog;
|
||||||
|
gbArrangeSettings: TGroupBox;
|
||||||
|
gbBevel: TGroupBox;
|
||||||
|
gbCaption: TGroupBox;
|
||||||
|
gbBorder: TGroupBox;
|
||||||
|
gbMisc: TGroupBox;
|
||||||
|
gbHotTrack: TGroupBox;
|
||||||
|
gbHotTrackOptions: TGroupBox;
|
||||||
|
JvPanel1: TJvPanel;
|
||||||
|
lblArrangeSettingsAutoSize: TLabel;
|
||||||
|
lblHorAlignment: TLabel;
|
||||||
|
lblBevelOuter: TLabel;
|
||||||
|
lblBorderStyle: TLabel;
|
||||||
|
lblBevelInner: TLabel;
|
||||||
|
lblVertAlignment: TLabel;
|
||||||
|
lblMaxCtrlsPerLine: TLabel;
|
||||||
|
lblBorderWidth: TLabel;
|
||||||
|
lblBevelWidth: TLabel;
|
||||||
|
lblLayout: TLabel;
|
||||||
|
lblAlignment: TLabel;
|
||||||
|
lblBorderLeft: TLabel;
|
||||||
|
lblBorderTop: TLabel;
|
||||||
|
lblVertDistance: TLabel;
|
||||||
|
lblHorDistance: TLabel;
|
||||||
|
Panel1: TPanel;
|
||||||
|
seBorderTop: TSpinEdit;
|
||||||
|
seBevelWidth: TSpinEdit;
|
||||||
|
seMaxCtrlsPerLine: TSpinEdit;
|
||||||
|
seHorDistance: TSpinEdit;
|
||||||
|
seBorderLeft: TSpinEdit;
|
||||||
|
seBorderWidth: TSpinEdit;
|
||||||
|
seVertDistance: TSpinEdit;
|
||||||
|
procedure btnAddButtonClick(Sender: TObject);
|
||||||
|
procedure btnClearClick(Sender: TObject);
|
||||||
|
procedure btnFontClick(Sender: TObject);
|
||||||
|
procedure btnHotTrackFontClick(Sender: TObject);
|
||||||
|
procedure cbAutoArrangeChange(Sender: TObject);
|
||||||
|
procedure cbFlatBorderChange(Sender: TObject);
|
||||||
|
procedure cbFlatBorderColorColorChanged(Sender: TObject);
|
||||||
|
procedure cbHintColorColorChanged(Sender: TObject);
|
||||||
|
procedure cbHorAlignLinesChange(Sender: TObject);
|
||||||
|
procedure cbHotTrackChange(Sender: TObject);
|
||||||
|
procedure cbHotTrackOptionsEnabledChange(Sender: TObject);
|
||||||
|
procedure cbMovableChange(Sender: TObject);
|
||||||
|
procedure cbMultiLineChange(Sender: TObject);
|
||||||
|
procedure cbSizeableChange(Sender: TObject);
|
||||||
|
procedure cbWrapControlsChange(Sender: TObject);
|
||||||
|
procedure cbHotTrackoptionsFrameVisibleChange(Sender: TObject);
|
||||||
|
procedure cmbArrangeSettingsAutoSizeChange(Sender: TObject);
|
||||||
|
procedure cmbBevelInnerChange(Sender: TObject);
|
||||||
|
procedure cmbBorderStyleChange(Sender: TObject);
|
||||||
|
procedure cmbHorAlignmentChange(Sender: TObject);
|
||||||
|
procedure cmbLayoutChange(Sender: TObject);
|
||||||
|
procedure cmbAlignmentChange(Sender: TObject);
|
||||||
|
procedure cmbVertAlignmentChange(Sender: TObject);
|
||||||
|
procedure cbHotTrackOptionsColorColorChanged(Sender: TObject);
|
||||||
|
procedure cbHotTrackOptionsFrameColorColorChanged(Sender: TObject);
|
||||||
|
procedure cbColorColorChanged(Sender: TObject);
|
||||||
|
procedure edCaptionChange(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure seBevelWidthChange(Sender: TObject);
|
||||||
|
procedure seBorderLeftChange(Sender: TObject);
|
||||||
|
procedure seBorderTopChange(Sender: TObject);
|
||||||
|
procedure seBorderWidthChange(Sender: TObject);
|
||||||
|
procedure seHorDistanceChange(Sender: TObject);
|
||||||
|
procedure seMaxCtrlsPerLineChange(Sender: TObject);
|
||||||
|
procedure seVertDistanceChange(Sender: TObject);
|
||||||
|
private
|
||||||
|
|
||||||
|
public
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
MainForm: TMainForm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
{ TMainForm }
|
||||||
|
|
||||||
|
procedure TMainForm.btnAddButtonClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
with TButton.Create(self) do begin
|
||||||
|
Parent := JvPanel1;
|
||||||
|
Left := Random(JvPanel1.Width - Width);
|
||||||
|
Top := Random(JvPanel1.Height - Height);
|
||||||
|
Caption := 'Button' + IntToStr(JvPanel1.ControlCount);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.btnClearClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
while JvPanel1.ControlCount > 0 do
|
||||||
|
JvPanel1.Controls[0].Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.btnFontClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FontDialog.Font := JvPanel1.Font;
|
||||||
|
if FontDialog.Execute then begin
|
||||||
|
JvPanel1.Font := FontDialog.Font;
|
||||||
|
btnFont.Font.Assign(FontDialog.Font);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.btnHotTrackFontClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FontDialog.Font := JvPanel1.HotTrackFont;
|
||||||
|
if FontDialog.Execute then begin
|
||||||
|
JvPanel1.HotTrackfont := FontDialog.Font;
|
||||||
|
btnHotTrackFont.Font.Assign(FontDialog.Font);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cbAutoArrangeChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.ArrangeSettings.AutoArrange := cbAutoArrange.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cbFlatBorderChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.FlatBorder := cbFlatBorder.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cbFlatBorderColorColorChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.FlatBorderColor := cbFlatBorderColor.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cbHintColorColorChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.HintColor := cbHintColor.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cbHorAlignLinesChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.ArrangeSettings.HorizontalAlignLines := CbHorAlignLines.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cbHotTrackChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.HotTrack := cbhotTrack.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cbHotTrackOptionsEnabledChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.HotTrackOptions.Enabled := cbHotTrackOptionsEnabled.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cbMovableChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.Movable := cbMovable.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cbMultiLineChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.MultiLine := cbMultiLine.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cbSizeableChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.Sizeable := cbSizeable.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cbWrapControlsChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.ArrangeSettings.WrapControls := cbWrapControls.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cbHotTrackoptionsFrameVisibleChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.HotTrackOptions.FrameVisible := cbHotTrackoptionsFrameVisible.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cmbAlignmentChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.Alignment := TAlignment(cmbAlignment.ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cmbArrangeSettingsAutoSizeChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.ArrangeSettings.AutoSize := TJvAutoSizePanel(cmbArrangeSettingsAutoSize.ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cmbBevelInnerChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if Sender = cmbBevelInner then
|
||||||
|
JvPanel1.BevelInner := TBevelCut(cmbBevelInner.ItemIndex)
|
||||||
|
else if Sender = cmbBevelOuter then
|
||||||
|
JvPanel1.BevelOuter := TBevelCut(cmbBevelOuter.ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cmbBorderStyleChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.BorderStyle := TBorderStyle(cmbBorderStyle.ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cmbHorAlignmentChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.ArrangeSettings.HorizontalAlignment := TJvArrangeSettingsHAlignment(cmbHorAlignment.ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cmbLayoutChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.Layout := TTextLayout(cmbLayout.ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cmbVertAlignmentChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.ArrangeSettings.VerticalAlignment := TJvArrangeSettingsVAlignment(cmbVertAlignment.ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cbColorColorChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.Color := cbColor.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cbHotTrackOptionsColorColorChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.HotTrackOptions.Color := cbHotTrackOptionsColor.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cbHotTrackOptionsFrameColorColorChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.HotTrackOptions.FrameColor := cbHotTrackOptionsFrameColor.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.edCaptionChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.Caption := edCaption.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
cbFlatBorderColor.ButtonColor := JvPanel1.FlatBorderColor;
|
||||||
|
cbHotTrackOptionsColor.ButtonColor := JvPanel1.HotTrackOptions.Color;
|
||||||
|
cbHotTrackOptionsFrameColor.ButtonColor := JvPanel1.HotTrackOptions.FrameColor;
|
||||||
|
cbColor.ButtonColor := JvPanel1.Color;
|
||||||
|
cbHintColor.ButtonColor := JvPanel1.HintColor;
|
||||||
|
edCaption.Text := JvPanel1.Caption;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.seBevelWidthChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.BevelWidth := seBevelWidth.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.seBorderLeftChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.ArrangeSettings.BorderLeft := seBorderLeft.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.seBorderTopChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.ArrangeSettings.BorderTop := seBorderTop.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.seBorderWidthChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.BorderWidth := seBorderWidth.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.seHorDistanceChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.ArrangeSettings.DistanceHorizontal := seHorDistance.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.seMaxCtrlsPerLineChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.ArrangeSettings.MaxControlsPerLine := seMaxCtrlsPerLine.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.seVertDistanceChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvPanel1.ArrangeSettings.DistanceVertical := seVertDistance.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
Reference in New Issue
Block a user