You've already forked lazarus-ccr
jvcllaz: Fix ChangeBounds loop error of TJvXPCustomToolButton. Minor improvements of JvXPCtrls demo.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6331 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -2,23 +2,23 @@ object frmMain: TfrmMain
|
||||
Left = 291
|
||||
Height = 191
|
||||
Top = 290
|
||||
Width = 456
|
||||
Width = 486
|
||||
BorderIcons = [biSystemMenu, biMinimize]
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'frmMain'
|
||||
ClientHeight = 191
|
||||
ClientWidth = 456
|
||||
ClientWidth = 486
|
||||
Color = clBtnFace
|
||||
DefaultMonitor = dmDesktop
|
||||
Font.Color = clWindowText
|
||||
OnCreate = FormCreate
|
||||
Position = poDesktopCenter
|
||||
LCLVersion = '1.7'
|
||||
LCLVersion = '1.9.0.0'
|
||||
object cntHeader: TJvXPContainer
|
||||
Left = 0
|
||||
Height = 15
|
||||
Top = 0
|
||||
Width = 456
|
||||
Width = 486
|
||||
Caption = 'cntHeader'
|
||||
OnPaint = cntHeaderPaint
|
||||
Align = alTop
|
||||
@ -35,22 +35,34 @@ object frmMain: TfrmMain
|
||||
end
|
||||
end
|
||||
object cntNetPanel: TJvXPContainer
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = cntHeader
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideBottom.Control = chkOfficeStyle
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 161
|
||||
Top = 24
|
||||
Width = 121
|
||||
Height = 162
|
||||
Top = 23
|
||||
Width = 129
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 8
|
||||
BoundColor = 16251903
|
||||
BoundLines = [blLeft, blTop, blRight, blBottom]
|
||||
Caption = 'cntNetPanel'
|
||||
Color = 16251903
|
||||
ParentColor = False
|
||||
Spacing = 34
|
||||
OnPaint = cntNetPanelPaint
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
object lbBrowse: TLabel
|
||||
Left = 8
|
||||
AnchorSideLeft.Control = cntNetPanel
|
||||
AnchorSideTop.Control = cntNetHeader
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 9
|
||||
Height = 15
|
||||
Top = 24
|
||||
Top = 21
|
||||
Width = 42
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 3
|
||||
Caption = 'Browse'
|
||||
Font.Color = clWindowText
|
||||
Font.Style = [fsBold]
|
||||
@ -58,44 +70,71 @@ object frmMain: TfrmMain
|
||||
ParentFont = False
|
||||
end
|
||||
object shpSeperator: TShape
|
||||
Left = 8
|
||||
AnchorSideLeft.Control = cntNetPanel
|
||||
AnchorSideTop.Control = lbBrowse
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = cntNetPanel
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 9
|
||||
Height = 1
|
||||
Top = 37
|
||||
Width = 108
|
||||
Width = 111
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 1
|
||||
BorderSpacing.Right = 8
|
||||
Pen.Color = clSilver
|
||||
end
|
||||
object lbInternalPage: TLabel
|
||||
AnchorSideLeft.Control = lbConfigure
|
||||
AnchorSideTop.Control = shpSeperator
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Cursor = crHandPoint
|
||||
Left = 24
|
||||
Left = 26
|
||||
Height = 15
|
||||
Top = 40
|
||||
Top = 42
|
||||
Width = 69
|
||||
BorderSpacing.Top = 4
|
||||
Caption = 'Internal Page'
|
||||
ParentColor = False
|
||||
end
|
||||
object lbWebEditor: TLabel
|
||||
AnchorSideLeft.Control = lbConfigure
|
||||
AnchorSideTop.Control = lbInternalPage
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Cursor = crHandPoint
|
||||
Left = 24
|
||||
Left = 26
|
||||
Height = 15
|
||||
Top = 56
|
||||
Top = 59
|
||||
Width = 60
|
||||
BorderSpacing.Top = 2
|
||||
Caption = 'Web-Editor'
|
||||
ParentColor = False
|
||||
end
|
||||
object lbConfigure: TLabel
|
||||
AnchorSideLeft.Control = imgConfigure
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = imgConfigure
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Cursor = crHandPoint
|
||||
Left = 24
|
||||
Left = 26
|
||||
Height = 15
|
||||
Top = 80
|
||||
Top = 85
|
||||
Width = 62
|
||||
BorderSpacing.Left = 4
|
||||
Caption = 'Configure...'
|
||||
ParentColor = False
|
||||
end
|
||||
object imgConfigure: TImage
|
||||
AnchorSideLeft.Control = cntNetPanel
|
||||
AnchorSideTop.Control = lbWebEditor
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 5
|
||||
Height = 17
|
||||
Top = 79
|
||||
Top = 84
|
||||
Width = 17
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 10
|
||||
Picture.Data = {
|
||||
07544269746D617036030000424D360300000000000036000000280000001000
|
||||
0000100000000100180000000000000300000000000000000000000000000000
|
||||
@ -129,18 +168,21 @@ object frmMain: TfrmMain
|
||||
end
|
||||
object cntNetHeader: TJvXPContainer
|
||||
Left = 1
|
||||
Height = 15
|
||||
Height = 17
|
||||
Top = 1
|
||||
Width = 119
|
||||
Width = 127
|
||||
Alignment = taLeftJustify
|
||||
AutoSize = True
|
||||
BoundColor = clRed
|
||||
Caption = 'ToDo-List'
|
||||
Color = 14936557
|
||||
ParentColor = False
|
||||
ShowCaption = True
|
||||
Spacing = 34
|
||||
Spacing = 18
|
||||
Align = alTop
|
||||
object btnLeft: TJvXPToolButton
|
||||
Left = 0
|
||||
Height = 17
|
||||
Top = 0
|
||||
ToolType = ttArrowLeft
|
||||
Align = alLeft
|
||||
@ -148,136 +190,200 @@ object frmMain: TfrmMain
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object btnRight: TJvXPToolButton
|
||||
Left = 15
|
||||
Left = 112
|
||||
Height = 17
|
||||
Top = 0
|
||||
ToolType = ttArrowRight
|
||||
Align = alLeft
|
||||
Align = alRight
|
||||
ImageIndex = 0
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
end
|
||||
end
|
||||
object btnOK: TJvXPButton
|
||||
Left = 296
|
||||
Top = 160
|
||||
AnchorSideTop.Control = btnCancel
|
||||
AnchorSideRight.Control = btnCancel
|
||||
AnchorSideBottom.Control = btnCancel
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 329
|
||||
Top = 159
|
||||
Caption = '&OK'
|
||||
TabOrder = 2
|
||||
Anchors = [akTop, akRight, akBottom]
|
||||
BorderSpacing.Right = 8
|
||||
Default = True
|
||||
ModalResult = 1
|
||||
Anchors = [akTop, akRight]
|
||||
OnClick = btnCloseClick
|
||||
end
|
||||
object btnCancel: TJvXPButton
|
||||
Left = 376
|
||||
Top = 160
|
||||
AnchorSideRight.Control = btn4
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = chkOfficeStyle
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 410
|
||||
Top = 159
|
||||
Caption = '&Cancel'
|
||||
TabOrder = 3
|
||||
Anchors = [akTop, akRight, akBottom]
|
||||
BorderSpacing.Right = 8
|
||||
Cancel = True
|
||||
ModalResult = 2
|
||||
Anchors = [akTop, akRight]
|
||||
end
|
||||
object btn1: TJvXPButton
|
||||
Left = 136
|
||||
AnchorSideLeft.Control = cntNetPanel
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = cntNetPanel
|
||||
Left = 145
|
||||
Height = 41
|
||||
Top = 24
|
||||
Top = 23
|
||||
Width = 80
|
||||
Action = acBtn1
|
||||
TabOrder = 4
|
||||
BorderSpacing.Left = 8
|
||||
end
|
||||
object btn2: TJvXPButton
|
||||
Left = 216
|
||||
AnchorSideLeft.Control = btn1
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = btn1
|
||||
Left = 233
|
||||
Height = 41
|
||||
Top = 24
|
||||
Top = 23
|
||||
Width = 81
|
||||
Action = acBtn2
|
||||
TabOrder = 5
|
||||
BorderSpacing.Left = 8
|
||||
Layout = blGlyphRight
|
||||
end
|
||||
object btn4: TJvXPButton
|
||||
Left = 376
|
||||
AnchorSideLeft.Control = btn3
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = btn1
|
||||
Left = 410
|
||||
Height = 41
|
||||
Top = 24
|
||||
Top = 23
|
||||
Width = 81
|
||||
Action = acBtn4
|
||||
TabOrder = 6
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Right = 8
|
||||
Layout = blGlyphBottom
|
||||
end
|
||||
object btn3: TJvXPButton
|
||||
Left = 296
|
||||
AnchorSideLeft.Control = btn2
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = btn1
|
||||
Left = 322
|
||||
Height = 41
|
||||
Top = 24
|
||||
Top = 23
|
||||
Width = 80
|
||||
Action = acBtn3
|
||||
TabOrder = 7
|
||||
BorderSpacing.Left = 8
|
||||
Layout = blGlyphTop
|
||||
end
|
||||
object chkToogleEnable: TJvXPCheckbox
|
||||
Left = 136
|
||||
AnchorSideLeft.Control = btn1
|
||||
AnchorSideTop.Control = btn1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 145
|
||||
Height = 17
|
||||
Top = 72
|
||||
Width = 313
|
||||
Top = 80
|
||||
Width = 334
|
||||
Caption = '&Toogle Enable-Mode'
|
||||
TabOrder = 8
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 16
|
||||
StyleManager = styleOffice
|
||||
OnClick = chkToogleEnableClick
|
||||
end
|
||||
object chkOfficeStyle: TJvXPCheckbox
|
||||
Left = 136
|
||||
AnchorSideLeft.Control = btn1
|
||||
AnchorSideTop.Control = chk2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 145
|
||||
Height = 17
|
||||
Top = 162
|
||||
Top = 163
|
||||
Width = 121
|
||||
Caption = 'Office Style'
|
||||
TabOrder = 9
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
BorderSpacing.Top = 16
|
||||
BorderSpacing.Bottom = 8
|
||||
StyleManager = styleOffice
|
||||
OnClick = chkOfficeStyleClick
|
||||
end
|
||||
object chk1: TJvXPCheckbox
|
||||
Left = 136
|
||||
AnchorSideLeft.Control = btn1
|
||||
AnchorSideTop.Control = chkToogleEnable
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 145
|
||||
Height = 17
|
||||
Top = 104
|
||||
Width = 121
|
||||
Top = 105
|
||||
Width = 153
|
||||
Caption = 'Additional Check1'
|
||||
TabOrder = 10
|
||||
BorderSpacing.Top = 8
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object chk2: TJvXPCheckbox
|
||||
Left = 136
|
||||
AnchorSideLeft.Control = btn1
|
||||
AnchorSideTop.Control = chk1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 145
|
||||
Height = 17
|
||||
Top = 128
|
||||
Width = 121
|
||||
Top = 130
|
||||
Width = 153
|
||||
Caption = 'Additional Check2'
|
||||
TabOrder = 11
|
||||
BorderSpacing.Top = 8
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object dxToolButton1: TJvXPToolButton
|
||||
Left = 300
|
||||
Top = 129
|
||||
AnchorSideLeft.Control = btnOK
|
||||
AnchorSideTop.Control = chk2
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 329
|
||||
Top = 131
|
||||
ImageIndex = 0
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object dxToolButton2: TJvXPToolButton
|
||||
Left = 316
|
||||
Top = 129
|
||||
AnchorSideLeft.Control = dxToolButton1
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = dxToolButton1
|
||||
Left = 344
|
||||
Top = 131
|
||||
ToolType = ttMaximize
|
||||
ImageIndex = 0
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object dxToolButton3: TJvXPToolButton
|
||||
Left = 332
|
||||
Top = 129
|
||||
AnchorSideLeft.Control = dxToolButton2
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = dxToolButton1
|
||||
Left = 359
|
||||
Top = 131
|
||||
ToolType = ttMinimize
|
||||
ImageIndex = 0
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object dxToolButton4: TJvXPToolButton
|
||||
Left = 364
|
||||
Top = 129
|
||||
AnchorSideLeft.Control = dxToolButton5
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = dxToolButton1
|
||||
Left = 389
|
||||
Top = 131
|
||||
ToolType = ttPopup
|
||||
ImageIndex = 0
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object dxToolButton5: TJvXPToolButton
|
||||
Left = 348
|
||||
Top = 130
|
||||
AnchorSideLeft.Control = dxToolButton3
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = dxToolButton1
|
||||
Left = 374
|
||||
Top = 131
|
||||
ToolType = ttRestore
|
||||
ImageIndex = 0
|
||||
StyleManager = styleOffice
|
||||
|
||||
Reference in New Issue
Block a user