You've already forked lazarus-ccr
jvcllaz: Add "SimpleDemo" of XP controls
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5412 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
455
components/jvcllaz/examples/XPCtrls/MainFrm.lfm
Normal file
455
components/jvcllaz/examples/XPCtrls/MainFrm.lfm
Normal file
@ -0,0 +1,455 @@
|
||||
object frmMain: TfrmMain
|
||||
Left = 291
|
||||
Height = 191
|
||||
Top = 290
|
||||
Width = 456
|
||||
BorderIcons = [biSystemMenu, biMinimize]
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'frmMain'
|
||||
ClientHeight = 191
|
||||
ClientWidth = 456
|
||||
Color = clBtnFace
|
||||
DefaultMonitor = dmDesktop
|
||||
Font.Color = clWindowText
|
||||
OnCreate = FormCreate
|
||||
Position = poDesktopCenter
|
||||
LCLVersion = '1.7'
|
||||
object cntHeader: TJvXPContainer
|
||||
Left = 0
|
||||
Height = 15
|
||||
Top = 0
|
||||
Width = 456
|
||||
Caption = 'cntHeader'
|
||||
OnPaint = cntHeaderPaint
|
||||
Align = alTop
|
||||
OnMouseDown = cntHeaderMouseDown
|
||||
object btnClose: TJvXPToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
Align = alLeft
|
||||
ImageIndex = 0
|
||||
OnClick = btnCloseClick
|
||||
end
|
||||
end
|
||||
object cntNetPanel: TJvXPContainer
|
||||
Left = 8
|
||||
Height = 161
|
||||
Top = 24
|
||||
Width = 121
|
||||
BoundColor = 16251903
|
||||
BoundLines = [blLeft, blTop, blRight, blBottom]
|
||||
Caption = 'cntNetPanel'
|
||||
Color = 16251903
|
||||
ParentColor = False
|
||||
OnPaint = cntNetPanelPaint
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
object lbBrowse: TLabel
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 24
|
||||
Width = 42
|
||||
Caption = 'Browse'
|
||||
Font.Color = clWindowText
|
||||
Font.Style = [fsBold]
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
end
|
||||
object shpSeperator: TShape
|
||||
Left = 8
|
||||
Height = 1
|
||||
Top = 37
|
||||
Width = 108
|
||||
Pen.Color = clSilver
|
||||
end
|
||||
object lbInternalPage: TLabel
|
||||
Cursor = crHandPoint
|
||||
Left = 24
|
||||
Height = 15
|
||||
Top = 40
|
||||
Width = 69
|
||||
Caption = 'Internal Page'
|
||||
ParentColor = False
|
||||
end
|
||||
object lbWebEditor: TLabel
|
||||
Cursor = crHandPoint
|
||||
Left = 24
|
||||
Height = 15
|
||||
Top = 56
|
||||
Width = 60
|
||||
Caption = 'Web-Editor'
|
||||
ParentColor = False
|
||||
end
|
||||
object lbConfigure: TLabel
|
||||
Cursor = crHandPoint
|
||||
Left = 24
|
||||
Height = 15
|
||||
Top = 80
|
||||
Width = 62
|
||||
Caption = 'Configure...'
|
||||
ParentColor = False
|
||||
end
|
||||
object imgConfigure: TImage
|
||||
Left = 5
|
||||
Height = 17
|
||||
Top = 79
|
||||
Width = 17
|
||||
Picture.Data = {
|
||||
07544269746D617036030000424D360300000000000036000000280000001000
|
||||
0000100000000100180000000000000300000000000000000000000000000000
|
||||
0000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
|
||||
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
|
||||
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
|
||||
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0001500001500011501021502021502
|
||||
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0001500012A
|
||||
0105D4050AE90A0FD41918E9181DD41D072A07051505C0C0C0C0C0C0C0C0C0C0
|
||||
C0C0C0C0C0C0C0C000150003D40306E9060BFF0B0DD42D053F6521E92B2DFF2D
|
||||
35E9353BD43B051505C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0012A0106E9060BFF
|
||||
0B0DD438032ACC03158E25D43B39FF3947FF474DE94D112A11C0C0C0C0C0C0C0
|
||||
C0C0C0C0C000150005D4050BFF0B0DD438053FC50315ED0000E9092A7E42E94D
|
||||
56FF5666FF6664D4640A150AC0C0C0C0C0C0C0C0C00015000AE90A10E9250855
|
||||
B21ED44925D4500315E207158750E95A66FF6678FF787EE97E0B150BC0C0C0C0
|
||||
C0C0C0C0C001150111E9111AFF1A21E9362DFF2D33E9480B2AD508159355D46A
|
||||
78FF7893FF9391E9910D150DC0C0C0C0C0C0C0C0C002150218E91823FF232DFF
|
||||
2D39FF3947FF4747D472112AD0142A8989E993E5FFE5ADE9AD0F150FC0C0C0C0
|
||||
C0C0C0C0C00215021DD41D2DFF2D39FF3947FF4756FF5666FF6664D484243F84
|
||||
A0E9ABDDFFDDADD4AD111511C0C0C0C0C0C0C0C0C0C0C0C0072A0735E93547FF
|
||||
4756FF5666FF6678FF7893FF93A0E9ABC4FFC42AE92A112A11C0C0C0C0C0C0C0
|
||||
C0C0C0C0C0C0C0C00515053BD43B4DE94D66FF6678FF7893FF93E5FFE5DDFFDD
|
||||
2AE92A00D400001500C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0051505112A
|
||||
1164D4647EE97E91E991ADE9ADADD4AD112A11001500C0C0C0C0C0C0C0C0C0C0
|
||||
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00A150A0B150B0D150D0F150F111511
|
||||
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
|
||||
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
|
||||
C0C0
|
||||
}
|
||||
Transparent = True
|
||||
end
|
||||
object cntNetHeader: TJvXPContainer
|
||||
Left = 1
|
||||
Height = 15
|
||||
Top = 1
|
||||
Width = 119
|
||||
Alignment = taLeftJustify
|
||||
Caption = 'ToDo-List'
|
||||
Color = 14936557
|
||||
ParentColor = False
|
||||
ShowCaption = True
|
||||
Spacing = 34
|
||||
Align = alTop
|
||||
object btnLeft: TJvXPToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
ToolType = ttArrowLeft
|
||||
Align = alLeft
|
||||
ImageIndex = 0
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object btnRight: TJvXPToolButton
|
||||
Left = 15
|
||||
Top = 0
|
||||
ToolType = ttArrowRight
|
||||
Align = alLeft
|
||||
ImageIndex = 0
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
end
|
||||
end
|
||||
object btnOK: TJvXPButton
|
||||
Left = 296
|
||||
Top = 160
|
||||
Caption = '&OK'
|
||||
TabOrder = 2
|
||||
Default = True
|
||||
ModalResult = 1
|
||||
Anchors = [akTop, akRight]
|
||||
OnClick = btnCloseClick
|
||||
end
|
||||
object btnCancel: TJvXPButton
|
||||
Left = 376
|
||||
Top = 160
|
||||
Caption = '&Cancel'
|
||||
TabOrder = 3
|
||||
Cancel = True
|
||||
ModalResult = 2
|
||||
Anchors = [akTop, akRight]
|
||||
end
|
||||
object btn1: TJvXPButton
|
||||
Left = 136
|
||||
Height = 41
|
||||
Top = 24
|
||||
Action = acBtn1
|
||||
Caption = '&Generate'
|
||||
TabOrder = 4
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object btn2: TJvXPButton
|
||||
Left = 216
|
||||
Height = 41
|
||||
Top = 24
|
||||
Action = acBtn2
|
||||
Caption = '&Optimize'
|
||||
TabOrder = 5
|
||||
Layout = blGlyphRight
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object btn4: TJvXPButton
|
||||
Left = 376
|
||||
Height = 41
|
||||
Top = 24
|
||||
Action = acBtn4
|
||||
Caption = 'C++ Code'
|
||||
TabOrder = 6
|
||||
Layout = blGlyphBottom
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object btn3: TJvXPButton
|
||||
Left = 296
|
||||
Height = 41
|
||||
Top = 24
|
||||
Action = acBtn3
|
||||
Caption = '&Copy Path'
|
||||
TabOrder = 7
|
||||
Layout = blGlyphTop
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object chkToogleEnable: TJvXPCheckbox
|
||||
Left = 136
|
||||
Height = 17
|
||||
Top = 72
|
||||
Width = 313
|
||||
Caption = '&Toogle Enable-Mode'
|
||||
TabOrder = 8
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
StyleManager = styleOffice
|
||||
OnClick = chkToogleEnableClick
|
||||
end
|
||||
object chkOfficeStyle: TJvXPCheckbox
|
||||
Left = 136
|
||||
Height = 17
|
||||
Top = 162
|
||||
Width = 121
|
||||
Caption = 'Office Style'
|
||||
TabOrder = 9
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
StyleManager = styleOffice
|
||||
OnClick = chkOfficeStyleClick
|
||||
end
|
||||
object chk1: TJvXPCheckbox
|
||||
Left = 136
|
||||
Height = 17
|
||||
Top = 104
|
||||
Width = 121
|
||||
Caption = 'Additional Check1'
|
||||
TabOrder = 10
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object chk2: TJvXPCheckbox
|
||||
Left = 136
|
||||
Height = 17
|
||||
Top = 128
|
||||
Width = 121
|
||||
Caption = 'Additional Check2'
|
||||
TabOrder = 11
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object dxToolButton1: TJvXPToolButton
|
||||
Left = 300
|
||||
Top = 129
|
||||
ImageIndex = 0
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object dxToolButton2: TJvXPToolButton
|
||||
Left = 316
|
||||
Top = 129
|
||||
ToolType = ttMaximize
|
||||
ImageIndex = 0
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object dxToolButton3: TJvXPToolButton
|
||||
Left = 332
|
||||
Top = 129
|
||||
ToolType = ttMinimize
|
||||
ImageIndex = 0
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object dxToolButton4: TJvXPToolButton
|
||||
Left = 364
|
||||
Top = 129
|
||||
ToolType = ttPopup
|
||||
ImageIndex = 0
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object dxToolButton5: TJvXPToolButton
|
||||
Left = 348
|
||||
Top = 130
|
||||
ToolType = ttRestore
|
||||
ImageIndex = 0
|
||||
StyleManager = styleOffice
|
||||
end
|
||||
object imlMain: TImageList
|
||||
left = 88
|
||||
top = 128
|
||||
Bitmap = {
|
||||
4C69040000001000000010000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000FF000000FF000000FF000000FF000000FF848484FF000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000FF0000
|
||||
00FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000FF000000FF8484
|
||||
84FF0000000000000000000000000000000000000000000000FF0000FFFF0000
|
||||
FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
|
||||
00FF0000000000000000000000000000000000000000000000FF0000FFFF0000
|
||||
FFFF0000FFFF0000FFFF0000FFFF000000FF000000FF0000FFFF0000FFFF0000
|
||||
00FF848484FF000000000000000000000000000000FF0000FFFF0000FFFF0000
|
||||
FFFF0000FFFF0000FFFF000000FFFFFFFFFF000000FF000000FF0000FFFF0000
|
||||
FFFF000000FF000000000000000000000000000000FF0000FFFF0000FFFF0000
|
||||
FFFF0000FFFF000000FFFFFFFFFF000000FF000000FF000000FF0000FFFF0000
|
||||
FFFF000000FF848484FF0000000000000000000000FF0000FFFF0000FFFF0000
|
||||
FFFF000000FFFFFFFFFF000000FF000000FF000000FF0000FFFF0000FFFF0000
|
||||
FFFF000000FF848484FF0000000000000000000000FF0000FFFF0000FFFF0000
|
||||
FFFF000000FF000000FF000000FF000000FF0000FFFF0000FFFF0000FFFF0000
|
||||
FFFF000000FF848484FF0000000000000000000000FF0000FFFF0000FFFF0000
|
||||
FFFF000000FF000000FF000000FF0000FFFF0000FFFF0000FFFF0000FFFF0000
|
||||
FFFF000000FF00000000000000000000000000000000000000FF0000FFFF0000
|
||||
00FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
|
||||
00FF848484FF00000000000000000000000000000000000000FF0000FFFF0000
|
||||
FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
|
||||
00FF000000000000000000000000000000000000000000000000000000FF0000
|
||||
00FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000FF000000FF8484
|
||||
84FF000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000FF000000FF000000FF000000FF000000FF848484FF000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000848484FF848484FF848484FF0000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF0000000000000000000000FFC6C6C6FFC6C6C6FFC6C6
|
||||
C6FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FFC6C6
|
||||
C6FFC6C6C6FF000000FF0000000000000000000000FFC6C6C6FFC6C6C6FFC6C6
|
||||
C6FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FFC6C6
|
||||
C6FFC6C6C6FF000000FF0000000000000000000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFC6C6C6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC6C6C6FFFFFF
|
||||
FFFFFFFFFFFF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFF00
|
||||
00FFC6C6C6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FFFFFF
|
||||
FFFFFFFFFFFF000000FF0000000000000000000000FFFFFFFFFFFF0000FFFF00
|
||||
00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF8400
|
||||
00FFFFFFFFFF000000FF0000000000000000000000FF840000FFFF0000FFFF00
|
||||
00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00
|
||||
00FF840000FF000000FF0000000000000000000000FFFFFFFFFF840000FFFF00
|
||||
00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00
|
||||
00FFFFFFFFFF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFF8400
|
||||
00FFC6C6C6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFF
|
||||
FFFFFFFFFFFF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFC6C6C6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC6C6C6FFFFFF
|
||||
FFFFFFFFFFFF000000FF0000000000000000000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF0000000000000000000000FFC6C6C6FFC6C6C6FFC6C6
|
||||
C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6
|
||||
C6FFC6C6C6FF000000FF0000000000000000000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF00000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF0000000000000000000000000000
|
||||
000000000000000000000000000000000000000000FFFF0000FFFF0000FFFF00
|
||||
00FFFF0000FFFF0000FFFF0000FF000000FF0000000000000000000000000000
|
||||
000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFF0000FFFF0000FFFF0000FF0000
|
||||
000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000000000000000000000FF00
|
||||
00FF00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000FF0000FFFF00
|
||||
00FF840000FF000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000008400
|
||||
00FF00000000000000000000000000000000000000FFC6C6C6FFC6C6C6FFC6C6
|
||||
C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF00000000000000FF000000FF0000
|
||||
00FF000000FF000000000000000000000000000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF00FFFFFF00FFFFFF00FF
|
||||
FFFF008484FF000000FF00000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF00000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000FFC6C6C6FFC6C6C6FFC6C6
|
||||
C6FF848484FF000000FF00000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000FFC6C6C6FFC6C6C6FFC6C6
|
||||
C6FF848484FF000000FF00000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000FFC6C6C6FFC6C6C6FFC6C6
|
||||
C6FF848484FF000000FF00000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000FF848484FF848484FF8484
|
||||
84FF848484FF000000FF00000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000000000FF000000FF0000
|
||||
00FF000000FF0000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFF000000FF848484FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFF000000FF848484FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFF000000FF848484FF0000000000000000000000FFFFFFFFFFFFFFFFFF0000
|
||||
00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFF000000FF848484FF0000000000000000000000FFFFFFFFFF000000FFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFF
|
||||
FFFF000000FF848484FF0000000000000000000000FFFFFFFFFF000000FFFFFF
|
||||
FFFFFFFFFFFF000000FF000000FF000000FF000000FF000000FF000000FFFFFF
|
||||
FFFF000000FF848484FF0000000000000000000000FFFFFFFFFF000000FFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFF
|
||||
FFFF000000FF848484FF0000000000000000000000FFFFFFFFFFFFFFFFFF0000
|
||||
00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFF000000FF848484FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFF000000FF848484FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFF000000FF848484FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFF000000FF848484FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFF000000FF848484FF0000000000000000000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF848484FF000000000000000000000000848484FF848484FF8484
|
||||
84FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF8484
|
||||
84FF848484FF848484FF00000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000
|
||||
}
|
||||
end
|
||||
object aclMain: TActionList
|
||||
Images = imlMain
|
||||
left = 32
|
||||
top = 128
|
||||
object acBtn1: TAction
|
||||
Caption = '&Generate'
|
||||
ImageIndex = 0
|
||||
OnExecute = acBtn1Execute
|
||||
end
|
||||
object acBtn2: TAction
|
||||
Caption = '&Optimize'
|
||||
ImageIndex = 1
|
||||
OnExecute = acBtn1Execute
|
||||
end
|
||||
object acBtn3: TAction
|
||||
Caption = '&Copy Path'
|
||||
ImageIndex = 2
|
||||
OnExecute = acBtn3Execute
|
||||
end
|
||||
object acBtn4: TAction
|
||||
Caption = 'C++ Code'
|
||||
ImageIndex = 3
|
||||
OnExecute = acBtn3Execute
|
||||
end
|
||||
end
|
||||
object styleOffice: TJvXPStyleManager
|
||||
Theme = OfficeXP
|
||||
left = 360
|
||||
top = 72
|
||||
end
|
||||
end
|
||||
264
components/jvcllaz/examples/XPCtrls/MainFrm.pas
Normal file
264
components/jvcllaz/examples/XPCtrls/MainFrm.pas
Normal file
@ -0,0 +1,264 @@
|
||||
{******************************************************************
|
||||
|
||||
JEDI-VCL Demo
|
||||
|
||||
Copyright (C) 2002 Project JEDI
|
||||
|
||||
Original author:
|
||||
|
||||
Contributor(s):
|
||||
|
||||
You may retrieve the latest version of this file at the JEDI-JVCL
|
||||
home page, located at http://jvcl.sourceforge.net
|
||||
|
||||
The contents of this file are used with permission, subject to
|
||||
the Mozilla Public License Version 1.1 (the "License"); you may
|
||||
not use this file except in compliance with the License. You may
|
||||
obtain a copy of the License at
|
||||
http://www.mozilla.org/MPL/MPL-1_1Final.html
|
||||
|
||||
Software distributed under the License is distributed on an
|
||||
"AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
||||
implied. See the License for the specific language governing
|
||||
rights and limitations under the License.
|
||||
|
||||
******************************************************************}
|
||||
|
||||
unit MainFrm;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, ActnList, ImgList, JvXPCore, JvXPCheckCtrls, JvXPButtons, ExtCtrls,
|
||||
StdCtrls, JvXPContainer, JvComponent, JvExControls;
|
||||
|
||||
type
|
||||
{ TfrmMain }
|
||||
|
||||
TfrmMain = class(TForm)
|
||||
acBtn1: TAction;
|
||||
acBtn2: TAction;
|
||||
acBtn3: TAction;
|
||||
acBtn4: TAction;
|
||||
aclMain: TActionList;
|
||||
btn1: TJvXPButton;
|
||||
btn2: TJvXPButton;
|
||||
btn3: TJvXPButton;
|
||||
btn4: TJvXPButton;
|
||||
btnCancel: TJvXPButton;
|
||||
btnClose: TJvXPToolButton;
|
||||
btnLeft: TJvXPToolButton;
|
||||
btnOK: TJvXPButton;
|
||||
btnRight: TJvXPToolButton;
|
||||
chk1: TJvXPCheckbox;
|
||||
chk2: TJvXPCheckbox;
|
||||
chkOfficeStyle: TJvXPCheckbox;
|
||||
chkToogleEnable: TJvXPCheckbox;
|
||||
cntHeader: TJvXPContainer;
|
||||
cntNetHeader: TJvXPContainer;
|
||||
cntNetPanel: TJvXPContainer;
|
||||
dxToolButton1: TJvXPToolButton;
|
||||
dxToolButton2: TJvXPToolButton;
|
||||
dxToolButton3: TJvXPToolButton;
|
||||
dxToolButton4: TJvXPToolButton;
|
||||
dxToolButton5: TJvXPToolButton;
|
||||
imgConfigure: TImage;
|
||||
imlMain: TImageList;
|
||||
styleOffice: TJvXPStyleManager;
|
||||
lbBrowse: TLabel;
|
||||
lbConfigure: TLabel;
|
||||
lbInternalPage: TLabel;
|
||||
lbWebEditor: TLabel;
|
||||
shpSeperator: TShape;
|
||||
// styleOffice: TJvXPStyleManager;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure acBtn1Execute(Sender: TObject);
|
||||
procedure acBtn3Execute(Sender: TObject);
|
||||
procedure btnCloseClick(Sender: TObject);
|
||||
procedure chkOfficeStyleClick(Sender: TObject);
|
||||
procedure chkToogleEnableClick(Sender: TObject);
|
||||
procedure cntHeaderMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
procedure cntHeaderPaint(Sender: TObject; Rect: TRect; ACanvas: TCanvas; AFont: TFont);
|
||||
procedure cntNetPanelPaint(Sender: TObject; Rect: TRect; ACanvas: TCanvas; AFont: TFont);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmMain: TfrmMain;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TfrmMain }
|
||||
|
||||
{-----------------------------------------------------------------------------
|
||||
Procedure: RemoveTitleBar
|
||||
Author: mh
|
||||
Date: 31-Mrz-2003
|
||||
Arguments: hWindow: THANDLE; Hide: boolean = True
|
||||
Result: DWORD
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
function RemoveTitleBar(hWindow: THANDLE; Hide: boolean = True): DWORD;
|
||||
var
|
||||
R: TRect;
|
||||
begin
|
||||
Result := GetWindowLong(hWindow, GWL_STYLE);
|
||||
if (Hide) then
|
||||
Result := Result and not WS_CAPTION
|
||||
else
|
||||
Result := Result or WS_CAPTION;
|
||||
GetClientRect(hWindow, R);
|
||||
SetWindowLong(hWindow, GWL_STYLE, Result);
|
||||
AdjustWindowRect(R, Result, boolean(GetMenu(hWindow)));
|
||||
SetWindowPos(hWindow, 0, 0, 0, (R.Right - R.Left), (R.Bottom - R.Top),
|
||||
SWP_NOMOVE or SWP_NOZORDER or SWP_FRAMECHANGED or SWP_NOSENDCHANGING);
|
||||
end;
|
||||
|
||||
{-----------------------------------------------------------------------------
|
||||
Procedure: TfrmMain.FormCreate
|
||||
Author: mh
|
||||
Date: 31-Mrz-2003
|
||||
Arguments: Sender: TObject
|
||||
Result: None
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
procedure TfrmMain.FormCreate(Sender: TObject);
|
||||
begin
|
||||
RemoveTitleBar(Handle);
|
||||
end;
|
||||
|
||||
{-----------------------------------------------------------------------------
|
||||
Procedure: TfrmMain.cntHeaderPaint
|
||||
Author: mh
|
||||
Date: 31-Mrz-2003
|
||||
Arguments: Sender: TObject; Rect: TRect; ACanvas: TCanvas; AFont: TFont
|
||||
Result: None
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
procedure TfrmMain.cntHeaderPaint(Sender: TObject; Rect: TRect;
|
||||
ACanvas: TCanvas; AFont: TFont);
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
with ACanvas do
|
||||
begin
|
||||
for i := Rect.Top to Rect.Bottom do
|
||||
begin
|
||||
Pen.Color := clGray;
|
||||
Rectangle(Rect.Left + 1, Rect.Top + i shl 1, Rect.Right - 1,
|
||||
Rect.Top + i shl 1 + 1);
|
||||
end;
|
||||
Brush.Color := clBtnFace;
|
||||
DrawText(Handle, PChar(' ' + Application.Title + ' '), -1, Rect,
|
||||
DT_SINGLELINE or DT_VCENTER or DT_CENTER or DT_END_ELLIPSIS);
|
||||
end;
|
||||
end;
|
||||
|
||||
{-----------------------------------------------------------------------------
|
||||
Procedure: TfrmMain.cntHeaderMouseDown
|
||||
Author: mh
|
||||
Date: 31-Mrz-2003
|
||||
Arguments: Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer
|
||||
Result: None
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
procedure TfrmMain.cntHeaderMouseDown(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
ReleaseCapture;
|
||||
Perform(WM_SYSCOMMAND, $F012, 0);
|
||||
end;
|
||||
|
||||
{-----------------------------------------------------------------------------
|
||||
Procedure: TfrmMain.btnCloseClick
|
||||
Author: mh
|
||||
Date: 31-Mrz-2003
|
||||
Arguments: Sender: TObject
|
||||
Result: None
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
procedure TfrmMain.btnCloseClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
{-----------------------------------------------------------------------------
|
||||
Procedure: TfrmMain.cntNetPanelPaint
|
||||
Author: mh
|
||||
Date: 31-Mrz-2003
|
||||
Arguments: Sender: TObject; Rect: TRect; ACanvas: TCanvas; AFont: TFont
|
||||
Result: None
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
procedure TfrmMain.cntNetPanelPaint(Sender: TObject; Rect: TRect;
|
||||
ACanvas: TCanvas; AFont: TFont);
|
||||
var
|
||||
Control: TControl;
|
||||
EdgeColor: TColor;
|
||||
begin
|
||||
Control := TControl(Sender);
|
||||
EdgeColor := TForm(Control.Parent).Color;
|
||||
ACanvas.Pixels[0, 0] := EdgeColor;
|
||||
ACanvas.Pixels[Control.Width - 1, 0] := EdgeColor;
|
||||
end;
|
||||
|
||||
{-----------------------------------------------------------------------------
|
||||
Procedure: TfrmMain.acGenerateExecute
|
||||
Author: mh
|
||||
Date: 31-Mrz-2003
|
||||
Arguments: Sender: TObject
|
||||
Result: None
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
procedure TfrmMain.acBtn1Execute(Sender: TObject);
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
{-----------------------------------------------------------------------------
|
||||
Procedure: TfrmMain.acBtn3Execute
|
||||
Author: mh
|
||||
Date: 31-Mrz-2003
|
||||
Arguments: Sender: TObject
|
||||
Result: None
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
procedure TfrmMain.acBtn3Execute(Sender: TObject);
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
{-----------------------------------------------------------------------------
|
||||
Procedure: TfrmMain.chkToogleEnableClick
|
||||
Author: mh
|
||||
Date: 31-Mrz-2003
|
||||
Arguments: Sender: TObject
|
||||
Result: None
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
procedure TfrmMain.chkToogleEnableClick(Sender: TObject);
|
||||
begin
|
||||
acBtn1.Enabled := not chkToogleEnable.Checked;
|
||||
acBtn3.Enabled := not chkToogleEnable.Checked;
|
||||
end;
|
||||
|
||||
{-----------------------------------------------------------------------------
|
||||
Procedure: TfrmMain.chkOfficeStyleClick
|
||||
Author: mh
|
||||
Date: 31-Mrz-2003
|
||||
Arguments: Sender: TObject
|
||||
Result: None
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
procedure TfrmMain.chkOfficeStyleClick(Sender: TObject);
|
||||
begin
|
||||
styleOffice.Theme := TJvXPTheme(chkOfficeStyle.Checked);
|
||||
end;
|
||||
|
||||
end.
|
||||
82
components/jvcllaz/examples/XPCtrls/SimpleDemo.lpi
Normal file
82
components/jvcllaz/examples/XPCtrls/SimpleDemo.lpi
Normal file
@ -0,0 +1,82 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="10"/>
|
||||
<PathDelim Value="\"/>
|
||||
<General>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<Title Value="SimpleDemo"/>
|
||||
<ResourceType Value="res"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
<XPManifest>
|
||||
<TextName Value="CompanyName.ProductName.AppName"/>
|
||||
<TextDesc Value="Your application description."/>
|
||||
</XPManifest>
|
||||
<Icon Value="0"/>
|
||||
</General>
|
||||
<BuildModes Count="1">
|
||||
<Item1 Name="Default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="2">
|
||||
<Item1>
|
||||
<PackageName Value="JvXPCtrlsLaz"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="2">
|
||||
<Unit0>
|
||||
<Filename Value="SimpleDemo.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="MainFrm.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="frmMain"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
</Unit1>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="SimpleDemo"/>
|
||||
</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>
|
||||
13
components/jvcllaz/examples/XPCtrls/SimpleDemo.lpr
Normal file
13
components/jvcllaz/examples/XPCtrls/SimpleDemo.lpr
Normal file
@ -0,0 +1,13 @@
|
||||
program SimpleDemo;
|
||||
|
||||
uses
|
||||
Forms, Interfaces,
|
||||
MainFrm in 'MainFrm.pas', JvXPCtrlsLaz {frmMain};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TfrmMain, frmMain);
|
||||
Application.Run;
|
||||
end.
|
||||
Reference in New Issue
Block a user