aksdb
/
CentrED
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

- Changed alignment of frmBoundaries and frmVirtualLayer 

- Added ParentFont to all controls to keep a consistent look among all widgetsets and DE settings
This commit is contained in:
Andreas Schneider 2008-08-17 15:38:54 +02:00
parent 3e958a4dfc
commit c7d845997e
19 changed files with 1693 additions and 1141 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Client/CentrED.lpi
View File

@ -74,6 +74,7 @@
<Filename Value="UfrmInitialize.pas"/> <Filename Value="UfrmInitialize.pas"/>
<ComponentName Value="frmInitialize"/> <ComponentName Value="frmInitialize"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="UfrmInitialize.lrs"/> <ResourceFilename Value="UfrmInitialize.lrs"/>
<UnitName Value="UfrmInitialize"/> <UnitName Value="UfrmInitialize"/>
</Unit4> </Unit4>
@ -105,6 +106,7 @@
<Filename Value="Tools/UfrmBoundaries.pas"/> <Filename Value="Tools/UfrmBoundaries.pas"/>
<ComponentName Value="frmBoundaries"/> <ComponentName Value="frmBoundaries"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="Tools/UfrmBoundaries.lrs"/> <ResourceFilename Value="Tools/UfrmBoundaries.lrs"/>
<UnitName Value="UfrmBoundaries"/> <UnitName Value="UfrmBoundaries"/>
</Unit8> </Unit8>
@ -112,6 +114,7 @@
<Filename Value="Tools/UfrmElevateSettings.pas"/> <Filename Value="Tools/UfrmElevateSettings.pas"/>
<ComponentName Value="frmElevateSettings"/> <ComponentName Value="frmElevateSettings"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="Tools/UfrmElevateSettings.lrs"/> <ResourceFilename Value="Tools/UfrmElevateSettings.lrs"/>
<UnitName Value="UfrmElevateSettings"/> <UnitName Value="UfrmElevateSettings"/>
</Unit9> </Unit9>
@ -129,6 +132,7 @@
<Filename Value="Tools/UfrmConfirmation.pas"/> <Filename Value="Tools/UfrmConfirmation.pas"/>
<ComponentName Value="frmConfirmation"/> <ComponentName Value="frmConfirmation"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="Tools/UfrmConfirmation.lrs"/> <ResourceFilename Value="Tools/UfrmConfirmation.lrs"/>
<UnitName Value="UfrmConfirmation"/> <UnitName Value="UfrmConfirmation"/>
</Unit12> </Unit12>
@ -136,6 +140,7 @@
<Filename Value="Tools/UfrmMoveSettings.pas"/> <Filename Value="Tools/UfrmMoveSettings.pas"/>
<ComponentName Value="frmMoveSettings"/> <ComponentName Value="frmMoveSettings"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="Tools/UfrmMoveSettings.lrs"/> <ResourceFilename Value="Tools/UfrmMoveSettings.lrs"/>
<UnitName Value="UfrmMoveSettings"/> <UnitName Value="UfrmMoveSettings"/>
</Unit13> </Unit13>
@ -174,6 +179,7 @@
<Filename Value="Tools/UfrmVirtualLayer.pas"/> <Filename Value="Tools/UfrmVirtualLayer.pas"/>
<ComponentName Value="frmVirtualLayer"/> <ComponentName Value="frmVirtualLayer"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="Tools/UfrmVirtualLayer.lrs"/> <ResourceFilename Value="Tools/UfrmVirtualLayer.lrs"/>
<UnitName Value="UfrmVirtualLayer"/> <UnitName Value="UfrmVirtualLayer"/>
</Unit18> </Unit18>
@ -189,6 +195,7 @@
<Filename Value="UfrmTileInfo.pas"/> <Filename Value="UfrmTileInfo.pas"/>
<ComponentName Value="frmTileInfo"/> <ComponentName Value="frmTileInfo"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="UfrmTileInfo.lrs"/> <ResourceFilename Value="UfrmTileInfo.lrs"/>
<UnitName Value="UfrmTileInfo"/> <UnitName Value="UfrmTileInfo"/>
</Unit20> </Unit20>

112
Client/Tools/UfrmBoundaries.lfm
View File

@ -1,39 +1,23 @@
object frmBoundaries: TfrmBoundaries object frmBoundaries: TfrmBoundaries
Left = 290 Left = 290
Height = 105 Height = 154
Top = 171 Top = 171
Width = 187 Width = 212
HorzScrollBar.Page = 186
VertScrollBar.Page = 104
ActiveControl = tbMinZ ActiveControl = tbMinZ
BorderIcons = [] BorderIcons = []
BorderStyle = bsToolWindow BorderStyle = bsToolWindow
Caption = 'Boundaries' Caption = 'Boundaries'
ClientHeight = 105 ClientHeight = 154
ClientWidth = 187 ClientWidth = 212
Font.Height = -11
OnClose = FormClose OnClose = FormClose
OnDeactivate = FormDeactivate OnDeactivate = FormDeactivate
object lblMinZ: TLabel LCLVersion = '0.9.25'
Left = 8
Height = 16
Top = 8
Width = 67
Caption = 'Minimum Z:'
ParentColor = False
end
object lblMaxZ: TLabel
Left = 8
Height = 16
Top = 56
Width = 68
Caption = 'Maximum Z:'
ParentColor = False
end
object tbMinZ: TTrackBar object tbMinZ: TTrackBar
Left = 8 Left = 8
Height = 17 Height = 34
Top = 32 Top = 39
Width = 172 Width = 196
Frequency = 10 Frequency = 10
Max = 127 Max = 127
Min = -128 Min = -128
@ -41,13 +25,15 @@ object frmBoundaries: TfrmBoundaries
PageSize = 1 PageSize = 1
Position = -128 Position = -128
ScalePos = trTop ScalePos = trTop
Align = alTop
BorderSpacing.Around = 8
TabOrder = 0 TabOrder = 0
end end
object tbMaxZ: TTrackBar object tbMaxZ: TTrackBar
Left = 8 Left = 8
Height = 16 Height = 34
Top = 80 Top = 112
Width = 172 Width = 196
Frequency = 10 Frequency = 10
Max = 127 Max = 127
Min = -128 Min = -128
@ -55,28 +41,74 @@ object frmBoundaries: TfrmBoundaries
PageSize = 1 PageSize = 1
Position = 127 Position = 127
ScalePos = trTop ScalePos = trTop
Align = alTop
BorderSpacing.Around = 8
TabOrder = 1 TabOrder = 1
end end
object seMinZ: TSpinEdit object Panel1: TPanel
Left = 128 Left = 8
Height = 23 Height = 23
Top = 4 Top = 8
Width = 50 Width = 196
Align = alTop
BorderSpacing.Around = 8
BevelOuter = bvNone
ClientHeight = 23
ClientWidth = 196
ParentFont = True
TabOrder = 2
object lblMinZ: TLabel
Height = 23
Width = 148
Align = alClient
Caption = 'Minimum Z:'
Layout = tlCenter
ParentColor = False
ParentFont = True
end
object seMinZ: TSpinEdit
Left = 148
Height = 23
Width = 48
Align = alRight
MaxValue = 127 MaxValue = 127
MinValue = -128 MinValue = -128
OnChange = seMinZChange ParentFont = True
TabOrder = 2 TabOrder = 0
Value = -128 Value = -128
end end
object seMaxZ: TSpinEdit end
Left = 128 object Panel2: TPanel
Left = 8
Height = 23 Height = 23
Top = 52 Top = 81
Width = 50 Width = 196
Align = alTop
BorderSpacing.Around = 8
BevelOuter = bvNone
ClientHeight = 23
ClientWidth = 196
ParentFont = True
TabOrder = 3
object lblMaxZ: TLabel
Height = 23
Width = 148
Align = alClient
Caption = 'Maximum Z:'
Layout = tlCenter
ParentColor = False
ParentFont = True
end
object seMaxZ: TSpinEdit
Left = 148
Height = 23
Width = 48
Align = alRight
MaxValue = 127 MaxValue = 127
MinValue = -128 MinValue = -128
OnChange = seMaxZChange ParentFont = True
TabOrder = 3 TabOrder = 0
Value = 127 Value = 127
end end
end
end end

8
Client/Tools/UfrmBoundaries.pas
View File

@ -31,17 +31,19 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, LMessages, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, LMessages,
LCLIntf, StdCtrls, ComCtrls, Spin; LCLIntf, StdCtrls, ComCtrls, Spin, ExtCtrls;
type type
{ TfrmBoundaries } { TfrmBoundaries }
TfrmBoundaries = class(TForm) TfrmBoundaries = class(TForm)
lblMinZ: TLabel;
lblMaxZ: TLabel; lblMaxZ: TLabel;
seMinZ: TSpinEdit; lblMinZ: TLabel;
Panel1: TPanel;
Panel2: TPanel;
seMaxZ: TSpinEdit; seMaxZ: TSpinEdit;
seMinZ: TSpinEdit;
tbMinZ: TTrackBar; tbMinZ: TTrackBar;
tbMaxZ: TTrackBar; tbMaxZ: TTrackBar;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);

6
Client/Tools/UfrmConfirmation.lfm
View File

@ -3,13 +3,13 @@ object frmConfirmation: TfrmConfirmation
Height = 43 Height = 43
Top = 171 Top = 171
Width = 108 Width = 108
HorzScrollBar.Page = 107
VertScrollBar.Page = 42
BorderIcons = [] BorderIcons = []
BorderStyle = bsToolWindow BorderStyle = bsToolWindow
Caption = 'Apply?' Caption = 'Apply?'
ClientHeight = 43 ClientHeight = 43
ClientWidth = 108 ClientWidth = 108
Font.Height = -11
LCLVersion = '0.9.25'
object btnYes: TButton object btnYes: TButton
Left = 8 Left = 8
Height = 25 Height = 25
@ -19,6 +19,7 @@ object frmConfirmation: TfrmConfirmation
Caption = 'Yes' Caption = 'Yes'
Default = True Default = True
ModalResult = 6 ModalResult = 6
ParentFont = True
TabOrder = 0 TabOrder = 0
end end
object btnNo: TButton object btnNo: TButton
@ -30,6 +31,7 @@ object frmConfirmation: TfrmConfirmation
Cancel = True Cancel = True
Caption = 'No' Caption = 'No'
ModalResult = 7 ModalResult = 7
ParentFont = True
TabOrder = 1 TabOrder = 1
end end
end end

18
Client/Tools/UfrmDrawSettings.lfm
View File

@ -9,6 +9,7 @@ object frmDrawSettings: TfrmDrawSettings
Caption = 'Draw settings' Caption = 'Draw settings'
ClientHeight = 181 ClientHeight = 181
ClientWidth = 243 ClientWidth = 243
Font.Height = -11
FormStyle = fsStayOnTop FormStyle = fsStayOnTop
OnClose = FormClose OnClose = FormClose
OnDeactivate = FormDeactivate OnDeactivate = FormDeactivate
@ -26,6 +27,7 @@ object frmDrawSettings: TfrmDrawSettings
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
Caption = 'Use tile from the list' Caption = 'Use tile from the list'
Checked = True Checked = True
ParentFont = True
State = cbChecked State = cbChecked
TabOrder = 0 TabOrder = 0
UseOnChange = True UseOnChange = True
@ -40,6 +42,7 @@ object frmDrawSettings: TfrmDrawSettings
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Use tiles from the random pool' Caption = 'Use tiles from the random pool'
ParentFont = True
TabOrder = 1 TabOrder = 1
UseOnChange = True UseOnChange = True
end end
@ -51,14 +54,15 @@ object frmDrawSettings: TfrmDrawSettings
Align = alTop Align = alTop
BorderSpacing.Around = 8 BorderSpacing.Around = 8
Caption = 'Hue (Statics only)' Caption = 'Hue (Statics only)'
ClientHeight = 30 ClientHeight = 32
ClientWidth = 221 ClientWidth = 223
ParentFont = True
TabOrder = 2 TabOrder = 2
object pbHue: TPaintBox object pbHue: TPaintBox
Cursor = crHandPoint Cursor = crHandPoint
Left = 4 Left = 4
Height = 26 Height = 28
Width = 213 Width = 215
Align = alClient Align = alClient
BorderSpacing.Left = 4 BorderSpacing.Left = 4
BorderSpacing.Right = 4 BorderSpacing.Right = 4
@ -77,6 +81,7 @@ object frmDrawSettings: TfrmDrawSettings
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 23 ClientHeight = 23
ClientWidth = 227 ClientWidth = 227
ParentFont = True
TabOrder = 3 TabOrder = 3
object seForceAltitude: TSpinEdit object seForceAltitude: TSpinEdit
Left = 177 Left = 177
@ -85,6 +90,7 @@ object frmDrawSettings: TfrmDrawSettings
Align = alRight Align = alRight
MaxValue = 127 MaxValue = 127
MinValue = -128 MinValue = -128
ParentFont = True
TabOrder = 0 TabOrder = 0
end end
object cbForceAltitude: TCheckBox object cbForceAltitude: TCheckBox
@ -92,6 +98,7 @@ object frmDrawSettings: TfrmDrawSettings
Width = 177 Width = 177
Align = alClient Align = alClient
Caption = 'Force altitude:' Caption = 'Force altitude:'
ParentFont = True
TabOrder = 1 TabOrder = 1
end end
end end
@ -105,12 +112,14 @@ object frmDrawSettings: TfrmDrawSettings
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 23 ClientHeight = 23
ClientWidth = 227 ClientWidth = 227
ParentFont = True
TabOrder = 4 TabOrder = 4
object seRandomHeight: TSpinEdit object seRandomHeight: TSpinEdit
Left = 177 Left = 177
Height = 23 Height = 23
Width = 50 Width = 50
Align = alRight Align = alRight
ParentFont = True
TabOrder = 0 TabOrder = 0
end end
object cbRandomHeight: TCheckBox object cbRandomHeight: TCheckBox
@ -118,6 +127,7 @@ object frmDrawSettings: TfrmDrawSettings
Width = 177 Width = 177
Align = alClient Align = alClient
Caption = 'Add Random Altitude' Caption = 'Add Random Altitude'
ParentFont = True
TabOrder = 1 TabOrder = 1
end end
end end

29
Client/Tools/UfrmElevateSettings.lfm
View File

@ -1,52 +1,61 @@
object frmElevateSettings: TfrmElevateSettings object frmElevateSettings: TfrmElevateSettings
Left = 290 Left = 290
Height = 59 Height = 65
Top = 171 Top = 171
Width = 131 Width = 131
HorzScrollBar.Page = 130 HorzScrollBar.Page = 130
VertScrollBar.Page = 58 HorzScrollBar.Range = 122
VertScrollBar.Page = 64
VertScrollBar.Range = 59
ActiveControl = rbRaise ActiveControl = rbRaise
AutoScroll = False
BorderIcons = [] BorderIcons = []
BorderStyle = bsToolWindow BorderStyle = bsToolWindow
Caption = 'Elevate' Caption = 'Elevate'
ClientHeight = 59 ClientHeight = 65
ClientWidth = 131 ClientWidth = 131
Font.Height = -11
OnClose = FormClose OnClose = FormClose
OnDeactivate = FormDeactivate OnDeactivate = FormDeactivate
LCLVersion = '0.9.25'
object rbRaise: TRadioButton object rbRaise: TRadioButton
Left = 8 Left = 8
Height = 15 Height = 21
Top = 8 Top = 8
Width = 49 Width = 58
Caption = 'Raise' Caption = 'Raise'
Checked = True Checked = True
ParentFont = True
State = cbChecked State = cbChecked
TabOrder = 0 TabOrder = 0
end end
object rbLower: TRadioButton object rbLower: TRadioButton
Left = 8 Left = 8
Height = 15 Height = 21
Top = 24 Top = 24
Width = 51 Width = 59
Caption = 'Lower' Caption = 'Lower'
ParentFont = True
TabOrder = 1 TabOrder = 1
end end
object seZ: TSpinEdit object seZ: TSpinEdit
Left = 72 Left = 72
Height = 23 Height = 23
Top = 20 Top = 22
Width = 50 Width = 50
MaxValue = 127 MaxValue = 127
MinValue = -128 MinValue = -128
ParentFont = True
TabOrder = 3 TabOrder = 3
Value = 1 Value = 1
end end
object rbSet: TRadioButton object rbSet: TRadioButton
Left = 8 Left = 8
Height = 15 Height = 21
Top = 40 Top = 40
Width = 38 Width = 43
Caption = 'Set' Caption = 'Set'
ParentFont = True
TabOrder = 2 TabOrder = 2
end end
end end

64
Client/Tools/UfrmFilter.lfm
View File

