Стартовый пул
This commit is contained in:
@@ -0,0 +1,179 @@
|
||||
object Form1: TForm1
|
||||
Left = 527
|
||||
Height = 435
|
||||
Top = 222
|
||||
Width = 613
|
||||
Caption = 'MainForm'
|
||||
ClientHeight = 407
|
||||
ClientWidth = 613
|
||||
Menu = MainMenu1
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.9.0.0'
|
||||
WindowState = wsMaximized
|
||||
object ToolPanel1: TToolPanel
|
||||
Left = 0
|
||||
Height = 31
|
||||
Top = 0
|
||||
Width = 613
|
||||
Items = <>
|
||||
Options = []
|
||||
CustomizeShortCut = False
|
||||
Align = alTop
|
||||
BorderWidth = 4
|
||||
ClientHeight = 31
|
||||
ClientWidth = 613
|
||||
TabOrder = 0
|
||||
object RxMDICloseButton1: TRxMDICloseButton
|
||||
AnchorSideTop.Control = ToolPanel1
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = ToolPanel1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 585
|
||||
Height = 22
|
||||
Top = 4
|
||||
Width = 23
|
||||
Anchors = [akTop, akRight]
|
||||
Glyph.Data = {
|
||||
1A020000424D1A0200000000000036000000280000000B0000000B0000000100
|
||||
200000000000E401000064000000640000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000FF0000
|
||||
00FF00000000000000000000000000000000000000FF000000FF000000000000
|
||||
00000000000000000000000000FF000000FF0000000000000000000000FF0000
|
||||
00FF000000000000000000000000000000000000000000000000000000FF0000
|
||||
00FF000000FF000000FF00000000000000000000000000000000000000000000
|
||||
00000000000000000000000000FF000000FF0000000000000000000000000000
|
||||
000000000000000000000000000000000000000000FF000000FF000000FF0000
|
||||
00FF000000000000000000000000000000000000000000000000000000FF0000
|
||||
00FF0000000000000000000000FF000000FF0000000000000000000000000000
|
||||
0000000000FF000000FF00000000000000000000000000000000000000FF0000
|
||||
00FF000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000000000000000000000
|
||||
}
|
||||
ShowInfoLabel = False
|
||||
end
|
||||
end
|
||||
object RxMDITasks1: TRxMDITasks
|
||||
Left = 0
|
||||
Height = 25
|
||||
Top = 360
|
||||
Width = 613
|
||||
Align = alBottom
|
||||
FlatButton = True
|
||||
Options = [rxtoMidleClickClose]
|
||||
end
|
||||
object StatusBar1: TStatusBar
|
||||
Left = 0
|
||||
Height = 22
|
||||
Top = 385
|
||||
Width = 613
|
||||
Panels = <
|
||||
item
|
||||
Width = 100
|
||||
end
|
||||
item
|
||||
Width = 150
|
||||
end>
|
||||
SimplePanel = False
|
||||
end
|
||||
object RxMDIPanel1: TRxMDIPanel
|
||||
Left = 0
|
||||
Height = 329
|
||||
Top = 31
|
||||
Width = 613
|
||||
CloseButton = RxMDICloseButton1
|
||||
TaskPanel = RxMDITasks1
|
||||
Align = alClient
|
||||
BevelOuter = bvLowered
|
||||
HideCloseButton = False
|
||||
OnChangeCurrentChild = RxMDIPanel1ChangeCurrentChild
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
Left = 440
|
||||
Top = 72
|
||||
object sysClose: TAction
|
||||
Category = 'System'
|
||||
Caption = 'Close'
|
||||
OnExecute = sysCloseExecute
|
||||
end
|
||||
object Action1: TAction
|
||||
Category = 'MDI forms'
|
||||
Caption = 'Form # 1'
|
||||
OnExecute = Action1Execute
|
||||
end
|
||||
object Action2: TAction
|
||||
Category = 'MDI forms'
|
||||
Caption = 'Form # 2'
|
||||
OnExecute = Action2Execute
|
||||
end
|
||||
object Action3: TAction
|
||||
Category = 'MDI forms'
|
||||
Caption = 'New single MDI form'
|
||||
OnExecute = Action3Execute
|
||||
end
|
||||
object optShowInfoLabel: TAction
|
||||
Category = 'Options'
|
||||
Caption = 'Show info label'
|
||||
Checked = True
|
||||
OnExecute = optShowInfoLabelExecute
|
||||
end
|
||||
object optMidleMouseClickClose: TAction
|
||||
Category = 'Options'
|
||||
Caption = 'Midle mouse button close form'
|
||||
Checked = True
|
||||
OnExecute = optMidleMouseClickCloseExecute
|
||||
end
|
||||
object optHideCloseButton: TAction
|
||||
Category = 'Options'
|
||||
Caption = 'Hide close button'
|
||||
Checked = True
|
||||
OnExecute = optHideCloseButtonExecute
|
||||
end
|
||||
end
|
||||
object MainMenu1: TMainMenu
|
||||
Left = 408
|
||||
Top = 72
|
||||
object MenuItem1: TMenuItem
|
||||
Caption = 'System'
|
||||
object MenuItem2: TMenuItem
|
||||
Action = sysClose
|
||||
end
|
||||
end
|
||||
object MenuItem8: TMenuItem
|
||||
Caption = 'Options'
|
||||
object MenuItem9: TMenuItem
|
||||
Action = optShowInfoLabel
|
||||
end
|
||||
object MenuItem10: TMenuItem
|
||||
Action = optMidleMouseClickClose
|
||||
end
|
||||
object MenuItem11: TMenuItem
|
||||
Action = optHideCloseButton
|
||||
end
|
||||
end
|
||||
object MenuItem3: TMenuItem
|
||||
Caption = 'MDI forms'
|
||||
object MenuItem4: TMenuItem
|
||||
Action = Action1
|
||||
end
|
||||
object MenuItem5: TMenuItem
|
||||
Action = Action2
|
||||
end
|
||||
object MenuItem7: TMenuItem
|
||||
Caption = '-'
|
||||
end
|
||||
object MenuItem6: TMenuItem
|
||||
Action = Action3
|
||||
end
|
||||
end
|
||||
end
|
||||
object Timer1: TTimer
|
||||
Interval = 500
|
||||
OnTimer = Timer1Timer
|
||||
Left = 451
|
||||
Top = 117
|
||||
end
|
||||
end
|
Reference in New Issue
Block a user