Стартовый пул

This commit is contained in:
2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions

View File

@@ -0,0 +1,735 @@
object MainForm: TMainForm
Left = 565
Height = 289
Top = 247
Width = 650
ActiveControl = ToolPanel1
Caption = 'ToolPanel demo'
ClientHeight = 289
ClientWidth = 650
Position = poDesktopCenter
SessionProperties = 'Width;Height;Left;Top'
ShowHint = True
LCLVersion = '1.7'
object ToolPanel1: TToolPanel
Left = 0
Height = 32
Top = 0
Width = 650
Items = <
item
Action = actNew
Visible = True
Left = 5
Height = 22
Top = 5
Width = 59
DropDownMenu = PopupMenu1
ShowCaption = True
ButtonStyle = tbrDropDown
end
item
Action = actCustom
Visible = True
Left = 142
Height = 22
Top = 5
Width = 79
ShowCaption = True
end
item
Action = actNext
Visible = True
Left = 279
Height = 22
Top = 5
Width = 39
DropDownMenu = PopupMenu2
ShowCaption = False
ButtonStyle = tbrDropDownExtra
end
item
Action = actPrior
Visible = True
Left = 221
Height = 22
Top = 5
Width = 58
DropDownMenu = PopupMenu2
ShowCaption = True
end
item
Action = actExit
Visible = True
Left = 318
Height = 22
Top = 5
Width = 53
ShowCaption = True
end
item
Action = actSysMenu
Visible = True
Left = 64
Height = 22
Top = 5
Width = 78
DropDownMenu = PopupMenu1
ShowCaption = True
ButtonStyle = tbrDropDown
end
item
Action = sysAbout
Visible = True
Left = 371
Height = 22
Top = 5
Width = 67
ShowCaption = True
end>
ImageList = ImageList1
PropertyStorage = RxIniPropStorage1
BtnWidth = 23
BtnHeight = 32
ToolBarStyle = tbsWindowsXP
Options = [tpFlatBtns, tpCustomizable, tpGlyphPopup, tpCaptionPopup]
Version = 4
CustomizeShortCut = True
Align = alTop
BorderWidth = 4
ClientHeight = 32
ClientWidth = 650
FullRepaint = False
TabOrder = 0
end
object SpeedButton1: TSpeedButton
Left = 440
Height = 26
Top = 88
Width = 77
Action = actCustom
AutoSize = True
Margin = 3
Visible = False
end
object BitBtn1: TBitBtn
Left = 440
Height = 32
Top = 128
Width = 84
AutoSize = True
Caption = 'BitBtn1'
Glyph.Data = {
46050000424D4605000000000000360000002800000012000000120000000100
2000000000001005000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F8F8
F8FFE8E8E8FFE7E7E7FFF6F6F6FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00F8F8F8FFC3ACACFFAF7F7AFFB19594FFDDDDDDFFF6F6F6FFFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00F8F8F8FFC2AAAAFFC9A298FFFEF1E3FFD6B3A5FFAF9292FFDDDD
DDFFF6F6F6FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00F8F8F8FFC2A9A9FFCAA49BFFFEF2E6FFFFEBD5FFFFF5
EAFFD6B5A8FFAF9292FFDDDDDDFFF5F5F5FFFFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00F8F8F8FFC4ADABFFCDA99FFFFEF4E8FFFFEC
D7FFFFEBD7FFFFEBD7FFFFF5ECFFD8B8ABFFB19391FFDBDADAFFF5F5F5FFFFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F8F8F8FFC7AFACFFD1ADA2FFFEF5
EBFFFFEEDCFFFFEEDCFFFFEEDCFFFFEEDCFFFFEEDCFFFFF7EEFFDBBCAFFFB393
8FFFDBDADAFFF5F5F5FFFFFFFF00FFFFFF00FFFFFF00F8F8F8FFCAB2ADFFD4B2
A6FFFEF6EEFFFFF0E1FFFFF0E1FFFFEDD7FFFFBC58FFFFE4C2FFFFF0E0FFFFF0
E0FFFFF8F0FFDEC0B4FFB79691FFDCDBDBFFF6F6F6FFFFFFFF00FFFFFF00D1B9
B3FFD6B5A8FFFEF8F0FFFFF3E6FFFFF3E6FFFFF0DFFFFFC77AFFFFD298FFFFF2
E5FFFFF2E5FFFFF2E5FFFFF2E5FFFFF9F3FFE0C4B8FFBCA09AFFE5E5E5FFFFFF
FF00FFFFFF00C09282FFFAEDE2FFFFF5EAFFFFF5EAFFFFF3E5FFFFD39EFFFFDC
B4FFFFF5EAFFFFF2E1FFFFBE5BFFFFE9CAFFFFF5EAFFFFF4E9FFFFF9F4FFD0AA
9CFFD8D3D2FFFFFFFF00FFFFFF00E4D1CAFFCFA697FFFCF2EBFFFFF7EFFFFFE0
BFFFFFE1C1FFFFF7EFFFFFF4E8FFFFC87CFFFFD59CFFFFF7EFFFFFF7EFFFFFF7
EEFFFFF7EEFFDAB9ABFFD7CFCDFFFFFFFF00FFFFFF00FFFFFF00E6D4CCFFD7B4
A3FFFCF6F1FFFFF9F1FFFFFAF4FFFFF8EFFFFFD4A1FFFFDEB8FFFFF9F3FFFFF9
F3FFFFF9F3FFFFF9F3FFFFF9F3FFD6B3A2FFDAD6D4FFFFFFFF00FFFFFF00FFFF
FF00FFFFFF00E9D6CDFFDEBEAEFFFDF8F5FFFFFCF9FFFFE2C3FFFFE3C5FFFFFC
F8FFFFFCF8FFFFFCF8FFFAF5F1FFC9ADB1FFE3D3D3FFD8B1A0FFDBD7D5FFFFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EBD9CFFFE3C5B4FFFDFBF9FFFFFD
FAFFFFFEFDFFFFFEFDFFFFFEFDFFFAF7F5FFEFE7E5FFECE0DEFFA892B1FFDAB3
9CFFDFDEDEFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EDDB
D1FFE6C8B5FFFDFCFAFFFFFFFFFFFFFFFFFFFFFFFFFFE7D0C5FFF3E8E2FFEFE6
E1FFE9E7EDFFDDB59CFFE2E2E2FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00F0DED2FFE9C8B1FFFDF9F8FFFFFFFFFFFFFFFFFFFAEF
E7FFCDCABAFFEEF2EEFFFBF6F2FFDDB79FFFEEEEEEFFFFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F3E5D9FFE8C3A8FFEAC7
AEFFE8C2A7FFE6C2A7FFE5C2A6FFE4BEA3FFE4C5ADFFEDE1D9FFFBFBFBFFFFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00
}
OnClick = BitBtn1Click
TabOrder = 1
Visible = False
end
object ImageList1: TImageList
left = 168
top = 88
Bitmap = {
4C69070000001000000010000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000FF000000FF000000FF000000FF0000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000FF000000FF008080FF008080FF000000FF0000
00FF000000FF0000000000000000000000000000000000000000000000FF0000
00FF000000FF000000000000000000000000000000FF000000FF008080FF0080
80FF008080FF000000FF00000000000000000000000000000000000000000000
00FF000000FF00000000000000000000000000000000000000FF008080FF0080
80FF008080FF000000FF0000000000000000000000FF00000000000000000000
00FF000000FF00000000000000000000000000000000000000FF000000FF0080
80FF008080FF000000FF000000FF00000000000000FF000000FF000000FF0000
00FF000000FF000000000000000000000000000000FF000080FF000000FF0000
00FF000000FF008080FF008080FF00000000000000FF000000FF000000FF0000
00FFC0C0C0FF000000FF00000000000000FF000080FF000000FF000000000000
0000000000FF008080FF000000FF000000000000000000000000000000000000
0000000000FFC0C0C0FF000000FF000080FF000000FF00000000000000000000
000000000000000000FF00000000000000000000000000000000000000000000
000000000000000000FFC0C0C0FF000000FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000FF000080FF000000FFC0C0C0FF000000FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00FF000080FF000000FF00000000000000FFC0C0C0FF000000FF000000000000
0000000000000000000000000000000000000000000000000000000000FF0000
80FF000000FF000000000000000000000000000000FFC0C0C0FF000000FF0000
00000000000000000000000000000000000000000000000000FF000080FF0000
00FF0000000000000000000000000000000000000000000000FFC0C0C0FF0000
00FF0000000000000000000000000000000000000000000000FF000000FF0000
0000000000000000000000000000000000000000000000000000000000FF0000
00FF000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000FF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000FF000000FF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00FFFFFFFFFF000000FF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000FFFFFF
FFFFFFFFFFFF000000FF000000FF000000FF000000FF000000FF000000FF0000
00FF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000FF0000000000000000000000000000000000000000000000FFFFFF
FFFFFFFFFFFF000000FF000000FF000000FF000000FF000000FF000000FF0000
00FF000000FF0000000000000000000000000000000000000000000000000000
00FFFFFFFFFF000000FF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000FF000000FF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000FF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000FF000000FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000FFFFFFFFFF000000FF0000
00000000000000000000000000000000000000000000000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF000000FFFFFFFFFFFFFFFFFF0000
00FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000FF00000000000000000000000000000000000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF000000FFFFFFFFFFFFFFFFFF0000
00FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000FFFFFFFFFF000000FF0000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000FF000000FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000FF0000
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000000000
0000000000000000000000000000000000000000000000000000000000FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF0000
0000000000000000000000000000000000000000000000000000000000FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFF0000
00FF000000000000000000000000000000000000000000000000000000FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF0000
00FF000000FF0000000000000000000000000000000000000000000000FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000FF0000000000000000000000000000000000000000000000FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000FF0000000000000000000000000000000000000000000000FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000FF0000000000000000000000000000000000000000000000FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000FF0000000000000000000000000000000000000000000000FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000FF0000000000000000000000000000000000000000000000FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000FF0000000000000000000000000000000000000000000000FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000FF0000000000000000000000000000000000000000000000FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000FF0000000000000000000000000000000000000000000000FF0000
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
00FF000000FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000FF000000FF000000FF000000FF0000
00FF000000FF00000000800000FF000000000000000000000000000000000000
00000000000000000000000000FFC0C0C0FFC0C0C0FFC0C0C0FFC0C0C0FFC0C0
C0FFC0C0C0FF000000FF800000FF000000000000000000000000000000000000
000000000000000000FFC0C0C0FF000000FFC0C0C0FFC0C0C0FFC0C0C0FFC0C0
C0FFC0C0C0FFC0C0C0FF800000FF00000000000000FF000000FF000000FF0000
00FF000000FFC0C0C0FF000000FFC0C0C0FF000000FFC0C0C0FFC0C0C0FFC0C0
C0FFC0C0C0FFC0C0C0FF800000FF00000000000000FFFFFFFFFFFFFFFFFF0000
00FFC0C0C0FF000000FFC0C0C0FF000000FFC0C0C0FF000000FFC0C0C0FFC0C0
C0FFC0C0C0FF000000FF800000FF00000000000000FFFFFFFFFF000000FFC0C0
C0FF000000FFFFFFFFFF000000FFC0C0C0FF000000FFC0C0C0FF000000FF0000
00FF000000FF00000000800000FF00000000000000FFFFFFFFFF000000FF0000
00FFFFFFFFFFFFFFFFFFFFFFFFFF000000FFC0C0C0FF000000FFFFFFFFFF0000
00FF00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF0000
00FF00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
00FF00000000000000000000000000000000000000FFFFFFFFFF800000FF8000
00FFFFFFFFFF800000FF800000FF800000FF800000FF800000FFFFFFFFFF0000
00FF00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
00FF00000000000000000000000000000000000000FFFFFFFFFF800000FF8000
00FFFFFFFFFF800000FF800000FF800000FF800000FF800000FFFFFFFFFF0000
00FF00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
00FF00000000000000000000000000000000000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
00FF000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000FF000000FF000000FF000000FF000000FF000000FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000FF008000FF008000FF008000FF008000FF000000FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000FF000000FF000000FF000000FF000000FF000000FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000800000FF8000
00FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF8000
00FF000000000000000000000000000000000000000000000000800000FFFF00
00FF800000FFFF0000FF000000FFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF8000
00FF000000000000000000000000000000000000000000000000800000FF8000
00FFFF0000FF800000FF000000FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FF8000
00FF000000000000000000000000000000000000000000000000800000FFFF00
00FF800000FFFF0000FF000000FFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF8000
00FF000000000000000000000000000000000000000000000000800000FF8000
00FFFF0000FF800000FF000000FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FF8000
00FF000000000000000000000000000000000000000000000000800000FFFF00
00FF800000FFFF0000FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8000
00FF000000000000000000000000000000000000000000000000800000FF8000
00FFFF0000FF800000FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8000
00FF000000000000000000000000000000000000000000000000800000FFFF00
00FF800000FF000000FF000000FF808080FFFFFFFFFFFFFFFFFFFFFFFFFF8000
00FF000000000000000000000000800000FF800000FF800000FF800000FF0000
00FF000000FF808080FF808080FF808080FFFFFFFFFFFFFFFFFFFFFFFFFF8000
00FF800000FF800000FF800000FF808080FF808080FF808080FF808080FF8080
80FF808080FF808080FF808080FF808080FF808080FF808080FFFFFFFFFF8080
80FFFFFFFFFF808080FF808080FF808000FF808080FF808080FF808080FF8080
80FF808080FF808080FF808080FF808080FF808080FFFFFFFFFFC0C0C0FF8080
80FFC0C0C0FFFFFFFFFF808080FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000FF000000FF000000FF000000FF000000FF0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000
00FF000000FF0000000000000000000000000000000000000000000000000000
00FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF
FFFF00FFFFFF000000FF00000000000000000000000000000000000000FF00FF
FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF
FFFF00FFFFFF00FFFFFF000000FF000000000000000000000000000000FF00FF
FFFF00FFFFFF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF000000FF0000
00FF00FFFFFF00FFFFFF000000FF0000000000000000000000FF00FFFFFF00FF
FFFF00FFFFFF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF000000FF0000
00FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000FF00FFFFFF00FF
FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF
FFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000FF00FFFFFF00FF
FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF
FFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000FF00FFFFFF00FF
FFFF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF
FFFF000000FF00FFFFFF00FFFFFF0000000000000000000000FF00FFFFFF00FF
FFFF00FFFFFF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000
00FF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000FF00FF
FFFF00FFFFFF00FFFFFF000000FF000000FF000000FF000000FF000000FF00FF
FFFF00FFFFFF00FFFFFF000000FF000000000000000000000000000000FF00FF
FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF
FFFF00FFFFFF00FFFFFF000000FF000000000000000000000000000000000000
00FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF
FFFF00FFFFFF000000FF00000000000000000000000000000000000000000000
0000000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000
00FF000000FF0000000000000000
}
end
object ActionList1: TActionList
Images = ImageList1
left = 216
top = 40
object actNew: TAction
Caption = 'New'
Hint = 'Action N 1'
ImageIndex = 3
ShortCut = 45
end
object actNext: TAction
Caption = 'Next'
Hint = 'Action N 2'
ImageIndex = 2
OnExecute = Action1Execute
ShortCut = 16423
end
object actPrior: TAction
Caption = 'Prior'
Hint = 'Prior action'
ImageIndex = 1
OnExecute = Action1Execute
ShortCut = 16421
end
object actCustom: TAction
Caption = 'Custom'
Hint = 'Customize toolbar'
ImageIndex = 0
OnExecute = actCustomExecute
end
object actExit: TAction
Caption = 'Exit'
Hint = 'exit from demo application'
ImageIndex = 5
OnExecute = actExitExecute
ShortCut = 32856
end
object actSysMenu: TAction
Tag = 4
Caption = 'System'
ImageIndex = 4
ShortCut = 16461
end
object sysAbout: TAction
Category = 'System'
Caption = 'About'
ImageIndex = 6
OnExecute = sysAboutExecute
ShortCut = 16456
end
end
object PopupMenu1: TPopupMenu
Images = ImageList1
left = 16
top = 40
object MenuItem1: TMenuItem
Action = actNew
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000FF000000FF000000FF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF0000000000000000000000000000
000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000
000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000
000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000
000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000
000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000
000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000
000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000
000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000
000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000FF000000FF000000FF000000FF0000000000000000000000000000
000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000FFFFFFFFFF000000FF000000000000000000000000000000000000
000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000FF000000FF00000000000000000000000000000000000000000000
000000000000000000FF000000FF000000FF000000FF000000FF000000FF0000
00FF000000FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
end
object MenuItem2: TMenuItem
Caption = '-'
end
object MenuItem4: TMenuItem
Action = actNext
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00FF000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00FF000000FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00FFFFFFFFFF000000FF00000000000000000000000000000000000000000000
0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
00FFFFFFFFFFFFFFFFFF000000FF000000000000000000000000000000000000
0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000
0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000
0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
00FFFFFFFFFFFFFFFFFF000000FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00FFFFFFFFFF000000FF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00FF000000FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00FF000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
OnClick = Action1Execute
end
object MenuItem3: TMenuItem
Action = actPrior
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000FF000000FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000FFFFFFFFFF000000FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000FFFFFFFFFFFFFFFFFF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF0000000000000000000000000000
0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000
0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000
000000000000000000FFFFFFFFFFFFFFFFFF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF0000000000000000000000000000
00000000000000000000000000FFFFFFFFFF000000FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000FF000000FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
OnClick = Action1Execute
end
object MenuItem8: TMenuItem
Caption = '-'
end
object MenuItem9: TMenuItem
Action = actCustom
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000FF000000FF00000000000000000000000000000000000000000000
000000000000000000FF000000FF000000000000000000000000000000000000
0000000000FF000080FF000000FF000000000000000000000000000000000000
0000000000FFC0C0C0FF000000FF000000000000000000000000000000000000
000000000000000000FF000080FF000000FF0000000000000000000000000000
00FFC0C0C0FF000000FF00000000000000000000000000000000000000000000
00000000000000000000000000FF000080FF000000FF00000000000000FFC0C0
C0FF000000FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000FF000080FF000000FFC0C0C0FF0000
00FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000FFC0C0C0FF000000FF0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000FFC0C0C0FF000000FF000080FF0000
00FF00000000000000000000000000000000000000FF00000000000000000000
00FF000000FF000000FF000000FFC0C0C0FF000000FF00000000000000FF0000
80FF000000FF0000000000000000000000FF008080FF000000FF000000000000
00FF000000FF000000FF000000FF000000FF0000000000000000000000000000
00FF000080FF000000FF000000FF000000FF008080FF008080FF000000000000
00FF0000000000000000000000FF000000FF0000000000000000000000000000
0000000000FF000000FF008080FF008080FF000000FF000000FF000000000000
00000000000000000000000000FF000000FF0000000000000000000000000000
0000000000FF008080FF008080FF008080FF000000FF00000000000000000000
000000000000000000FF000000FF000000FF0000000000000000000000000000
00FF000000FF008080FF008080FF008080FF000000FF00000000000000000000
00000000000000000000000000000000000000000000000000FF000000FF0080
80FF008080FF000000FF000000FF000000FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000FF0000
00FF000000FF000000FF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
OnClick = actCustomExecute
end
object MenuItem7: TMenuItem
Action = sysAbout
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000FF000000FF00FFFFFF00FFFFFF00FF
FFFF00FFFFFF00FFFFFF000000FF000000FF0000000000000000000000000000
00000000000000000000000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF
FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF00000000000000000000
000000000000000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF
FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000000000
000000000000000000FF00FFFFFF00FFFFFF00FFFFFF000000FF000000FF0000
00FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF000000FF000000000000
0000000000FF00FFFFFF00FFFFFF00FFFFFF000000FF00FFFFFF00FFFFFF00FF
FFFF00FFFFFF00FFFFFF000000FF00FFFFFF00FFFFFF00FFFFFF000000000000
0000000000FF00FFFFFF00FFFFFF000000FF00FFFFFF00FFFFFF00FFFFFF00FF
FFFF00FFFFFF00FFFFFF00FFFFFF000000FF00FFFFFF00FFFFFF000000000000
0000000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF
FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000
0000000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF
FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000
0000000000FF00FFFFFF00FFFFFF00FFFFFF000000FF000000FF00FFFFFF00FF
FFFF00FFFFFF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF000000000000
000000000000000000FF00FFFFFF00FFFFFF000000FF000000FF00FFFFFF00FF
FFFF00FFFFFF000000FF000000FF00FFFFFF00FFFFFF000000FF000000000000
000000000000000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF
FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000000000
00000000000000000000000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF
FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF00000000000000000000
0000000000000000000000000000000000FF000000FF00FFFFFF00FFFFFF00FF
FFFF00FFFFFF00FFFFFF000000FF000000FF0000000000000000000000000000
00000000000000000000000000000000000000000000000000FF000000FF0000
00FF000000FF000000FF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
OnClick = sysAboutExecute
end
object MenuItem6: TMenuItem
Caption = '-'
end
object MenuItem5: TMenuItem
Action = actExit
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000808000FF8080
80FF808080FF808080FF808080FF808080FF808080FF808080FF808080FF8080
80FFFFFFFFFFC0C0C0FF808080FFC0C0C0FFFFFFFFFF808080FF808080FF8080
80FF808080FF808080FF808080FF808080FF808080FF808080FF808080FF8080
80FF808080FFFFFFFFFF808080FFFFFFFFFF808080FF808080FF800000FF8000
00FF800000FF800000FF000000FF000000FF808080FF808080FF808080FFFFFF
FFFFFFFFFFFFFFFFFFFF800000FF800000FF800000FF800000FF000000000000
000000000000800000FFFF0000FF800000FF000000FF000000FF808080FFFFFF
FFFFFFFFFFFFFFFFFFFF800000FF000000000000000000000000000000000000
000000000000800000FF800000FFFF0000FF800000FF000000FFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF800000FF000000000000000000000000000000000000
000000000000800000FFFF0000FF800000FFFF0000FF000000FFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF800000FF000000000000000000000000000000000000
000000000000800000FF800000FFFF0000FF800000FF000000FFFFFFFFFFFFFF
00FFFFFFFFFFFFFF00FF800000FF000000000000000000000000000000000000
000000000000800000FFFF0000FF800000FFFF0000FF000000FFFFFF00FFFFFF
FFFFFFFF00FFFFFFFFFF800000FF000000000000000000000000000000000000
000000000000800000FF800000FFFF0000FF800000FF000000FFFFFFFFFFFFFF
00FFFFFFFFFFFFFF00FF800000FF000000000000000000000000000000000000
000000000000800000FFFF0000FF800000FFFF0000FF000000FFFFFF00FFFFFF
FFFFFFFF00FFFFFFFFFF800000FF000000000000000000000000000000000000
000000000000800000FF800000FF800000FF800000FF800000FF800000FF8000
00FF800000FF800000FF800000FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000FF000000FF000000FF000000FF0000
00FF000000FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000FF008000FF008000FF008000FF0080
00FF000000FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000FF000000FF000000FF000000FF0000
00FF000000FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
OnClick = actExitExecute
end
end
object PopupMenu2: TPopupMenu
Images = ImageList1
left = 168
top = 40
object MenuItem10: TMenuItem
Caption = 'Item 1'
end
object MenuItem11: TMenuItem
Caption = 'Item 2'
end
object MenuItem12: TMenuItem
Caption = 'Item 3'
end
object MenuItem13: TMenuItem
Caption = 'Item 4'
end
end
object RxIniPropStorage1: TRxIniPropStorage
StoredValues = <>
SeparateFiles = True
left = 168
top = 156
end
object RxAboutDialog1: TRxAboutDialog
Options = [radShowImageLogo]
Caption = 'О системе'
left = 360
top = 72
end
end