@ -1,14 +1,15 @@
object frmFilter: TfrmFilter object frmFilter: TfrmFilter
Left = 290 Left = 290
Height = 491 Height = 492
Top = 171 Top = 171
Width = 236 Width = 236
ActiveControl = rgFilterType.RadioButton0 ActiveControl = rgFilterType.RadioButton0
BorderIcons = [biSystemMenu, biMinimize] BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsToolWindow BorderStyle = bsToolWindow
Caption = 'Filter' Caption = 'Filter'
ClientHeight = 491 ClientHeight = 492
ClientWidth = 236 ClientWidth = 236
Font.Height = -11
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
LCLVersion = '0.9.25' LCLVersion = '0.9.25'
@ -29,51 +30,58 @@ object frmFilter: TfrmFilter
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 21 ClientHeight = 23
ClientWidth = 222 ClientWidth = 224
Columns = 2 Columns = 2
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'Exclusive' 'Exclusive'
'Inclusive' 'Inclusive'
) )
ParentFont = True
TabOrder = 0 TabOrder = 0
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 4 Left = 4
Height = 258 Height = 259
Top = 48 Top = 48
Width = 228 Width = 228
Align = alClient Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'Tile filter' Caption = 'Tile filter'
ClientHeight = 239 ClientHeight = 242
ClientWidth = 222 ClientWidth = 224
ParentFont = True
TabOrder = 1 TabOrder = 1
object Label1: TLabel object Label1: TLabel
Left = 4 Left = 4
Height = 25 Height = 28
Top = 29 Top = 29
Width = 214 Width = 216
Align = alTop Align = alTop
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'Drag and Drop static tiles from the tile list on this list to add them to the filter.' Caption = 'Drag and Drop static tiles from the tile list on this list to add them to the filter.'
ParentColor = False ParentColor = False
ParentFont = True
WordWrap = True WordWrap = True
end end
object vdtFilter: TVirtualDrawTree object vdtFilter: TVirtualDrawTree
Tag = 1 Tag = 1
Cursor = 63
Left = 4 Left = 4
Height = 151 Height = 151
Top = 58 Top = 61
Width = 214 Width = 216
Align = alClient Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BorderStyle = bsSingle BorderStyle = bsSingle
DefaultNodeHeight = 44 DefaultNodeHeight = 44
DragType = dtVCL DragType = dtVCL
Header.Font.Height = -11
Header.Options = [hoColumnResize, hoDrag, hoVisible] Header.Options = [hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons Header.Style = hsFlatButtons
ParentFont = True
TabOrder = 0 TabOrder = 0
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages] TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect] TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect]
@ -98,13 +106,14 @@ object frmFilter: TfrmFilter
object pnlControls: TPanel object pnlControls: TPanel
Left = 4 Left = 4
Height = 22 Height = 22
Top = 213 Top = 216
Width = 214 Width = 216
Align = alBottom Align = alBottom
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 22 ClientHeight = 22
ClientWidth = 214 ClientWidth = 216
ParentFont = True
TabOrder = 1 TabOrder = 1
object btnDelete: TSpeedButton object btnDelete: TSpeedButton
Left = 84 Left = 84
@ -151,6 +160,7 @@ object frmFilter: TfrmFilter
NumGlyphs = 0 NumGlyphs = 0
OnClick = btnDeleteClick OnClick = btnDeleteClick
ShowHint = True ShowHint = True
ParentFont = True
ParentShowHint = False ParentShowHint = False
end end
object btnClear: TSpeedButton object btnClear: TSpeedButton
@ -198,6 +208,7 @@ object frmFilter: TfrmFilter
NumGlyphs = 0 NumGlyphs = 0
OnClick = btnClearClick OnClick = btnClearClick
ShowHint = True ShowHint = True
ParentFont = True
ParentShowHint = False ParentShowHint = False
end end
end end
@ -205,11 +216,12 @@ object frmFilter: TfrmFilter
Left = 4 Left = 4
Height = 21 Height = 21
Top = 4 Top = 4
Width = 214 Width = 216
Align = alTop Align = alTop
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'Filter active' Caption = 'Filter active'
Checked = True Checked = True
ParentFont = True
State = cbChecked State = cbChecked
TabOrder = 2 TabOrder = 2
end end
@ -217,35 +229,41 @@ object frmFilter: TfrmFilter
object GroupBox2: TGroupBox object GroupBox2: TGroupBox
Left = 4 Left = 4
Height = 168 Height = 168
Top = 319 Top = 320
Width = 228 Width = 228
Align = alBottom Align = alBottom
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'Hue filter' Caption = 'Hue filter'
ClientHeight = 149 ClientHeight = 151
ClientWidth = 222 ClientWidth = 224
ParentFont = True
TabOrder = 2 TabOrder = 2
object cbHueFilter: TCheckBox object cbHueFilter: TCheckBox
Left = 4 Left = 4
Height = 21 Height = 21
Top = 4 Top = 4
Width = 214 Width = 216
Align = alTop Align = alTop
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'Filter active' Caption = 'Filter active'
ParentFont = True
TabOrder = 0 TabOrder = 0
end end
object vdtHues: TVirtualDrawTree object vdtHues: TVirtualDrawTree
Cursor = 63
Left = 4 Left = 4
Height = 116 Height = 118
Top = 29 Top = 29
Width = 214 Width = 216
Align = alClient Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BorderStyle = bsSingle BorderStyle = bsSingle
Header.AutoSizeIndex = 2 Header.AutoSizeIndex = 2
Header.Font.Height = -11
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible] Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons Header.Style = hsFlatButtons
ParentFont = True
PopupMenu = pmHues PopupMenu = pmHues
TabOrder = 1 TabOrder = 1
TreeOptions.MiscOptions = [toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning] TreeOptions.MiscOptions = [toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
@ -264,7 +282,7 @@ object frmFilter: TfrmFilter
end end
item item
Position = 2 Position = 2
Width = 156 Width = 158
WideText = 'Name' WideText = 'Name'
end> end>
end end
@ -272,7 +290,7 @@ object frmFilter: TfrmFilter
object Splitter1: TSplitter object Splitter1: TSplitter
Cursor = crVSplit Cursor = crVSplit
Height = 5 Height = 5
Top = 310 Top = 311
Width = 236 Width = 236
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom

14
Client/Tools/UfrmHueSettings.lfm
View File

@ -1,15 +1,14 @@
object frmHueSettings: TfrmHueSettings object frmHueSettings: TfrmHueSettings
Left = 290 Left = 290
Height = 207 Height = 208
Top = 171 Top = 171
Width = 217 Width = 217
HorzScrollBar.Page = 216
VertScrollBar.Page = 206
BorderIcons = [] BorderIcons = []
BorderStyle = bsToolWindow BorderStyle = bsToolWindow
Caption = 'Hue Settings' Caption = 'Hue Settings'
ClientHeight = 207 ClientHeight = 208
ClientWidth = 217 ClientWidth = 217
Font.Height = -11
FormStyle = fsStayOnTop FormStyle = fsStayOnTop
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
@ -17,11 +16,12 @@ object frmHueSettings: TfrmHueSettings
LCLVersion = '0.9.25' LCLVersion = '0.9.25'
object lblHue: TLabel object lblHue: TLabel
Left = 8 Left = 8
Height = 12 Height = 13
Top = 12 Top = 16
Width = 27 Width = 27
Caption = 'Hue:' Caption = 'Hue:'
ParentColor = False ParentColor = False
ParentFont = True
end end
object edHue: TEdit object edHue: TEdit
Left = 48 Left = 48
@ -29,6 +29,7 @@ object frmHueSettings: TfrmHueSettings
Top = 10 Top = 10
Width = 80 Width = 80
OnEditingDone = edHueEditingDone OnEditingDone = edHueEditingDone
ParentFont = True
TabOrder = 0 TabOrder = 0
end end
object lbHue: TListBox object lbHue: TListBox
@ -39,6 +40,7 @@ object frmHueSettings: TfrmHueSettings
ItemHeight = 16 ItemHeight = 16
OnDrawItem = lbHueDrawItem OnDrawItem = lbHueDrawItem
OnSelectionChange = lbHueSelectionChange OnSelectionChange = lbHueSelectionChange
ParentFont = True
Style = lbOwnerDrawFixed Style = lbOwnerDrawFixed
TabOrder = 1 TabOrder = 1
TopIndex = -1 TopIndex = -1

412
Client/Tools/UfrmMoveSettings.lfm
View File

@ -1,37 +1,39 @@
object frmMoveSettings: TfrmMoveSettings object frmMoveSettings: TfrmMoveSettings
Left = 290 Left = 290
Height = 125 Height = 113
Top = 171 Top = 171
Width = 228 Width = 236
HorzScrollBar.Page = 227
VertScrollBar.Page = 124
ActiveControl = cbAsk ActiveControl = cbAsk
BorderIcons = [] BorderIcons = []
BorderStyle = bsToolWindow BorderStyle = bsToolWindow
Caption = 'Move settings' Caption = 'Move settings'
ClientHeight = 125 ClientHeight = 113
ClientWidth = 228 ClientWidth = 236
Font.Height = -11
FormStyle = fsStayOnTop FormStyle = fsStayOnTop
OnClose = FormClose OnClose = FormClose
OnDeactivate = FormDeactivate OnDeactivate = FormDeactivate
OnShow = FormShow OnShow = FormShow
LCLVersion = '0.9.25'
object cbAsk: TCheckBox object cbAsk: TCheckBox
Left = 128 Left = 128
Height = 15 Height = 21
Top = 16 Top = 16
Width = 89 Width = 102
Caption = 'Ask each time' Caption = 'Ask each time'
Checked = True Checked = True
ParentFont = True
State = cbChecked State = cbChecked
TabOrder = 0 TabOrder = 0
end end
object gbDirection: TGroupBox object gbDirection: TGroupBox
Left = 8 Left = 8
Height = 112 Height = 96
Top = 8 Top = 8
Width = 105 Width = 105
ClientHeight = 94 ClientHeight = 92
ClientWidth = 101 ClientWidth = 101
ParentFont = True
TabOrder = 1 TabOrder = 1
object btnTopLeft: TSpeedButton object btnTopLeft: TSpeedButton
Left = 6 Left = 6
@ -40,23 +42,45 @@ object frmMoveSettings: TfrmMoveSettings
Color = clBtnFace Color = clBtnFace
Down = True Down = True
Glyph.Data = { Glyph.Data = {
8D0100002F2A2058504D202A2F0A7374617469632063686172202A6772617068 36040000424D3604000000000000360000002800000010000000100000000100
69635B5D203D207B0A22313620313620322031222C0A222E2063204E6F6E6522 2000000000000004000064000000640000000000000000000000000000000000
2C0A222C20632023343034303430222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2C2C2C2C 0000000000000000000000000000000000000000000000000000000000000000
2C2C2C2E2E2E2E2E2E2E222C0A222E2E2C2C2C2C2C2C2E2E2E2E2E2E2E2E222C 0000000000000000000000000000000000000000000000000000000000000000
0A222E2E2C2C2C2C2C2E2E2E2E2E2E2E2E2E222C0A222E2E2C2C2C2C2C2C2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E2E2E2E2E222C0A222E2E2C2C2C2C2C2C2C2E2E2E2E2E2E2E222C0A222E2E 0000000000000000000000000000000000000000000000000000000000000000
2C2C2E2C2C2C2C2C2E2E2E2E2E2E222C0A222E2E2C2E2E2E2C2C2C2C2C2E2E2E 000000000000404040FF00000000000000000000000000000000000000000000
2E2E222C0A222E2E2E2E2E2E2E2C2C2C2C2C2E2E2E2E222C0A222E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E2C2C2C2C2C2E2E2E222C0A222E2E2E2E2E2E2E2E2E2C2C2C2C2C2E2E222C 0000404040FF404040FF404040FF000000000000000000000000000000000000
0A222E2E2E2E2E2E2E2E2E2E2C2C2C2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000004040
2E2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E 40FF404040FF404040FF404040FF404040FF0000000000000000000000000000
2E2E2E2E2E2E2E2E2E2E2E2E2E2E227D0A 0000000000000000000000000000000000000000000000000000404040FF4040
40FF404040FF404040FF404040FF000000000000000000000000000000000000
00000000000000000000000000000000000000000000404040FF404040FF4040
40FF404040FF404040FF00000000000000000000000000000000000000000000
0000404040FF000000000000000000000000404040FF404040FF404040FF4040
40FF404040FF0000000000000000000000000000000000000000000000000000
0000404040FF404040FF00000000404040FF404040FF404040FF404040FF4040
40FF000000000000000000000000000000000000000000000000000000000000
0000404040FF404040FF404040FF404040FF404040FF404040FF404040FF0000
0000000000000000000000000000000000000000000000000000000000000000
0000404040FF404040FF404040FF404040FF404040FF404040FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000404040FF404040FF404040FF404040FF404040FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000404040FF404040FF404040FF404040FF404040FF404040FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000404040FF404040FF404040FF404040FF404040FF404040FF404040FF0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
} }
GroupIndex = 1 GroupIndex = 1
NumGlyphs = 0 NumGlyphs = 0
OnClick = btnTopLeftClick OnClick = btnTopLeftClick
ParentFont = True
end end
object btnTop: TSpeedButton object btnTop: TSpeedButton
Left = 38 Left = 38
@ -64,23 +88,45 @@ object frmMoveSettings: TfrmMoveSettings
Width = 23 Width = 23
Color = clBtnFace Color = clBtnFace
Glyph.Data = { Glyph.Data = {
8D0100002F2A2058504D202A2F0A7374617469632063686172202A6772617068 36040000424D3604000000000000360000002800000010000000100000000100
69635B5D203D207B0A22313620313620322031222C0A222E2063204E6F6E6522 2000000000000004000064000000640000000000000000000000000000000000
2C0A222C20632023343034303430222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E222C0A222E2E2E2E2E2E2E2C2C2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2C2C2C2C2E2E2E2E2E2E222C0A222E2E2E2E2E2C2C2C2C2C2C2E2E2E2E2E222C 0000000000000000000000000000000000000000000000000000000000000000
0A222E2E2E2E2C2C2C2C2C2C2C2C2E2E2E2E222C0A222E2E2E2C2C2C2C2C2C2C 0000000000000000000000000000000000000000000000000000000000000000
2C2C2C2E2E2E222C0A222E2E2E2E2E2E2C2C2C2C2E2E2E2E2E2E222C0A222E2E 000000000000000000000000000000000000404040FF404040FF404040FF4040
2E2E2E2E2C2C2C2C2E2E2E2E2E2E222C0A222E2E2E2E2E2E2C2C2C2C2E2E2E2E 40FF000000000000000000000000000000000000000000000000000000000000
2E2E222C0A222E2E2E2E2E2E2C2C2C2C2E2E2E2E2E2E222C0A222E2E2E2E2E2E 000000000000000000000000000000000000404040FF404040FF404040FF4040
2C2C2C2C2E2E2E2E2E2E222C0A222E2E2E2E2E2E2C2C2C2C2E2E2E2E2E2E222C 40FF000000000000000000000000000000000000000000000000000000000000
0A222E2E2E2E2E2E2C2C2C2C2E2E2E2E2E2E222C0A222E2E2E2E2E2E2C2C2C2C 000000000000000000000000000000000000404040FF404040FF404040FF4040
2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E 40FF000000000000000000000000000000000000000000000000000000000000
2E2E2E2E2E2E2E2E2E2E2E2E2E2E227D0A 000000000000000000000000000000000000404040FF404040FF404040FF4040
40FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000404040FF404040FF404040FF4040
40FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000404040FF404040FF404040FF4040
40FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000404040FF404040FF404040FF4040
40FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000404040FF404040FF404040FF4040
40FF000000000000000000000000000000000000000000000000000000000000
000000000000404040FF404040FF404040FF404040FF404040FF404040FF4040
40FF404040FF404040FF404040FF000000000000000000000000000000000000
00000000000000000000404040FF404040FF404040FF404040FF404040FF4040
40FF404040FF404040FF00000000000000000000000000000000000000000000
0000000000000000000000000000404040FF404040FF404040FF404040FF4040
40FF404040FF0000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000404040FF404040FF404040FF4040
40FF000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000404040FF404040FF0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
} }
GroupIndex = 1 GroupIndex = 1
NumGlyphs = 0 NumGlyphs = 0
OnClick = btnTopLeftClick OnClick = btnTopLeftClick
ParentFont = True
end end
object btnTopRight: TSpeedButton object btnTopRight: TSpeedButton
Left = 70 Left = 70
@ -88,23 +134,45 @@ object frmMoveSettings: TfrmMoveSettings
Width = 23 Width = 23
Color = clBtnFace Color = clBtnFace
Glyph.Data = { Glyph.Data = {
8D0100002F2A2058504D202A2F0A7374617469632063686172202A6772617068 36040000424D3604000000000000360000002800000010000000100000000100
69635B5D203D207B0A22313620313620322031222C0A222E2063204E6F6E6522 2000000000000004000064000000640000000000000000000000000000000000
2C0A222C20632023343034303430222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2C2C2C2C2C2C2C2E2E222C0A222E2E2E2E2E2E2E2E2C2C2C2C2C2C2E2E222C 0000000000000000000000000000000000000000000000000000000000000000
0A222E2E2E2E2E2E2E2E2E2C2C2C2C2C2E2E222C0A222E2E2E2E2E2E2E2E2C2C 0000000000000000000000000000000000000000000000000000000000000000
2C2C2C2C2E2E222C0A222E2E2E2E2E2E2E2C2C2C2C2C2C2C2E2E222C0A222E2E 00000000000000000000404040FF000000000000000000000000000000000000
2E2E2E2E2C2C2C2C2C2E2C2C2E2E222C0A222E2E2E2E2E2C2C2C2C2C2E2E2E2C 0000000000000000000000000000000000000000000000000000000000000000
2E2E222C0A222E2E2E2E2C2C2C2C2C2E2E2E2E2E2E2E222C0A222E2E2E2C2C2C 000000000000404040FF404040FF404040FF0000000000000000000000000000
2C2C2E2E2E2E2E2E2E2E222C0A222E2E2C2C2C2C2C2E2E2E2E2E2E2E2E2E222C 0000000000000000000000000000000000000000000000000000000000000000
0A222E2E2E2C2C2C2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2C2E2E2E2E2E 0000404040FF404040FF404040FF404040FF404040FF00000000000000000000
2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E2E2E2E2E2E2E2E2E2E2E2E2E227D0A 000000000000404040FF404040FF404040FF404040FF404040FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000404040FF404040FF404040FF404040FF404040FF0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000404040FF404040FF404040FF404040FF4040
40FF000000000000000000000000404040FF0000000000000000000000000000
000000000000000000000000000000000000404040FF404040FF404040FF4040
40FF404040FF00000000404040FF404040FF0000000000000000000000000000
00000000000000000000000000000000000000000000404040FF404040FF4040
40FF404040FF404040FF404040FF404040FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000404040FF4040
40FF404040FF404040FF404040FF404040FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000004040
40FF404040FF404040FF404040FF404040FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000404040FF4040
40FF404040FF404040FF404040FF404040FF0000000000000000000000000000
00000000000000000000000000000000000000000000404040FF404040FF4040
40FF404040FF404040FF404040FF404040FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
} }
GroupIndex = 1 GroupIndex = 1
NumGlyphs = 0 NumGlyphs = 0
OnClick = btnTopLeftClick OnClick = btnTopLeftClick
ParentFont = True
end end
object btnRight: TSpeedButton object btnRight: TSpeedButton
Left = 70 Left = 70
@ -113,23 +181,45 @@ object frmMoveSettings: TfrmMoveSettings
Width = 23 Width = 23
Color = clBtnFace Color = clBtnFace
Glyph.Data = { Glyph.Data = {
8D0100002F2A2058504D202A2F0A7374617469632063686172202A6772617068 36040000424D3604000000000000360000002800000010000000100000000100
69635B5D203D207B0A22313620313620322031222C0A222E2063204E6F6E6522 2000000000000004000064000000640000000000000000000000000000000000
2C0A222C20632023343034303430222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2C2E2E2E2E2E222C 0000000000000000000000000000000000000000000000000000000000000000
0A222E2E2E2E2E2E2E2E2E2E2C2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2C2C2C2E2E2E222C0A222E2E2C2C2C2C2C2C2C2C2C2C2C2C2E2E222C0A222E2E 0000000000000000000000000000000000000000000000000000000000000000
2C2C2C2C2C2C2C2C2C2C2C2C2C2E222C0A222E2E2C2C2C2C2C2C2C2C2C2C2C2C 0000000000000000000000000000000000000000000000000000000000000000
2C2E222C0A222E2E2C2C2C2C2C2C2C2C2C2C2C2C2E2E222C0A222E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E2E2E2C2C2C2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2C2C2E2E2E2E222C 0000404040FF0000000000000000000000000000000000000000000000000000
0A222E2E2E2E2E2E2E2E2E2E2C2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E 0000404040FF404040FF00000000000000000000000000000000000000000000
2E2E2E2E2E2E2E2E2E2E2E2E2E2E227D0A 0000000000000000000000000000000000000000000000000000000000000000
0000404040FF404040FF404040FF000000000000000000000000000000000000
0000404040FF404040FF404040FF404040FF404040FF404040FF404040FF4040
40FF404040FF404040FF404040FF404040FF0000000000000000000000000000
0000404040FF404040FF404040FF404040FF404040FF404040FF404040FF4040
40FF404040FF404040FF404040FF404040FF404040FF00000000000000000000
0000404040FF404040FF404040FF404040FF404040FF404040FF404040FF4040
40FF404040FF404040FF404040FF404040FF404040FF00000000000000000000
0000404040FF404040FF404040FF404040FF404040FF404040FF404040FF4040
40FF404040FF404040FF404040FF404040FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000404040FF404040FF404040FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000404040FF404040FF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000404040FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
} }
GroupIndex = 1 GroupIndex = 1
NumGlyphs = 0 NumGlyphs = 0
OnClick = btnTopLeftClick OnClick = btnTopLeftClick
ParentFont = True
end end
object btnBottomRight: TSpeedButton object btnBottomRight: TSpeedButton
Left = 70 Left = 70
@ -138,23 +228,45 @@ object frmMoveSettings: TfrmMoveSettings
Width = 23 Width = 23
Color = clBtnFace Color = clBtnFace
Glyph.Data = { Glyph.Data = {
8D0100002F2A2058504D202A2F0A7374617469632063686172202A6772617068 36040000424D3604000000000000360000002800000010000000100000000100
69635B5D203D207B0A22313620313620322031222C0A222E2063204E6F6E6522 2000000000000004000064000000640000000000000000000000000000000000
2C0A222C20632023343034303430222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2C2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2C2C2C2E2E2E2E2E2E2E2E2E2E222C 0000000000000000000000000000000000000000000000000000000000000000
0A222E2E2C2C2C2C2C2E2E2E2E2E2E2E2E2E222C0A222E2E2E2C2C2C2C2C2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E2E2E2E2E222C0A222E2E2E2E2C2C2C2C2C2E2E2E2E2E2E2E222C0A222E2E 00000000000000000000000000000000000000000000404040FF404040FF4040
2E2E2E2C2C2C2C2C2E2E2E2C2E2E222C0A222E2E2E2E2E2E2C2C2C2C2C2E2C2C 40FF404040FF404040FF404040FF404040FF0000000000000000000000000000
2E2E222C0A222E2E2E2E2E2E2E2C2C2C2C2C2C2C2E2E222C0A222E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000404040FF4040
2E2E2C2C2C2C2C2C2E2E222C0A222E2E2E2E2E2E2E2E2E2C2C2C2C2C2E2E222C 40FF404040FF404040FF404040FF404040FF0000000000000000000000000000
0A222E2E2E2E2E2E2E2E2C2C2C2C2C2C2E2E222C0A222E2E2E2E2E2E2E2C2C2C 0000000000000000000000000000000000000000000000000000000000004040
2C2C2C2C2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E 40FF404040FF404040FF404040FF404040FF0000000000000000000000000000
2E2E2E2E2E2E2E2E2E2E2E2E2E2E227D0A 0000000000000000000000000000000000000000000000000000404040FF4040
40FF404040FF404040FF404040FF404040FF0000000000000000000000000000
00000000000000000000000000000000000000000000404040FF404040FF4040
40FF404040FF404040FF404040FF404040FF0000000000000000000000000000
000000000000000000000000000000000000404040FF404040FF404040FF4040
40FF404040FF00000000404040FF404040FF0000000000000000000000000000
0000000000000000000000000000404040FF404040FF404040FF404040FF4040
40FF000000000000000000000000404040FF0000000000000000000000000000
00000000000000000000404040FF404040FF404040FF404040FF404040FF0000
0000000000000000000000000000000000000000000000000000000000000000
000000000000404040FF404040FF404040FF404040FF404040FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000404040FF404040FF404040FF404040FF404040FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000404040FF404040FF404040FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000404040FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
} }
GroupIndex = 1 GroupIndex = 1
NumGlyphs = 0 NumGlyphs = 0
OnClick = btnTopLeftClick OnClick = btnTopLeftClick
ParentFont = True
end end
object btnBottom: TSpeedButton object btnBottom: TSpeedButton
Left = 38 Left = 38
@ -163,23 +275,45 @@ object frmMoveSettings: TfrmMoveSettings
Width = 23 Width = 23
Color = clBtnFace Color = clBtnFace
Glyph.Data = { Glyph.Data = {
8D0100002F2A2058504D202A2F0A7374617469632063686172202A6772617068 36040000424D3604000000000000360000002800000010000000100000000100
69635B5D203D207B0A22313620313620322031222C0A222E2063204E6F6E6522 2000000000000004000064000000640000000000000000000000000000000000
2C0A222C20632023343034303430222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2C2C2C2C2E2E2E2E2E2E222C0A222E2E2E2E2E2E2C2C2C2C2E2E2E2E2E2E222C 00000000000000000000000000000000000000000000404040FF404040FF0000
0A222E2E2E2E2E2E2C2C2C2C2E2E2E2E2E2E222C0A222E2E2E2E2E2E2C2C2C2C 0000000000000000000000000000000000000000000000000000000000000000
2E2E2E2E2E2E222C0A222E2E2E2E2E2E2C2C2C2C2E2E2E2E2E2E222C0A222E2E 000000000000000000000000000000000000404040FF404040FF404040FF4040
2E2E2E2E2C2C2C2C2E2E2E2E2E2E222C0A222E2E2E2E2E2E2C2C2C2C2E2E2E2E 40FF000000000000000000000000000000000000000000000000000000000000
2E2E222C0A222E2E2E2E2E2E2C2C2C2C2E2E2E2E2E2E222C0A222E2E2E2C2C2C 0000000000000000000000000000404040FF404040FF404040FF404040FF4040
2C2C2C2C2C2C2C2E2E2E222C0A222E2E2E2E2C2C2C2C2C2C2C2C2E2E2E2E222C 40FF404040FF0000000000000000000000000000000000000000000000000000
0A222E2E2E2E2E2C2C2C2C2C2C2E2E2E2E2E222C0A222E2E2E2E2E2E2C2C2C2C 00000000000000000000404040FF404040FF404040FF404040FF404040FF4040
2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2C2C2E2E2E2E2E2E2E222C0A222E2E 40FF404040FF404040FF00000000000000000000000000000000000000000000
2E2E2E2E2E2E2E2E2E2E2E2E2E2E227D0A 000000000000404040FF404040FF404040FF404040FF404040FF404040FF4040
40FF404040FF404040FF404040FF000000000000000000000000000000000000
000000000000000000000000000000000000404040FF404040FF404040FF4040
40FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000404040FF404040FF404040FF4040
40FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000404040FF404040FF404040FF4040
40FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000404040FF404040FF404040FF4040
40FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000404040FF404040FF404040FF4040
40FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000404040FF404040FF404040FF4040
40FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000404040FF404040FF404040FF4040
40FF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000404040FF404040FF404040FF4040
40FF000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
} }
GroupIndex = 1 GroupIndex = 1
NumGlyphs = 0 NumGlyphs = 0
OnClick = btnTopLeftClick OnClick = btnTopLeftClick
ParentFont = True
end end
object btnBottomLeft: TSpeedButton object btnBottomLeft: TSpeedButton
Left = 6 Left = 6
@ -188,23 +322,45 @@ object frmMoveSettings: TfrmMoveSettings
Width = 23 Width = 23
Color = clBtnFace Color = clBtnFace
Glyph.Data = { Glyph.Data = {
8D0100002F2A2058504D202A2F0A7374617469632063686172202A6772617068 36040000424D3604000000000000360000002800000010000000100000000100
69635B5D203D207B0A22313620313620322031222C0A222E2063204E6F6E6522 2000000000000004000064000000640000000000000000000000000000000000
2C0A222C20632023343034303430222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E2E2E2E2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2C2C2C2E2E2E222C 0000000000000000000000000000000000000000000000000000000000000000
0A222E2E2E2E2E2E2E2E2E2C2C2C2C2C2E2E222C0A222E2E2E2E2E2E2E2E2C2C 0000000000000000000000000000000000000000000000000000000000000000
2C2C2C2E2E2E222C0A222E2E2E2E2E2E2E2C2C2C2C2C2E2E2E2E222C0A222E2E 0000404040FF404040FF404040FF404040FF404040FF404040FF404040FF0000
2C2E2E2E2C2C2C2C2C2E2E2E2E2E222C0A222E2E2C2C2E2C2C2C2C2C2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E222C0A222E2E2C2C2C2C2C2C2C2E2E2E2E2E2E2E222C0A222E2E2C2C2C2C 0000404040FF404040FF404040FF404040FF404040FF404040FF000000000000
2C2C2E2E2E2E2E2E2E2E222C0A222E2E2C2C2C2C2C2E2E2E2E2E2E2E2E2E222C 0000000000000000000000000000000000000000000000000000000000000000
0A222E2E2C2C2C2C2C2C2E2E2E2E2E2E2E2E222C0A222E2E2C2C2C2C2C2C2C2E 0000404040FF404040FF404040FF404040FF404040FF00000000000000000000
2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E2E2E2E2E2E2E2E2E2E2E2E2E227D0A 0000404040FF404040FF404040FF404040FF404040FF404040FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000404040FF404040FF404040FF404040FF404040FF404040FF404040FF0000
0000000000000000000000000000000000000000000000000000000000000000
0000404040FF404040FF00000000404040FF404040FF404040FF404040FF4040
40FF000000000000000000000000000000000000000000000000000000000000
0000404040FF000000000000000000000000404040FF404040FF404040FF4040
40FF404040FF0000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000404040FF404040FF4040
40FF404040FF404040FF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000404040FF4040
40FF404040FF404040FF404040FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000004040
40FF404040FF404040FF404040FF404040FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000404040FF404040FF404040FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000404040FF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
} }
GroupIndex = 1 GroupIndex = 1
NumGlyphs = 0 NumGlyphs = 0
OnClick = btnTopLeftClick OnClick = btnTopLeftClick
ParentFont = True
end end
object btnLeft: TSpeedButton object btnLeft: TSpeedButton
Left = 6 Left = 6
@ -213,23 +369,45 @@ object frmMoveSettings: TfrmMoveSettings
Width = 23 Width = 23
Color = clBtnFace Color = clBtnFace
Glyph.Data = { Glyph.Data = {
8D0100002F2A2058504D202A2F0A7374617469632063686172202A6772617068 36040000424D3604000000000000360000002800000010000000100000000100
69635B5D203D207B0A22313620313620322031222C0A222E2063204E6F6E6522 2000000000000004000064000000640000000000000000000000000000000000
2C0A222C20632023343034303430222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2C2E2E2E2E2E2E2E2E2E2E222C 0000000000000000000000000000000000000000000000000000000000000000
0A222E2E2E2E2C2C2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2C2C2C2E2E2E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E2E2E2E2E222C0A222E2E2C2C2C2C2C2C2C2C2C2C2C2C2E2E222C0A222E2C 0000000000000000000000000000000000000000000000000000000000000000
2C2C2C2C2C2C2C2C2C2C2C2C2E2E222C0A222E2C2C2C2C2C2C2C2C2C2C2C2C2C 0000000000000000000000000000000000000000000000000000000000000000
2E2E222C0A222E2E2C2C2C2C2C2C2C2C2C2C2C2C2E2E222C0A222E2E2E2C2C2C 0000000000000000000000000000404040FF0000000000000000000000000000
2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2C2C2E2E2E2E2E2E2E2E2E2E222C 0000000000000000000000000000000000000000000000000000000000000000
0A222E2E2E2E2E2C2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E 00000000000000000000404040FF404040FF0000000000000000000000000000
2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E 0000000000000000000000000000000000000000000000000000000000000000
2E2E2E2E2E2E2E2E2E2E2E2E2E2E227D0A 000000000000404040FF404040FF404040FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000404040FF404040FF404040FF404040FF404040FF404040FF404040FF4040
40FF404040FF404040FF404040FF404040FF0000000000000000000000004040
40FF404040FF404040FF404040FF404040FF404040FF404040FF404040FF4040
40FF404040FF404040FF404040FF404040FF0000000000000000000000004040
40FF404040FF404040FF404040FF404040FF404040FF404040FF404040FF4040
40FF404040FF404040FF404040FF404040FF0000000000000000000000000000
0000404040FF404040FF404040FF404040FF404040FF404040FF404040FF4040
40FF404040FF404040FF404040FF404040FF0000000000000000000000000000
000000000000404040FF404040FF404040FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000404040FF404040FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000404040FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
} }
GroupIndex = 1 GroupIndex = 1
NumGlyphs = 0 NumGlyphs = 0
OnClick = btnTopLeftClick OnClick = btnTopLeftClick
ParentFont = True
end end
object seOffset: TSpinEdit object seOffset: TSpinEdit
Left = 33 Left = 33
@ -239,6 +417,7 @@ object frmMoveSettings: TfrmMoveSettings
Width = 34 Width = 34
MaxValue = 8 MaxValue = 8
MinValue = 1 MinValue = 1
ParentFont = True
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
@ -248,12 +427,13 @@ object frmMoveSettings: TfrmMoveSettings
object btnCancel: TButton object btnCancel: TButton
Left = 128 Left = 128
Height = 25 Height = 25
Top = 88 Top = 80
Width = 89 Width = 103
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
ModalResult = 2 ModalResult = 2
ParentFont = True
TabOrder = 2 TabOrder = 2
end end
end end

69
Client/Tools/UfrmVirtualLayer.lfm
View File

@ -1,46 +1,61 @@
object frmVirtualLayer: TfrmVirtualLayer object frmVirtualLayer: TfrmVirtualLayer
Left = 290 Left = 290
Height = 73 Height = 80
Top = 171 Top = 171
Width = 178 Width = 212
HorzScrollBar.Page = 177
VertScrollBar.Page = 72
BorderIcons = [] BorderIcons = []
BorderStyle = bsToolWindow BorderStyle = bsToolWindow
Caption = 'Virtual Layer' Caption = 'Virtual Layer'
ClientHeight = 73 ClientHeight = 80
ClientWidth = 178 ClientWidth = 212
Font.Height = -11
OnClose = FormClose OnClose = FormClose
OnDeactivate = FormDeactivate OnDeactivate = FormDeactivate
object seZ: TSpinEdit LCLVersion = '0.9.25'
Left = 120
Height = 23
Top = 8
Width = 50
MaxValue = 127
MinValue = -128
OnChange = seZChange
TabOrder = 0
end
object cbShowLayer: TCheckBox
Left = 11
Height = 15
Top = 12
Width = 103
Caption = 'Show Layer at Z:'
TabOrder = 1
end
object tbZ: TTrackBar object tbZ: TTrackBar
Left = 8 Left = 8
Height = 33 Height = 33
Top = 32 Top = 39
Width = 162 Width = 196
Frequency = 10 Frequency = 10
Max = 127 Max = 127
Min = -128 Min = -128
OnChange = tbZChange OnChange = tbZChange
PageSize = 1 PageSize = 1
ScalePos = trTop ScalePos = trTop
TabOrder = 2 Align = alTop
BorderSpacing.Around = 8
TabOrder = 0
end
object Panel1: TPanel
Left = 8
Height = 23
Top = 8
Width = 196
Align = alTop
BorderSpacing.Around = 8
BevelOuter = bvNone
ClientHeight = 23
ClientWidth = 196
ParentFont = True
TabOrder = 1
object seZ: TSpinEdit
Left = 146
Height = 23
Width = 50
Align = alRight
MaxValue = 127
MinValue = -128
ParentFont = True
TabOrder = 0
end
object cbShowLayer: TCheckBox
Height = 23
Width = 146
Align = alClient
Caption = 'Show Layer at Z:'
ParentFont = True
TabOrder = 1
end
end end
end end

3
Client/Tools/UfrmVirtualLayer.pas
View File

@ -31,7 +31,7 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, LCLIntf, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, LCLIntf,
LMessages, StdCtrls, Spin, ComCtrls; LMessages, StdCtrls, Spin, ComCtrls, ExtCtrls;
type type
@ -39,6 +39,7 @@ type
TfrmVirtualLayer = class(TForm) TfrmVirtualLayer = class(TForm)
cbShowLayer: TCheckBox; cbShowLayer: TCheckBox;
Panel1: TPanel;
seZ: TSpinEdit; seZ: TSpinEdit;
tbZ: TTrackBar; tbZ: TTrackBar;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);

