2012-10-09 10:35:17 +00:00
|
|
|
object Form1: TForm1
|
2021-01-13 05:39:51 +00:00
|
|
|
Left = 686
|
2018-01-12 10:28:22 +00:00
|
|
|
Height = 435
|
2021-01-13 05:39:51 +00:00
|
|
|
Top = 176
|
2018-01-12 10:28:22 +00:00
|
|
|
Width = 613
|
2012-10-09 10:35:17 +00:00
|
|
|
Caption = 'MainForm'
|
2019-01-17 08:37:42 +00:00
|
|
|
ClientHeight = 410
|
2018-01-12 10:28:22 +00:00
|
|
|
ClientWidth = 613
|
2012-10-09 10:35:17 +00:00
|
|
|
Menu = MainMenu1
|
2018-01-12 10:28:22 +00:00
|
|
|
OnCreate = FormCreate
|
2012-10-09 10:35:17 +00:00
|
|
|
Position = poScreenCenter
|
2019-01-17 08:37:42 +00:00
|
|
|
LCLVersion = '2.1.0.0'
|
2012-10-09 10:35:17 +00:00
|
|
|
WindowState = wsMaximized
|
|
|
|
object ToolPanel1: TToolPanel
|
|
|
|
Left = 0
|
2021-01-13 05:39:51 +00:00
|
|
|
Height = 34
|
2012-10-09 10:35:17 +00:00
|
|
|
Top = 0
|
2018-01-12 10:28:22 +00:00
|
|
|
Width = 613
|
2019-03-06 05:44:57 +00:00
|
|
|
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
|
2012-10-09 10:35:17 +00:00
|
|
|
Options = []
|
2018-01-12 10:28:22 +00:00
|
|
|
CustomizeShortCut = False
|
2012-10-09 10:35:17 +00:00
|
|
|
Align = alTop
|
|
|
|
BorderWidth = 4
|
2021-01-13 05:39:51 +00:00
|
|
|
ClientHeight = 34
|
2018-01-12 10:28:22 +00:00
|
|
|
ClientWidth = 613
|
2012-10-09 10:35:17 +00:00
|
|
|
TabOrder = 0
|
|
|
|
object RxMDICloseButton1: TRxMDICloseButton
|
|
|
|
AnchorSideTop.Control = ToolPanel1
|
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
AnchorSideRight.Control = ToolPanel1
|
|
|
|
AnchorSideRight.Side = asrBottom
|
2018-01-12 10:28:22 +00:00
|
|
|
Left = 585
|
2012-10-09 10:35:17 +00:00
|
|
|
Height = 22
|
2021-01-13 05:39:51 +00:00
|
|
|
Top = 6
|
2012-10-09 10:35:17 +00:00
|
|
|
Width = 23
|
|
|
|
Anchors = [akTop, akRight]
|
|
|
|
Glyph.Data = {
|
|
|
|
1A020000424D1A0200000000000036000000280000000B0000000B0000000100
|
|
|
|
200000000000E401000064000000640000000000000000000000000000000000
|
|
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
|
|
0000000000000000000000000000000000000000000000000000000000FF0000
|
|
|
|
00FF00000000000000000000000000000000000000FF000000FF000000000000
|
|
|
|
00000000000000000000000000FF000000FF0000000000000000000000FF0000
|
|
|
|
00FF000000000000000000000000000000000000000000000000000000FF0000
|
|
|
|
00FF000000FF000000FF00000000000000000000000000000000000000000000
|
|
|
|
00000000000000000000000000FF000000FF0000000000000000000000000000
|
|
|
|
000000000000000000000000000000000000000000FF000000FF000000FF0000
|
|
|
|
00FF000000000000000000000000000000000000000000000000000000FF0000
|
|
|
|
00FF0000000000000000000000FF000000FF0000000000000000000000000000
|
|
|
|
0000000000FF000000FF00000000000000000000000000000000000000FF0000
|
|
|
|
00FF000000000000000000000000000000000000000000000000000000000000
|
|
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
|
|
000000000000000000000000000000000000000000000000000000000000
|
|
|
|
}
|
2018-01-15 12:38:32 +00:00
|
|
|
ShowInfoLabel = False
|
2012-10-09 10:35:17 +00:00
|
|
|
end
|
|
|
|
end
|
|
|
|
object RxMDITasks1: TRxMDITasks
|
|
|
|
Left = 0
|
|
|
|
Height = 25
|
2021-01-13 05:39:51 +00:00
|
|
|
Top = 367
|
2018-01-12 10:28:22 +00:00
|
|
|
Width = 613
|
2012-10-09 10:35:17 +00:00
|
|
|
Align = alBottom
|
2018-01-12 10:28:22 +00:00
|
|
|
FlatButton = True
|
2019-04-12 08:54:40 +00:00
|
|
|
Options = [rxtoMidleClickClose, rxtoAskCloseAll]
|
2012-10-09 10:35:17 +00:00
|
|
|
end
|
|
|
|
object StatusBar1: TStatusBar
|
|
|
|
Left = 0
|
2021-01-13 05:39:51 +00:00
|
|
|
Height = 18
|
|
|
|
Top = 392
|
2018-01-12 10:28:22 +00:00
|
|
|
Width = 613
|
|
|
|
Panels = <
|
|
|
|
item
|
|
|
|
Width = 100
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Width = 150
|
|
|
|
end>
|
|
|
|
SimplePanel = False
|
2012-10-09 10:35:17 +00:00
|
|
|
end
|
|
|
|
object RxMDIPanel1: TRxMDIPanel
|
|
|
|
Left = 0
|
2021-01-13 05:39:51 +00:00
|
|
|
Height = 333
|
|
|
|
Top = 34
|
2018-01-12 10:28:22 +00:00
|
|
|
Width = 613
|
2012-10-09 10:35:17 +00:00
|
|
|
CloseButton = RxMDICloseButton1
|
|
|
|
TaskPanel = RxMDITasks1
|
|
|
|
Align = alClient
|
|
|
|
BevelOuter = bvLowered
|
2019-01-17 08:37:42 +00:00
|
|
|
Options = []
|
2018-01-12 10:28:22 +00:00
|
|
|
HideCloseButton = False
|
|
|
|
OnChangeCurrentChild = RxMDIPanel1ChangeCurrentChild
|
2019-01-17 08:37:42 +00:00
|
|
|
WindowMenu = WindowItems
|
2012-10-09 10:35:17 +00:00
|
|
|
end
|
|
|
|
object ActionList1: TActionList
|
2018-01-12 10:28:22 +00:00
|
|
|
Left = 440
|
|
|
|
Top = 72
|
2012-10-09 10:35:17 +00:00
|
|
|
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
|
2018-01-12 10:28:22 +00:00
|
|
|
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
|
2019-01-17 08:37:42 +00:00
|
|
|
object wndCloseAll: TAction
|
|
|
|
Category = 'Windows'
|
|
|
|
Caption = 'Close all...'
|
|
|
|
OnExecute = wndCloseAllExecute
|
|
|
|
end
|
2019-04-12 08:54:40 +00:00
|
|
|
object optAskCloseAll: TAction
|
|
|
|
Category = 'Options'
|
|
|
|
Caption = 'Ask close all window'
|
|
|
|
Checked = True
|
|
|
|
OnExecute = optAskCloseAllExecute
|
|
|
|
end
|
2012-10-09 10:35:17 +00:00
|
|
|
end
|
|
|
|
object MainMenu1: TMainMenu
|
2018-01-12 10:28:22 +00:00
|
|
|
Left = 408
|
|
|
|
Top = 72
|
2012-10-09 10:35:17 +00:00
|
|
|
object MenuItem1: TMenuItem
|
|
|
|
Caption = 'System'
|
|
|
|
object MenuItem2: TMenuItem
|
|
|
|
Action = sysClose
|
|
|
|
end
|
|
|
|
end
|
2018-01-12 10:28:22 +00:00
|
|
|
object MenuItem8: TMenuItem
|
|
|
|
Caption = 'Options'
|
|
|
|
object MenuItem9: TMenuItem
|
|
|
|
Action = optShowInfoLabel
|
|
|
|
end
|
|
|
|
object MenuItem10: TMenuItem
|
|
|
|
Action = optMidleMouseClickClose
|
|
|
|
end
|
|
|
|
object MenuItem11: TMenuItem
|
|
|
|
Action = optHideCloseButton
|
|
|
|
end
|
2019-04-12 08:54:40 +00:00
|
|
|
object MenuItem12: TMenuItem
|
|
|
|
Action = optAskCloseAll
|
|
|
|
end
|
2018-01-12 10:28:22 +00:00
|
|
|
end
|
2012-10-09 10:35:17 +00:00
|
|
|
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
|
2019-01-17 08:37:42 +00:00
|
|
|
object WindowItems: TMenuItem
|
|
|
|
Caption = 'Window'
|
|
|
|
object MenuItem13: TMenuItem
|
|
|
|
Action = wndCloseAll
|
|
|
|
end
|
|
|
|
end
|
2012-10-09 10:35:17 +00:00
|
|
|
end
|
2013-08-02 04:42:39 +00:00
|
|
|
object Timer1: TTimer
|
|
|
|
Interval = 500
|
|
|
|
OnTimer = Timer1Timer
|
2018-01-12 10:28:22 +00:00
|
|
|
Left = 451
|
|
|
|
Top = 117
|
2013-08-02 04:42:39 +00:00
|
|
|
end
|
2012-10-09 10:35:17 +00:00
|
|
|
end
|