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

⬆️ Update to Lazarus 2.2 and FreePascal 3.2.2

This commit is contained in:
Andreas Schneider 2022-05-07 10:49:52 +02:00
parent 39280f927b
commit 1bfbc2e11e
14 changed files with 1028 additions and 2098 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

157
Client/CentrED.lpi
View File

@ -1,13 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="12"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/> <MainUnitHasUsesSectionForAllUnits Value="False"/>
<CompatibilityMode Value="True"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="CentrED"/> <Title Value="CentrED"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
@ -278,45 +278,53 @@
</BuildModes> </BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
<environment> <environment>
<UserOverrides Count="1"> <UserOverrides Count="1">
<Variable0 Name="HEAPTRC" Value="log=CentrED.trc"/> <Variable0 Name="HEAPTRC" Value="log=CentrED.trc"/>
</UserOverrides> </UserOverrides>
</environment> </environment>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<environment>
<UserOverrides Count="1">
<Variable0 Name="HEAPTRC" Value="log=CentrED.trc"/>
</UserOverrides>
</environment>
</Mode0>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="6"> <RequiredPackages Count="6">
<Item1> <Item1>
<PackageName Value="LCLBase"/> <PackageName Value="laz.virtualtreeview_package"/>
<MinVersion Major="1" Release="1" Valid="True"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="multiloglaz"/> <PackageName Value="LCLBase"/>
<MinVersion Major="1" Release="1" Valid="True"/>
</Item2> </Item2>
<Item3> <Item3>
<PackageName Value="LazOpenGLContext"/> <PackageName Value="multiloglaz"/>
<MinVersion Valid="True"/>
</Item3> </Item3>
<Item4> <Item4>
<PackageName Value="LCL"/> <PackageName Value="LazOpenGLContext"/>
</Item4> </Item4>
<Item5> <Item5>
<PackageName Value="lnetvisual"/> <PackageName Value="LCL"/>
<MinVersion Minor="5" Release="3" Valid="True"/>
</Item5> </Item5>
<Item6> <Item6>
<PackageName Value="virtualtreeview_package"/> <PackageName Value="lnetvisual"/>
<MinVersion Major="4" Minor="5" Release="1" Valid="True"/> <MinVersion Minor="5" Release="3" Valid="True"/>
</Item6> </Item6>
</RequiredPackages> </RequiredPackages>
<Units Count="50"> <Units Count="47">
<Unit0> <Unit0>
<Filename Value="CentrED.lpr"/> <Filename Value="CentrED.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -359,6 +367,7 @@
<Filename Value="UfrmEditAccount.pas"/> <Filename Value="UfrmEditAccount.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmEditAccount"/> <ComponentName Value="frmEditAccount"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
@ -385,189 +394,177 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="UResourceManager.pas"/>
<IsPartOfProject Value="True"/>
</Unit11>
<Unit12>
<Filename Value="Tools/UfrmConfirmation.pas"/> <Filename Value="Tools/UfrmConfirmation.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmConfirmation"/> <ComponentName Value="frmConfirmation"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit12> </Unit11>
<Unit13> <Unit12>
<Filename Value="Tools/UfrmMoveSettings.pas"/> <Filename Value="Tools/UfrmMoveSettings.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmMoveSettings"/> <ComponentName Value="frmMoveSettings"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit13> </Unit12>
<Unit14> <Unit13>
<Filename Value="UfrmAbout.pas"/> <Filename Value="UfrmAbout.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmAbout"/> <ComponentName Value="frmAbout"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit14> </Unit13>
<Unit15> <Unit14>
<Filename Value="Tools/UfrmHueSettings.pas"/> <Filename Value="Tools/UfrmHueSettings.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmHueSettings"/> <ComponentName Value="frmHueSettings"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit15> </Unit14>
<Unit16> <Unit15>
<Filename Value="UfrmRadar.pas"/> <Filename Value="UfrmRadar.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmRadarMap"/> <ComponentName Value="frmRadarMap"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit16> </Unit15>
<Unit17> <Unit16>
<Filename Value="UfrmLargeScaleCommand.pas"/> <Filename Value="UfrmLargeScaleCommand.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmLargeScaleCommand"/> <ComponentName Value="frmLargeScaleCommand"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit17> </Unit16>
<Unit18> <Unit17>
<Filename Value="Tools/UfrmVirtualLayer.pas"/> <Filename Value="Tools/UfrmVirtualLayer.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmVirtualLayer"/> <ComponentName Value="frmVirtualLayer"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit18> </Unit17>
<Unit19> <Unit18>
<Filename Value="Tools/UfrmFilter.pas"/> <Filename Value="Tools/UfrmFilter.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmFilter"/> <ComponentName Value="frmFilter"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit18>
<Unit19>
<Filename Value="UGUIPlatformUtils.pas"/>
<IsPartOfProject Value="True"/>
</Unit19> </Unit19>
<Unit20> <Unit20>
<Filename Value="UGUIPlatformUtils.pas"/> <Filename Value="UPlatformTypes.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<Filename Value="UPlatformTypes.pas"/>
<IsPartOfProject Value="True"/>
</Unit21>
<Unit22>
<Filename Value="UfrmRegionControl.pas"/> <Filename Value="UfrmRegionControl.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmRegionControl"/> <ComponentName Value="frmRegionControl"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit21>
<Unit22>
<Filename Value="UPacketHandlers.pas"/>
<IsPartOfProject Value="True"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="UPacketHandlers.pas"/> <Filename Value="UPackets.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="UPackets.pas"/> <Filename Value="ULandscape.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit24> </Unit24>
<Unit25> <Unit25>
<Filename Value="ULandscape.pas"/> <Filename Value="UGameResources.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit25> </Unit25>
<Unit26> <Unit26>
<Filename Value="UGameResources.pas"/> <Filename Value="UAdminHandling.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit26> </Unit26>
<Unit27> <Unit27>
<Filename Value="UAdminHandling.pas"/>
<IsPartOfProject Value="True"/>
</Unit27>
<Unit28>
<Filename Value="Tools/UfrmToolWindow.pas"/> <Filename Value="Tools/UfrmToolWindow.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmToolWindow"/> <ComponentName Value="frmToolWindow"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit27>
<Unit28>
<Filename Value="../Logging.pas"/>
<IsPartOfProject Value="True"/>
</Unit28> </Unit28>
<Unit29> <Unit29>
<Filename Value="../Logging.pas"/> <Filename Value="../UOLib/UStatics.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit29> </Unit29>
<Unit30> <Unit30>
<Filename Value="../UOLib/UStatics.pas"/> <Filename Value="../UOLib/UWorldItem.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit30> </Unit30>
<Unit31> <Unit31>
<Filename Value="../UOLib/UWorldItem.pas"/> <Filename Value="../UOLib/UMap.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit31> </Unit31>
<Unit32> <Unit32>
<Filename Value="../UOLib/UMap.pas"/> <Filename Value="../UOLib/UTiledata.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit32> </Unit32>
<Unit33> <Unit33>
<Filename Value="../UOLib/UTiledata.pas"/> <Filename Value="UGLFont.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit33> </Unit33>
<Unit34> <Unit34>
<Filename Value="UGLFont.pas"/> <Filename Value="../UOLib/UAnimData.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit34> </Unit34>
<Unit35> <Unit35>
<Filename Value="../UOLib/UAnimData.pas"/> <Filename Value="../MulProvider/UTileDataProvider.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit35> </Unit35>
<Unit36> <Unit36>
<Filename Value="../MulProvider/UTileDataProvider.pas"/> <Filename Value="../MulProvider/UAnimDataProvider.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit36> </Unit36>
<Unit37> <Unit37>
<Filename Value="../MulProvider/UAnimDataProvider.pas"/> <Filename Value="../MulProvider/UMulManager.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit37> </Unit37>
<Unit38> <Unit38>
<Filename Value="../MulProvider/UMulManager.pas"/> <Filename Value="../MulProvider/UArtProvider.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit38> </Unit38>
<Unit39> <Unit39>
<Filename Value="../MulProvider/UArtProvider.pas"/> <Filename Value="../MulProvider/UTexmapProvider.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit39> </Unit39>
<Unit40> <Unit40>
<Filename Value="../MulProvider/UTexmapProvider.pas"/> <Filename Value="../version.inc"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit40> </Unit40>
<Unit41> <Unit41>
<Filename Value="../version.inc"/> <Filename Value="ULightManager.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit41> </Unit41>
<Unit42> <Unit42>
<Filename Value="ULightManager.pas"/> <Filename Value="../UOLib/ULight.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit42> </Unit42>
<Unit43> <Unit43>
<Filename Value="../UOLib/ULight.pas"/> <Filename Value="../MulProvider/ULightProvider.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit43> </Unit43>
<Unit44> <Unit44>
<Filename Value="../MulProvider/ULightProvider.pas"/>
<IsPartOfProject Value="True"/>
</Unit44>
<Unit45>
<Filename Value="Tools/UfrmLightlevel.pas"/> <Filename Value="Tools/UfrmLightlevel.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmLightlevel"/> <ComponentName Value="frmLightlevel"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit45> </Unit44>
<Unit46> <Unit45>
<Filename Value="../heContnrs.pas"/>
<IsPartOfProject Value="True"/>
</Unit46>
<Unit47>
<Filename Value="../UContnrExt.pas"/>
<IsPartOfProject Value="True"/>
</Unit47>
<Unit48>
<Filename Value="UfrmChangePassword.pas"/> <Filename Value="UfrmChangePassword.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmChangePassword"/> <ComponentName Value="frmChangePassword"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit48> </Unit45>
<Unit49> <Unit46>
<Filename Value="USelectionHelper.pas"/> <Filename Value="USelectionHelper.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit49> </Unit46>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

4
Client/Tools/UfrmFilter.lfm
View File

@ -177,7 +177,7 @@ object frmFilter: TfrmFilter
ShowHint = True ShowHint = True
ParentShowHint = False ParentShowHint = False
end end
object vdtFilter: TVirtualDrawTree object vdtFilter: TLazVirtualDrawTree
Tag = 1 Tag = 1
AnchorSideLeft.Control = GroupBox1 AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = Label1 AnchorSideTop.Control = Label1
@ -256,7 +256,7 @@ object frmFilter: TfrmFilter
OnChange = cbHueFilterChange OnChange = cbHueFilterChange
TabOrder = 0 TabOrder = 0
end end
object vdtHues: TVirtualDrawTree object vdtHues: TLazVirtualDrawTree
Cursor = 63 Cursor = 63
Left = 4 Left = 4
Height = 120 Height = 120

8
Client/Tools/UfrmFilter.pas
View File

