Files
2021-01-13 05:39:51 +00:00

218 lines
5.7 KiB
Plaintext

object Form1: TForm1
Left = 686
Height = 435
Top = 176
Width = 613
Caption = 'MainForm'
ClientHeight = 410
ClientWidth = 613
Menu = MainMenu1
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '2.1.0.0'
WindowState = wsMaximized
object ToolPanel1: TToolPanel
Left = 0
Height = 34
Top = 0
Width = 613
Items = <
item
Action = Action1
Visible = True
ShowCaption = True
end
item
Action = Action2
Visible = True
ShowCaption = True
end
item
Action = Action3
Visible = True
ShowCaption = True
end>
ToolBarStyle = tbsNative
Options = []
CustomizeShortCut = False
Align = alTop
BorderWidth = 4
ClientHeight = 34
ClientWidth = 613
TabOrder = 0
object RxMDICloseButton1: TRxMDICloseButton
AnchorSideTop.Control = ToolPanel1
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ToolPanel1
AnchorSideRight.Side = asrBottom
Left = 585
Height = 22
Top = 6
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 = 367
Width = 613
Align = alBottom
FlatButton = True
Options = [rxtoMidleClickClose, rxtoAskCloseAll]
end
object StatusBar1: TStatusBar
Left = 0
Height = 18
Top = 392
Width = 613
Panels = <
item
Width = 100
end
item
Width = 150
end>
SimplePanel = False
end
object RxMDIPanel1: TRxMDIPanel
Left = 0
Height = 333
Top = 34
Width = 613
CloseButton = RxMDICloseButton1
TaskPanel = RxMDITasks1
Align = alClient
BevelOuter = bvLowered
Options = []
HideCloseButton = False
OnChangeCurrentChild = RxMDIPanel1ChangeCurrentChild
WindowMenu = WindowItems
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
object wndCloseAll: TAction
Category = 'Windows'
Caption = 'Close all...'
OnExecute = wndCloseAllExecute
end
object optAskCloseAll: TAction
Category = 'Options'
Caption = 'Ask close all window'
Checked = True
OnExecute = optAskCloseAllExecute
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
object MenuItem12: TMenuItem
Action = optAskCloseAll
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
object WindowItems: TMenuItem
Caption = 'Window'
object MenuItem13: TMenuItem
Action = wndCloseAll
end
end
end
object Timer1: TTimer
Interval = 500
OnTimer = Timer1Timer
Left = 451
Top = 117
end
end