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