@ -31,8 +31,8 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls, VirtualTrees, LCLIntf, LMessages, Buttons, UPlatformTypes, UStatics, ExtCtrls, laz.VirtualTrees, LCLIntf, LMessages, Buttons, UPlatformTypes,
Menus; UStatics, Menus;
type type
@ -55,8 +55,8 @@ type
pmHues: TPopupMenu; pmHues: TPopupMenu;
rgFilterType: TRadioGroup; rgFilterType: TRadioGroup;
Splitter1: TSplitter; Splitter1: TSplitter;
vdtFilter: TVirtualDrawTree; vdtFilter: TLazVirtualDrawTree;
vdtHues: TVirtualDrawTree; vdtHues: TLazVirtualDrawTree;
procedure btnClearClick(Sender: TObject); procedure btnClearClick(Sender: TObject);
procedure btnDeleteClick(Sender: TObject); procedure btnDeleteClick(Sender: TObject);
procedure cbHueFilterChange(Sender: TObject); procedure cbHueFilterChange(Sender: TObject);

4
Client/UPlatformTypes.pas
View File

@ -31,10 +31,10 @@ interface
uses uses
Classes, SysUtils, Classes, SysUtils,
{$IFDEF WINDOWS}ActiveX{$ELSE}fakeactivex{$ENDIF}; {$IFDEF WINDOWS}ActiveX{$ELSE}laz.FakeActiveX{$ENDIF};
type type
IDataObject = {$IFDEF WINDOWS}ActiveX{$ELSE}fakeactivex{$ENDIF}.IDataObject; IDataObject = {$IFDEF WINDOWS}ActiveX{$ELSE}laz.FakeActiveX{$ENDIF}.IDataObject;
implementation implementation

496
Client/UfrmAccountControl.lfm
View File

