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

- Fixed memory leak in TfrmFilter (not freeing FCheckedHues)

Browse Source 
- Fixed memory leak in TfrmMain (not freeing the strings in the location info nodes)
- Rearranged frmEditAccount to allow region handling
- Added region handling to the client side account specific network packets
- Fixed some more code style inconsistencies in UfrmRegionControl.pas
- Fixed redrawing in TfrmRegionControl
- Fixed memory leak in TAccount (not freeing FRegions)
- Fixed the TModifyRegionResponsePacket ID
- Fixed the content of the TUserListPacket to not contain the list of all regions
This commit is contained in:
Andreas Schneider
2008-08-17 20:12:36 +02:00
parent c7d845997e
commit d5069bbb50
17 changed files with 570 additions and 419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

101
Client/UfrmMain.lfm
View File

@@ -3,9 +3,9 @@ object frmMain: TfrmMain
Height = 603
Top = 144
Width = 766
ActiveControl = cbTerrain
ActiveControl = pcLeft
Caption = 'UO CentrED'
ClientHeight = 578
ClientHeight = 574
ClientWidth = 766
Constraints.MinHeight = 603
Constraints.MinWidth = 766
@@ -21,7 +21,7 @@ object frmMain: TfrmMain
WindowState = wsMaximized
object pnlBottom: TPanel
Height = 31
Top = 547
Top = 543
Width = 766
Align = alBottom
BevelOuter = bvNone
@@ -31,25 +31,25 @@ object frmMain: TfrmMain
TabOrder = 0
object lblX: TLabel
Left = 11
Height = 14
Height = 13
Top = 7
Width = 11
Width = 12
Caption = 'X:'
ParentColor = False
ParentFont = True
end
object lblY: TLabel
Left = 88
Height = 14
Height = 13
Top = 7
Width = 10
Width = 12
Caption = 'Y:'
ParentColor = False
ParentFont = True
end
object lblTileInfo: TLabel
Left = 240
Height = 14
Height = 13
Top = 7
Width = 4
Caption = ' '
@@ -57,9 +57,9 @@ object frmMain: TfrmMain
ParentFont = True
end
object lblTip: TLabel
Left = 528
Left = 519
Height = 31
Width = 230
Width = 239
Align = alRight
Alignment = taRightJustify
BorderSpacing.Right = 8
@@ -69,14 +69,15 @@ object frmMain: TfrmMain
ParentFont = True
end
object lblTipC: TLabel
Left = 505
Left = 490
Height = 31
Width = 23
Width = 29
Align = alRight
Caption = 'Tip: '
Font.Height = -11
Font.Style = [fsBold]
Layout = tlCenter
ParentColor = False
ParentFont = True
end
object edX: TSpinEdit
Left = 24
@@ -109,7 +110,7 @@ object frmMain: TfrmMain
end
end
object pcLeft: TPageControl
Height = 523
Height = 519
Top = 24
Width = 224
ActivePage = tsTiles
@@ -119,7 +120,7 @@ object frmMain: TfrmMain
TabOrder = 1
object tsTiles: TTabSheet
Caption = 'Tiles'
ClientHeight = 494
ClientHeight = 488
ClientWidth = 220
ParentFont = True
object pnlTileListSettings: TPanel
@@ -133,18 +134,18 @@ object frmMain: TfrmMain
TabOrder = 0
object lblFilter: TLabel
Left = 84
Height = 14
Height = 13
Top = 8
Width = 30
Width = 33
Caption = 'Filter:'
ParentColor = False
ParentFont = True
end
object cbTerrain: TCheckBox
Left = 4
Height = 21
Height = 20
Top = 8
Width = 64
Width = 66
Caption = 'Terrain'
Checked = True
OnChange = cbTerrainChange
@@ -154,9 +155,9 @@ object frmMain: TfrmMain
end
object cbStatics: TCheckBox
Left = 4
Height = 21
Height = 20
Top = 32
Width = 63
Width = 64
Caption = 'Statics'
Checked = True
OnChange = cbStaticsChange
@@ -176,7 +177,7 @@ object frmMain: TfrmMain
end
object vdtTiles: TVirtualDrawTree
Tag = 1
Height = 240
Height = 234
Top = 56
Width = 220
Align = alClient
@@ -184,7 +185,6 @@ object frmMain: TfrmMain
DragMode = dmAutomatic
DragType = dtVCL
Header.AutoSizeIndex = 2
Header.Font.Height = -11
Header.MainColumn = 2
Header.Options = [hoVisible]
Header.ParentFont = True
@@ -221,24 +221,23 @@ object frmMain: TfrmMain
end
object gbRandom: TGroupBox
Height = 193
Top = 301
Top = 295
Width = 220
Align = alBottom
Caption = 'Random pool'
ClientHeight = 178
ClientHeight = 176
ClientWidth = 216
ParentFont = True
TabOrder = 2
object vdtRandom: TVirtualDrawTree
Tag = 1
Cursor = 63
Height = 126
Height = 124
Top = 22
Width = 216
Align = alClient
DefaultNodeHeight = 44
DragType = dtVCL
Header.Font.Height = -11
Header.Options = [hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@@ -421,7 +420,7 @@ object frmMain: TfrmMain
object pnlRandomPreset: TPanel
Left = 4
Height = 22
Top = 152
Top = 150
Width = 208
Align = alBottom
BorderSpacing.Around = 4
@@ -541,7 +540,7 @@ object frmMain: TfrmMain
object spTileList: TSplitter
Cursor = crVSplit
Height = 5
Top = 296
Top = 290
Width = 220
Align = alBottom
ResizeAnchor = akBottom
@@ -564,12 +563,12 @@ object frmMain: TfrmMain
end
object tsClients: TTabSheet
Caption = 'Clients'
ClientHeight = 494
ClientWidth = 220
ClientHeight = 519
ClientWidth = 224
ParentFont = True
object lbClients: TListBox
Height = 494
Width = 220
Height = 519
Width = 224
Align = alClient
OnDblClick = mnuGoToClientClick
ParentFont = True
@@ -581,20 +580,19 @@ object frmMain: TfrmMain
end
object tsLocations: TTabSheet
Caption = 'Locations'
ClientHeight = 494
ClientWidth = 220
ClientHeight = 519
ClientWidth = 224
ParentFont = True
object vstLocations: TVirtualStringTree
Cursor = 63
Left = 4
Height = 458
Height = 483
Top = 4
Width = 212
Width = 216
Align = alClient
BorderSpacing.Around = 4
BorderStyle = bsSingle
Header.AutoSizeIndex = 1
Header.Font.Height = -11
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@@ -604,6 +602,7 @@ object frmMain: TfrmMain
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect]
OnDblClick = vstLocationsDblClick
OnFreeNode = vstLocationsFreeNode
OnGetText = vstLocationsGetText
OnLoadNode = vstLocationsLoadNode
OnNewText = vstLocationsNewText
@@ -615,20 +614,20 @@ object frmMain: TfrmMain
end
item
Position = 1
Width = 133
Width = 141
WideText = 'Name'
end>
end
object pnlLocationControls: TPanel
Left = 4
Height = 24
Top = 466
Width = 212
Top = 491
Width = 216
Align = alBottom
BorderSpacing.Around = 4
BevelOuter = bvNone
ClientHeight = 24
ClientWidth = 212
ClientWidth = 216
ParentFont = True
TabOrder = 1
object btnClearLocations: TSpeedButton
@@ -952,17 +951,17 @@ object frmMain: TfrmMain
end
object pnlMain: TPanel
Left = 224
Height = 523
Height = 519
Top = 24
Width = 542
Align = alClient
BevelOuter = bvNone
ClientHeight = 523
ClientHeight = 519
ClientWidth = 542
ParentFont = True
TabOrder = 3
object oglGameWindow: TOpenGLControl
Height = 372
Height = 368
Width = 542
Align = alClient
OnDblClick = oglGameWindowDblClick
@@ -976,7 +975,7 @@ object frmMain: TfrmMain
end
object pnlChatHeader: TPanel
Height = 24
Top = 372
Top = 368
Width = 542
Align = alBottom
BevelInner = bvRaised
@@ -1004,7 +1003,7 @@ object frmMain: TfrmMain
end
object pnlChat: TPanel
Height = 122
Top = 401
Top = 397
Width = 542
Align = alBottom
BevelOuter = bvNone
@@ -1014,11 +1013,11 @@ object frmMain: TfrmMain
TabOrder = 1
Visible = False
object vstChat: TVirtualStringTree
Cursor = 63
Height = 99
Width = 542
Align = alClient
Header.AutoSizeIndex = 2
Header.Font.Height = -11
Header.MainColumn = 2
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
@@ -1060,7 +1059,7 @@ object frmMain: TfrmMain
object spChat: TSplitter
Cursor = crVSplit
Height = 5
Top = 396
Top = 392
Width = 542
Align = alBottom
AutoSnap = False
@@ -1252,6 +1251,10 @@ object frmMain: TfrmMain
ImageIndex = 3
OnClick = mnuAccountControlClick
end
object mnuRegionControl: TMenuItem
Caption = '&Region Management'
OnClick = mnuRegionControlClick
end
object mnuLargeScaleCommands: TMenuItem
Caption = 'Large Scale Commands'
Bitmap.Data = {