85
Client/UfrmAbout.lfm
View File

@ -1,140 +1,149 @@
object frmAbout: TfrmAbout object frmAbout: TfrmAbout
Left = 290 Left = 290
Height = 374 Height = 307
Top = 171 Top = 171
Width = 364 Width = 353
HorzScrollBar.Page = 363
VertScrollBar.Page = 373
AutoSize = True AutoSize = True
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'About CentrED' Caption = 'About CentrED'
ClientHeight = 374 ClientHeight = 307
ClientWidth = 364 ClientWidth = 353
Font.Height = -11
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.25' LCLVersion = '0.9.25'
object Label3: TLabel object Label3: TLabel
Left = 8 Left = 8
Height = 89 Height = 73
Top = 230 Top = 198
Width = 348 Width = 337
Align = alTop Align = alTop
BorderSpacing.Top = 16 BorderSpacing.Top = 16
BorderSpacing.Around = 8 BorderSpacing.Around = 8
Caption = 'Ultima(tm) Online (c) 1997 Electronic Arts Inc. Ultima, the UO logo, Are You With Us?, ORIGIN, the ORIGIN logo and We create worlds are trademarks or registered trademarks of Electronic Arts Inc. in the U.S. and/or other countries. All rights reserved.' Caption = 'Ultima(tm) Online (c) 1997 Electronic Arts Inc. Ultima, the UO logo, Are You With Us?, ORIGIN, the ORIGIN logo and We create worlds are trademarks or registered trademarks of Electronic Arts Inc. in the U.S. and/or other countries. All rights reserved.'
ParentColor = False ParentColor = False
ParentFont = True
WordWrap = True WordWrap = True
end end
object Label5: TLabel object Label5: TLabel
Left = 8 Left = 8
Height = 20 Height = 13
Top = 120 Top = 118
Width = 348 Width = 337
Align = alTop Align = alTop
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'It is using the following great components:' Caption = 'It is using the following great components:'
ParentColor = False ParentColor = False
ParentFont = True
end end
object Label6: TLabel object Label6: TLabel
Left = 16 Left = 16
Height = 66 Height = 43
Top = 140 Top = 131
Width = 340 Width = 329
Align = alTop Align = alTop
BorderSpacing.Left = 16 BorderSpacing.Left = 16
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = '- Vampyre Imaging Lib by Marek Mauder'#13#10'- lNet by Ales Katona and Micha Nelissen'#13#10'- VirtualTrees by Mike Lischke' Caption = '- Vampyre Imaging Lib by Marek Mauder'#13#10'- lNet by Ales Katona and Micha Nelissen'#13#10'- VirtualTrees by Mike Lischke'
ParentColor = False ParentColor = False
ParentFont = True
end end
object Label7: TLabel object Label7: TLabel
Left = 8 Left = 8
Height = 20 Height = 13
Top = 100 Top = 105
Width = 348 Width = 337
Align = alTop Align = alTop
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'CentrED has been developed using Lazarus and FreePascal.' Caption = 'CentrED has been developed using Lazarus and FreePascal.'
ParentColor = False ParentColor = False
ParentFont = True
WordWrap = True WordWrap = True
end end
object Panel2: TPanel object Panel2: TPanel
Height = 92 Height = 97
Width = 364 Width = 353
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
ClientHeight = 92 ClientHeight = 97
ClientWidth = 364 ClientWidth = 353
ParentFont = True
TabOrder = 0 TabOrder = 0
object Panel1: TPanel object Panel1: TPanel
Left = 1 Left = 1
Height = 91 Height = 96
Top = 1 Top = 1
Width = 215 Width = 219
AutoSize = True AutoSize = True
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 91 ClientHeight = 96
ClientWidth = 215 ClientWidth = 219
ParentFont = True
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
Left = 2 Left = 2
Height = 38 Height = 38
Top = 2 Top = 2
Width = 211 Width = 215
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = False AutoSize = False
Caption = 'UO CentrED' Caption = 'UO CentrED'
Font.Height = -27 Font.Height = -29
Font.Style = [fsBold] Font.Style = [fsBold]
Layout = tlCenter
ParentColor = False ParentColor = False
end end
object lblVersion: TLabel object lblVersion: TLabel
Left = 6 Left = 6
Height = 21 Height = 24
Top = 40 Top = 40
Width = 203 Width = 207
Align = alTop Align = alTop
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Left = 4 BorderSpacing.Left = 4
BorderSpacing.Right = 4 BorderSpacing.Right = 4
Font.Style = [fsItalic]
ParentColor = False ParentColor = False
ParentFont = True
end end
object lblCopyright: TLabel object lblCopyright: TLabel
Left = 6 Left = 6
Height = 22 Height = 24
Top = 65 Top = 68
Width = 203 Width = 207
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
BorderSpacing.Around = 4 BorderSpacing.Around = 4
ParentColor = False ParentColor = False
ParentFont = True
end end
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 8 Left = 8
Height = 25 Height = 25
Top = 327 Top = 279
Width = 348 Width = 337
Align = alTop Align = alTop
BorderSpacing.Around = 8 BorderSpacing.Around = 8
ClientHeight = 25 ClientHeight = 25
ClientWidth = 348 ClientWidth = 337
ParentFont = True
TabOrder = 1 TabOrder = 1
object btnClose: TButton object btnClose: TButton
Left = 272 Left = 261
Height = 23 Height = 23
Top = 1 Top = 1
Width = 75 Width = 75
Align = alRight Align = alRight
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'Close' Caption = 'Close'
ParentFont = True
TabOrder = 0 TabOrder = 0
end end
end end