@ -1,24 +1,24 @@
object frmAccountControl: TfrmAccountControl object frmAccountControl: TfrmAccountControl
Left = 290 Left = 290
Height = 378 Height = 472
Top = 171 Top = 171
Width = 434 Width = 542
ActiveControl = vstAccounts ActiveControl = vstAccounts
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Account Management' Caption = 'Account Management'
ClientHeight = 378 ClientHeight = 472
ClientWidth = 434 ClientWidth = 542
Font.Height = -11 DesignTimePPI = 120
Font.Height = -14
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
Position = poOwnerFormCenter Position = poOwnerFormCenter
LCLVersion = '0.9.31' LCLVersion = '2.3.0.0'
object tbMain: TToolBar object tbMain: TToolBar
Left = 0 Left = 0
Height = 26
Top = 0 Top = 0
Width = 434 Width = 434
Caption = 'tbMain' Caption = 'tbMain'
@ -35,7 +35,7 @@ object frmAccountControl: TfrmAccountControl
ShowHint = True ShowHint = True
end end
object tbAddUser: TToolButton object tbAddUser: TToolButton
Left = 28 Left = 35
Hint = 'Add User' Hint = 'Add User'
Top = 2 Top = 2
Caption = 'Add User' Caption = 'Add User'
@ -45,7 +45,7 @@ object frmAccountControl: TfrmAccountControl
ShowHint = True ShowHint = True
end end
object tbEditUser: TToolButton object tbEditUser: TToolButton
Left = 51 Left = 64
Hint = 'Edit User' Hint = 'Edit User'
Top = 2 Top = 2
Caption = 'Edit User' Caption = 'Edit User'
@ -55,7 +55,7 @@ object frmAccountControl: TfrmAccountControl
ShowHint = True ShowHint = True
end end
object tbDeleteUser: TToolButton object tbDeleteUser: TToolButton
Left = 74 Left = 92
Hint = 'Delete User' Hint = 'Delete User'
Top = 2 Top = 2
Caption = 'Delete User' Caption = 'Delete User'
@ -65,14 +65,14 @@ object frmAccountControl: TfrmAccountControl
ShowHint = True ShowHint = True
end end
object tbSeparator1: TToolButton object tbSeparator1: TToolButton
Left = 24 Left = 30
Height = 6
Top = 2 Top = 2
Width = 4
Caption = 'tbSeparator1' Caption = 'tbSeparator1'
Style = tbsDivider Style = tbsDivider
end end
end end
object vstAccounts: TVirtualStringTree object vstAccounts: TLazVirtualStringTree
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = tbMain AnchorSideTop.Control = tbMain
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -82,7 +82,7 @@ object frmAccountControl: TfrmAccountControl
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 352 Height = 352
Top = 26 Top = 32
Width = 434 Width = 434
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
DefaultText = 'Node' DefaultText = 'Node'
@ -90,25 +90,26 @@ object frmAccountControl: TfrmAccountControl
Header.Columns = < Header.Columns = <
item item
Position = 0 Position = 0
Width = 30 Width = 38
end end
item item
Position = 1 Position = 1
Text = 'Username' Text = 'Username'
Width = 200 Width = 250
end end
item item
Position = 2 Position = 2
Text = 'Accesslevel' Text = 'Accesslevel'
Width = 100 Width = 125
end end
item item
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coShowDropMark, coVisible, coFixed, coAllowFocus] Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coShowDropMark, coVisible, coFixed, coAllowFocus]
Position = 3 Position = 3
Text = 'Restricted' Text = 'Restricted'
Width = 75 Width = 94
end> end>
Header.DefaultHeight = 17 Header.DefaultHeight = 21
Header.Height = 21
Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible] Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
Header.ParentFont = True Header.ParentFont = True
Header.Style = hsFlatButtons Header.Style = hsFlatButtons
@ -130,335 +131,144 @@ object frmAccountControl: TfrmAccountControl
OnHeaderClick = vstAccountsHeaderClick OnHeaderClick = vstAccountsHeaderClick
end end
object ilToolbar: TImageList object ilToolbar: TImageList
left = 144 Left = 180
Bitmap = { Bitmap = {
4C69040000001000000010000000000000000000000000000000000000000000 4C7A0400000010000000100000004E0500000000000078DAED95794C94671087
0000000000000000000000000000000000000000000000000000000000000000 6DD4BFDA946263521B1314B1822926F588A957700B2A725A51ACC8B9805B111B
0000000000000000000000000000000000000000000000000000000000000000 2982802087B0B0DC9453103CD045411450904350411014E5D8A24D6B50EBD168
00000000000000000000000000000000000047994FFF419149FF000000000000 C413D044F7E9B79B4841D05DFFB069132799ECB7D9F799996FE6FDED8C1AF5FE
0000000000000000000000000000000000000000000000000000000000005BB4 6D69960D8B93CDD1E6ACC3310F561F76C6F6C05A2C725762966E854B810487BD
65FF56AD5FFF50A65AFF4B9E53FF45964DFF60A868FF5BA262FF347E3AFF0000 6ECC0E99F7C6184E951202EA2388694921B52D87B4F65C922E6511773E156973
000000000000000000000000000000000000000000005EB968FF79C383FF89CA 22A10D52ACD3EC98E6FDF5B018EBCAD713D99C40B6229FC48B99A45CDA49FC85
92FF94D09CFF95D19EFF90CF99FF8CCB94FF87C98FFF80C487FF4E9554FF276D 34A25B9288688C25A4219280D3DB591A6F89BEC7D461FC96BA10323BF6907A29
2CFF000000000000000000000000000000005CB667FF85C98EFF9BD4A4FF8FCE 87A8A6789CE41E7C1B65A2AE7786DF2CCC936C308B5DCE24B1C130D6AED089D0
98FF92CF9AFF8DCC95FF88CA90FF83C68BFF7EC485FF79C17FFF478D4CFF2265 FA1875BE8806190B634D991BB168C8B9299ED3D0739D32E2BB5BED59C5ABFECE
25FF0000000000000000000000000000000075BF7EFF98D2A1FF94CF9CFF86C7 8F1631277401EF6B8EDAE6129FDA8473F58621BFBD9A65546302D1C23C7E2AF3
8DFF5EA765FF398640FF347E3AFF2E7633FF49904FFF458B4AFF206324FF0000 53F7E675D6ADD69BA0A648FCCF84A1EA8DF53E7BCCB357202EF222A23E563DCB
000000000000000000000000000054AB5EFF80C389FF8DCC95FF83C48AFF3D8B F0C6186C33560F635D6A3612D01041EE65B97A96191D7943661978265C3D4BC7
44FF37833EFF000000000000000000000000236627FF1F6123FF000000000000 7C315F794D67A4BBF7F3C96DA4B7E7A96799D89A8EAC2599C8A658026BC3F038
00000000000000000000000000004DA155FF47994FFF419149FF3B8842FF3580 BC118B941518488CDED86355BD9E4737E17A483230CB994173F9DA77E688776F
3CFF000000000000000000000000000000000000000000000000000000000000 247BD5DF51FF631BB72C9ECF2C92D05926435714CCF8590E5ABF8FAE753AE3D6
0000000000000000000000000000000000000000000000000000000000000000 640B9E85EECA5FD0592EE5D3459BF97C8685C6183A16190297273032742CA4E8
00000000000000000000000000000000000000000000000000004DA155FF4799 0A3EDE3292718BB7A0336B9D46FE934552B6659C40567193CD39E7186FB28909
4FFF419149FF3B8842FF35803CFF000000000000000000000000000000000000 A63EE89B79A13BDF5323AFE794CD6F7FF59371F61109D5B7D87EB09D98E3DDB4
000063C06EFF5FBB6AFF0000000000000000000000004B9E53FF45964DFF86C6 76F7304522D7C84F7748E1404B0F8517EE226FEBA34070F5736B0FC66E3B35F2
8EFF88C98FFF6FB376FF2E7633FF0000000000000000000000000000000062BE 1B164C65B6B79C9C0BCF38A2E857FBFE4B7DCCF62D46B2C858235FB36C224F6F
6DFF7BC785FF77C281FF54AB5EFF4EA357FF499B51FF63AC6BFF83C38BFF87C9 28B00E3A88555081DA55CF4FBAEAA95D32F1AD7C83A51E7D37BBE0663E287CA0
8FFF82C689FF509756FF0000000000000000000000000000000060BC6CFF79C4 F94738258672678A0BB7E292E1834D8227A208FB61716476A6BC385708ED9928
83FF9ED7A7FF9BD4A4FF97D29FFF92CF9AFF8DCC95FF88CA90FF7AC282FF7EC4 9BBC51D6495056BAA32C71429EED8A6B6118698A6354DD6E63437522C689F64C
85FF5DA463FF266B2AFF000000000000000000000000000000005BB465FF73BD F09AAB8E63B8ED225BCBEE52969B0A152E423E31CA525794458E28F7FFC0F268
7CFF96D19FFF94CF9CFF8FCD96FF8ACA91FF85C78BFF7ABE81FF65AD6CFF4B92 47923A4B48E92A41651E3571ACAF491CE08D82DB09AFEA21CF730DBDD53BA0C8
51FF246829FF0000000000000000000000000000000000000000000000004EA3 0165C15A947BED51E6ACE49B204B7214E50CB6B48ED2015E6553035A897275A5
57FF66B06EFF61AA68FF3D8B44FF37833EFF327B37FF2C7432FF276D2CFF0000 CE658E50B790BBD26DC0F537CDC3AD2A16972AA99A75A9940EC93FD8CA6C27B1
0000000000000000000000000000000000000000000000000000000000000000 DB448F4366FA142DD1A7D0549F75F6C618C6ADC4BD2A5E9D57F5A9FA3E12FF26
0000419149FF3B8842FF00000000000000000000000000000000000000000000 539D7DDD3F68FFDFD7FE9AFD57882CF99D25BBDA7817ED1BEEA8C0BFF60EC73A
0000000000000000000000000000000000000000000000000000000000000000 1E72EB8970453B1EB02CAE096DB43F43564748E73D4AFF7C4EECA93B1477F6D1
0000000000000000000000000000000000000000000000000000000000000000 70ED059E799D68D2BE28AE8A60450F0D7D2FD978B50FEF96FB88F75DC631BB03
0000000000000000000000000000000000000000000000000000000000000000 4DDAAFAB8E22A0B387A6FE9738FFD18BC38D7E02BB1E6392D58D26ED1F9587E2
0000000000000000000000000000000000000000000000000000000000000000 7FFE8E9A7512D8B5D7FB09523C6249B20289A7CF003F92F6CBF605E377A29333
0000000000000000000000000000000000000000000000000000000000000000 42CDE2EE7E1C6F3C13EA78C8D2B42B6C29BD8B91EF3F7D7B5DFBF2145F02CB7F
00000000000012488DFF104B90FF0F488AFF11427DFF15335BFF000000000000 25A9A29D55CD3771E8EE656BDB7D56A47790EEEE4844CD03A6FBB70CA97FB0F6
0000000000000000000000000000000000000000000000000000000000000000 BF8B39C4B5C760B7F30A5F06D6629E7916F3E80A72EC4404BA7B3323E422DE7B
0000114E96FF12589BFF125899FF115393FF0F4A87FF0E3E71FF132E4BFF0000 3B47BC4B2AED1BBB8791DAF49CE4E6E72C8E6C668A5B3E31E60B29B531D04A43
0000000000000000000000000000000000000000000000000000000000000F4B BA0B5761E82C15729E44145FC387FDFF61FFFF17F67F5AD26E8C1C4F335654CD
97FF12589FFF0F4A8AFF0F4B87FF114B87FF154C85FF124175FF0F335CFF0000 C76647DF69FFA785C7B2D0F722F1C7FB39D1A5C4A7A01763AF96B7FE070CDEFF
0000000000000000000000000000000000000000000000000000000000000C3E 06B68502DB87550AE8FAC3E4283091DD63B469A556FB7FACA886E256E590FDFF
87FF7C97B8FF8AB7E4FF719CC8FF15406EFF194472FF22456BFF113B66FF0000 C5F6078C11D568B5FFF5BE3F8278D7538181517ECF04EF61B4E43AA3CD2AB5DA
0000000000000000000000000000000000000000000000000000000000001F5E FFCE96BE4C133732D9FF366303EEF291FB55C6589D7C676DABF2A96A1E9CF76F
9BFFD9E8F7FF97C5F1FF8EBBE5FF7FA9D1FF89B5DFFFCDDFEEFF2368A7FF0000 3E77AC68
0000000000000000000000000000000000000000000000000000000000002A5B
92FFA6CAEEFFABCCEAFFA7D0F6FFA8D0F6FFABCCEAFFA7CDEEFF2D629AFF0000
0000000000000000000000000000000000000000000000000000000000006A3C
25FF346DA7FF9CCCF8FFAFD4F7FFAFD4F7FFA5CFF6FF3474AEFF683E2DFF0000
000000000000000000000000000000000000000000000000000000000000BC48
1CFFF4E2D4FF4E7BA9FF4D7BA8FF4D7BA8FF4E7BA9FFF3D6C3FFBE461CFF0000
0000000000000000000000000000000000000000000000000000C44C1FFFF6E4
D6FFFFE4A4FFFFD472FFFFC969FFFFC063FFFFB65FFFAEAB78FF609772FF4F8E
66FF428357FF000000000000000000000000000000008A5444FFFCC8ABFFFFD1
98FFFEC76DFFFEBF68FFFEB964FFFEB15EFFA79B61FF61AB81FF95D4B4FFBAE6
D0FF6ABB8FFF2D8F57FF196B37FF00000000287CCEFF78B3EAFFB39E94FFFFB7
60FFFFB663FFFEB261FFFEAC5DFFFEA559FF4A885DFF90D3B1FF92D6B1FFFFFF
FFFF65BC8CFF67BC8FFF196B37FF00000000297DD1FF82BAEEFF9F6658FFF5BB
84FFFFAC5BFFFEA85AFFFEA257FFFE9C53FF317B4CFF9CD4B6FFFFFFFFFFFFFF
FFFFFFFFFFFF95D2B2FF196B37FF00000000000000002579CDFF866161FFBF60
35FFFEB961FFFEB962FFFEB962FFFEB962FF226E3AFF62BA8BFF60BA87FFFFFF
FFFF60B987FF67BC8FFF196B37FF00000000000000000000000000000000B350
20FFA0401FFFAA4522FFAC4622FFAB4422FF5C572DFF288C53FF64BA8DFF95D2
B2FF64BA8DFF288C53FF196B37FF000000000000000000000000000000000000
00000000000000000000000000000000000000000000196B37FF196B37FF196B
37FF196B37FF196B37FF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000012488DFF104B90FF0F488AFF11427DFF15335BFF00000000000000000000
000000000000000000000000000000000000000000000000000000000000114E
96FF12589BFF125899FF115393FF0F4A87FF0E3E71FF132E4BFF000000000000
00000000000000000000000000000000000000000000000000000F4B97FF1258
9FFF0F4A8AFF0F4B87FF114B87FF154C85FF124175FF0F335CFF000000000000
00000000000000000000000000000000000000000000000000000C3E87FF7C97
B8FF8AB7E4FF719CC8FF15406EFF194472FF22456BFF113B66FF000000000000
00000000000000000000000000000000000000000000000000001F5E9BFFD9E8
F7FF97C5F1FF8EBBE5FF7FA9D1FF89B5DFFFCDDFEEFF2368A7FF0000000058A5
D8FF85B1DBFF469DD0FF000000000000000000000000000000002A5B92FFA6CA
EEFFABCCEAFFA7D0F6FFA8D0F6FFABCCEAFFA7CDEEFF2884B7FF77BEE7FFB4D2
F0FFE5F3FFFFACD2EFFF488CC7FF0000000000000000000000006A3C25FF346D
A7FF9CCCF8FFAFD4F7FFAFD4F7FFA5CFF6FF2E8ABFFF7ED3EBFFB2E3F9FF8BC0
E7FFAED3F6FFC4E0FCFF669FD3FF000000000000000000000000BC481CFFF4E2
D4FF4E7BA9FF4D7BA8FF4D7BA8FF428CBAFF7DD4EEFFC4F6FDFF6CDDF6FF6DCA
EDFF63A3D7FF5D9BD2FF000000000000000000000000C44C1FFFF6E4D6FFFFE4
A4FFFFD472FFFFC969FFBFBB86FF79D3EEFFC7F7FDFF5FDCF5FF5BE2F7FF7AD6
F2FF4099DFFF0000000000000000000000008A5444FFFCC8ABFFFFD198FFFEC7
6DFFFEBF68FFB0A780FF77CBE7FFC7F7FDFF5EDCF5FF5AE1F7FF7BD4F1FF4691
D4FF686672FF0000000000000000287CCEFF78B3EAFFB39E94FFFFB760FFFFB6
63FFB3A37DFF76B8D3FFC2F6FDFF63DFF7FF5DE2F8FF79D3F0FF4795D8FF75B2
EAFF2974C7FF0000000000000000297DD1FF82BAEEFF9F6658FFF5BB84FFA792
74FF7AB6D5FF90B7D1FF55C9E4FF5BDFF5FF78D0EDFF5196D2FF96645DFF83BC
EFFF2A77CAFF0000000000000000000000002579CDFF866161FFBF6035FF4389
AAFFE0F2FFFF549AD8FF1A7ABEFF4998C5FF4988B7FF9C5442FF7A646DFF2E7E
CEFF6DA2D3FF0000000000000000000000000000000000000000B35020FF2D64
81FF94C7F9FF91C9F9FF4185C9FF2362A4FF89493DFFB24F24FF000000000000
000000000000000000000000000000000000000000000000000000000000113D
55FF285F87FF4988BDFF428DBCFF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000012488DFF104B90FF0F488AFF11427DFF15335BFF000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000114E96FF12589BFF125899FF115393FF0F4A87FF0E3E71FF132E4BFF0000
0000000000000000000000000000000000000000000000000000000000000F4B
97FF12589FFF0F4A8AFF0F4B87FF114B87FF154C85FF124175FF0F335CFF0000
0000000000000000000000000000000000000000000000000000000000000C3E
87FF7C97B8FF8AB7E4FF719CC8FF15406EFF194472FF22456BFF113B66FF0000
0000000000000000000000000000000000000000000000000000000000001F5E
9BFFD9E8F7FF97C5F1FF8EBBE5FF7FA9D1FF89B5DFFFCDDFEEFF2368A7FF0000
0000000000000000000000000000000000000000000000000000000000002A5B
92FFA6CAEEFFABCCEAFFA7D0F6FFA8D0F6FFABCCEAFFA7CDEEFF2D629AFF0000
0000000000000000000000000000000000000000000000000000000000006A3C
25FF346DA7FF9CCCF8FFAFD4F7FFAFD4F7FFA5CFF6FF3474AEFF683E2DFF0000
000000000000000000000000000000000000000000000000000000000000BC48
1CFFF4E2D4FF4E7BA9FF4D7BA8FF4D7BA8FF4E7BA9FFF3D6C3FFBE461CFF0000
0000000000000000000000000000000000000000000000000000C44C1FFFF6E4
D6FFFFE4A4FFFFD472FFFFC969FFFFC063FFFFB65FFF9590A0FF295DC1FF0542
BBFF0B45B0FF000000000000000000000000000000008A5444FFFCC8ABFFFFD1
98FFFEC76DFFFEBF68FFFEB964FFFEB15EFF95828BFF3D74CEFF8DB5F7FFB8D6
FEFF72A8F5FF2D6BCAFF0000000000000000287CCEFF78B3EAFFB39E94FFFFB7
60FFFFB663FFFEB261FFFEAC5DFFFEA559FF2450ABFF8DB5F6FF4D92FFFF1177
FFFF2186FFFF408AEBFF0344B9FF00000000297DD1FF82BAEEFF9F6658FFF5BB
84FFFFAC5BFFFEA85AFFFEA257FFFE9C53FF0542BCFFAECDFEFFFFFFFFFFFFFF
FFFFFFFFFFFF187FEFFF0442BCFF00000000000000002579CDFF866161FFBF60
35FFFEB961FFFEB962FFFEB962FFFEB962FF1F52AFFF639DF4FF187FFFFF0076
F8FF0076EEFF0368E1FF0345B9FF00000000000000000000000000000000B350
20FFA0401FFFAA4522FFAC4622FFAB4422FF5F4C74FF2763C6FF2177E6FF0579
EAFF0164DDFF044DBDFF00000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000345B9FF0442
BCFF0345B9FF0000000000000000
} }
end end
object ilAccesslevel: TImageList object ilAccesslevel: TImageList
left = 184 Left = 230
Bitmap = { Bitmap = {
4C69060000001000000010000000000000000000000000000000000000000000 4C7A060000001000000010000000BB0A00000000000078DAD597075454571AC7
0000A3A3A3FFA0A0A0FF9D9D9DFF9A9A9AFF979797FF949494FF000000000000 B39288214643DA2611DDEC3131C608B1031154547487DE46040686A6088A18CA
000000000000000000000000000000000000000000000000000000000000A2A2 C0209D418A14471064A477A48820550441442074AC5905414D2C341731A038FF
A2FFBCBCBCFFCACACAFFCCCCCCFFCACACAFFC2C2C2FFADADADFF8C8C8CFF0000 BDEFB9B0BAD4E4247B76DF39FFF3EE9B777FDF77EFF7DEFFDD3B6FBC31FE484C
0000000000000000000000000000000000000000000000000000A1A1A1FFC4C4 4C445C5C1CA2A3A321100810111181B0B030BC318323212101A5A5A5A8ABAB43
C4FFBEBEBEFFA1A1A1FF969696FF939393FF979797FFAEAEAEFFAEAEAEFF8484 7D7D3D7DAEACAC44565616020303A78C111F1F8FAAAA2A949595816A87878723
84FF000000000000000000000000000000000000000000000000BABABAFFBFBF 343494CE9F9D9D4D8BC7E34D1AA3A4A404E5E5E5387EFCF8B83EBEBEBE484B4B
BFFF989898FF00000000000000000000000000000000878787FFA8A8A8FF9E9E 434C4CCC843C35572A379577B2F8FEFEFE484F4F0797CB1DD727323212D5D5D5
9EFF00000000000000000000000000000000000000009D9D9DFFC4C4C4FFA1A1 53D6C9D5D515191919E07038AFF531B9D009BFB834F0F97C04070743BFF82698
A1FF000000000000000000000000000000000000000000000000898989FFA9A9 451DD0CC6F87EAE95B6064DDC4B6B46B707272A2D95D6E415819797D2C867165
A9FF797979FF00000000000000000000000000000000999999FFC6C6C6FF9494 276A0746F0C3C00B5C7E2AC4B5A7C0F527C0ED21A083E8C741A0E1F1082A7B9E
94FF0000000000000000000000000000000000000000000000007D7D7DFFABAB E1DCA397FA26F4EA18CF2ABF8D1AC23B740CC3FFA71738F63320B8079CEC05D2
ABFF767676FF00000000000000000000000061C3E1FF88A0A8FF919191FF8E8E 7A80C83B80FD9561E8D50F40BDE631CE3E78862F82AE8CF13BCF76E012896F73
8EFF5AB9DCFF55B8DFFF51B5DEFF4DB1DDFF49ADDCFF46A8D7FF787878FF7676 73183BCEF6C0E45C1F4E90186B53BAA09CD489235D2073780099A43B6054F5A3
76FF657E8DFF3199D8FF000000000000000060C2E1FFC9F3FCFFCBF3FDFFD4F6 E8FE3016F95D1EE3B50BDB51DD3F02AB1B4370E97A8123F749CE07C0AAD80EE8
FEFFD7F6FFFFD8F4FFFFE0F8FFFFDFF8FFFFDAF5FFFFCDF1FCFFC2EDFAFFBDEB 1CCE4500E1AD9A87A171F131B655F4A3E0E7617CE2DD36C6ABE5DEC285BEE7D8
FAFFBDEBFAFF2B93D6FF00000000000000005CBFE0FFC8F3FCFF75DFF9FF89E6 7575082A05DDD027F98F3D025644DC82AA5706789D8042FA0312AF139BCBFA70
FDFF95E7FFFF9AE5FFFFAAEEFFFFA8EDFFFF99E3FFFF74D5F9FF59CCF3FF4FC8 E6DE303E706B1DE3A9FA56F43E07BBED17ECFBFB08DCC9DC43C8BC23FE018492
F1FFBBE9FAFF248DD5FF000000000000000058BBDFFFC7F1FCFF6FDCF9FF56BB B34B0760503F846D84952BE945DE9D61CCE3B68CF15BD2FE8EF2EEE7D06B1A84
EDFF61BDEFFF9BE7FFFF35A6E2FF4BA4E1FF90E2FFFF49ADE9FF38A4E3FF49C4 424E37D44AFAA05FD907E3EA3EB0AAFAC898FA209DFC1396093A2153D48BD377
F0FFB8E8F9FF1E88D4FF000000000000000053B7DEFFC6F0FCFF6AD9F8FF7CE2 86F0B643F3182F9FF8234AC933297D3482F25E21AAC9B36B24CFADED19D04CCE
FDFF90E8FFFF99E9FFFF329FDFFF548BB2FF8AE2FFFF6AD0F9FF50C5F1FF46C1 97C8384A1E8C20EFEE3072BA8668BDF57DD318BF2EFA06FD3E2C0FBB86A547AE
F0FFB6E7F9FF1883D3FF00000000000000004EB2DDFFC3EFFBFF65D6F8FF4CB6 6271E015BABE9FF1DAF091472BC45D5AE8F18A719A216AD784370F34E14FFB1B
ECFF5ABDEFFF95EBFFFF3097DDFF4D82ABFF84E1FFFF41A9E9FF329FE1FF42BE 67E4E7DF72EC30DC830F363AE3DD0DAE982BC7C1FBB29650DB6136A37C6C334B
EFFFB4E5F9FF137ED2FF000000000000000049ADDCFFC1EEFBFF5FD3F7FF6CDB 2C557585A44938E633FCB0DC38147337D86181BC31F48CA68F21ADC5C597FA14
FCFF7FE5FFFF8FEDFFFF97F2FFFF93EDFFFF7CDFFFFF5BCCF8FF46BEEFFF3CBA C3C1173A3E9847D8254C1E3EDE60890F57684CCB8BAFB3C032E5EFA1E21083F5
EEFFB3E3F9FF0E79D1FF000000000000000043A8DBFFBFECFBFF59CFF5FF41B0 66C1105F6B80A55A072121AB87F75631A7E53FF99B134E14B620B1B607B117EF
ECFF4EBAEFFF5AC2EFFF60C6EFFF5CC4EFFF4CB6EFFF37A5E6FF2A9AE1FF38B8 C33EBE019E39B7109ED788CF54DCA6E557188620A5AE1719F50F91DAFC146944
EEFFB1E3F8FF0975D0FF00000000000000003DA3DAFFBCEBFAFFBCEBFCFFBFEE 74BBA11752A682697979797928D8C4208ABCAFA72EFF422BB9E9291438299096
FEFFC6F4FFFFCEF8FFFFD3FAFFFFD0F8FFFFC7F2FFFFBAE9FCFFB3E4F9FFB0E2 969E92673018505656A6BF9F2C160B4C97445A2A2A2AF46F6A6A6A747B22D6D1
F8FFB0E2F8FF0571CFFF0000000000000000369DD9FF3199D8FF2C94D7FF2890 D191BE47F5A1BED77A7A7AF4B72E3939193A3A3A3874E8104C4D4DA1A4A43421
D6FF238CD5FF1E88D4FF1A84D3FF1580D2FF117CD1FF0E79D1FF0A76D0FF0773 6F666686A4A424686868404B4B0B060606282A2A42454505747575A1AAAA0A7D
CFFF0470CFFF016ECEFF00000000000000000000000000000000000000000000 7D7DB8B9B9C1D8D8F8B5184B5D1AE194F710CECECEF0F6F6A6FB181A1A829A0F
0000000000000000000000000000000000000000000000000000000000000000 3526269309737373B0D96C585B5BC3ADA8075FDB5F1A8BF1B56B0BBC88AFA9FB
0000000000000000000000000000000000000000000000000000000000000000 212121741C6A3E545F6A3EB6B6B6B0B1B1A1D71E2A9677691F9639D6BD36862F
0000565D68FF133F7AFF0D3E7DFF0C3C76FF123969FF4E5663FF000000000000 B90D30323282BABA3ADD8F928787073D776A4CD435357745454548B935C23AA1
0000000000000000000000000000000000000000000000000000000000005F63 0D933D3F6AAED4D8B76FDF4E8B62A8B38C8CCCEFEE5900BFBB16C7375F147179
69FF284D7DFF2D6196FF0F4988FF2C6093FF0C3E73FF1B3D60FF595E63FF0000 88591E3D98E5DC0D11DB9FF1B9A0B67926EC97292D6745A37A2012DEF75241BD
0000000000000000000000000000000000000000000000000000000000003752 98E5DA8DB75CEE607162C3A5E978B1548AEDA799591E243725CF4710B1B98B37
79FF255A93FF0C3E76FF245485FF0E3E73FF265584FF163E69FF143050FF0000 D92D988E17D9FF104649B50828BC8BD5C5F720B2AF036FDA77E12D875B10B1B8
0000000000000000000000000000000000000000000000000000000000001136 01797EC9FCA9F80516E98FCF5DEBA3FD1F4DFC2F7BE121742E7623E5463F24EC
67FF2A4B71FF4C759EFF3B638EFF11355BFF28527BFF1C3959FF103255FF0000 8A06ADE25A674FC52F610BEA26F3BFA4A9A07E2A56D9EAF8DC6526C7DABFB1CD
0000000000000000000000000000000000000000000000000000000000001848 1FE7FFE54E2558C10ABAA5667EF883895825CBE3E2F27B630B677B5E4115595F
78FF9BB7D1FFA3C9EDFF9FC5E8FF74A1CDFF81B0DDFF96B3CEFF1A4C7EFF0000 567AD741D1359716D5CEBC3288D99E97B17E4F54F9E63D824F5F65F5CDBD6669
000000000000000000000000000000000000000000000000000000000000305D 08DAE3E6F8DE44C95DB26E5E0358E781ED85C0BA1C21969C1442B5588813D785
8FFFA6CAEEFFABCCEAFFA7D0F6FFA8D0F6FFABCCEAFFA7CDEEFF2E629AFF0000 98CBBB8A4DBBC2CE6CB188101BE537D9A4468A86F6C3BE16B0AB7DC9C9E402DF
0000000000000000000000000000000000000000000000000000000000003D3D 64029FA70AF169C233BC1FF51472B9424865BE80447017E4AC62534779E2FF11
3DFF416F9EFF9CCCF8FFAFD4F7FFAFD4F7FFA5CFF6FF4176A6FF373737FF0000 CAFF0B9346B02403B4FE9A268404B9FE73DC30C409FB4EC40044F9DD784F3038
0000000000000000000000000000000000000000000000000000494949FF4B4B EAFF67A33CF1BF90F2FF6C727F6B01B028E9393E4B18C647B143103F31888F63
4BFF989898FF5C5C5CFF557CA3FF557CA3FF4C4C4CFF989898FF4E4E4EFF4C4C 7FC187518374EE7901EDA3FE178EF2C4CB5CE2FFE76F1F7988D97EEDF89AE49F
4CFF0000000000000000000000000000000000000000777777FF4C4C4CFF4E4E 48A2BC1B78C7B38DF2FF1061BC5FADA1655AC7BBEB5DAB24650E9CEC5CE8D524
4EFF979797FF595959FFABABABFFA5A5A5FF545454FF868686FF626262FF4A4A 9CCFBB0231AFAB449731CFB3159FBA3708256D4E0D7CC72D5B6D99DEF9EEEFE5
4AFF0000000000000000000000000000000000000000636363FFA4A4A4FF5050 D53FE2F82AF71E16A40E4022F30924D29E6041FC637C95D93EA3644BF3095B30
50FF525252FF5B5B5BFFB8B8B8FFC1C1C1FF575757FF4D4D4DFF5A5A5AFF7E7E 088951E512653CC1C293FD589A737BDA180B4BFEC59D7CF2323F2D329678E2BF
7EFF606060FF000000000000000000000000287CCEFF78B3EAFF7A7A7AFF8383 D0BBD3F20B6206609AD148FB7F43F52348C4F690F7AA178B92495BF0605A7E91
83FF7E7E7EFF5D5D5DFF494949FF4C4C4CFF555555FF646464FF5F5F5FFF6D6D 75165EF5FFD6C63E1834F421EDE6637CEE726E5A7EB9493026F77FE4B4BC8A2D
6DFF7EB8EDFF2974C7FF0000000000000000297DD1FF82BAEEFF5F5F5FFF8F8F 036BEC23C7F97FAD733C94ACB64DC973430DF1958F1AF2066BC0F00F81B27B1C
8FFF7A7A7AFF777777FF6D6D6DFF4E4E4EFF727272FF6F6F6FFF848484FF5555 2DAA9D7EBF044B78AAB00BD49B30C6A9DB99900E3344EC8B6AF0FB8AE0743516
55FF83BCEFFF2A77CAFF0000000000000000000000002579CDFF5E5E5EFF4F4F 360DE1B0AC0E8169B91FEC9A8E23ACBF182BFC34E1E4ABF35A0C5EF43E2826EC
4FFF848484FF848484FF808080FF545454FF838383FF848484FF4A4A4AFF4545 85D7ED745A3477E908CC2B0FC3A8D407BAF96ED0C876C4DE1A3E2CCE07405DB0
45FF2E7ECEFF6DA2D3FF00000000000000000000000000000000000000003D3D 1B9CA3E6F8CFF55FBFC813A6E7FD69B1CF1DA2AF99792E50CFE280917A000A31
3DFF4D4D4DFF494949FF474747FF474747FF454545FF474747FF383838FF0000 1650CDB09F74FDDF44EEEFAF3F0603C2ED2439B54F3B433DD3013AE4AC496258
0000000000000000000000000000000000000000000000000000000000000000 540460FD51D6A4EBFFE6680BAC0CD90933D26F22490668E35B3FED29D7FFDD81
0000000000000000000000000000000000000000000000000000000000000000 BAD87C9889D5FE5A9022B592F4D580147926B244EA5E6A7FD89EFD7F6DFF3F9F
0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 1140EFFFE7297AFEEAFDFF7C4608BDFFA7386AFF2FBEF100E6AF3399D1FEFF3D
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 693B3885E6D3FEB708BD40EFFF3F9265CF78FFFF1756E498FF5FDDFF17B63DC2
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF E25D49D3F2B26CFF49FDFFED0CFC1FBE7703B46DF9E3FCAFC91520D05C6E4A3E
FF0023A1D0C5037CEAFF0280EDFF027AECFF0372E7FF209AC9D0FFFFFF00FFFF 99A388D3AE1B71BD2C0EE15EDF83699B842D46F948E0B27183FC76C66333D21C
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0025A6 26FE86540A0E20D75581EE73B33C0665012AA82A288591450DF23C55D196E387
D1BB079CEDFF0396EFFF0396EFFF038DEEFF027DECFF057CE3FF23A3CDC7FFFF 4ABE1E4E396F40AC8DC26B31921D9570E1A801BAEA7250E0B51585DE8A28F263
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000AA7 42C9A0191AC6AD28F155419EBB02CA03D4D09CEE8AB2205D44D96C1BE7FFC614
EDFF0396F0FF027DECFF0280ECFF0380ECFF0381EBFF036FE4FF045FD1FFFFFF 2E5AB3BDE93E857E7A50554B81A3A90B0A78CAA80A65A12298894B028B49FD5F
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00036E 11C2C4F5E23012C709F5890E2809257372DF8ABAD8FDA889B2445BB60F8A788C
EAFF5EA4C9FF8AB7E4FF33B9E5FF036CDFFF0474E2FF0575DDFF0367D9FF3D91 49FD7F3E5807F99E5BD076CA87564B863B8A7DB6D363A2AE730E6E443A476E4A
BA0FFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF001B67 FF47EE5E436AA4806CAE3CB29CE4689D7490259243A8C9CAFF8BFDFF1F29B504
A9F1BDD7EFFFA3C9EDFF9DC5E8FF39C3EAFF54C5ECFFA6D9F0FF1C73B8F56AA0 5DBE52B496FB6F6155E377F0CDF2ACC13E6509053E83FB6B58953826DF34771F
D206FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00265F BC5AC8FFC31AB226A5184386B7F1E04C58E5581DBE718E153C9B82E0DE74183B
9ACAA6CAEEFFABCCEAFFA7D0F6FFA8D0F6FFABCCEAFFA7CDEEFF2D629ACCFFFF 534DC8F77C13D6B87D3767B40FFBACD51656A1C5AE716C8C369F1AAF7B6300DC
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004B6A980C2A61 1AFDE9BCD25EF223AB5D65FFCD9658C9B10A76FF647D9E0B6626DB666C4F1FAD
95DE2B72B5FF9CCCF8FFAFD4F7FFAFD4F7FFA5CFF6FF2C78BAFF305C8DDD4E64 C537CADE03D7067FB834F86247321BEB3CE54656B9C88CB146C596DB0CF277DF
8B13FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004A6998113D6B9FB70681 E5D61E824763103453F447489D6C18519A8759591670A93F04EE0F3ED04932C4
D5FFC4E2F8FF3183CAFF457DB2FF457DB2FF3183CAFFACD5F5FF0681D4FF3B68 5A8FF5232B0F4ACF796DEF7F66D7DB7A3966D87B8E035EEB1138D7FAC038D70A
9CBF42689A19FFFFFF00FFFFFF00FFFFFF005A648202509ADEA00887DCFFBAE4 6667ACE154EB0DA71FBCA09DC8C21AF7EF5EAC745E3767A2FA68A7B3C4485E98
FFFF97D7FFFF5CC0FFFF47B7FFFF36B0FEFF26AAFEFF4DB9FEFF9BD8FEFF0C84 E55BD3733C58EF0B4E9D2738B59ED04AD0A7EA245CC15D3B67CA1AC7688B3104
D6FF406594B44367970AFFFFFF00FFFFFF00406FA7990793F0FF74C9FFFF73C9 9A30C83487639D17EC6BDCA019A7075227E1B74E53B3A3DA7C9421B629783B74
FFFF47B7FFFF38B2FFFF2BACFFFF20A7FEFF19A2FAFF129CF6FF3CB2FEFF2EAC C878D5637541EA2494725C33E7D7BC27E4B98A497BCB83D4E9B91467B5E86F79
FDFF1C8EE2FF3C6A9FA7FFFFFF00FFFFFF00287CCEFC78B3EAFF1DA4FCFF26AB 4F499DC4241D5689FE37FCF44F29E8A03D
FFFF26ABFFFF21A8FEFF1CA4FCFF17A0F9FF119CF6FF0B97F3FF0791ECFF109A
F5FF7EB8EDFF2974C7FAFFFFFF00FFFFFF00297DD1FE82BAEEFF0691ECFF44B6
FFFF1EA4FBFF1AA2F9FF159FF8FF119BF5FF169FF7FF149CF5FF2EACFDFF0E8A
DEFF83BCEFFF2A77CAFEFFFFFF00FFFFFF006DA2D3792579CDFB0990EAFF0688
DEFF29ABFFFF29ABFFFF29ABFFFF29ABFFFF29ABFFFF29ABFFFF0784D9FF0B81
D3FF2E7ECEF86DA2D383FFFFFF00FFFFFF00FFFFFF0069A8DF0D3B7DC42D3870
AAE11D82CFFE0F84D5FF0A82D6FF0A82D4FF0E81D2FF197FCDFE2D6FAFF33A79
BE3369A9E10DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000027B2E5FF1BA7F3FF1CACF4FF1CA8F4FF1BA1F1FF27ACDEFF000000000000
00000000000000000000000000000000000000000000000000000000000028B5
E5FF1BB6F5FF1CB6F5FF1CB6F5FF1CB2F5FF1CABF4FF1DAAF0FF28B0E0FF0000
0000000000000000000000000000000000000000000000000000000000001DBA
F5FF1CB6F5FF1CAAF4FF1CACF4FF1CACF4FF1CACF3FF1CA1F0FF1C93E4FF0000
0000000000000000000000000000000000000000000000000000000000001B9E
F3FF62ABCEFF8AB7E4FF3EC6EBFF1C9FEDFF1DA4EEFF1EA5EBFF1C9AE9FF0000
0000000000000000000000000000000000000000000000000000000000001E6D
ADFFBDD7EFFFA3C9EDFF9DC5E8FF44CEEFFF5BCDEFFFA8DCF1FF207CBDFF0000
0000000000000000000000000000000000000000000000000000000000002C61
8EFFA6CAEEFFABCCEAFFA7D0F6FFA8D0F6FFABCCEAFFA7CDEEFF2D6299FF0000
0000000000000000000000000000000000000000000000000000000000004C72
49FF347499FF9CCCF8FFAFD4F7FFAFD4F7FFA5CFF6FF357AA1FF4A6A46FF0000
000000000000000000000000000000000000000000000000000079935DFF2785
4EFFB3F5C8FF49898FFF4B7FA0FF4B7FA0FF49898FFFA9E8BAFF26844DFF738C
59FF0000000000000000000000000000000000000000AFE0ACFF37945DFF9FFD
C6FF91EFB8FF78D69FFF6FCD96FF69C68FFF62BF88FF73CF98FF94F0B9FF3088
51FF788754FF000000000000000000000000849D6CFF45A26BFF82E0A9FF82E0
A9FF6FCD96FF69C790FF64C28BFF5EBC85FF57B57EFF50AE77FF6BC891FF67C0
8AFF4F9A66FF769264FF0000000000000000287CCEFF78B3EAFF5AB881FF62C0
89FF62C089FF5FBD86FF5AB881FF55B37CFF4FAD76FF49A770FF419E67FF4DAB
74FF7EB8EDFF2974C7FF0000000000000000297DD1FF82BAEEFF409E67FF6ECC
95FF5BB881FF58B57EFF53B17AFF4FAC75FF54B17AFF51AD76FF67C18AFF3B92
5CFF83BCEFFF2A77CAFF0000000000000000000000002579CDFF429D67FF318F
58FF63C18AFF63C18AFF63C18AFF63C18AFF63C18AFF63C18AFF2D8A53FF2F88
53FF2E7ECEFF6DA2D3FF0000000000000000000000000000000000000000668C
57FF428B55FF338952FF2E8851FF2D8750FF2E854EFF39854EFF4F824EFF0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000565D68FF133F7AFF0D3E7DFF0C3C76FF123969FF4E5663FF000000000000
0000000000000000000000000000000000000000000000000000000000005F63
69FF284D7DFF0F498AFF0F4988FF0E4581FF0C3E73FF1B3D60FF595E63FF0000
0000000000000000000000000000000000000000000000000000000000003752
79FF0F498FFF0C3E76FF0C3E73FF0E3E73FF113F70FF0F3661FF143050FF0000
0000000000000000000000000000000000000000000000000000000000001037
73FF7893B5FF8AB7E4FF6793C3FF11355BFF15395FFF1C3959FF103255FF0000
0000000000000000000000000000000000000000000000000000000000001F5C
99FFBDD7EFFFA3C9EDFF9FC5E8FF74A1CDFF81B0DDFFB7D3EBFF2365A4FF0000
000000000000000000000000000000000000000000000000000000000000395F
89FFA6CAEEFFABCCEAFFA7D0F6FFA8D0F6FFABCCEAFFA7CDEEFF2F6299FF0000
000000000000000000000000000000000000000000000000000000000000966B
3EFF537291FF9CCCF8FFAFD4F7FFAFD4F7FFA5CFF6FF51799AFF8C643CFF0000
0000000000000000000000000000000000000000000000000000A57645FFB17D
3FFFD8BEA0FF968271FF5572A4FF435EB5FFA2795FFFD9BEA0FFB48042FFA875
46FF0000000000000000000000000000000000000000C29A70FFB27D41FFB480
42FFDCBF9EFFBE8A4CFFC4B6BCFF5E67C8FFB3814DFFD3B088FFC29159FFAF7A
3EFF9F6F41FF000000000000000000000000A5774AFFC3925BFFE2CAB0FFB682
44FFB78345FFB88855FF4A5BD0FF5060D2FFBA874CFFB37F41FFBF8A4EFFD0A9
7DFFBE8D57FF9C6F46FF0000000000000000287CCEFF78B3EAFFCEA679FFD2AE
83FFD0A97DFFB78859FF4D4EA6FF77627CFFB6844BFFC4935CFFC18E55FFC79A
67FF7EB8EDFF2974C7FF0000000000000000297DD1FF82BAEEFFC18F55FFD8B9
94FFCEA678FFCCA375FFBA9370FFB27F44FFCA9F6EFFC89C69FFD3AE85FFB884
49FF83BCEFFF2A77CAFF0000000000000000000000002579CDFFC08E54FFB581
43FFD3AF85FFD3AF85FFD1AB7FFFB98547FFD2AE83FFD3AF85FFB07B3FFFA976
3CFF2E7ECEFF6DA2D3FF00000000000000000000000000000000000000009966
34FFAF7A41FFAE793DFFAD783CFFAD783CFFAA7539FFAA753CFF936131FF0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004EA2
57914A9D527FFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004DA1569163B3
6DFF5FAF69FF41914979FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004CA0559162B26CFF82D1
8FFF7AC885FF57A660FF38843F7BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004B9F549160B06AFF81CF8DFF7FCF
8BFF58A761FF398540FF347E3A08FFFFFF00FFFFFF005FBB6A435CB76765FFFF
FF00FFFFFF00FFFFFF00FFFFFF004B9E53915FAF69FF7FCE8AFF7ECE89FF57A6
60FF37823DFC337D3908FFFFFF00FFFFFF005FBA6A3C5CB666E66DC079FF55AC
5F6FFFFFFF00FFFFFF004A9D52915EAE68FF7DCD89FF7CCD87FF56A55FFF3681
3CFC327C3808FFFFFF00FFFFFF005EB969465BB566E479C986FF80CE8DFF51A6
5AFC4DA1566F499C518B5CAD67FF7CCC86FF79CB85FF54A45DFF35803BFC317B
3708FFFFFF00FFFFFF00FFFFFF005AB4650959B063FF6BBD76FF84D290FF7AC9
85FF60B26AFF63B46DFF78C983FF78CB82FF53A35CFF347F3AFD317A3608FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0053A95C0A51A65AFF63B56DFF7ECE
89FF7BCC87FF76CA81FF76C981FF52A25AFF347E3AFE30793508FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004B9E530A499A51FF5BAC
64FF77CA82FF74C87EFF51A059FF337D39FE2F783508FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004292490A408E
47FF54A35CFF4F9F57FF327C38FE2E773408FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003985
400A37833DFF317B37FB2E763307FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00317A360A2D753207FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00
} }
end end
end end

