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:
wp_xxyyzz
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