4
Client/UfrmAccountControl.lfm
View File

@ -9,6 +9,7 @@ object frmAccountControl: TfrmAccountControl
Caption = 'Account Management' Caption = 'Account Management'
ClientHeight = 378 ClientHeight = 378
ClientWidth = 369 ClientWidth = 369
Font.Height = -11
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
@ -76,9 +77,12 @@ object frmAccountControl: TfrmAccountControl
Width = 369 Width = 369
Align = alClient Align = alClient
Header.AutoSizeIndex = 1 Header.AutoSizeIndex = 1
Header.Font.Height = -11
Header.Options = [hoColumnResize, hoDrag, hoVisible] Header.Options = [hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsPlates Header.Style = hsPlates
Images = ilAccesslevel Images = ilAccesslevel
ParentFont = True
TabOrder = 1 TabOrder = 1
TreeOptions.AutoOptions = [toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes] TreeOptions.AutoOptions = [toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning] TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]

28
Client/UfrmEditAccount.lfm
View File

@ -3,15 +3,15 @@ object frmEditAccount: TfrmEditAccount
Height = 186 Height = 186
Top = 171 Top = 171
Width = 266 Width = 266
HorzScrollBar.Page = 265 ActiveControl = edUsername
VertScrollBar.Page = 185
ActiveControl = btnOK
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Edit Account' Caption = 'Edit Account'
ClientHeight = 186 ClientHeight = 186
ClientWidth = 266 ClientWidth = 266
Font.Height = -11
Position = poOwnerFormCenter Position = poOwnerFormCenter
LCLVersion = '0.9.25'
object lblPasswordHint: TLabel object lblPasswordHint: TLabel
Left = 96 Left = 96
Height = 28 Height = 28
@ -21,31 +21,35 @@ object frmEditAccount: TfrmEditAccount
Caption = 'Leave empty to leave the password unchanged.' Caption = 'Leave empty to leave the password unchanged.'
Enabled = False Enabled = False
ParentColor = False ParentColor = False
ParentFont = True
WordWrap = True WordWrap = True
end end
object lblUsername: TLabel object lblUsername: TLabel
Left = 16 Left = 16
Height = 16 Height = 14
Top = 20 Top = 20
Width = 57 Width = 58
Caption = 'Username:' Caption = 'Username:'
ParentColor = False ParentColor = False
ParentFont = True
end end
object lblPassword: TLabel object lblPassword: TLabel
Left = 16 Left = 16
Height = 16 Height = 14
Top = 52 Top = 52
Width = 54 Width = 54
Caption = 'Password:' Caption = 'Password:'
ParentColor = False ParentColor = False
ParentFont = True
end end
object lblAccessLevel: TLabel object lblAccessLevel: TLabel
Left = 16 Left = 16
Height = 16 Height = 14
Top = 116 Top = 116
Width = 64 Width = 63
Caption = 'Accesslevel:' Caption = 'Accesslevel:'
ParentColor = False ParentColor = False
ParentFont = True
end end
object btnOK: TButton object btnOK: TButton
Left = 93 Left = 93
@ -56,6 +60,7 @@ object frmEditAccount: TfrmEditAccount
Caption = 'OK' Caption = 'OK'
Default = True Default = True
ModalResult = 1 ModalResult = 1
ParentFont = True
TabOrder = 0 TabOrder = 0
end end
object btnCancel: TButton object btnCancel: TButton
@ -67,6 +72,7 @@ object frmEditAccount: TfrmEditAccount
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
ModalResult = 2 ModalResult = 2
ParentFont = True
TabOrder = 1 TabOrder = 1
end end
object edUsername: TEdit object edUsername: TEdit
@ -75,6 +81,7 @@ object frmEditAccount: TfrmEditAccount
Top = 16 Top = 16
Width = 160 Width = 160
Color = clBtnFace Color = clBtnFace
ParentFont = True
ReadOnly = True ReadOnly = True
TabOrder = 2 TabOrder = 2
end end
@ -84,16 +91,16 @@ object frmEditAccount: TfrmEditAccount
Top = 48 Top = 48
Width = 160 Width = 160
EchoMode = emPassword EchoMode = emPassword
ParentFont = True
PasswordChar = '*' PasswordChar = '*'
TabOrder = 3 TabOrder = 3
end end
object cbAccessLevel: TComboBox object cbAccessLevel: TComboBox
Left = 96 Left = 96
Height = 21 Height = 29
Top = 112 Top = 112
Width = 160 Width = 160
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
Items.Strings = ( Items.Strings = (
'None' 'None'
'Viewer' 'Viewer'
@ -101,6 +108,7 @@ object frmEditAccount: TfrmEditAccount
'Administrator' 'Administrator'
) )
MaxLength = 0 MaxLength = 0
ParentFont = True
Style = csDropDownList Style = csDropDownList
TabOrder = 4 TabOrder = 4
end end

6
Client/UfrmInitialize.lfm
View File

@ -3,16 +3,16 @@ object frmInitialize: TfrmInitialize
Height = 65 Height = 65
Top = 171 Top = 171
Width = 241 Width = 241
HorzScrollBar.Page = 240
VertScrollBar.Page = 64
BorderIcons = [] BorderIcons = []
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Please wait ...' Caption = 'Please wait ...'
ClientHeight = 65 ClientHeight = 65
ClientWidth = 241 ClientWidth = 241
Font.Height = -11
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.25'
object pnlMain: TPanel object pnlMain: TPanel
Left = 8 Left = 8
Height = 50 Height = 50
@ -22,6 +22,7 @@ object frmInitialize: TfrmInitialize
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 50 ClientHeight = 50
ClientWidth = 226 ClientWidth = 226
ParentFont = True
TabOrder = 0 TabOrder = 0
object lblStatus: TLabel object lblStatus: TLabel
Left = 8 Left = 8
@ -32,6 +33,7 @@ object frmInitialize: TfrmInitialize
AutoSize = False AutoSize = False
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
ParentFont = True
WordWrap = True WordWrap = True
end end
end end

1255
Client/UfrmLargeScaleCommand.lfm
View File

File diff suppressed because it is too large Load Diff

55
Client/UfrmLogin.lfm
View File

@ -3,25 +3,26 @@ object frmLogin: TfrmLogin
Height = 265 Height = 265
Top = 171 Top = 171
Width = 489 Width = 489
HorzScrollBar.Page = 488
VertScrollBar.Page = 264
ActiveControl = edHost ActiveControl = edHost
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'UO CentrED' Caption = 'UO CentrED'
ClientHeight = 265 ClientHeight = 265
ClientWidth = 489 ClientWidth = 489
Font.Height = -11
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
ShowInTaskBar = stAlways ShowInTaskBar = stAlways
LCLVersion = '0.9.25'
object lblCopyright: TLabel object lblCopyright: TLabel
Height = 19 Height = 23
Top = 246 Top = 242
Width = 489 Width = 489
Align = alBottom Align = alBottom
Alignment = taCenter Alignment = taCenter
ParentColor = False ParentColor = False
ParentFont = True
end end
object gbConnection: TGroupBox object gbConnection: TGroupBox
Left = 8 Left = 8
@ -29,32 +30,36 @@ object frmLogin: TfrmLogin
Top = 8 Top = 8
Width = 321 Width = 321
Caption = 'Connection' Caption = 'Connection'
ClientHeight = 128 ClientHeight = 111
ClientWidth = 321 ClientWidth = 317
ParentFont = True
TabOrder = 0 TabOrder = 0
object lblHost: TLabel object lblHost: TLabel
Left = 30 Left = 30
Height = 14 Height = 13
Top = 9 Top = 9
Width = 34 Width = 31
Caption = 'Host:' Caption = 'Host:'
ParentColor = False ParentColor = False
ParentFont = True
end end
object lblUsername: TLabel object lblUsername: TLabel
Left = 30 Left = 30
Height = 14 Height = 13
Top = 43 Top = 43
Width = 69 Width = 64
Caption = 'Username:' Caption = 'Username:'
ParentColor = False ParentColor = False
ParentFont = True
end end
object lblPassword: TLabel object lblPassword: TLabel
Left = 30 Left = 30
Height = 14 Height = 13
Top = 77 Top = 77
Width = 65 Width = 61
Caption = 'Password:' Caption = 'Password:'
ParentColor = False ParentColor = False
ParentFont = True
end end
object imgHost: TImage object imgHost: TImage
Left = 6 Left = 6
@ -146,7 +151,6 @@ object frmLogin: TfrmLogin
233023312332233323342335517451745174222C0A2251745174517451745174 233023312332233323342335517451745174222C0A2251745174517451745174
51745174517451745174517451745174517451745174227D3B0A 51745174517451745174517451745174517451745174227D3B0A
} }
Transparent = False
end end
object imgUsername: TImage object imgUsername: TImage
Left = 6 Left = 6
@ -238,7 +242,6 @@ object frmLogin: TfrmLogin
233123322333233423355174517451745174222C0A2251745174517451745174 233123322333233423355174517451745174222C0A2251745174517451745174
51745174517451745174517451745174517451745174227D3B0A 51745174517451745174517451745174517451745174227D3B0A
} }
Transparent = False
end end
object imgPassword: TImage object imgPassword: TImage
Left = 6 Left = 6
@ -320,13 +323,13 @@ object frmLogin: TfrmLogin
5174222C0A2251742349234A236E234B51745174517451745174517451745174 5174222C0A2251742349234A236E234B51745174517451745174517451745174
517451745174227D3B0A 517451745174227D3B0A
} }
Transparent = False
end end
object edHost: TEdit object edHost: TEdit
Left = 101 Left = 101
Height = 23 Height = 23
Top = 5 Top = 5
Width = 137 Width = 137
ParentFont = True
TabOrder = 0 TabOrder = 0
Text = 'localhost' Text = 'localhost'
end end
@ -335,6 +338,7 @@ object frmLogin: TfrmLogin
Height = 23 Height = 23
Top = 39 Top = 39
Width = 201 Width = 201
ParentFont = True
TabOrder = 2 TabOrder = 2
end end
object edPassword: TEdit object edPassword: TEdit
@ -343,6 +347,7 @@ object frmLogin: TfrmLogin
Top = 73 Top = 73
Width = 201 Width = 201
EchoMode = emPassword EchoMode = emPassword
ParentFont = True
PasswordChar = '*' PasswordChar = '*'
TabOrder = 3 TabOrder = 3
end end
@ -353,6 +358,7 @@ object frmLogin: TfrmLogin
Width = 56 Width = 56
MaxValue = 65565 MaxValue = 65565
MinValue = 1024 MinValue = 1024
ParentFont = True
TabOrder = 1 TabOrder = 1
Value = 2597 Value = 2597
end end
@ -362,8 +368,9 @@ object frmLogin: TfrmLogin
Height = 96 Height = 96
Top = 8 Top = 8
Width = 145 Width = 145
ClientHeight = 96 ClientHeight = 92
ClientWidth = 145 ClientWidth = 141
ParentFont = True
TabOrder = 2 TabOrder = 2
object btnOK: TButton object btnOK: TButton
Left = 6 Left = 6
@ -374,6 +381,7 @@ object frmLogin: TfrmLogin
Caption = '&OK' Caption = '&OK'
Default = True Default = True
OnClick = btnOKClick OnClick = btnOKClick
ParentFont = True
TabOrder = 0 TabOrder = 0
end end
object btnCancel: TButton object btnCancel: TButton
@ -385,6 +393,7 @@ object frmLogin: TfrmLogin
Caption = '&Cancel' Caption = '&Cancel'
ModalResult = 2 ModalResult = 2
OnClick = btnCancelClick OnClick = btnCancelClick
ParentFont = True
TabOrder = 1 TabOrder = 1
end end
end end
@ -394,8 +403,9 @@ object frmLogin: TfrmLogin
Top = 144 Top = 144
Width = 321 Width = 321
Caption = 'Data files' Caption = 'Data files'
ClientHeight = 97 ClientHeight = 80
ClientWidth = 321 ClientWidth = 317
ParentFont = True
TabOrder = 1 TabOrder = 1
object lblData: TLabel object lblData: TLabel
Left = 7 Left = 7
@ -405,6 +415,7 @@ object frmLogin: TfrmLogin
AutoSize = False AutoSize = False
Caption = 'Select the directory containing art.mul, artidx.mul, hues.mul, tiledata.mul, texmaps.mul and texidx.mul.' Caption = 'Select the directory containing art.mul, artidx.mul, hues.mul, tiledata.mul, texmaps.mul and texidx.mul.'
ParentColor = False ParentColor = False
ParentFont = True
WordWrap = True WordWrap = True
end end
object edData: TDirectoryEdit object edData: TDirectoryEdit
@ -415,6 +426,7 @@ object frmLogin: TfrmLogin
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
ParentColor = False ParentColor = False
ParentFont = True
ReadOnly = True ReadOnly = True
TabOrder = 0 TabOrder = 0
end end
@ -425,8 +437,9 @@ object frmLogin: TfrmLogin
Top = 112 Top = 112
Width = 145 Width = 145
Caption = 'Profiles' Caption = 'Profiles'
ClientHeight = 81 ClientHeight = 64
ClientWidth = 145 ClientWidth = 141
ParentFont = True
TabOrder = 3 TabOrder = 3
object btnSaveProfile: TSpeedButton object btnSaveProfile: TSpeedButton
Left = 86 Left = 86