4
Client/UfrmAccountControl.pas
View File

@ -31,7 +31,7 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ComCtrls, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ComCtrls,
StdCtrls, ExtCtrls, VirtualTrees, Math, UEnhancedMemoryStream, UEnums; StdCtrls, ExtCtrls, laz.VirtualTrees, Math, UEnhancedMemoryStream, UEnums;
type type
@ -46,7 +46,7 @@ type
tbEditUser: TToolButton; tbEditUser: TToolButton;
tbDeleteUser: TToolButton; tbDeleteUser: TToolButton;
tbSeparator1: TToolButton; tbSeparator1: TToolButton;
vstAccounts: TVirtualStringTree; vstAccounts: TLazVirtualStringTree;
procedure tbEditUserClick(Sender: TObject); procedure tbEditUserClick(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);

112
Client/UfrmEditAccount.lfm
View File

@ -1,23 +1,25 @@
object frmEditAccount: TfrmEditAccount object frmEditAccount: TfrmEditAccount
Left = 290 Left = 290
Height = 214 Height = 268
Top = 171 Top = 171
Width = 261 Width = 326
ActiveControl = PageControl1 ActiveControl = PageControl1
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Edit Account' Caption = 'Edit Account'
ClientHeight = 214 ClientHeight = 268
ClientWidth = 261 ClientWidth = 326
Font.Height = -11 DesignTimePPI = 120
Font.Height = -14
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
ParentFont = False
Position = poOwnerFormCenter Position = poOwnerFormCenter
LCLVersion = '0.9.27' LCLVersion = '2.3.0.0'
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0
Height = 173 Height = 173
Top = 0
Width = 261 Width = 261
ActivePage = tsGeneral ActivePage = tsGeneral
Align = alClient Align = alClient
@ -25,66 +27,71 @@ object frmEditAccount: TfrmEditAccount
TabOrder = 0 TabOrder = 0
object tsGeneral: TTabSheet object tsGeneral: TTabSheet
Caption = 'General' Caption = 'General'
ClientHeight = 148 ClientHeight = 135
ClientWidth = 259 ClientWidth = 251
object lblPasswordHint: TLabel object lblPasswordHint: TLabel
Left = 86 Left = 108
Height = 28 Height = 35
Top = 64 Top = 80
Width = 160 Width = 200
AutoSize = False AutoSize = False
Caption = 'Leave empty to leave the password unchanged.' Caption = 'Leave empty to leave the password unchanged.'
Color = clDefault
Enabled = False Enabled = False
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
end end
object lblUsername: TLabel object lblUsername: TLabel
Left = 6 Left = 8
Height = 14 Height = 14
Top = 12 Top = 15
Width = 58 Width = 58
Caption = 'Username:' Caption = 'Username:'
Color = clDefault
ParentColor = False ParentColor = False
end end
object lblPassword: TLabel object lblPassword: TLabel
Left = 6 Left = 8
Height = 14 Height = 14
Top = 44 Top = 55
Width = 54 Width = 54
Caption = 'Password:' Caption = 'Password:'
Color = clDefault
ParentColor = False ParentColor = False
end end
object lblAccessLevel: TLabel object lblAccessLevel: TLabel
Left = 6 Left = 8
Height = 14 Height = 14
Top = 108 Top = 135
Width = 63 Width = 63
Caption = 'Accesslevel:' Caption = 'Accesslevel:'
Color = clDefault
ParentColor = False ParentColor = False
end end
object edUsername: TEdit object edUsername: TEdit
Left = 86 Left = 108
Height = 23 Height = 23
Top = 8 Top = 10
Width = 160 Width = 200
Color = clBtnFace Color = clBtnFace
ReadOnly = True ReadOnly = True
TabOrder = 0 TabOrder = 0
end end
object edPassword: TEdit object edPassword: TEdit
Left = 86 Left = 108
Height = 23 Height = 23
Top = 40 Top = 50
Width = 160 Width = 200
EchoMode = emPassword EchoMode = emPassword
PasswordChar = '*' PasswordChar = '*'
TabOrder = 1 TabOrder = 1
end end
object cbAccessLevel: TComboBox object cbAccessLevel: TComboBox
Left = 86 Left = 108
Height = 25 Height = 25
Top = 104 Top = 130
Width = 160 Width = 200
ItemHeight = 0
Items.Strings = ( Items.Strings = (
'None' 'None'
'Viewer' 'Viewer'
@ -97,19 +104,20 @@ object frmEditAccount: TfrmEditAccount
end end
object tsRegions: TTabSheet object tsRegions: TTabSheet
Caption = 'Regions' Caption = 'Regions'
ClientHeight = 148 ClientHeight = 135
ClientWidth = 259 ClientWidth = 251
object Label1: TLabel object Label1: TLabel
Left = 8 Left = 8
Height = 14 Height = 14
Top = 8 Top = 8
Width = 243 Width = 243
Align = alTop Align = alTop
BorderSpacing.Left = 8 BorderSpacing.Left = 10
BorderSpacing.Top = 8 BorderSpacing.Top = 10
BorderSpacing.Right = 8 BorderSpacing.Right = 10
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 5
Caption = 'Allowed Regions:' Caption = 'Allowed Regions:'
Color = clDefault
ParentColor = False ParentColor = False
end end
object cbRegions: TCheckListBox object cbRegions: TCheckListBox
@ -118,11 +126,11 @@ object frmEditAccount: TfrmEditAccount
Top = 26 Top = 26
Width = 243 Width = 243
Align = alClient Align = alClient
BorderSpacing.Left = 8 BorderSpacing.Left = 10
BorderSpacing.Top = 4 BorderSpacing.Top = 5
BorderSpacing.Right = 8 BorderSpacing.Right = 10
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 10
ItemHeight = 13 ItemHeight = 20
TabOrder = 0 TabOrder = 0
TopIndex = -1 TopIndex = -1
end end
@ -130,34 +138,36 @@ object frmEditAccount: TfrmEditAccount
end end
object Panel1: TPanel object Panel1: TPanel
Left = 8 Left = 8
Height = 25 Height = 31
Top = 181 Top = 175
Width = 245 Width = 245
Align = alBottom Align = alBottom
BorderSpacing.Around = 8 BorderSpacing.Around = 10
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 25 ClientHeight = 31
ClientWidth = 245 ClientWidth = 245
TabOrder = 1 TabOrder = 1
object btnCancel: TButton object btnCancel: TButton
Left = 170 Left = 151
Height = 25 Height = 25
Width = 75 Top = 0
Width = 94
Align = alRight Align = alRight
BorderSpacing.Left = 4 BorderSpacing.Left = 5
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 5
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
ModalResult = 2 ModalResult = 2
TabOrder = 0 TabOrder = 0
end end
object btnOK: TButton object btnOK: TButton
Left = 91 Left = 72
Height = 25 Height = 25
Width = 75 Top = 0
Width = 94
Align = alRight Align = alRight
BorderSpacing.Right = 4 BorderSpacing.Right = 5
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 5
Caption = 'OK' Caption = 'OK'
Default = True Default = True
ModalResult = 1 ModalResult = 1

5
Client/UfrmEditAccount.pas
View File

@ -31,7 +31,7 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
UEnums, ComCtrls, ExtCtrls, CheckLst, UfrmRegionControl, VirtualTrees; UEnums, ComCtrls, ExtCtrls, CheckLst, UfrmRegionControl;
type type
@ -72,6 +72,9 @@ var
implementation implementation
uses
laz.VirtualTrees;
{ TfrmEditAccount } { TfrmEditAccount }
procedure TfrmEditAccount.FormCreate(Sender: TObject); procedure TfrmEditAccount.FormCreate(Sender: TObject);

10
Client/UfrmLargeScaleCommand.lfm
View File

@ -352,7 +352,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
end end
object vdtTerrainTiles: TVirtualDrawTree object vdtTerrainTiles: TLazVirtualDrawTree
Tag = 1 Tag = 1
AnchorSideLeft.Control = gbDrawTerrainTiles AnchorSideLeft.Control = gbDrawTerrainTiles
AnchorSideTop.Control = lblDrawTerrainTilesDesc AnchorSideTop.Control = lblDrawTerrainTilesDesc
@ -537,7 +537,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
end end
object vdtDeleteStaticsTiles: TVirtualDrawTree object vdtDeleteStaticsTiles: TLazVirtualDrawTree
Tag = 1 Tag = 1
AnchorSideLeft.Control = gbDeleteStaticsTiles AnchorSideLeft.Control = gbDeleteStaticsTiles
AnchorSideTop.Control = lblDeleteStaticsTilesDesc AnchorSideTop.Control = lblDeleteStaticsTilesDesc
@ -792,7 +792,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
end end
object vdtInsertStaticsTiles: TVirtualDrawTree object vdtInsertStaticsTiles: TLazVirtualDrawTree
Tag = 1 Tag = 1
AnchorSideLeft.Control = gbInserStaticsTiles AnchorSideLeft.Control = gbInserStaticsTiles
AnchorSideTop.Control = lblInsertStaticsTiles AnchorSideTop.Control = lblInsertStaticsTiles
@ -1105,7 +1105,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
OnClick = btnExecuteClick OnClick = btnExecuteClick
TabOrder = 2 TabOrder = 2
end end
object vstArea: TVirtualStringTree object vstArea: TLazVirtualStringTree
AnchorSideLeft.Control = Label1 AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1 AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -1147,7 +1147,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Caption = 'Area:' Caption = 'Area:'
ParentColor = False ParentColor = False
end end
object vstActions: TVirtualStringTree object vstActions: TLazVirtualStringTree
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 0 Left = 0

14
Client/UfrmLargeScaleCommand.pas
View File

@ -31,8 +31,8 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Math, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Math,
VirtualTrees, ExtCtrls, ImagingComponents, StdCtrls, Buttons, Spin, LCLIntf, laz.VirtualTrees, ExtCtrls, ImagingComponents, StdCtrls, Buttons, Spin,
Menus, UPlatformTypes, UEnhancedMemoryStream, UWorldItem; LCLIntf, Menus, UPlatformTypes, UEnhancedMemoryStream, UWorldItem;
type type
@ -112,11 +112,11 @@ type
btnGrab1: TSpeedButton; btnGrab1: TSpeedButton;
btnGrab2: TSpeedButton; btnGrab2: TSpeedButton;
btnGrabOffset: TSpeedButton; btnGrabOffset: TSpeedButton;
vdtTerrainTiles: TVirtualDrawTree; vdtTerrainTiles: TLazVirtualDrawTree;
vdtInsertStaticsTiles: TVirtualDrawTree; vdtInsertStaticsTiles: TLazVirtualDrawTree;
vdtDeleteStaticsTiles: TVirtualDrawTree; vdtDeleteStaticsTiles: TLazVirtualDrawTree;
vstActions: TVirtualStringTree; vstActions: TLazVirtualStringTree;
vstArea: TVirtualStringTree; vstArea: TLazVirtualStringTree;
procedure btnGrab1Click(Sender: TObject); procedure btnGrab1Click(Sender: TObject);
procedure btnGrabOffsetClick(Sender: TObject); procedure btnGrabOffsetClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);

2114
Client/UfrmMain.lfm
View File

File diff suppressed because it is too large Load Diff

10
Client/UfrmMain.pas
View File

@ -33,7 +33,7 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Menus, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Menus,
ComCtrls, OpenGLContext, GL, GLu, UGameResources, ULandscape, ExtCtrls, ComCtrls, OpenGLContext, GL, GLu, UGameResources, ULandscape, ExtCtrls,
StdCtrls, Spin, UEnums, VirtualTrees, Buttons, UMulBlock, UWorldItem, math, StdCtrls, Spin, UEnums, laz.VirtualTrees, Buttons, UMulBlock, UWorldItem, math,
LCLIntf, UOverlayUI, UStatics, UEnhancedMemoryStream, ActnList, LCLIntf, UOverlayUI, UStatics, UEnhancedMemoryStream, ActnList,
XMLPropStorage, ImagingClasses, dateutils, UPlatformTypes, UMap, UPacket, XMLPropStorage, ImagingClasses, dateutils, UPlatformTypes, UMap, UPacket,
UGLFont, DOM, XMLRead, XMLWrite, strutils, ULightManager, fgl, UTiledata; UGLFont, DOM, XMLRead, XMLWrite, strutils, ULightManager, fgl, UTiledata;
@ -191,10 +191,10 @@ type
tbTerrain: TToolButton; tbTerrain: TToolButton;
tbStatics: TToolButton; tbStatics: TToolButton;
tsTiles: TTabSheet; tsTiles: TTabSheet;
vdtTiles: TVirtualDrawTree; vdtTiles: TLazVirtualDrawTree;
vdtRandom: TVirtualDrawTree; vdtRandom: TLazVirtualDrawTree;
vstChat: TVirtualStringTree; vstChat: TLazVirtualStringTree;
vstLocations: TVirtualStringTree; vstLocations: TLazVirtualStringTree;
XMLPropStorage1: TXMLPropStorage; XMLPropStorage1: TXMLPropStorage;
procedure acBoundariesExecute(Sender: TObject); procedure acBoundariesExecute(Sender: TObject);
procedure acDeleteExecute(Sender: TObject); procedure acDeleteExecute(Sender: TObject);

182
Client/UfrmRegionControl.lfm
View File

@ -1,20 +1,21 @@
object frmRegionControl: TfrmRegionControl object frmRegionControl: TfrmRegionControl
Left = 247 Left = 247
Height = 413 Height = 516
Top = 139 Top = 139
Width = 620 Width = 775
ActiveControl = vstRegions ActiveControl = vstRegions
Caption = 'Region Control' Caption = 'Region Control'
ClientHeight = 413 ClientHeight = 516
ClientWidth = 620 ClientWidth = 775
Font.Height = -11 DesignTimePPI = 120
Font.Height = -14
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
Position = poOwnerFormCenter Position = poOwnerFormCenter
ShowInTaskBar = stAlways ShowInTaskBar = stAlways
LCLVersion = '1.3' LCLVersion = '2.3.0.0'
object sbArea: TScrollBox object sbArea: TScrollBox
AnchorSideLeft.Control = vstRegions AnchorSideLeft.Control = vstRegions
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
@ -22,7 +23,7 @@ object frmRegionControl: TfrmRegionControl
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnClose AnchorSideBottom.Control = btnClose
Left = 160 Left = 200
Height = 372 Height = 372
Top = 0 Top = 0
Width = 460 Width = 460
@ -34,9 +35,9 @@ object frmRegionControl: TfrmRegionControl
TabOrder = 0 TabOrder = 0
object pbArea: TPaintBox object pbArea: TPaintBox
Left = 0 Left = 0
Height = 105 Height = 131
Top = 0 Top = 0
Width = 105 Width = 131
OnMouseDown = pbAreaMouseDown OnMouseDown = pbAreaMouseDown
OnMouseMove = pbAreaMouseMove OnMouseMove = pbAreaMouseMove
OnPaint = pbAreaPaint OnPaint = pbAreaPaint
@ -47,12 +48,12 @@ object frmRegionControl: TfrmRegionControl
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 548 Left = 532
Height = 25 Height = 31
Top = 380 Top = 374
Width = 64 Width = 80
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
BorderSpacing.Around = 8 BorderSpacing.Around = 10
Caption = 'Close' Caption = 'Close'
OnClick = btnCloseClick OnClick = btnCloseClick
TabOrder = 1 TabOrder = 1
@ -61,25 +62,25 @@ object frmRegionControl: TfrmRegionControl
AnchorSideRight.Control = btnClose AnchorSideRight.Control = btnClose
AnchorSideBottom.Control = btnClose AnchorSideBottom.Control = btnClose
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 476 Left = 460
Height = 25 Height = 31
Top = 380 Top = 374
Width = 64 Width = 80
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
BorderSpacing.Right = 4 BorderSpacing.Right = 5
Caption = 'Save' Caption = 'Save'
Enabled = False Enabled = False
OnClick = btnSaveClick OnClick = btnSaveClick
TabOrder = 2 TabOrder = 2
end end
object vstRegions: TVirtualStringTree object vstRegions: TLazVirtualStringTree
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideBottom.Control = btnAddRegion AnchorSideBottom.Control = btnAddRegion
Left = 0 Left = 0
Height = 130 Height = 130
Top = 0 Top = 0
Width = 160 Width = 200
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
DefaultText = 'Node' DefaultText = 'Node'
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
@ -87,9 +88,10 @@ object frmRegionControl: TfrmRegionControl
item item
Position = 0 Position = 0
Text = 'Regions' Text = 'Regions'
Width = 156 Width = 200
end> end>
Header.DefaultHeight = 17 Header.DefaultHeight = 21
Header.Height = 36
Header.Options = [hoAutoResize, hoVisible] Header.Options = [hoAutoResize, hoVisible]
Header.ParentFont = True Header.ParentFont = True
Header.Style = hsFlatButtons Header.Style = hsFlatButtons
@ -105,13 +107,13 @@ object frmRegionControl: TfrmRegionControl
object btnAddRegion: TSpeedButton object btnAddRegion: TSpeedButton
AnchorSideLeft.Control = vstRegions AnchorSideLeft.Control = vstRegions
AnchorSideBottom.Control = spRegionsArea AnchorSideBottom.Control = spRegionsArea
Left = 4 Left = 5
Height = 22 Height = 28
Hint = 'Add region' Hint = 'Add region'
Top = 134 Top = 128
Width = 22 Width = 28
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Around = 4 BorderSpacing.Around = 5
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -157,13 +159,13 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = btnAddRegion AnchorSideBottom.Control = btnAddRegion
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 30 Left = 38
Height = 22 Height = 28
Hint = 'Delete region' Hint = 'Delete region'
Top = 134 Top = 128
Width = 22 Width = 28
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 4 BorderSpacing.Left = 5
Enabled = False Enabled = False
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
@ -205,25 +207,26 @@ object frmRegionControl: TfrmRegionControl
ShowHint = True ShowHint = True
ParentShowHint = False ParentShowHint = False
end end
object vstArea: TVirtualStringTree object vstArea: TLazVirtualStringTree
AnchorSideLeft.Control = spRegionsArea AnchorSideLeft.Control = spRegionsArea
AnchorSideTop.Control = Label1 AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = spRegionsArea AnchorSideRight.Control = spRegionsArea
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnDeleteArea AnchorSideBottom.Control = btnDeleteArea
Left = 4 Left = 5
Height = 121 Height = 121
Top = 178 Top = 222
Width = 152 Width = 152
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 4 BorderSpacing.Left = 5
BorderSpacing.Right = 4 BorderSpacing.Right = 5
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 5
DefaultText = 'Node' DefaultText = 'Node'
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.Columns = <> Header.Columns = <>
Header.DefaultHeight = 17 Header.DefaultHeight = 21
Header.Height = 29
Header.MainColumn = -1 Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDrag] Header.Options = [hoColumnResize, hoDrag]
TabOrder = 4 TabOrder = 4
@ -238,14 +241,15 @@ object frmRegionControl: TfrmRegionControl
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = spRegionsArea AnchorSideRight.Control = spRegionsArea
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 4 Left = 5
Height = 13 Height = 13
Top = 165 Top = 206
Width = 152 Width = 152
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4 BorderSpacing.Left = 5
BorderSpacing.Right = 4 BorderSpacing.Right = 5
Caption = 'Area:' Caption = 'Area:'
Color = clDefault
ParentColor = False ParentColor = False
end end
object spRegionsArea: TSplitter object spRegionsArea: TSplitter
@ -254,8 +258,8 @@ object frmRegionControl: TfrmRegionControl
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 6
Top = 160 Top = 200
Width = 160 Width = 160
Align = alNone Align = alNone
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -265,11 +269,11 @@ object frmRegionControl: TfrmRegionControl
object btnAddArea: TSpeedButton object btnAddArea: TSpeedButton
AnchorSideTop.Control = btnDeleteArea AnchorSideTop.Control = btnDeleteArea
AnchorSideRight.Control = btnDeleteArea AnchorSideRight.Control = btnDeleteArea
Left = 43 Left = 37
Height = 22 Height = 28
Hint = 'Add area' Hint = 'Add area'
Top = 303 Top = 379
Width = 22 Width = 28
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Enabled = False Enabled = False
Glyph.Data = { Glyph.Data = {
@ -316,14 +320,14 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Control = vstArea AnchorSideLeft.Control = vstArea
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = seX1 AnchorSideBottom.Control = seX1
Left = 69 Left = 86
Height = 22 Height = 28
Hint = 'Delete area' Hint = 'Delete area'
Top = 303 Top = 297
Width = 22 Width = 28
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 5
BorderSpacing.Around = 4 BorderSpacing.Around = 5
Enabled = False Enabled = False
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
@ -369,11 +373,11 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Control = btnDeleteArea AnchorSideLeft.Control = btnDeleteArea
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnDeleteArea AnchorSideTop.Control = btnDeleteArea
Left = 95 Left = 119
Height = 22 Height = 28
Hint = 'Delete all areas' Hint = 'Delete all areas'
Top = 303 Top = 379
Width = 22 Width = 28
Enabled = False Enabled = False
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
@ -419,24 +423,25 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = seX1 AnchorSideTop.Control = seX1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 4 Left = 5
Height = 13 Height = 13
Top = 337 Top = 421
Width = 6 Width = 6
BorderSpacing.Left = 4 BorderSpacing.Left = 5
Caption = 'X' Caption = 'X'
Color = clDefault
Enabled = False Enabled = False
ParentColor = False ParentColor = False
end end
object seX1: TSpinEdit object seX1: TSpinEdit
AnchorSideLeft.Control = seY1 AnchorSideLeft.Control = seY1
AnchorSideBottom.Control = seY1 AnchorSideBottom.Control = seY1
Left = 17 Left = 21
Height = 21 Height = 21
Top = 333 Top = 333
Width = 50 Width = 62
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 10
Enabled = False Enabled = False
OnChange = seX1Change OnChange = seX1Change
TabOrder = 6 TabOrder = 6
@ -446,11 +451,11 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Control = seX1 AnchorSideLeft.Control = seX1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seX1 AnchorSideTop.Control = seX1
Left = 75 Left = 94
Height = 21 Height = 21
Top = 333 Top = 416
Width = 50 Width = 62
BorderSpacing.Left = 8 BorderSpacing.Left = 10
Enabled = False Enabled = False
OnChange = seX1Change OnChange = seX1Change
TabOrder = 7 TabOrder = 7
@ -460,11 +465,12 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Control = lblX AnchorSideLeft.Control = lblX
AnchorSideTop.Control = seY1 AnchorSideTop.Control = seY1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 4 Left = 5
Height = 13 Height = 13
Top = 366 Top = 458
Width = 5 Width = 5
Caption = 'Y' Caption = 'Y'
Color = clDefault
Enabled = False Enabled = False
ParentColor = False ParentColor = False
end end
@ -474,12 +480,12 @@ object frmRegionControl: TfrmRegionControl
AnchorSideRight.Control = seX1 AnchorSideRight.Control = seX1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnGrab1 AnchorSideBottom.Control = btnGrab1
Left = 17 Left = 21
Height = 21 Height = 21
Top = 362 Top = 362
Width = 53 Width = 53
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 8 BorderSpacing.Left = 10
Enabled = False Enabled = False
OnChange = seX1Change OnChange = seX1Change
TabOrder = 8 TabOrder = 8
@ -491,12 +497,12 @@ object frmRegionControl: TfrmRegionControl
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = seX2 AnchorSideRight.Control = seX2
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 75 Left = 94
Height = 21 Height = 21
Top = 362 Top = 452
Width = 50 Width = 50
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8 BorderSpacing.Top = 10
Enabled = False Enabled = False
OnChange = seX1Change OnChange = seX1Change
TabOrder = 9 TabOrder = 9
@ -507,13 +513,13 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 32 Left = 40
Height = 22 Height = 28
Hint = 'Grab coordinates from the main window.' Hint = 'Grab coordinates from the main window.'
Top = 387 Top = 381
Width = 22 Width = 28
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Around = 4 BorderSpacing.Around = 5
Enabled = False Enabled = False
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
@ -560,11 +566,11 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = btnGrab1 AnchorSideBottom.Control = btnGrab1
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 89 Left = 111
Height = 22 Height = 28
Hint = 'Grab coordinates from the main window.' Hint = 'Grab coordinates from the main window.'
Top = 387 Top = 381
Width = 22 Width = 28
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Enabled = False Enabled = False
Glyph.Data = { Glyph.Data = {
@ -608,8 +614,8 @@ object frmRegionControl: TfrmRegionControl
ParentShowHint = False ParentShowHint = False
end end
object pmRegions: TPopupMenu object pmRegions: TPopupMenu
left = 48 Left = 60
top = 43 Top = 54
object mnuAddRegion: TMenuItem object mnuAddRegion: TMenuItem
Caption = 'Add' Caption = 'Add'
OnClick = mnuAddRegionClick OnClick = mnuAddRegionClick

6
Client/UfrmRegionControl.pas
View File

@ -31,7 +31,7 @@ interface
uses uses
Classes, SysUtils, math, LResources, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, math, LResources, Forms, Controls, Graphics, Dialogs,
VirtualTrees, ExtCtrls, ImagingComponents, StdCtrls, Buttons, Spin, LCLIntf, laz.VirtualTrees, ExtCtrls, ImagingComponents, StdCtrls, Buttons, Spin, LCLIntf,
UEnhancedMemoryStream, Menus, URectList, UEnums, UWorldItem; UEnhancedMemoryStream, Menus, URectList, UEnums, UWorldItem;
type type
@ -73,8 +73,8 @@ type
btnGrab1: TSpeedButton; btnGrab1: TSpeedButton;
btnGrab2: TSpeedButton; btnGrab2: TSpeedButton;
spRegionsArea: TSplitter; spRegionsArea: TSplitter;
vstArea: TVirtualStringTree; vstArea: TLazVirtualStringTree;
vstRegions: TVirtualStringTree; vstRegions: TLazVirtualStringTree;
procedure btnGrab1Click(Sender: TObject); procedure btnGrab1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure mnuAddRegionClick(Sender: TObject); procedure mnuAddRegionClick(Sender: TObject);