View File

@@ -0,0 +1,146 @@
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, rxtoolbar, RxMDI, Forms, Controls, Graphics,
Dialogs, ActnList, Menus, ComCtrls, ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Action1: TAction;
Action2: TAction;
Action3: TAction;
MenuItem11: TMenuItem;
optHideCloseButton: TAction;
MenuItem10: TMenuItem;
optMidleMouseClickClose: TAction;
MenuItem9: TMenuItem;
optShowInfoLabel: TAction;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
MenuItem6: TMenuItem;
MenuItem7: TMenuItem;
MenuItem8: TMenuItem;
sysClose: TAction;
ActionList1: TActionList;
MainMenu1: TMainMenu;
RxMDICloseButton1: TRxMDICloseButton;
RxMDIPanel1: TRxMDIPanel;
RxMDITasks1: TRxMDITasks;
StatusBar1: TStatusBar;
Timer1: TTimer;
ToolPanel1: TToolPanel;
procedure Action1Execute(Sender: TObject);
procedure Action2Execute(Sender: TObject);
procedure Action3Execute(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure optHideCloseButtonExecute(Sender: TObject);
procedure optMidleMouseClickCloseExecute(Sender: TObject);
procedure optShowInfoLabelExecute(Sender: TObject);
procedure RxMDIPanel1ChangeCurrentChild(Sender: TRxMDIPanel; AForm: TForm);
procedure sysCloseExecute(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
procedure UpdateOptions;
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4;
{$R *.lfm}
{ TForm1 }
procedure TForm1.sysCloseExecute(Sender: TObject);
begin
Close;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Assigned(ActiveControl) then
StatusBar1.Panels[0].Text:=ActiveControl.Caption
else
StatusBar1.Panels[0].Text:='<NONE>'
;
end;
procedure TForm1.UpdateOptions;
begin
RxMDICloseButton1.ShowInfoLabel:=optShowInfoLabel.Checked;
if optMidleMouseClickClose.Checked then
RxMDITasks1.Options:=RxMDITasks1.Options + [rxtoMidleClickClose]
else
RxMDITasks1.Options:=RxMDITasks1.Options - [rxtoMidleClickClose];
RxMDIPanel1.HideCloseButton:=optHideCloseButton.Checked;
end;
procedure TForm1.Action1Execute(Sender: TObject);
begin
RxMDIPanel1.ChildWindowsCreate(Form2, TForm2);
end;
procedure TForm1.Action2Execute(Sender: TObject);
begin
RxMDIPanel1.ChildWindowsCreate(Form3, TForm3);
end;
procedure TForm1.Action3Execute(Sender: TObject);
var
Form4: TForm4;
begin
Form4:=TForm4.Create(Application);
RxMDIPanel1.ChildWindowsAdd(Form4);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
UpdateOptions;
end;
procedure TForm1.optHideCloseButtonExecute(Sender: TObject);
begin
optHideCloseButton.Checked:=not optHideCloseButton.Checked;
UpdateOptions;
end;
procedure TForm1.optMidleMouseClickCloseExecute(Sender: TObject);
begin
optMidleMouseClickClose.Checked:=not optMidleMouseClickClose.Checked;
UpdateOptions;
end;
procedure TForm1.optShowInfoLabelExecute(Sender: TObject);
begin
optShowInfoLabel.Checked:=not optShowInfoLabel.Checked;
UpdateOptions;
end;
procedure TForm1.RxMDIPanel1ChangeCurrentChild(Sender: TRxMDIPanel; AForm: TForm
);
begin
if Assigned(AForm) then
StatusBar1.Panels[1].Text:=AForm.Caption
else
StatusBar1.Panels[1].Text:='<NONE>'
;
end;
end.

View File

@@ -0,0 +1,346 @@
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!-- Created with Inkscape (http://www.inkscape.org/) -->
<svg
xmlns:osb="http://www.openswatchbook.org/uri/2009/osb"
xmlns:dc="http://purl.org/dc/elements/1.1/"
xmlns:cc="http://creativecommons.org/ns#"
xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
xmlns:svg="http://www.w3.org/2000/svg"
xmlns="http://www.w3.org/2000/svg"
xmlns:xlink="http://www.w3.org/1999/xlink"
xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
width="24"
height="24"
viewBox="0 0 24 24"
id="svg4225"
version="1.1"
inkscape:version="0.92.3 (2405546, 2018-03-11)"
sodipodi:docname="tdbcombobox_rx.svg"
inkscape:export-filename="D:\temp\rx\work\tdbcombobox_rx.png"
inkscape:export-xdpi="96"
inkscape:export-ydpi="96">
<defs
id="defs4227">
<linearGradient
osb:paint="solid"
id="linearGradient826">
<stop
id="stop824"
offset="0"
style="stop-color:#e6e6e6;stop-opacity:1;" />
</linearGradient>
<linearGradient
gradientUnits="userSpaceOnUse"
y2="1035.3622"
x2="12"
y1="1035.3622"
x1="3"
id="linearGradient908"
xlink:href="#linearGradient914"
inkscape:collect="always"
gradientTransform="matrix(4,0,0,4,-34.932291,-3108.2561)" />
<linearGradient
inkscape:collect="always"
id="linearGradient914">
<stop
style="stop-color:#4276c4;stop-opacity:1;"
offset="0"
id="stop910" />
<stop
id="stop916"
offset="0.34375"
style="stop-color:#80b3ff;stop-opacity:1" />
<stop
style="stop-color:#0044aa;stop-opacity:1"
offset="1"
id="stop912" />
</linearGradient>
<linearGradient
y2="1035.3622"
x2="12"
y1="1035.3622"
x1="3"
gradientTransform="matrix(4,0,0,4,-34.932291,-3132.2557)"
gradientUnits="userSpaceOnUse"
id="linearGradient936"
xlink:href="#linearGradient914"
inkscape:collect="always" />
<linearGradient
gradientTransform="matrix(4,0,0,4,-34.932291,-3120.2561)"
y2="1035.3622"
x2="12"
y1="1035.3622"
x1="3"
gradientUnits="userSpaceOnUse"
id="linearGradient932"
xlink:href="#linearGradient914"
inkscape:collect="always" />
<linearGradient
inkscape:collect="always"
xlink:href="#linearGradient914"
id="linearGradient876"
gradientUnits="userSpaceOnUse"
gradientTransform="matrix(4,0,0,4,-34.932291,-3108.2561)"
x1="3"
y1="1035.3622"
x2="12"
y2="1035.3622" />
<pattern
y="0"
x="0"
height="6"
width="6"
patternUnits="userSpaceOnUse"
id="EMFhbasepattern" />
</defs>
<sodipodi:namedview
id="base"
pagecolor="#ffffff"
bordercolor="#666666"
borderopacity="1.0"
inkscape:pageopacity="0.0"
inkscape:pageshadow="2"
inkscape:zoom="21.208333"
inkscape:cx="-3.7485268"
inkscape:cy="12"
inkscape:document-units="px"
inkscape:current-layer="layer5"
showgrid="true"
inkscape:snap-bbox="true"
inkscape:bbox-paths="true"
inkscape:bbox-nodes="true"
inkscape:snap-bbox-edge-midpoints="true"
inkscape:snap-bbox-midpoints="true"
inkscape:object-paths="true"
inkscape:snap-intersection-paths="true"
inkscape:object-nodes="true"
inkscape:snap-smooth-nodes="true"
inkscape:snap-midpoints="true"
inkscape:snap-object-midpoints="true"
inkscape:snap-center="true"
units="px"
inkscape:window-width="1920"
inkscape:window-height="1018"
inkscape:window-x="-8"
inkscape:window-y="-8"
inkscape:window-maximized="1">
<inkscape:grid
type="xygrid"
id="grid4241" />
</sodipodi:namedview>
<metadata
id="metadata4230">
<rdf:RDF>
<cc:Work
rdf:about="">
<dc:format>image/svg+xml</dc:format>
<dc:type
rdf:resource="http://purl.org/dc/dcmitype/StillImage" />
<dc:title />
</cc:Work>
</rdf:RDF>
</metadata>
<g
inkscape:groupmode="layer"
id="layer6"
inkscape:label="base"
transform="translate(0,-24)">
<rect
style="fill:none;fill-rule:evenodd;stroke-width:1.29777133"
id="rect208"
width="24"
height="24"
x="0"
y="24" />
</g>
<g
inkscape:label="db"
inkscape:groupmode="layer"
id="layer1"
transform="translate(0,-1028.3622)"
style="display:inline">
<g
id="g899"
transform="matrix(0.5,0,0,0.5,17.466145,525.76595)">
<ellipse
ry="3"
rx="10"
cy="1030.1925"
cx="-20.919643"
id="ellipse880"
style="opacity:1;fill:#bdd1ec;fill-opacity:1;fill-rule:evenodd;stroke:url(#linearGradient876);stroke-width:3.99999976;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1;paint-order:normal" />
<ellipse
ry="3.9169633"
rx="10.988618"
cy="1026.2755"
cx="-20.919643"
id="ellipse878"
style="opacity:1;fill:#bdd1ec;fill-opacity:1;fill-rule:evenodd;stroke:#ffffff;stroke-width:2;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1;paint-order:normal" />
<ellipse
style="opacity:1;fill:#bdd1ec;fill-opacity:1;fill-rule:evenodd;stroke:url(#linearGradient932);stroke-width:3.99999976;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1;paint-order:normal"
id="ellipse930"
cx="-20.919643"
cy="1024.1925"
rx="10"
ry="3" />
<ellipse
style="opacity:1;fill:#bdd1ec;fill-opacity:1;fill-rule:evenodd;stroke:#ffffff;stroke-width:2;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1;paint-order:normal"
id="ellipse874"
cx="-20.919643"
cy="1020.2756"
rx="10.988618"
ry="3.9169633" />
<ellipse
ry="3"
rx="10"
cy="1018.1926"
cx="-20.919643"
id="ellipse934"
style="opacity:1;fill:#bdd1ec;fill-opacity:1;fill-rule:evenodd;stroke:url(#linearGradient936);stroke-width:3.99999976;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1;paint-order:normal" />
<ellipse
ry="3.9169633"
rx="10.988618"
cy="1014.2756"
cx="-20.919643"
id="ellipse858"
style="opacity:1;fill:#bdd1ec;fill-opacity:1;fill-rule:evenodd;stroke:#ffffff;stroke-width:2;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1;paint-order:normal" />
<ellipse
style="opacity:1;fill:#80b3ff;fill-opacity:1;fill-rule:evenodd;stroke:url(#linearGradient908);stroke-width:1.99999988;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1;paint-order:normal"
id="ellipse868"
cx="-20.919643"
cy="1012.1926"
rx="11"
ry="4" />
</g>
<g
aria-label="7"
style="font-style:normal;font-weight:normal;font-size:10.66666698px;line-height:25px;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"
id="text846"
transform="matrix(0.5,0,0,0.5,-49.916347,514.0452)" />
<g
aria-label="7"
style="font-style:normal;font-weight:normal;font-size:10.66666698px;line-height:25px;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"
id="text846-8"
transform="matrix(0.5,0,0,0.5,-62.925585,511.6925)" />
<g
aria-label="7"
style="font-style:normal;font-weight:normal;font-size:10.66666698px;line-height:25px;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"
id="text846-2"
transform="matrix(0.5,0,0,0.5,-71.60414,515.42715)" />
<g
aria-label="7"
style="font-style:normal;font-weight:normal;font-size:10.66666698px;line-height:25px;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"
id="text846-8-8"
transform="matrix(0.5,0,0,0.5,-84.613375,513.07444)" />
<g
aria-label="7"
style="font-style:normal;font-weight:normal;font-size:10.66666698px;line-height:25px;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"
id="text846-6"
transform="matrix(0.5,0,0,0.5,-58.231865,515.68991)" />
<g
aria-label="7"
style="font-style:normal;font-weight:normal;font-size:10.66666698px;line-height:25px;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"
id="text846-8-1"
transform="matrix(0.5,0,0,0.5,-71.2411,513.3372)" />
<g
aria-label="7"
style="font-style:normal;font-weight:normal;font-size:10.66666698px;line-height:25px;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"
id="text846-4"
transform="matrix(0.5,0,0,0.5,-67.59445,510.86817)" />
<g
aria-label="7"
style="font-style:normal;font-weight:normal;font-size:10.66666698px;line-height:25px;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"
id="text846-8-4"
transform="matrix(0.5,0,0,0.5,-80.60369,508.51547)" />
<g
aria-label="7"
style="font-style:normal;font-weight:normal;font-size:10.66666698px;line-height:25px;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"
id="text846-5"
transform="matrix(0.5,0,0,0.5,-95.610425,509.16817)" />
<g
aria-label="7"
style="font-style:normal;font-weight:normal;font-size:10.66666698px;line-height:25px;font-family:sans-serif;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"
id="text846-8-2"
transform="matrix(0.5,0,0,0.5,-108.61966,506.81546)" />
</g>
<g
inkscape:groupmode="layer"
id="layer5"
inkscape:label="arrow"
transform="translate(0,-24)" />
<g
inkscape:groupmode="layer"
id="layer4"
inkscape:label="lookup"
transform="translate(0,-24)">
<rect
y="32.499962"
x="18.499998"
height="4.0000172"
width="4"
id="rect891"
style="opacity:1;fill:#ffffff;fill-opacity:1;stroke:#4d4d4d;stroke-width:1;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1;paint-order:normal" />
<rect
style="opacity:1;fill:#ffffff;fill-opacity:1;stroke:#4d4d4d;stroke-width:0.99999994;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1;paint-order:normal"
id="rect893"
width="10"
height="4.0000176"
x="8.5"
y="32.499962" />
<rect
y="36.499992"
x="8.5"
height="10.000017"
width="14"
id="rect895"
style="opacity:1;fill:#ffffff;fill-opacity:1;stroke:#4d4d4d;stroke-width:1;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:1;paint-order:normal;stroke-linejoin:round" />
<path
inkscape:connector-curvature="0"
id="path897"
d="m 10.97888,43.5 h 8"
style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:0.9999997px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1" />
<path
inkscape:connector-curvature="0"
id="path899"
d="m 10.97888,41.500001 h 7"
style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:0.9999997px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1" />
<path
inkscape:connector-curvature="0"
id="path901"
d="m 10.97888,39.5 h 7.999998"
style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:0.9999997px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1" />
<path
style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:0.99999988px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"
d="m 9.999998,34.49995 h 7"
id="path903"
inkscape:connector-curvature="0" />
<path
style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:0.49999994;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:normal"
d="m 19.631239,33.744016 0.949481,1.142672 0.950047,-1.142672"
id="path920"
inkscape:connector-curvature="0"
sodipodi:nodetypes="ccc" />
</g>
<g
inkscape:groupmode="layer"
id="layer3"
inkscape:label="text"
transform="translate(0,-24)">
<flowRoot
xml:space="preserve"
id="flowRoot914-84"
style="font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;font-size:12px;line-height:1.25;font-family:'Arial Unicode MS';-inkscape-font-specification:'Arial Unicode MS';letter-spacing:0px;word-spacing:0px;fill:#c500ab;fill-opacity:1;stroke:#ffffff;stroke-width:2.96764684;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:markers stroke fill"
transform="matrix(0.46354284,0,0,0.55114772,-1.2832947,23.859648)"><flowRegion
id="flowRegion916-4"
style="fill:#c500ab;fill-opacity:1;stroke:#ffffff;stroke-width:2.96764684;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:markers stroke fill"><rect
id="rect918-7"
width="38.14209"
height="34.674625"
x="3.4674628"
y="-1.8781176"
style="fill:#c500ab;fill-opacity:1;stroke:#ffffff;stroke-width:2.96764684;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:markers stroke fill" /></flowRegion><flowPara
id="flowPara920-5"
style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:21.33333397px;font-family:Arial;-inkscape-font-specification:'Arial Bold';stroke:#ffffff;stroke-width:2.96764684;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1;paint-order:markers stroke fill">Rx</flowPara></flowRoot> </g>
</svg>

After

Width:  |  Height:  |  Size: 15 KiB