609
Client/UfrmMain.lfm
View File

@ -3,12 +3,13 @@ object frmMain: TfrmMain
Height = 603 Height = 603
Top = 144 Top = 144
Width = 766 Width = 766
ActiveControl = edX ActiveControl = cbTerrain
Caption = 'UO CentrED' Caption = 'UO CentrED'
ClientHeight = 574 ClientHeight = 578
ClientWidth = 766 ClientWidth = 766
Constraints.MinHeight = 603 Constraints.MinHeight = 603
Constraints.MinWidth = 766 Constraints.MinWidth = 766
Font.Height = -11
Menu = MainMenu1 Menu = MainMenu1
OnActivate = FormActivate OnActivate = FormActivate
OnClose = FormClose OnClose = FormClose
@ -20,57 +21,62 @@ object frmMain: TfrmMain
WindowState = wsMaximized WindowState = wsMaximized
object pnlBottom: TPanel object pnlBottom: TPanel
Height = 31 Height = 31
Top = 543 Top = 547
Width = 766 Width = 766
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 31 ClientHeight = 31
ClientWidth = 766 ClientWidth = 766
ParentFont = True
TabOrder = 0 TabOrder = 0
object lblX: TLabel object lblX: TLabel
Left = 11 Left = 11
Height = 12 Height = 14
Top = 7 Top = 7
Width = 11 Width = 11
Caption = 'X:' Caption = 'X:'
ParentColor = False ParentColor = False
ParentFont = True
end end
object lblY: TLabel object lblY: TLabel
Left = 88 Left = 88
Height = 12 Height = 14
Top = 7 Top = 7
Width = 11 Width = 10
Caption = 'Y:' Caption = 'Y:'
ParentColor = False ParentColor = False
ParentFont = True
end end
object lblTileInfo: TLabel object lblTileInfo: TLabel
Left = 240 Left = 240
Height = 12 Height = 14
Top = 7 Top = 7
Width = 4 Width = 4
Caption = ' ' Caption = ' '
ParentColor = False ParentColor = False
ParentFont = True
end end
object lblTip: TLabel object lblTip: TLabel
Left = 522 Left = 528
Height = 31 Height = 31
Width = 236 Width = 230
Align = alRight Align = alRight
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Right click shows a menu with all the tools.' Caption = 'Right click shows a menu with all the tools.'
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
ParentFont = True
end end
object lblTipC: TLabel object lblTipC: TLabel
Left = 498 Left = 505
Height = 31 Height = 31
Width = 24 Width = 23
Align = alRight Align = alRight
Caption = 'Tip: ' Caption = 'Tip: '
Font.Style = [fsBold]
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
ParentFont = True
end end
object edX: TSpinEdit object edX: TSpinEdit
Left = 24 Left = 24
@ -78,6 +84,7 @@ object frmMain: TfrmMain
Top = 3 Top = 3
Width = 55 Width = 55
MaxValue = 100000 MaxValue = 100000
ParentFont = True
TabOrder = 0 TabOrder = 0
end end
object edY: TSpinEdit object edY: TSpinEdit
@ -86,6 +93,7 @@ object frmMain: TfrmMain
Top = 3 Top = 3
Width = 52 Width = 52
MaxValue = 100000 MaxValue = 100000
ParentFont = True
TabOrder = 1 TabOrder = 1
end end
object btnGoTo: TButton object btnGoTo: TButton
@ -96,21 +104,24 @@ object frmMain: TfrmMain
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'GoTo' Caption = 'GoTo'
OnClick = btnGoToClick OnClick = btnGoToClick
ParentFont = True
TabOrder = 2 TabOrder = 2
end end
end end
object pcLeft: TPageControl object pcLeft: TPageControl
Height = 519 Height = 523
Top = 24 Top = 24
Width = 224 Width = 224
ActivePage = tsTiles ActivePage = tsTiles
Align = alLeft Align = alLeft
ParentFont = True
TabIndex = 0 TabIndex = 0
TabOrder = 1 TabOrder = 1
object tsTiles: TTabSheet object tsTiles: TTabSheet
Caption = 'Tiles' Caption = 'Tiles'
ClientHeight = 488 ClientHeight = 494
ClientWidth = 220 ClientWidth = 220
ParentFont = True
object pnlTileListSettings: TPanel object pnlTileListSettings: TPanel
Height = 56 Height = 56
Width = 220 Width = 220
@ -118,14 +129,16 @@ object frmMain: TfrmMain
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 56 ClientHeight = 56
ClientWidth = 220 ClientWidth = 220
ParentFont = True
TabOrder = 0 TabOrder = 0
object lblFilter: TLabel object lblFilter: TLabel
Left = 84 Left = 84
Height = 12 Height = 14
Top = 8 Top = 8
Width = 31 Width = 30
Caption = 'Filter:' Caption = 'Filter:'
ParentColor = False ParentColor = False
ParentFont = True
end end
object cbTerrain: TCheckBox object cbTerrain: TCheckBox
Left = 4 Left = 4
@ -135,6 +148,7 @@ object frmMain: TfrmMain
Caption = 'Terrain' Caption = 'Terrain'
Checked = True Checked = True
OnChange = cbTerrainChange OnChange = cbTerrainChange
ParentFont = True
State = cbChecked State = cbChecked
TabOrder = 0 TabOrder = 0
end end
@ -142,10 +156,11 @@ object frmMain: TfrmMain
Left = 4 Left = 4
Height = 21 Height = 21
Top = 32 Top = 32
Width = 62 Width = 63
Caption = 'Statics' Caption = 'Statics'
Checked = True Checked = True
OnChange = cbStaticsChange OnChange = cbStaticsChange
ParentFont = True
State = cbChecked State = cbChecked
TabOrder = 1 TabOrder = 1
end end
@ -155,12 +170,13 @@ object frmMain: TfrmMain
Top = 24 Top = 24
Width = 112 Width = 112
OnEditingDone = edFilterEditingDone OnEditingDone = edFilterEditingDone
ParentFont = True
TabOrder = 2 TabOrder = 2
end end
end end
object vdtTiles: TVirtualDrawTree object vdtTiles: TVirtualDrawTree
Tag = 1 Tag = 1
Height = 234 Height = 240
Top = 56 Top = 56
Width = 220 Width = 220
Align = alClient Align = alClient
@ -168,9 +184,12 @@ object frmMain: TfrmMain
DragMode = dmAutomatic DragMode = dmAutomatic
DragType = dtVCL DragType = dtVCL
Header.AutoSizeIndex = 2 Header.AutoSizeIndex = 2
Header.Font.Height = -11
Header.MainColumn = 2 Header.MainColumn = 2
Header.Options = [hoVisible] Header.Options = [hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons Header.Style = hsFlatButtons
ParentFont = True
PopupMenu = pmTileList PopupMenu = pmTileList
TabOrder = 1 TabOrder = 1
TreeOptions.AutoOptions = [toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes] TreeOptions.AutoOptions = [toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
@ -202,24 +221,28 @@ object frmMain: TfrmMain
end end
object gbRandom: TGroupBox object gbRandom: TGroupBox
Height = 193 Height = 193
Top = 295 Top = 301
Width = 220 Width = 220
Align = alBottom Align = alBottom
Caption = 'Random pool' Caption = 'Random pool'
ClientHeight = 174 ClientHeight = 178
ClientWidth = 214 ClientWidth = 216
ParentFont = True
TabOrder = 2 TabOrder = 2
object vdtRandom: TVirtualDrawTree object vdtRandom: TVirtualDrawTree
Tag = 1 Tag = 1
Cursor = 63 Cursor = 63
Height = 122 Height = 126
Top = 22 Top = 22
Width = 214 Width = 216
Align = alClient Align = alClient
DefaultNodeHeight = 44 DefaultNodeHeight = 44
DragType = dtVCL DragType = dtVCL
Header.Font.Height = -11
Header.Options = [hoColumnResize, hoDrag, hoVisible] Header.Options = [hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons Header.Style = hsFlatButtons
ParentFont = True
TabOrder = 0 TabOrder = 0
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages] TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect] TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect]
@ -246,11 +269,12 @@ object frmMain: TfrmMain
end end
object pnlRandomControl: TPanel object pnlRandomControl: TPanel
Height = 22 Height = 22
Width = 214 Width = 216
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 22 ClientHeight = 22
ClientWidth = 214 ClientWidth = 216
ParentFont = True
TabOrder = 1 TabOrder = 1
object btnAddRandom: TSpeedButton object btnAddRandom: TSpeedButton
Left = 2 Left = 2
@ -397,13 +421,14 @@ object frmMain: TfrmMain
object pnlRandomPreset: TPanel object pnlRandomPreset: TPanel
Left = 4 Left = 4
Height = 22 Height = 22
Top = 148 Top = 152
Width = 206 Width = 208
Align = alBottom Align = alBottom
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 22 ClientHeight = 22
ClientWidth = 206 ClientWidth = 208
ParentFont = True
TabOrder = 2 TabOrder = 2
object btnRandomPresetSave: TSpeedButton object btnRandomPresetSave: TSpeedButton
Left = 158 Left = 158
@ -502,11 +527,12 @@ object frmMain: TfrmMain
ParentShowHint = False ParentShowHint = False
end end
object cbRandomPreset: TComboBox object cbRandomPreset: TComboBox
Height = 25 Height = 29
Width = 152 Width = 152
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 0 MaxLength = 0
OnChange = cbRandomPresetChange OnChange = cbRandomPresetChange
ParentFont = True
Style = csDropDownList Style = csDropDownList
TabOrder = 0 TabOrder = 0
end end
@ -515,7 +541,7 @@ object frmMain: TfrmMain
object spTileList: TSplitter object spTileList: TSplitter
Cursor = crVSplit Cursor = crVSplit
Height = 5 Height = 5
Top = 290 Top = 296
Width = 220 Width = 220
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
@ -529,6 +555,7 @@ object frmMain: TfrmMain
CharCase = ecUppercase CharCase = ecUppercase
OnExit = edSearchIDExit OnExit = edSearchIDExit
OnKeyPress = edSearchIDKeyPress OnKeyPress = edSearchIDKeyPress
ParentFont = True
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 3 TabOrder = 3
@ -537,13 +564,15 @@ object frmMain: TfrmMain
end end
object tsClients: TTabSheet object tsClients: TTabSheet
Caption = 'Clients' Caption = 'Clients'
ClientHeight = 525 ClientHeight = 494
ClientWidth = 224 ClientWidth = 220
ParentFont = True
object lbClients: TListBox object lbClients: TListBox
Height = 525 Height = 494
Width = 224 Width = 220
Align = alClient Align = alClient
OnDblClick = mnuGoToClientClick OnDblClick = mnuGoToClientClick
ParentFont = True
PopupMenu = pmClients PopupMenu = pmClients
Sorted = True Sorted = True
TabOrder = 0 TabOrder = 0
@ -552,19 +581,24 @@ object frmMain: TfrmMain
end end
object tsLocations: TTabSheet object tsLocations: TTabSheet
Caption = 'Locations' Caption = 'Locations'
ClientHeight = 525 ClientHeight = 494
ClientWidth = 224 ClientWidth = 220
ParentFont = True
object vstLocations: TVirtualStringTree object vstLocations: TVirtualStringTree
Cursor = 63
Left = 4 Left = 4
Height = 489 Height = 458
Top = 4 Top = 4
Width = 216 Width = 212
Align = alClient Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BorderStyle = bsSingle BorderStyle = bsSingle
Header.AutoSizeIndex = 1 Header.AutoSizeIndex = 1
Header.Font.Height = -11
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible] Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons Header.Style = hsFlatButtons
ParentFont = True
TabOrder = 0 TabOrder = 0
TreeOptions.AutoOptions = [toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes] TreeOptions.AutoOptions = [toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages] TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
@ -581,20 +615,21 @@ object frmMain: TfrmMain
end end
item item
Position = 1 Position = 1
Width = 141 Width = 133
WideText = 'Name' WideText = 'Name'
end> end>
end end
object pnlLocationControls: TPanel object pnlLocationControls: TPanel
Left = 4 Left = 4
Height = 24 Height = 24
Top = 497 Top = 466
Width = 216 Width = 212
Align = alBottom Align = alBottom
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 24 ClientHeight = 24
ClientWidth = 216 ClientWidth = 212
ParentFont = True
TabOrder = 1 TabOrder = 1
object btnClearLocations: TSpeedButton object btnClearLocations: TSpeedButton
Left = 112 Left = 112
@ -917,16 +952,17 @@ object frmMain: TfrmMain
end end
object pnlMain: TPanel object pnlMain: TPanel
Left = 224 Left = 224
Height = 519 Height = 523
Top = 24 Top = 24
Width = 542 Width = 542
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 519 ClientHeight = 523
ClientWidth = 542 ClientWidth = 542
ParentFont = True
TabOrder = 3 TabOrder = 3
object oglGameWindow: TOpenGLControl object oglGameWindow: TOpenGLControl
Height = 368 Height = 372
Width = 542 Width = 542
Align = alClient Align = alClient
OnDblClick = oglGameWindowDblClick OnDblClick = oglGameWindowDblClick
@ -940,25 +976,27 @@ object frmMain: TfrmMain
end end
object pnlChatHeader: TPanel object pnlChatHeader: TPanel
Height = 24 Height = 24
Top = 368 Top = 372
Width = 542 Width = 542
Align = alBottom Align = alBottom
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 24 ClientHeight = 24
ClientWidth = 542 ClientWidth = 542
ParentFont = True
TabOrder = 0 TabOrder = 0
object lblChatHeaderCaption: TLabel object lblChatHeaderCaption: TLabel
Cursor = crHandPoint Cursor = crHandPoint
Left = 10 Left = 10
Height = 20 Height = 20
Top = 2 Top = 2
Width = 112 Width = 104
Align = alLeft Align = alLeft
BorderSpacing.Left = 8 BorderSpacing.Left = 8
Caption = 'Chat and Messages' Caption = 'Chat and Messages'
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
ParentFont = True
OnClick = lblChatHeaderCaptionClick OnClick = lblChatHeaderCaptionClick
OnMouseEnter = lblChatHeaderCaptionMouseEnter OnMouseEnter = lblChatHeaderCaptionMouseEnter
OnMouseLeave = lblChatHeaderCaptionMouseLeave OnMouseLeave = lblChatHeaderCaptionMouseLeave
@ -966,12 +1004,13 @@ object frmMain: TfrmMain
end end
object pnlChat: TPanel object pnlChat: TPanel
Height = 122 Height = 122
Top = 397 Top = 401
Width = 542 Width = 542
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 122 ClientHeight = 122
ClientWidth = 542 ClientWidth = 542
ParentFont = True
TabOrder = 1 TabOrder = 1
Visible = False Visible = False
object vstChat: TVirtualStringTree object vstChat: TVirtualStringTree
@ -979,9 +1018,12 @@ object frmMain: TfrmMain
Width = 542 Width = 542
Align = alClient Align = alClient
Header.AutoSizeIndex = 2 Header.AutoSizeIndex = 2
Header.Font.Height = -11
Header.MainColumn = 2 Header.MainColumn = 2
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible] Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons Header.Style = hsFlatButtons
ParentFont = True
TabOrder = 0 TabOrder = 0
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes] TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning] TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
@ -1011,13 +1053,14 @@ object frmMain: TfrmMain
Width = 542 Width = 542
Align = alBottom Align = alBottom
OnKeyPress = edChatKeyPress OnKeyPress = edChatKeyPress
ParentFont = True
TabOrder = 1 TabOrder = 1
end end
end end
object spChat: TSplitter object spChat: TSplitter
Cursor = crVSplit Cursor = crVSplit
Height = 5 Height = 5
Top = 392 Top = 396
Width = 542 Width = 542
Align = alBottom Align = alBottom
AutoSnap = False AutoSnap = False
@ -1034,6 +1077,42 @@ object frmMain: TfrmMain
Caption = '&CentrED' Caption = '&CentrED'
object mnuDisconnect: TMenuItem object mnuDisconnect: TMenuItem
Caption = '&Disconnect' Caption = '&Disconnect'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
200000000000000400006400000064000000000000000000000028415200AB66
3CFFA45D38FF2F4F6300509BB50053A3BE007CA9B700BDDADE00DCE4E30088B5
C20080BCCC005D757F0034383A0034352E004E5F5800313D6200BA7C4AFFBF87
5CFFB97E56FFA7623AFFA3D3DD005594AC0060A1B50062A9BE00487E98004165
76003C4A48003B4C4700384740001A231E000102020000000000C4885AFFC692
68FFCDA280FFC59670FFB67B53FFAB6A46FFA35E3DFF9C5235FF91442CFF2737
39000B0F0D0000000000293B48002E47550028354300324953003D6A9500C68C
60FFD1A683FFCC9F7BFFCB9E7BFFC79974FFC3926CFFBE8D65FFA86945FF2C3A
42002A3138002D3A420074B9C8007FC5D5005F99AE0076B4C5002F3B35003B49
4900D0A17CFFD7AE8FFFC9976FFFC38F66FFBD885CFFC08C64FFBC8861FF8351
3CFF4F91AB0054889C0043718A004E6974003D4A4B0045779600000000000304
0400D7A682FFDCB699FFD0A17DFFCB9A73FFCFA482FFC79974FF896C58FF8787
87FF4E4E4EFF3D5F7B003A5C8600364E63002C2D2E00566E72003E7A8E004C95
B000DDAE8CFFE2BEA4FFD8AB89FFD9B394FFCF9F7AFFA37858FF939393FFA9A9
A9FF555555FF3C4E51002C322E002C3331001B1F1C00000000003F85B2004D9C
C100E3B493FFE8C6ADFFE3C0A6FFDBB08FFFB48D71FF2F353300717171FF6767
67FF161B1700000000008F432BFF8B4128FF0203030016292F002E3A48003447
5200E7BB9CFFE8C0A3FFE5BFA3FFB59D8AFFAEAEAEFF838383FF000000000000
0000060A0B009F5734FFAD724CFFA25F3FFF8E4129FF365C8300020303000001
010000000000EABE9FFFCEAF9AFFB7B7B7FFBCBCBCFF8C8C8CFF496F7B00498D
A600AE6D40FFBB835CFFC08F67FFBB8A60FF995033FF32424E00000000000000
00000000000004070700101819009E9E9EFF999999FF3C5B6A002A323500C386
57FFC9976FFFCB9F7CFFBC8559FFC3926BFFA6633EFF39434500000000004566
A1004B697900545B8F004E5089003C40570029375400D9A781FFD9AB88FFDAB2
94FFD8B092FFCB9972FFC49068FFC89C78FFB2724AFF00000000000000000000
00000000000000000000000000000000000000000000E2B18FFFE7C1A8FFE0BA
9FFFD8AC8BFFD2A582FFCE9D77FFD1A684FFBE865CFF00000000000000000000
0000000000000000000000000000000000000000000000000000E8C0A4FFE9C8
B0FFE5C3A9FFE1BDA2FFDCB699FFD5AB8AFFD0A482FFB57644FF000000000000
0000000000000000000000000000000000000000000000000000ECBEA1FFE7BB
9DFFE4B697FFE0B292FFDAAE8FFFDCB598FFCF9F7AFFC38657FFF0A3E30058BA
1500187D7C00D063B90000000000000000000000000000000000000000000000
0000000000000000000000000000D9A781FFD39E76FF00000000
}
ImageIndex = 0 ImageIndex = 0
OnClick = mnuDisconnectClick OnClick = mnuDisconnectClick
end end
@ -1049,11 +1128,83 @@ object frmMain: TfrmMain
Caption = '&Administration' Caption = '&Administration'
object mnuFlush: TMenuItem object mnuFlush: TMenuItem
Caption = '&Flush' Caption = '&Flush'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000BA6A36FFB969
35FFB86935FFB76835FFB56835FFB46734FFB26634FFB06533FFAE6433FFAC63
32FFAA6232FFA96132FFA86031FFA76031FFA66031FFA86131FFBA6A35FFEBC6
ADFFEAC5ADFFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFB
F8FFFEFBF8FFFEFBF8FFFEFBF8FFC89A7CFFC79879FFA76031FFBA6B37FFEDCA
B3FFE0A27AFFFEFAF7FF62C088FF62C088FF62C088FF62C088FF62C088FF62C0
88FF62C088FF62C088FFFDF9F6FFCA8D65FFC99B7CFFA76031FFBB6C38FFEECC
B6FFE1A27AFFFEFAF7FFBFDCC2FFBFDCC2FFBFDCC2FFBFDCC2FFBFDCC2FFBFDC
C2FFBFDCC2FFBFDCC2FFFDF9F6FFCD9068FFCC9E81FFA86132FFBB6B38FFEFCE
B8FFE1A279FFFEFAF7FF62C088FF62C088FF62C088FF62C088FF62C088FF62C0
88FF62C088FF62C088FFFDF9F6FFCF936AFFCEA384FFAA6132FFBA6A36FFEFD0
BBFFE2A27AFFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFB
F8FFFEFBF8FFFEFBF8FFFEFBF8FFD3966DFFD2A78AFFAB6232FFBB6A36FFF0D2
BEFFE2A37AFFE2A37AFFE1A37AFFE2A37BFFE1A37BFFE0A178FFDE9F77FFDD9F
76FFDC9D74FFD99B72FFD89971FFD69970FFD5AB8EFFAD6333FFBB6A36FFF2D5
C2FFE3A37AFFE3A37AFFE2A37BFFE2A37BFFE2A47BFFE1A279FFE0A178FFDEA0
77FFDE9E75FFDC9D74FFDA9B73FFD99B73FFDAB095FFAF6433FFBB6A36FFF2D8
C5FFE3A47BFFE3A37AFFE3A47AFFE2A47BFFE2A37BFFE1A37BFFE1A279FFDFA0
77FFDE9F76FFDD9E74FFDB9C72FFDC9D74FFDDB59AFFB16534FFBB6B36FFF4D9
C7FFE6A67DFFC88C64FFC98D65FFC98E67FFCB926CFFCB926DFFCA9069FFC88C
65FFC88C64FFC88C64FFC88C64FFDA9C74FFE1BA9FFFB36634FFBB6B36FFF4DC
C9FFE7A77DFFF9ECE1FFF9ECE1FFF9EDE3FFFCF4EEFFFDFAF7FFFDF7F3FFFAED
E5FFF7E7DBFFF7E5D9FFF6E5D8FFDEA077FFE4BEA4FFB46734FFBC6B36FFF5DD
CCFFE7A87EFFFAF0E8FFFAF0E8FFC98D66FFFAF0E9FFFDF8F3FFFEFAF8FFFCF4
EFFFF9E9DFFFF7E7DBFFF7E5D9FFE0A278FFE7C2A9FFB66835FFBC6B36FFF6DF
D0FFE8A87EFFFCF6F1FFFCF6F1FFC88C64FFFAF1E9FFFBF4EEFFFDFAF7FFFDF9
F6FFFAF0E8FFF8E8DDFFF7E6DBFFE1A37AFFEFD5C3FFB76935FFBC6B36FFF6DF
D1FFE9AA80FFFEFAF6FFFDFAF6FFC88C64FFFBF3EEFFFBF1EAFFFCF6F2FFFEFB
F8FFFCF6F1FFF9ECE2FFF8E7DBFFEED0BAFFECD0BDFFBB703EFFBC6B36FFF6E0
D1FFF7E0D1FFFEFBF8FFFEFBF7FFFDF9F6FFFCF5F0FFFAF0EAFFFBF2EDFFFDF9
F6FFFDFAF7FFFBF1EBFFF8E9DFFFECD0BDFFC9895EFFCECFD100F0A3E300BC6B
36FFBC6B36FFBC6B36FFBC6B36FFBB6B36FFBB6B36FFBB6A36FFBB6A36FFBC6C
39FFBD6E3BFFBB6D3AFFBB6B38FFBB703EFFCECFD100CECFD100
}
ImageIndex = 1 ImageIndex = 1
OnClick = mnuFlushClick OnClick = mnuFlushClick
end end
object mnuShutdown: TMenuItem object mnuShutdown: TMenuItem
Caption = '&Shutdown' Caption = '&Shutdown'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
000000000000E8E340000000000000000000080000000000000007CE03000000
000003CE0700FFFFFF0000000000000000000000000000000000000000000000
00000000000000000000E0000000444BD9FF474FDAFF434BD9FF4048D7FF3E47
D8FF353ED5FF3E5B6800000000000400000020E44000D4E3400000000000C0FF
0700C0FF0700C0FF0700636CE4FF8997FAFF8495FFFF7F90FCFF7D8EFAFF7D8D
F7FF7D8BF2FF5159DDFFC0FF0700C0FF0700000000000000000000F8FF000000
000000F8FF006C75E4FF96A5FAFF5A74FFFF3250FFFF304FFFFF2C49FEFF2542
FAFF4860F9FF8694F4FF5159DDFF000000000000000000000000000000001800
18007981E7FF9FADFBFF6781FFFF405EFFFF405EFFFF3C59FFFF3755FFFF3350
FFFF2846FDFF4A65FDFF8996F6FF545EDEFF0800000000000000000000007178
E3FFA2B2FCFF738FFFFF4F70FFFF4F6EFFFF4B69FFFF4664FFFF415EFFFF3C5A
FFFF3755FFFF2C4BFFFF4E67FFFF8493FAFF4048D8FF38394100000000007D84
E5FFA6BBFFFF5F7FFFFF5F7EFFFF5A79FFFF5573FFFF506EFFFF4B69FFFF4664
FFFF415EFFFF3B59FFFF314FFFFF8799FFFF4D55DBFFC0FF070008000000858A
E6FFABBEFFFF6D8DFFFF6989FFFF6583FFFF5F7EFFFF5A79FFFF5574FFFF506F
FFFF4B69FFFF4663FFFF3F5CFFFF8A9BFFFF535BDCFF00000000010001008B91
E7FFB1C4FFFF7698FFFF7393FFFF6E8EFFFF6989FFFF6583FFFF5F7EFFFF5A79
FFFF5573FFFF4F6EFFFF4867FFFF90A1FFFF5A62DEFF00000000C0FF07009298
E9FFB8CDFFFF7DA0FFFF7C9DFFFF7899FFFF7393FFFF6E8EFFFF6989FFFF6583
FFFF607EFFFF5978FFFF4F70FFFF98AAFFFF636AE0FFE000000000000000959A
EAFFBCCDFCFF9CBBFFFF81A5FFFF81A2FFFF7C9EFFFF7899FFFF7493FFFF6F8E
FFFF6989FFFF6080FFFF7893FFFF9EADFBFF656CE0FFC0FF070068E140001CE1
4000A5ACEFFFC1D1FCFFA0BFFFFF86AAFFFF85A7FFFF81A2FFFF7C9DFFFF7898
FFFF6F90FFFF85A1FFFFACBAFBFF838BE8FF0000000000000000FEFF7F00FCFF
3F0000000000A6ADEEFFC4D4FCFFA3C2FFFF8BAFFFFF89ABFFFF84A7FFFF7EA0
FFFF91AEFFFFB4C3FBFF8C93EAFF275B68000000000004000000000000000000
0000FCFF3F00FEFF7F00A9B1F0FFC2D3FCFFC1D6FFFFBDD1FFFFBBCFFFFFB9CE
FFFFB7C8FCFF989FEDFFFEFF7F00FEFF7F00FEFF7F00FEFF7F00080000000000
00000000000000000000000000009EA3EBFFA0A5ECFF9DA2EBFF9BA0EBFF989E
EAFF9297E9FF0000000000000000000000000000000000000000F0A3E300183A
EE00187D7C00B81A1B000851A500225B6800000000000400000088E040003CE0
400000000000000000000000000050E040000000000000000000
}
ImageIndex = 2 ImageIndex = 2
OnClick = mnuShutdownClick OnClick = mnuShutdownClick
end end
@ -1062,11 +1213,83 @@ object frmMain: TfrmMain
end end
object mnuAccountControl: TMenuItem object mnuAccountControl: TMenuItem
Caption = '&Account Management' Caption = '&Account Management'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
00000000000000000000366A820020B3F9000D8BD2000D629300526471000000
00000000000033606A00236889003173930047899F00458B9F004B8B9C00578D
9C00669BA6007BB1C400B35020FFA0401FFFAA4522FFAC4622FFAB4422FFA741
21FF9F3D1FFFB24F24FF00000000000000000000000000000000000000000000
00002579CDFF866161FFBF6035FFFEB961FFFEB962FFFEB962FFFEB962FFFEB9
61FFFEB961FFB14924FF7A646DFF2E7ECEFF6DA2D3FF418DA600638D9900297D
D1FF82BAEEFF9F6658FFF5BB84FFFFAC5BFFFEA85AFFFEA257FFFE9C53FFFFA3
55FFFF9F50FFF8AE78FFA45E4AFF83BCEFFF2A77CAFF0000000000000000287C
CEFF78B3EAFFB39E94FFFFB760FFFFB663FFFEB261FFFEAC5DFFFEA559FFFD9E
53FFFE974EFFFF8D43FFBC8F82FF7EB8EDFF2974C7FF5D8C9C004F889900638B
94008A5444FFFCC8ABFFFFD198FFFEC76DFFFEBF68FFFEB964FFFEB15EFFFEA8
59FFFDA054FFFFB77AFFFEA980FF885042FF00000000000000000A1129000000
000000000000C44C1FFFF6E4D6FFFFE4A4FFFFD472FFFFC969FFFFC063FFFFB6
5FFFFFC180FFF6D7C6FFC5491FFF197498003E869A004F899A00307793003F77
90004877860052849100BC481CFFF4E2D4FF4E7BA9FF4D7BA8FF4D7BA8FF4E7B
A9FFF3D6C3FFBE461CFF000000000000000012121500202035002244C200171A
310000000000000000006A3C25FF346DA7FF9CCCF8FFAFD4F7FFAFD4F7FFA5CF
F6FF3474AEFF683E2DFF176B92001F7399001C6A8F002E7C9C00153E6400153F
590010324A00204E5F002A5B92FFA6CAEEFFABCCEAFFA7D0F6FFA8D0F6FFABCC
EAFFA7CDEEFF2D629AFF000000003E3D4C001B286B00222E8700013BF4005676
DC0000000000000000001F5E9BFFD9E8F7FF97C5F1FF8EBBE5FF7FA9D1FF89B5
DFFFCDDFEEFF2368A7FF3A7F9000417F8C002C587300164A7200546C8100657A
87007C8D9900899DA6000C3E87FF7C97B8FF8AB7E4FF719CC8FF15406EFF1944
72FF22456BFF113B66FF0000000052536800031F8600011B8F00093DF5006478
C80000000000000000000F4B97FF12589FFF0F4A8AFF0F4B87FF114B87FF154C
85FF124175FF0F335CFF5C828500627B8100546C7E0050647B00736976007D70
78008A838A00908990009A929500114E96FF12589BFF125899FF115393FF0F4A
87FF0E3E71FF132E4BFF000000001B1B1B002B3C8B0001239F00071E6A000000
00000000000000000000000000000000000012488DFF104B90FF0F488AFF1142
7DFF15335BFF657174006B777D0057717E0061707D006C627200F0A3E30008E0
400000000000000000005D5C68005C637000686E7F0076889700BEC7CC004746
4500000000000000000000000000000000003E4560000E32B600
}
ImageIndex = 3 ImageIndex = 3
OnClick = mnuAccountControlClick OnClick = mnuAccountControlClick
end end
object mnuLargeScaleCommands: TMenuItem object mnuLargeScaleCommands: TMenuItem
Caption = 'Large Scale Commands' Caption = 'Large Scale Commands'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000338037FF317D34FF2F7A32FF2F7A32FF2F7A
32FF2F7A32FF00000000000000000000FF00FF00000000000000000000000000
0000000000003D8F43FF3A8A3FFF9BC59DFFB3C29DFFBDC19CFFBEC39DFFB0D2
B1FF7EC09AFF2F7A32FF2F7A32FF0000FF00FF00000000000000000000000000
0000469B4DFF70B786FFAEE8C7FFC0D2A0FFC5B381FFCAB47DFFCCAF78FFB9A7
78FF80CC95FFA0DABCFF66A87AFF2F7A32FFFF00000000000000000000004EA8
57FF76C08DFF99D7B3FF79C080FFBCC27EFFC6A96AFFD7B169FFD6AD65FFBC9B
5EFF60AD6AFF599768FF81C199FF67A97BFF2F7A32FF000000000000000053AF
5DFFB5EAD3FF69BC74FF6EBD71FFBEB66DFFC9A35BFFDFAB5BFFDDA858FFC192
4EFF9DA958FF78B166FF5A9667FFA6DCC0FF2F7A32FF000000005ABA66FF92D7
AFFFA0DEB4FF84C670FFA8D080FFC5A55CFFD0A757FFE0AA56FFDAA651FFC798
4AFFB98C47FFB69B57FF819F65FF79BF90FF81BE9CFF2F7A32FF5EBF6AFFB0E9
CFFF83D490FFBFDC8AFFC3CB82FFCCA256FFDAAF5CFFDCAF5BFFC99A4BFFBF86
43FFB78443FFB99A52FF96A562FF65A676FFA2D8BDFF2F7A32FF60C36DFFBEEF
DDFF73D17DFF90D16CFFBCE09EFFC7A75EFFD3B05EFFC69953FFC6BC6EFFAFD1
7AFFB4C46DFFAFA95FFF7BA957FF5AA367FFB1E3CEFF317E35FF61C46EFFBEF0
DCFF81D883FF77DB6DFFBFE59AFFCCDFA7FFCAA85DFFC2BD6CFFB8DA8BFFA6D8
60FF77D13FFF6AD046FF59BC50FF63AB6CFFB2E4CEFF358239FF61C46EFFB3EC
D2FF9BE2A2FF9DEA8DFFD4EDB7FFD0EAC7FFCFB96EFFCCB166FFCBC975FF76DB
67FF66D94DFF65D74DFF6CD35DFF73BB7EFFA5DBC2FF39883EFF61C46EFF98DE
B5FFB5EBCCFFB1EFA7FFC9EEA9FFD1EAC9FFD5CF8DFFD9CB8BFFCDB466FFBCBC
67FF9AD671FF82DE73FF7ADC71FF91D0A3FF88C8A4FF3D8F43FF0000000061C4
6EFFC0F3E2FFB5EFB4FFB5F0ACFFC1EDB7FFD4E3B7FFD9D89CFFDAD395FFCDB5
6DFFC7B36DFFB5CB84FF94DF9AFFAFE7CDFF469B4DFF000000000000000061C4
6EFF87D7A0FFC0F2DEFFC7F2D6FFD5EFD5FFD0E9CFFFD5DBA6FFDCDEABFFDBCD
90FFD7C88BFFC9C18EFFBDD5AFFF7AC791FF4AA353FF00000000FFFFFF00FFFF
FF0061C46EFF8CD8A2FFCDF5E8FFD4EDDAFFCEEDD3FFCFDFAFFFD6DEB5FFD4D4
A2FFCED0A1FFC4D0AAFF87C991FF53AF5DFFFF00000000000000080000003737
37003636360061C46EFF61C46EFFA5E1BBFFBAEACCFFC5E0BEFFC5DAB4FFBDD7
B0FFA6D7ACFF5DBE69FF5ABA66FF00000000EFFFFF00FFFFFF00F0A3E300B8EB
760000000000000000000851A50061C46EFF61C46EFF61C46EFF61C46EFF61C4
6EFF61C46EFF000000000000000050E912000000000000000000
}
ImageIndex = 14 ImageIndex = 14
OnClick = mnuLargeScaleCommandsClick OnClick = mnuLargeScaleCommandsClick
end end
@ -1719,36 +1942,252 @@ object frmMain: TfrmMain
top = 33 top = 33
object mnuSelect: TMenuItem object mnuSelect: TMenuItem
Action = acSelect Action = acSelect
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000007C7C
7CFF787878FF757575FF000000000000FF00FF00000000000000000000000000
000000000000000000000000000000000000000000000000000000000000AAAA
AAFFDBDBDBFF797979FF000000000000FF00FF00000000000000000000000000
0000000000000000000000000000000000000000000000000000888888FFDBDB
DBFFB7B7B7FF7D7D7DFF000000000000FF00FF00000000000000000000000000
000000000000000000009C9C9CFF000000000000000000000000ADADADFFF2F2
F2FF848484FF00000000000000000000FF00FF00000000000000000000000000
00000000000000000000A0A0A0FF9C9C9CFF00000000949494FFD9D9D9FFC1C1
C1FF898989FF00000000000000000000FF00FF00000000000000000000000000
00000000000000000000A4A4A4FFD7D7D7FF9D9D9DFFD0D0D0FFEEEEEEFF9191
91FF0000000000000000000000000000FF00FF00000000000000000000000000
00000000000000000000A9A9A9FFF2F2F2FFE5E5E5FFE2E2E2FFE3E3E3FF9595
95FF919191FF8D8D8DFF898989FF868686FFFF00000000000000000000000000
00000000000000000000ADADADFFEEEEEEFFE1E1E1FFDFDFDFFFE0E0E0FFE7E7
E7FFE4E4E4FFBBBBBBFF8E8E8EFF0000FF00FF00000000000000000000000000
00000000000000000000B1B1B1FFF0F0F0FFE4E4E4FFE2E2E2FFE2E2E2FFE7E7
E7FFC1C1C1FF969696FF000000000000FF00FF00000000000000000000000000
00000000000000000000B5B5B5FFF2F2F2FFE8E8E8FFE7E7E7FFEAEAEAFFC6C6
C6FF9E9E9EFF00000000000000000000FF00FF00000000000000000000000000
00000000000000000000B9B9B9FFF4F4F4FFECECECFFEDEDEDFFCBCBCBFFA7A7
A7FF0000000000000000000000000000FF00FF00000000000000000000000000
00000000000000000000BDBDBDFFF7F7F7FFEFEFEFFFD0D0D0FFAFAFAFFF0000
00000000000000000000000000000000FF00FF00000000000000000000000000
00000000000000000000C1C1C1FFF7F7F7FFD5D5D5FFB6B6B6FF000000000000
00000000000000000000000000000000FF00FF00000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00C4C4C4FFD9D9D9FFBEBEBEFFFFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF0000000000000008000000DB87
4100DB874100DB874100C8C8C8FFC5C5C5FF0000000000000000000000000000
000000000000000000000000000000000000EFFFFF00FFFFFF00F0A3E30008E9
120000000000000000000851A500F52E74000000000040000000F8040600AC04
0600000000000000000000000000C00406000000000000000000
}
GroupIndex = 1 GroupIndex = 1
RadioItem = True RadioItem = True
OnClick = acSelectExecute OnClick = acSelectExecute
end end
object mnuDraw: TMenuItem object mnuDraw: TMenuItem
Action = acDraw Action = acDraw
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000FF00FF00000000000000000000001340
58FF15425EFF25699CFF2C76B4FF3B8BBAFF0000000000000000000000000000
00000000000000000000000000000000FF00FF00000000000000000000001242
59FF5D9CD4FFA6CFF5FFA9CFECFF488BC1FF2C76B4FF00000000000000000000
00000000000000000000000000000000FF00FF00000000000000000000001E6D
93FFCBE3F9FF61AAECFF4098E8FF1567C2FF1660AAFF2C76B4FF000000000000
00000000000000000000000000000000FF00FF00000000000000000000001E6D
93FFC8E1F2FFD1E7FAFF347DB5FF3199C3FF6DC4DCFF4A9CCFFF3483C7FF0000
00000000000000000000000000000000FF00FF00000000000000000000000000
00002689B9FFB0CBE1FF67A9C8FF60DCF5FF44D6F4FF8EEEFAFF5DB4E6FF3B8F
D9FF0000000000000000000000000000FF00FF00000000000000000000000000
0000000000002689B9FFBEE6F2FFB3F4FCFF60DCF5FF44D6F4FF8EEEFAFF5DB4
E6FF3B8FD9FF00000000000000000000FF00FF00000000000000000000000000
000000000000000000002790BFFFC3EDF8FFB3F4FCFF60DCF5FF44D6F4FF8EEE
FAFF5DB4E6FF3B8FD9FF000000000000FF00FF00000000000000000000000000
00000000000000000000000000002FBAE4FFC3EDF8FFB3F4FCFF60DCF5FF44D6
F4FF8EEEFAFF5DB4E6FF3B8FD9FF0000FF00FF00000000000000000000000000
0000000000000000000000000000000000002FBAE4FFC3EDF8FFB3F4FCFF60DC
F5FF44D6F4FF8EEEFAFF5DB4E6FF3B8FD9FFFF00000000000000000000000000
000000000000000000000000000000000000000000002FBAE4FFC3EDF8FFB3F4
FCFF68D9F5FF6FCFF3FF599DD0FF73ABDDFF4F91C9FF00000000000000000000
00000000000000000000000000000000000000000000000000002FBAE4FFC3ED
F8FFA8E2F8FF6CAEDDFFA5CFF4FFA5CFF4FFBDDBF7FF5393CBFF000000000000
0000000000000000000000000000000000000000000000000000000000002FBA
E4FFA7D4F4FFC5E1F8FFCCE3F9FFCCE3F9FFBDDBF7FF4F90C9FFFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0050A8D9FF6AA5D8FFC9E1F7FFCBE3F8FF4295CAFF3182C2FF08000000FF33
3300FF333300FF333300FF333300FFFFFF000000000000000000000000000000
0000000000004FAADBFF5093CAFF4E90C8FF2F9DD2FFFFFFFF00F0A3E3007804
060000000000000000000851A5001E9B7000000000004000000028E62400DCE5
2400000000000000000000000000F0E524000000000000000000
}
GroupIndex = 1 GroupIndex = 1
RadioItem = True RadioItem = True
OnClick = acDrawExecute OnClick = acDrawExecute
end end
object mnuMove: TMenuItem object mnuMove: TMenuItem
Action = acMove Action = acMove
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
200000000000000400006400000064000000000000000000000053A85AFF51A6
58FF4FA356FF4EA154FF4C9F52FFA8AAAC00A5A7AA00A3A6A800A7A9AC00AEAF
B100ABADB000429046FF418E45FF408D43FF3F8B42FF3E8A41FF54AB5CFF83BF
89FF7DBB83FF54A65BFFB2B4B500B0B2B300B7B8BA00B1B3B500ACAFB100AAAC
AF00A8AAAC00A5A7AA00429046FF6DAD71FF6EAE73FF3F8C42FF56AD5FFF83C0
8AFF73B77AFF6CB473FF50A457FFA9ACAE00A7AAAB00ACAFB100B3B5B600B2B4
B500B0B2B300459449FF5AA05EFF5EA664FF6CAD70FF408D44FF58B061FF57AE
5FFF6CB673FF84C08AFF6EB574FF50A457FFBEBFC100B2B5B600AFB2B300ADAF
B10048994DFF5DA561FF75B379FF5FA463FF47944CFF418F45FF5AB363FFB9BC
BD0057AE5FFF6CB673FF6AB471FF52A759FFB3B5B700BABDBE00B8BABC00B6B8
B9004A9B4FFF5FA764FF62A867FF45954AFFB2B4B600439147FFB8BABC00C2C4
C500BFC1C20057AE5FFF55AC5DFFC9CBCC00B9BCBD00B5B8BA00B2B4B600AFB1
B300ABAEB0004A9C50FF48994EFFB8BABC00B6B8B900BEC0C200C0C1C300BABC
BE00B7B9BB00B3B5B700AFB2B400B8BABC00C2C4C500BFC1C200BDBEBF00C4C5
C600CED0D100C0C1C300BABCBE00B7B9BB00B3B5B700AFB2B400CACBCC00C7C9
CB00C4C6C700CBCCCD00CED0D100C0C1C300BABCBE00B7B9BB00B3B5B700AFB2
B400B8BABC00C2C4C500BFC1C200BDBEBF00C4C5C600CED0D100C1C3C500BEC0
C200B9BBBD00B4B7B900BFC1C300CACBCC00C7C9CB00C4C6C700CBCCCD00D5D5
D600C7C8CA00C1C3C500BEC0C200B9BBBD00B4B7B900BFC1C300CCCFD000CBCD
CD00D0D1D200D5D5D600C7C8CA00C1C3C500BEC0C200B9BBBD00B4B7B900BFC1
C300CACBCC00C7C9CB00C4C6C700CBCCCD00D5D5D600C7C8CA00C2C4C500BEC0
C100B9BBBC0060BB6AFF5EB968FFCCCFD000CBCDCD00D0D1D200DADBDC00CCCF
D000C7CACB0053A95BFF52A759FFB9BBBC00C5C7C900D0D1D10065C370FFD5D6
D70063BF6DFF80C989FF79C482FF5FB969FFBEC0C100B9BBBC00C5C7C900D0D1
D10057AE5FFF6EB875FF6CB573FF52A759FFCCCFD0004EA255FF66C472FF6BC5
75FF83CC8CFF9BD3A4FF7BC784FF60BC6BFFD5D6D700E1E1E200D4D5D600CDCF
D10059B161FF75BD7DFF8CC793FF6DB673FF52A759FF50A557FF67C673FF9DD6
A5FF92D19BFF7ECA87FF63C06EFFC2C5C700BEC0C100CBCCCE00D8D9D900D4D7
D800D1D4D40059B162FF76BD7EFF7EC086FF8AC590FF52A85AFF68C774FFA1D8
A9FF9ED6A7FF65C371FFD8DADA00D9DBDC00E5E6E700D9DBDC00D4D5D700CDD0
D100C7C9CB00C2C5C6005FB467FF8DC894FF8EC995FF54AA5CFF68C774FF68C7
74FF67C673FF66C572FF65C371FFC2C5C600D0D2D300DEE0E000DADCDD00D8DA
DA00D9DBDC005CB666FF5BB464FF59B262FF58AF60FF56AD5EFF
}
GroupIndex = 1 GroupIndex = 1
RadioItem = True RadioItem = True
OnClick = acMoveExecute OnClick = acMoveExecute
end end
object mnuElevate: TMenuItem object mnuElevate: TMenuItem
Action = acElevate Action = acElevate
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
20000000000000040000640000006400000000000000000000000000BD0000A5
9C00001A420000B5A00013C0F80028FC0000B3A50A00C9800000FC000000F800
0000EC5506003A9F0000B3A50A00C9800000FC000000F80016004BDB0000FC00
0000F80027000000280000000000FE1E0000286E2DFF256929FF216425FF1E60
22FF0028FC000028FC000000280000002800000028000028FC00000028000000
28000028FC000027F3000EFC0E00000000002D7533FF74BD7AFF72BD78FF2265
26FF4BDB0000FC000000F80000006500000000000000FE1E0000130000000000
0000FE0000002CF30000FC000000F8002800337D39FF79C07EFF76BF7CFF266B
2BFFFC0000000FFE1F0000004C000028FC000028FC00000028000028FC000028
FC000000280000002800000028000028FC0039853FFF7DC282FF7AC180FF2B72
30FF002CF80028FC0000FE0000002CF30000FC000000F80011004CDB0000FF10
0000F20023000000000000000000FE1E00003F8D46FF81C587FF7EC385FF317A
36FF15000000FE1E00004CDB0000FC00000026FD000000002B00FC00000028FC
0000000028000028FC000028FF000000280045954CFF85C78CFF82C689FF3682
3DFF0BFB1D000039DF000EFE1C000049F80028FC0000FE1E000014C2F80028FC
0000B2A80A00CB7F0000FF810300C60010004A9E53FF8ACA91FF87C98EFF3C8A
43FFFF810300C60028000000280095060800B2A80A00CB7F000065E2BA0013AC
F10090040000FC00000028FC00000000280050A659FF8ECC95FF8BCB93FF4292
4AFF830380000028FC000487C10000A2AC000CB3890000B4A300000B9A00F09D
08000016B600D86AF80028FC000013ACF10056AD5FFF93CF9AFF90CE98FF489A
50FF0000000013ACF10090040000FC6AEA003C00E600F4F45900000000000000
2800000000000000060000000000000000005BB465FF96D29FFF94D09CFF5DAC
65FFB728FC00E2BA280068E9E1006EE9E4000028FC000031F100000000000028
FC000283CF000000000065C371FF62BF6EFF79C683FF9AD4A3FF98D3A1FF7DC3
86FF4FA458FF4A9E53FFED5706003E9F00000000000000000000CA5A00000000
000000000000000000000000280066C472FF7CCA87FF9ED6A7FF9CD4A5FF73C0
7DFF55AC5EFF000028000026FC00000000000006000000000000000000000000
000000000000000000000028FF00F5CE350066C572FF7ECA88FF7BC885FF5DB8
68FF00000000000000000000000000000000000000003CBBF000000000000000
0000000000000000000000000000000000000000000067C673FF65C270FF0000
00000000000000000000FC00000028FC000000002800000EFC00E8A3E300802E
6400000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000026F000000000000000000000
}
GroupIndex = 1 GroupIndex = 1
RadioItem = True RadioItem = True
OnClick = acElevateExecute OnClick = acElevateExecute
end end
object mnuDelete: TMenuItem object mnuDelete: TMenuItem
Action = acDelete Action = acDelete
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
20000000000000040000640000006400000000000000000000000FFE1F000000
4C000028FC000028FC000000280000002800000028000009F100A06131FFB676
3FFFA46534FF0DFD1E0000000000FE1E00004BDB0000FF0600002CF30000FC00
0000F8002800000028000028FC000011FF00000000009F5E2FFFE7B263FFBF92
4FFFDDAB62FFA26232FF0028FC000000240000000000F30028001E000000DB00
280026FD0000C79751FFD8A65AFFA66C36FF00002800A86835FFD1A057FF0000
9D008E6A36FFB4753FFF0000000024FE000000000000FE00000000000000FE1E
0000B58244FFD6A45AFFAE8241FFECB666FFA76E36FFAC6C37FFC49551FF0000
0E001E000000B77840FF100031000028FC000028FF0000000E000028FF000608
0000BE8A4AFFA87E41FF28FC0000966E32FFE7B066FFCAA274FFE5B167FF945E
2DFFB88D4DFFAF703BFF0C00D500000EFD00000000000EFD1F000F04380000AD
AD009C6A32FFD6A55EFFCB7F0000FC000000E4AD60FFDCBD9BFFEFCDA5FFEFB7
67FFD8A65DFF00000000A80A16007F002800810384000028FC006AEAE30000E6
FF00F459FC00B17E42FFDCAA60FFD09E54FFEAB365FFD8BA99FFF8EBE1FFAE89
57FF06082800850380008303800000000100592AFA000000AD00AF80B0000000
1000EFF09F000010A4009D6932FFB17E42FF9E682CFFBC9767FFF0E0D0FFB691
5FFF00E6FF00F431CD000000000000000000ACF1EC0004002800000000000000
0000000000000028FC00000000000006000000000000B68F59FFF5E9DDFFE2CD
B4FFB99461FFB728FC00E2BA280068E9E1006EE9E40000000000000000000000
0000F6DC510000000000000000000000000000000000B28A54FFF1E2D3FFCFB3
8EFFF5E9DCFF000000000028FC0000004200570602009F000000BBF0F4005A00
00000000000000000000000000000028FC0000000000AF8750FFEDDECEFF0000
2800CEB38FFFE7D6C3FF0026FC00000000000006000000000000000000000000
00000000000000000000C3EC0600000000000000000000000000E6D4C0FF0000
000000000000D3B999FFD3B897FF000000000028FC0000000000000000000000
0000000000000000000000000000000000000000000000000000DEC8AEFF0000
00000000000000002800D1B693FFBB9767FF000EFC000000000000007800F407
0000000000000000000000000000000000000000000000000000D5BC9DFF0000
0000000000000000000000000000AE854CFF0000000000000000080000000000
0000000000000000000000000000FFFFFF000000000000000000CBAE87FF0000
0000000000000000000000000000000000000000000000000000E8A3E3000022
780000000000000000000851A500E3AF75000000000078000000A77B3EFFA4F0
9D00000000000000000000000000B8F09D000000000000000000
}
GroupIndex = 1 GroupIndex = 1
RadioItem = True RadioItem = True
OnClick = acDeleteExecute OnClick = acDeleteExecute
end end
object mnuSetHue: TMenuItem object mnuSetHue: TMenuItem
Action = acHue Action = acHue
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
000000000000000000000000000000000000FF00000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000001D65A0FF1A639EFF1761
9BFF000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000256BA6FF87AEE1FF7FA9DCFF6093
C9FF3173ACFF15609AFF0000000000000000FF00000000000000000000000000
00000000000000000000000000002D70ADFF6E9ED1FF9ABDEBFF72A1E3FF97BA
EAFF95B9EAFF6194CAFF16609AFF000000000000000000000000000000000000
00000000000000000000000000003274B1FF9EC0ECFF6A9DE2FF5C94DFFF5992
DFFF6095E0FF96B9EAFF87AEE1FF4A84BCFF145F99FF00000000000000000000
0000427FBDFF3F7DBAFF3B7AB8FF77A5D7FFA2C3EDFFA0C1EDFF9EC0EDFF75A4
E4FF5B93DFFF5991DEFF7CA8E6FF93B7E8FF4480B8FF000000004F88C7FF6598
CFFF7CA9D9FF8EB5E2FFA4C5EDFFA8C7EEFF6598CDFF3576B3FF6094C9FFA0C1
EDFF7997A4FF9F9749FF7D9592FF8EB4E9FF7AA6D8FF19629DFF538BCBFFAFCD
F0FFB1CFF0FF99C0ECFF7FAFE7FFABCAEFFF3E7CB9FF000000003677B4FFA3C4
EDFFA99832FFC5B65BFFAD9827FF5C94DFFF99BCEBFF1D65A0FF588ECEFFA9C9
EDFF85A8EDFF596BEDFF6B8FE9FFAECDF0FF6E9ED2FF3F7DBAFF689ACEFFA6C6
EEFF969B6AFFAE9827FF9E984EFF679CE2FF99BCEAFF2268A3FF5C91D1FF93BA
E5FF6F75F6FF8285F5FF4141F0FF91BCEBFFAFCDF0FFADCCF0FFABCAF0FF86B3
E9FF5FAAC2FF45B48EFF57A9B7FF71A2E4FF98BBE8FF266BA7FF000000005D92
D2FF93A5F5FF5A5BF6FF5287F4FF3CA7FBFF5DACF2FF7FB0E7FF7CAEE7FF79AB
E6FF40B781FF61C898FF3CB87BFF7EADE7FF90B6E3FF2B6FABFF000000006194
D5FF87B0E1FFBAD7F3FF33A7FEFF6DC0FFFF2CA4FFFF67BFF0FF3BCEFBFF5BBF
F1FF53B4A1FF3CB87AFF48B491FFA8C8EEFF78A6D6FF3072AFFFFFFFFF00FFFF
FF006295D6FF86AFE1FF5BB3F9FF2CA4FFFF41AAFBFF31D3FEFF6DE2FFFF2CD5
FFFF80B1E8FF7DAEE7FFAACAEFFFA6C6EDFF3878B6FF00000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF006094D5FF8FB7E3FFBAD7F3FF5ED5FBFF2BD5FFFF42D1
FBFFB4D2F2FFB2D0F1FF93B9E2FF6396CCFF3E7CB9FFFFFFFF0008000000888A
8C00888A8C00888A8C00888A8C006194D5FF77A4DCFF92B9E4FFA9CAECFFA6C7
ECFF8EB6E2FF699BD2FF4A84C3FF00000000EFFFFF00FFFFFF00E8A3E30070F0
9D0000000000000000000851A500D7AD7500000000005F93D4FF5C91D1FF598F
CFFF558DCCFF000000000000000020B45F000000000000000000
}
GroupIndex = 1 GroupIndex = 1
RadioItem = True RadioItem = True
OnClick = acHueExecute OnClick = acHueExecute
@ -1758,10 +2197,82 @@ object frmMain: TfrmMain
end end
object mnuBoundaries: TMenuItem object mnuBoundaries: TMenuItem
Action = acBoundaries Action = acBoundaries
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
200000000000000400006400000064000000000000000000000000B2AD000022
CC000028FC000028FC00000028000000280000002800005AEE00181818008900
AC000E04380000ACAA0004380000B3A50A00C9800000F25807004BDB00003232
32FF2D2D2DFF282828FF0027FC000000CD000000000000000E001E000000DB00
2800000028000027FC00040404FF010101FF000000FFDB002800000000003A3A
3AFFB7B7B7FF313030FFD89066FFD88E64FFD68C62FFD58961FFD5895FFFD586
5DFFD4855BFFD4855AFF090909FFA6A6A6FF030303FFFE1E0000000000004242
42FF3D3D3DFF534B46FFE3AD8DFFE2AB8BFFE1AA8AFFE1A888FFE0A787FFDFA5
85FFDFA484FFDEA383FF42332BFF0A0A0AFF070707FF000024000028FF000000
0E00DD9B73FFE4B192FFE4AF91FFE3AE8FFFE3AC8DFFE1AB8BFFE1A989FFE1A8
88FFE0A786FFDFA585FFDFA384FFD4865DFF0000000024FE0000000000000EFD
1F00DE9F77FFE5B495FFE4B393FFE4B192FFE3AF90FFE3AE8EFFE2AC8DFFE1AA
8BFFE1A989FFE0A787FFDFA686FFD5895FFF100031000028FC00810384000028
FC00E1A27BFFE6B798FFE6B596FFE5B494FFE4B292FFE4B191FFE3AF8FFFE3AD
8DFFE2AC8CFFE1AA8AFFE1A989FFD68C62FF0C00D500000EFD00592AFA000000
AD00E1A67FFFE8BA9BFFE7B899FFE6B697FFE6B596FFE5B394FFE4B192FFE4AF
91FFE3AE8FFFE3AD8DFFE2AB8BFFD88E66FFA80A16007F002800ACF1EC000400
2800E3AA81FFE9BC9EFFE8BB9CFFE8B99AFFE7B899FFE6B697FFE6B495FFE4B3
94FFE4B192FFE3AF90FFE3AE8FFFD9926AFF83038000000001006EE9E4000000
0000E3AC85FFEABFA0FFEABE9FFFE8BC9DFFE8BA9CFFE8B99AFFE6B798FFE6B6
96FFE5B494FFE4B393FFE4B191FFDA966CFF0000000000000000570602009F00
0000E5AF86FFEBC1A2FFEAC0A2FFEABEA0FFE9BD9EFFE8BC9DFFE8BA9BFFE7B8
99FFE6B698FFE6B596FFE5B394FFDC9A70FFE2BA280068E9E100000600000000
0000E5B289FFEBC3A5FFEBC2A3FFEBC0A2FFEABFA1FFEABEA0FFE9BD9EFFE8BB
9DFFE8BA9BFFE7B899FFE6B697FFDE9D75FF0028FC00000042000028FC008686
86FF838383FF968D87FFEBC4A5FFEBC2A4FFEBC2A3FFEAC0A2FFEABFA0FFEABE
9FFFE8BC9EFFE8BB9CFF7E726AFF535353FF4F4F4FFF00000000000EFC008989
89FFD3D3D3FF848484FFE6B38CFFE5B28AFFE5B289FFE5AF86FFE5AE86FFE3AC
85FFE3AB83FFE3A980FF626262FFC4C4C4FF585858FF00000000000000008989
89FF888888FF878787FF00000000000000000000000000000000000000000000
000000000000000000006B6B6BFF666666FF626262FF00002800C8A3E300C8A3
E300A8182F00A8182F0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
OnClick = acBoundariesExecute OnClick = acBoundariesExecute
end end
object mnuVirtualLayer: TMenuItem object mnuVirtualLayer: TMenuItem
Action = acVirtualLayer Action = acVirtualLayer
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
200000000000000400006400000064000000000000000000000010A6F1009E00
0000A6F1EF0000001500F1ED920000006200DF6FF80028FC000028F8000093F1
F000000000002900000070A1E30070A1E30020E55C0088A1E300FF1C00000011
9C00F4E181000028FC000028FC000000280000002800000028000028FF00F4F4
F4000016B700D869F80028FC000093F1F0008D000000005AE500000000000000
0000000000000000000046974EFF419149FF3C8A43FF38833EFF337D39FF2F77
34FF2A712FFF266B2BFF236627FF206223FF1D5E20FF1A5B1EFF000000000000
000000000000000000004C9F54FF47994FFF42924AFF3D8C45FF39853FFF347F
3AFF307835FF2B7230FF276D2CFF246828FF206324FF1D5F21FF000000000000
000046974EFF419149FF51A75BFF499B51FF44944BFF3F8E46FF3B8741FF3681
3CFF317A37FF2D7532FF296F2EFF256929FF256929FF216425FF58FC00000028
FF004C9F54FF28FFF40057AF61FF4FA559FF4B9E54FF46984EFF429148FF3D8A
43FF38843EFF337D39FF2F7734FF29702FFF296F2EFF256A2AFF0028FC000000
00004EA358FF1171F1005CB666FF52A85BFF4EA357FF4A9D52FF45974DFF4190
48FF3C8A43FF37833EFF357F3BFF2F7835FF2F7734FF2A712FFF000000000000
000056AE60FF0000000060BC6BFF58B062FF54AB5EFF51A659FF4CA055FF489A
50FF43944BFF3D8B45FF3A8741FF357F3BFF347F3AFF307835FFE81ADD00E81A
DD005BB565FF0000000064C16FFF5AB465FF57AF61FF54AB5EFF51A65AFF4CA1
56FF499B51FF43934AFF409047FF3B8741FF3A8741FF35803BFF3FDE47000000
00005FBB6AFF0000000067C673FFDE3F6A0059B264FF57AE60FF54AB5DFF51A7
5AFF4DA256FF479950FF46974EFF408E47FF408F47FF3B8842FF000000000000
000063C06EFF00FFFF0067C673FF67C572FF64C170FF61BD6CFF5DB968FF5AB4
64FF56AE60FF50A659FF4DA256FF479A50FF46974EFF419149FF0000000000FF
FF0067C673FF0000000000000000000000000000000000FFFF00FF0000000000
00000000000000000000000000003B8842FFFF00000000000000F90600000000
000068C774FF68C673FF65C271FF62BE6EFF5FBA6AFF5CB565FF58AF61FF53A9
5CFF4FA357FF46974DFFFF000000000000000000000000000000FFFFFF00FFFF
FF00FFFFF9004E0009003FDE460000000000000000000000000000000600DE3F
7B00C63E0000000000000000000000000000000000003EC6D900080000000000
3C00F0F4CA000000000000000000FFFFFF000000000000000000000000000000
000000000000000000000000000000000000004ECB00FFFFFF00A8A3E300A8A3
E3003019DD003019DD000851A50092B075000000000018000000B019DD006419
DD000000000000000000000000007819DD000000000000000000
}
OnClick = acVirtualLayerExecute OnClick = acVirtualLayerExecute
end end
end end

34
Client/UfrmRegionControl.lfm
View File

@ -3,9 +3,11 @@ object frmRegionControl: TfrmRegionControl
Height = 390 Height = 390
Top = 268 Top = 268
Width = 620 Width = 620
ActiveControl = vstGroups
Caption = 'Region Control' Caption = 'Region Control'
ClientHeight = 390 ClientHeight = 390
ClientWidth = 620 ClientWidth = 620
Font.Height = -11
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
@ -18,10 +20,11 @@ object frmRegionControl: TfrmRegionControl
Caption = 'Panel1' Caption = 'Panel1'
ClientHeight = 360 ClientHeight = 360
ClientWidth = 160 ClientWidth = 160
ParentFont = True
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
Left = 5 Left = 5
Height = 14 Height = 13
Top = 137 Top = 137
Width = 150 Width = 150
Align = alTop Align = alTop
@ -29,6 +32,7 @@ object frmRegionControl: TfrmRegionControl
BorderSpacing.Right = 4 BorderSpacing.Right = 4
Caption = 'Area:' Caption = 'Area:'
ParentColor = False ParentColor = False
ParentFont = True
end end
object pnlAreaControls: TPanel object pnlAreaControls: TPanel
Left = 5 Left = 5
@ -40,24 +44,27 @@ object frmRegionControl: TfrmRegionControl
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 82 ClientHeight = 82
ClientWidth = 150 ClientWidth = 150
ParentFont = True
TabOrder = 0 TabOrder = 0
object lblX: TLabel object lblX: TLabel
Left = 4 Left = 4
Height = 14 Height = 13
Top = 32 Top = 32
Width = 7 Width = 8
Caption = 'X' Caption = 'X'
Enabled = False Enabled = False
ParentColor = False ParentColor = False
ParentFont = True
end end
object lblY: TLabel object lblY: TLabel
Left = 4 Left = 4
Height = 14 Height = 13
Top = 60 Top = 60
Width = 7 Width = 8
Caption = 'Y' Caption = 'Y'
Enabled = False Enabled = False
ParentColor = False ParentColor = False
ParentFont = True
end end
object btnAddArea: TSpeedButton object btnAddArea: TSpeedButton
Left = 30 Left = 30
@ -207,6 +214,7 @@ object frmRegionControl: TfrmRegionControl
Width = 50 Width = 50
Enabled = False Enabled = False
OnChange = seX1Change OnChange = seX1Change
ParentFont = True
TabOrder = 0 TabOrder = 0
end end
object seX2: TSpinEdit object seX2: TSpinEdit
@ -216,6 +224,7 @@ object frmRegionControl: TfrmRegionControl
Width = 50 Width = 50
Enabled = False Enabled = False
OnChange = seX1Change OnChange = seX1Change
ParentFont = True
TabOrder = 1 TabOrder = 1
end end
object seY1: TSpinEdit object seY1: TSpinEdit
@ -225,6 +234,7 @@ object frmRegionControl: TfrmRegionControl
Width = 50 Width = 50
Enabled = False Enabled = False
OnChange = seX1Change OnChange = seX1Change
ParentFont = True
TabOrder = 2 TabOrder = 2
end end
object seY2: TSpinEdit object seY2: TSpinEdit
@ -234,13 +244,14 @@ object frmRegionControl: TfrmRegionControl
Width = 50 Width = 50
Enabled = False Enabled = False
OnChange = seX1Change OnChange = seX1Change
ParentFont = True
TabOrder = 3 TabOrder = 3
end end
end end
object vstArea: TVirtualStringTree object vstArea: TVirtualStringTree
Left = 5 Left = 5
Height = 118 Height = 119
Top = 151 Top = 150
Width = 150 Width = 150
Align = alClient Align = alClient
BorderSpacing.Left = 4 BorderSpacing.Left = 4
@ -249,6 +260,7 @@ object frmRegionControl: TfrmRegionControl
BorderStyle = bsSingle BorderStyle = bsSingle
Header.MainColumn = -1 Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDrag] Header.Options = [hoColumnResize, hoDrag]
ParentFont = True
TabOrder = 1 TabOrder = 1
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages] TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect] TreeOptions.SelectionOptions = [toFullRowSelect]
@ -262,8 +274,11 @@ object frmRegionControl: TfrmRegionControl
Top = 1 Top = 1
Width = 158 Width = 158
Align = alTop Align = alTop
Header.Font.Height = -11
Header.Options = [hoAutoResize, hoVisible] Header.Options = [hoAutoResize, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons Header.Style = hsFlatButtons
ParentFont = True
PopupMenu = pmGroup PopupMenu = pmGroup
TabOrder = 2 TabOrder = 2
TreeOptions.MiscOptions = [toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning] TreeOptions.MiscOptions = [toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
@ -288,6 +303,7 @@ object frmRegionControl: TfrmRegionControl
Caption = 'Panel2' Caption = 'Panel2'
ClientHeight = 361 ClientHeight = 361
ClientWidth = 460 ClientWidth = 460
ParentFont = True
TabOrder = 1 TabOrder = 1
object sbArea: TScrollBox object sbArea: TScrollBox
Left = 1 Left = 1
@ -295,6 +311,7 @@ object frmRegionControl: TfrmRegionControl
Top = 1 Top = 1
Width = 458 Width = 458
Align = alClient Align = alClient
ParentFont = True
TabOrder = 0 TabOrder = 0
object pbArea: TPaintBox object pbArea: TPaintBox
Height = 105 Height = 105
@ -312,6 +329,7 @@ object frmRegionControl: TfrmRegionControl
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
ClientHeight = 30 ClientHeight = 30
ClientWidth = 620 ClientWidth = 620
ParentFont = True
TabOrder = 2 TabOrder = 2
object btnExit: TButton object btnExit: TButton
Left = 551 Left = 551
@ -321,6 +339,7 @@ object frmRegionControl: TfrmRegionControl
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Caption = 'Exit' Caption = 'Exit'
OnClick = btnCloseClick OnClick = btnCloseClick
ParentFont = True
TabOrder = 0 TabOrder = 0
end end
object btnSave: TButton object btnSave: TButton
@ -332,6 +351,7 @@ object frmRegionControl: TfrmRegionControl
Caption = 'Save' Caption = 'Save'
Enabled = False Enabled = False
OnClick = btnSaveClick OnClick = btnSaveClick
ParentFont = True
TabOrder = 1 TabOrder = 1
end end
end end