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

- Updated Project Files 

- Fixed frmLargeScaleCommand for recent LCL changes
This commit is contained in:
Andreas Schneider 2011-02-04 23:37:06 +01:00
parent d158c28452
commit a309caa235
4 changed files with 205 additions and 138 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Client/CentrED.lpi
View File

@ -5,7 +5,6 @@
<General> <General>
<Flags> <Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/> <MainUnitHasUsesSectionForAllUnits Value="False"/>
<AlwaysBuild Value="False"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
@ -19,13 +18,16 @@
<MinorVersionNr Value="6"/> <MinorVersionNr Value="6"/>
<RevisionNr Value="1"/> <RevisionNr Value="1"/>
<BuildNr Value="209"/> <BuildNr Value="209"/>
<StringTable CompanyName="AKS DataBasis" FileDescription="UO CentrED" InternalName="CentrED" LegalCopyright="Andreas Schneider" OriginalFilename="CentrED.exe" ProductName="CentrED"/> <StringTable CompanyName="AKS DataBasis" FileDescription="UO CentrED" InternalName="CentrED" LegalCopyright="Andreas Schneider" OriginalFilename="CentrED.exe" ProductName="CentrED" ProductVersion=""/>
</VersionInfo> </VersionInfo>
<MacroValues Count="1">
<Macro1 Name="LCLWidgetType" Value="gtk2"/>
</MacroValues>
<BuildModes Count="3"> <BuildModes Count="3">
<Item1 Name="default" Default="True"/> <Item1 Name="default" Default="True"/>
<Item2 Name="Release Win32"> <Item2 Name="Release Win32">
<CompilerOptions> <CompilerOptions>
<Version Value="9"/> <Version Value="10"/>
<Target> <Target>
<Filename Value="../bin/CentrED"/> <Filename Value="../bin/CentrED"/>
</Target> </Target>
@ -34,7 +36,6 @@
<OtherUnitFiles Value="..;../UOLib;../MulProvider;../Imaging;../Imaging/JpegLib;../Imaging/ZLib;Tools"/> <OtherUnitFiles Value="..;../UOLib;../MulProvider;../Imaging;../Imaging/JpegLib;../Imaging/ZLib;Tools"/>
<UnitOutputDirectory Value="../obj/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="../obj/$(TargetCPU)-$(TargetOS)"/>
<SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType);..;../UOLib;../MulProvider;../Imaging;../Imaging/JpegLib;../Imaging/ZLib;Tools"/> <SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType);..;../UOLib;../MulProvider;../Imaging;../Imaging/JpegLib;../Imaging/ZLib;Tools"/>
<LCLWidgetType Value="win32"/>
</SearchPaths> </SearchPaths>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
@ -74,7 +75,7 @@
</Item2> </Item2>
<Item3 Name="Release Linux GTK2 x86"> <Item3 Name="Release Linux GTK2 x86">
<CompilerOptions> <CompilerOptions>
<Version Value="9"/> <Version Value="10"/>
<Target> <Target>
<Filename Value="../bin/CentrED"/> <Filename Value="../bin/CentrED"/>
</Target> </Target>
@ -83,7 +84,6 @@
<OtherUnitFiles Value="..;../UOLib;../MulProvider;../Imaging;../Imaging/JpegLib;../Imaging/ZLib;Tools"/> <OtherUnitFiles Value="..;../UOLib;../MulProvider;../Imaging;../Imaging/JpegLib;../Imaging/ZLib;Tools"/>
<UnitOutputDirectory Value="../obj/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="../obj/$(TargetCPU)-$(TargetOS)"/>
<SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType);..;../UOLib;../MulProvider;../Imaging;../Imaging/JpegLib;../Imaging/ZLib;Tools"/> <SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType);..;../UOLib;../MulProvider;../Imaging;../Imaging/JpegLib;../Imaging/ZLib;Tools"/>
<LCLWidgetType Value="gtk2"/>
</SearchPaths> </SearchPaths>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
@ -427,7 +427,7 @@
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="9"/> <Version Value="10"/>
<Target> <Target>
<Filename Value="../bin/CentrED"/> <Filename Value="../bin/CentrED"/>
</Target> </Target>
@ -463,4 +463,4 @@
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>

192
Client/UfrmLargeScaleCommand.lfm
View File

@ -15,7 +15,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
OnShow = FormShow OnShow = FormShow
Position = poOwnerFormCenter Position = poOwnerFormCenter
ShowInTaskBar = stAlways ShowInTaskBar = stAlways
LCLVersion = '0.9.29' LCLVersion = '0.9.31'
object nbActions: TNotebook object nbActions: TNotebook
AnchorSideLeft.Control = vstActions AnchorSideLeft.Control = vstActions
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
@ -27,22 +27,21 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Height = 349 Height = 349
Top = 0 Top = 0
Width = 468 Width = 468
PageIndex = 3
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
PageIndex = 1
ShowTabs = False
TabOrder = 0 TabOrder = 0
TabStop = True
object pgArea: TPage object pgArea: TPage
Caption = 'pgArea' ClientWidth = 468
ClientWidth = 462 ClientHeight = 349
ClientHeight = 316
object sbArea: TScrollBox object sbArea: TScrollBox
Left = 0 Left = 0
Height = 316 Height = 349
Top = 0 Top = 0
Width = 462 Width = 468
Align = alClient Align = alClient
ClientHeight = 314 ClientHeight = 347
ClientWidth = 460 ClientWidth = 466
TabOrder = 0 TabOrder = 0
object pbArea: TPaintBox object pbArea: TPaintBox
Left = 0 Left = 0
@ -56,9 +55,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
end end
end end
object pgCopyMove: TPage object pgCopyMove: TPage
Caption = 'Copy/Move' ClientWidth = 936
ClientWidth = 462 ClientHeight = 698
ClientHeight = 343
object rgCMAction: TRadioGroup object rgCMAction: TRadioGroup
AnchorSideLeft.Control = pgCopyMove AnchorSideLeft.Control = pgCopyMove
AnchorSideTop.Control = pgCopyMove AnchorSideTop.Control = pgCopyMove
@ -77,7 +75,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 26 ClientHeight = 24
ClientWidth = 182 ClientWidth = 182
Columns = 2 Columns = 2
ItemIndex = 0 ItemIndex = 0
@ -96,7 +94,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Top = 56 Top = 56
Width = 121 Width = 121
Caption = 'Offset' Caption = 'Offset'
ClientHeight = 67 ClientHeight = 65
ClientWidth = 119 ClientWidth = 119
TabOrder = 1 TabOrder = 1
object Label9: TLabel object Label9: TLabel
@ -104,9 +102,9 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Control = seCMOffsetX AnchorSideTop.Control = seCMOffsetX
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 8 Left = 8
Height = 14 Height = 15
Top = 10 Top = 11
Width = 11 Width = 12
BorderSpacing.Around = 8 BorderSpacing.Around = 8
Caption = 'X:' Caption = 'X:'
ParentColor = False ParentColor = False
@ -116,8 +114,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Control = seCMOffsetY AnchorSideTop.Control = seCMOffsetY
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 8 Left = 8
Height = 14 Height = 15
Top = 37 Top = 39
Width = 10 Width = 10
Caption = 'Y:' Caption = 'Y:'
ParentColor = False ParentColor = False
@ -127,10 +125,10 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbCMOffset AnchorSideTop.Control = gbCMOffset
AnchorSideRight.Control = btnGrabOffset AnchorSideRight.Control = btnGrabOffset
Left = 27 Left = 28
Height = 19 Height = 20
Top = 8 Top = 8
Width = 62 Width = 61
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
@ -143,10 +141,10 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = seCMOffsetX AnchorSideRight.Control = seCMOffsetX
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 27 Left = 28
Height = 19 Height = 20
Top = 35 Top = 36
Width = 62 Width = 61
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
TabOrder = 1 TabOrder = 1
@ -163,7 +161,6 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Width = 22 Width = 22
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Color = clBtnFace
Enabled = False Enabled = False
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
@ -214,26 +211,26 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Left = 8 Left = 8
Height = 22 Height = 22
Top = 145 Top = 145
Width = 170 Width = 189
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'Erase target area (at offset)' Caption = 'Erase target area (at offset)'
TabOrder = 2 TabOrder = 2
end end
end end
object pgModifyAltitude: TPage object pgModifyAltitude: TPage
Caption = 'Modify altitude' ClientWidth = 468
ClientWidth = 462 ClientHeight = 349
ClientHeight = 316
object Label2: TLabel object Label2: TLabel
AnchorSideLeft.Control = rbSetTerrainAltitude AnchorSideLeft.Control = rbSetTerrainAltitude
AnchorSideTop.Control = rbSetTerrainAltitude AnchorSideTop.Control = rbSetTerrainAltitude
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 30 Left = 30
Height = 46 Height = 49
Top = 30 Top = 30
Width = 142 Width = 162
BorderSpacing.Left = 22 BorderSpacing.Left = 22
Caption = 'The statics will be elevated according to the terrain change.' Caption = 'The statics will be elevated according to the terrain change.'
Constraints.MaxWidth = 170
Enabled = False Enabled = False
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
@ -241,10 +238,11 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
object Label3: TLabel object Label3: TLabel
AnchorSideTop.Control = rbSetTerrainAltitude AnchorSideTop.Control = rbSetTerrainAltitude
Left = 228 Left = 228
Height = 30 Height = 32
Top = 8 Top = 8
Width = 125 Width = 209
Caption = 'Set the altitude to a value from this range:' Caption = 'Set the altitude to a value from this range:'
Constraints.MaxWidth = 220
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
end end
@ -254,8 +252,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Control = seTerrainAltitude1 AnchorSideTop.Control = seTerrainAltitude1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 286 Left = 286
Height = 14 Height = 15
Top = 48 Top = 51
Width = 12 Width = 12
BorderSpacing.Left = 8 BorderSpacing.Left = 8
Caption = 'to' Caption = 'to'
@ -267,13 +265,13 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Left = 8 Left = 8
Height = 22 Height = 22
Top = 8 Top = 8
Width = 123 Width = 134
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'Set terrain altitude' Caption = 'Set terrain altitude'
Checked = True Checked = True
State = cbChecked
TabOrder = 0 TabOrder = 0
TabStop = True
end end
object rbRelativeAltitudeChange: TRadioButton object rbRelativeAltitudeChange: TRadioButton
AnchorSideLeft.Control = rbSetTerrainAltitude AnchorSideLeft.Control = rbSetTerrainAltitude
@ -281,20 +279,19 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 8 Left = 8
Height = 22 Height = 22
Top = 84 Top = 87
Width = 153 Width = 164
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'Relative altitude change' Caption = 'Relative altitude change'
TabOrder = 1 TabOrder = 1
TabStop = False
end end
object seTerrainAltitude1: TSpinEdit object seTerrainAltitude1: TSpinEdit
AnchorSideLeft.Control = Label3 AnchorSideLeft.Control = Label3
AnchorSideTop.Control = Label3 AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 228 Left = 228
Height = 19 Height = 20
Top = 46 Top = 48
Width = 50 Width = 50
BorderSpacing.Top = 8 BorderSpacing.Top = 8
MaxValue = 127 MaxValue = 127
@ -306,8 +303,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seTerrainAltitude1 AnchorSideTop.Control = seTerrainAltitude1
Left = 306 Left = 306
Height = 19 Height = 20
Top = 46 Top = 48
Width = 50 Width = 50
BorderSpacing.Left = 8 BorderSpacing.Left = 8
MaxValue = 127 MaxValue = 127
@ -319,8 +316,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Control = rbRelativeAltitudeChange AnchorSideTop.Control = rbRelativeAltitudeChange
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 30 Left = 30
Height = 19 Height = 20
Top = 106 Top = 109
Width = 50 Width = 50
MaxValue = 127 MaxValue = 127
MinValue = -128 MinValue = -128
@ -328,32 +325,33 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
end end
end end
object pgDrawTerrain: TPage object pgDrawTerrain: TPage
Caption = 'Draw Terrain' ClientWidth = 468
ClientWidth = 462 ClientHeight = 349
ClientHeight = 316
object gbDrawTerrainTiles: TGroupBox object gbDrawTerrainTiles: TGroupBox
AnchorSideLeft.Control = pgDrawTerrain AnchorSideLeft.Control = pgDrawTerrain
AnchorSideTop.Control = pgDrawTerrain AnchorSideTop.Control = pgDrawTerrain
AnchorSideBottom.Control = pgDrawTerrain AnchorSideBottom.Control = pgDrawTerrain
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 8 Left = 8
Height = 300 Height = 333
Top = 8 Top = 8
Width = 225 Width = 225
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Around = 8 BorderSpacing.Around = 8
Caption = 'Tiles' Caption = 'Tiles'
ClientHeight = 286 ClientHeight = 318
ClientWidth = 223 ClientWidth = 223
TabOrder = 0 TabOrder = 0
object lblDrawTerrainTilesDesc: TLabel object lblDrawTerrainTilesDesc: TLabel
AnchorSideLeft.Control = gbDrawTerrainTiles AnchorSideLeft.Control = gbDrawTerrainTiles
AnchorSideTop.Control = gbDrawTerrainTiles AnchorSideTop.Control = gbDrawTerrainTiles
AnchorSideRight.Control = gbDrawTerrainTiles AnchorSideRight.Control = gbDrawTerrainTiles
AnchorSideRight.Side = asrBottom
Left = 4 Left = 4
Height = 62 Height = 66
Top = 0 Top = 0
Width = 215 Width = 215
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4 BorderSpacing.Left = 4
BorderSpacing.Right = 4 BorderSpacing.Right = 4
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
@ -367,13 +365,14 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Control = lblDrawTerrainTilesDesc AnchorSideTop.Control = lblDrawTerrainTilesDesc
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbDrawTerrainTiles AnchorSideRight.Control = gbDrawTerrainTiles
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnDeleteTerrain AnchorSideBottom.Control = btnDeleteTerrain
Cursor = 63 Cursor = 63
Left = 4 Left = 4
Height = 200 Height = 218
Top = 66 Top = 70
Width = 215 Width = 215
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 4 BorderSpacing.Left = 4
BorderSpacing.Right = 4 BorderSpacing.Right = 4
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
@ -416,10 +415,9 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Left = 30 Left = 30
Height = 22 Height = 22
Hint = 'Clear' Hint = 'Clear'
Top = 270 Top = 292
Width = 22 Width = 22
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -468,11 +466,10 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Left = 4 Left = 4
Height = 22 Height = 22
Hint = 'Delete' Hint = 'Delete'
Top = 270 Top = 292
Width = 22 Width = 22
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -517,9 +514,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
end end
end end
object pgDeleteStatics: TPage object pgDeleteStatics: TPage
Caption = 'Delete statics' ClientWidth = 1848
ClientWidth = 462 ClientHeight = 1264
ClientHeight = 316
object gbDeleteStaticsTiles: TGroupBox object gbDeleteStaticsTiles: TGroupBox
AnchorSideLeft.Control = pgDeleteStatics AnchorSideLeft.Control = pgDeleteStatics
AnchorSideTop.Control = pgDeleteStatics AnchorSideTop.Control = pgDeleteStatics
@ -532,7 +528,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Around = 8 BorderSpacing.Around = 8
Caption = 'Tiles' Caption = 'Tiles'
ClientHeight = 286 ClientHeight = 284
ClientWidth = 223 ClientWidth = 223
TabOrder = 0 TabOrder = 0
object lblDeleteStaticsTilesDesc: TLabel object lblDeleteStaticsTilesDesc: TLabel
@ -611,7 +607,6 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Top = 270 Top = 270
Width = 22 Width = 22
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -664,7 +659,6 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Width = 22 Width = 22
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -717,7 +711,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Width = 176 Width = 176
AutoSize = True AutoSize = True
Caption = 'Z Boundaries' Caption = 'Z Boundaries'
ClientHeight = 65 ClientHeight = 63
ClientWidth = 174 ClientWidth = 174
TabOrder = 1 TabOrder = 1
object Label7: TLabel object Label7: TLabel
@ -779,9 +773,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
end end
end end
object pgInsertStatics: TPage object pgInsertStatics: TPage
Caption = 'Insert statics' ClientWidth = 1848
ClientWidth = 462 ClientHeight = 1264
ClientHeight = 316
object gbInserStaticsTiles: TGroupBox object gbInserStaticsTiles: TGroupBox
AnchorSideLeft.Control = pgInsertStatics AnchorSideLeft.Control = pgInsertStatics
AnchorSideTop.Control = pgInsertStatics AnchorSideTop.Control = pgInsertStatics
@ -794,7 +787,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Around = 8 BorderSpacing.Around = 8
Caption = 'Tiles' Caption = 'Tiles'
ClientHeight = 286 ClientHeight = 284
ClientWidth = 223 ClientWidth = 223
TabOrder = 0 TabOrder = 0
object lblInsertStaticsTiles: TLabel object lblInsertStaticsTiles: TLabel
@ -870,7 +863,6 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Hint = 'Clear' Hint = 'Clear'
Top = 270 Top = 270
Width = 22 Width = 22
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -923,7 +915,6 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Width = 22 Width = 22
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -976,7 +967,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Width = 185 Width = 185
AutoSize = True AutoSize = True
Caption = 'Probability' Caption = 'Probability'
ClientHeight = 61 ClientHeight = 59
ClientWidth = 183 ClientWidth = 183
TabOrder = 1 TabOrder = 1
object Label5: TLabel object Label5: TLabel
@ -1037,7 +1028,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AutoSize = True AutoSize = True
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'Z Placement' Caption = 'Z Placement'
ClientHeight = 97 ClientHeight = 95
ClientWidth = 183 ClientWidth = 183
TabOrder = 2 TabOrder = 2
object rbPlaceStaticsOnTerrain: TRadioButton object rbPlaceStaticsOnTerrain: TRadioButton
@ -1055,8 +1046,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
BorderSpacing.Right = 4 BorderSpacing.Right = 4
Caption = 'Place tiles on terrain' Caption = 'Place tiles on terrain'
Checked = True Checked = True
State = cbChecked
TabOrder = 0 TabOrder = 0
TabStop = True
end end
object rbPlaceStaticsOnTop: TRadioButton object rbPlaceStaticsOnTop: TRadioButton
AnchorSideLeft.Control = rbPlaceStaticsOnTerrain AnchorSideLeft.Control = rbPlaceStaticsOnTerrain
@ -1071,7 +1062,6 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'Place tiles on top' Caption = 'Place tiles on top'
TabOrder = 1 TabOrder = 1
TabStop = False
end end
object rbPlaceStaticsOnZ: TRadioButton object rbPlaceStaticsOnZ: TRadioButton
AnchorSideLeft.Control = rbPlaceStaticsOnTop AnchorSideLeft.Control = rbPlaceStaticsOnTop
@ -1086,7 +1076,6 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'Place tiles on:' Caption = 'Place tiles on:'
TabOrder = 2 TabOrder = 2
TabStop = False
end end
object seInsertStaticsZ: TSpinEdit object seInsertStaticsZ: TSpinEdit
AnchorSideLeft.Control = rbPlaceStaticsOnZ AnchorSideLeft.Control = rbPlaceStaticsOnZ
@ -1141,8 +1130,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnDeleteArea AnchorSideBottom.Control = btnDeleteArea
Left = 4 Left = 4
Height = 122 Height = 119
Top = 154 Top = 155
Width = 144 Width = 144
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
@ -1165,7 +1154,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideRight.Control = vstActions AnchorSideRight.Control = vstActions
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 4 Left = 4
Height = 14 Height = 15
Top = 140 Top = 140
Width = 144 Width = 144
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -1188,7 +1177,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
item item
Position = 0 Position = 0
Text = 'Actions' Text = 'Actions'
Width = 148 Width = 150
end> end>
Header.DefaultHeight = 17 Header.DefaultHeight = 17
Header.Options = [hoAutoResize, hoVisible] Header.Options = [hoAutoResize, hoVisible]
@ -1209,10 +1198,9 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Left = 39 Left = 39
Height = 22 Height = 22
Hint = 'Add area' Hint = 'Add area'
Top = 280 Top = 278
Width = 22 Width = 22
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -1262,12 +1250,11 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Left = 65 Left = 65
Height = 22 Height = 22
Hint = 'Delete area' Hint = 'Delete area'
Top = 280 Top = 278
Width = 22 Width = 22
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -1316,9 +1303,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Left = 91 Left = 91
Height = 22 Height = 22
Hint = 'Delete all areas' Hint = 'Delete all areas'
Top = 280 Top = 278
Width = 22 Width = 22
Color = clBtnFace
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -1365,9 +1351,9 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Control = seX1 AnchorSideTop.Control = seX1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 4 Left = 4
Height = 14 Height = 15
Top = 312 Top = 311
Width = 8 Width = 9
Caption = 'X' Caption = 'X'
Enabled = False Enabled = False
ParentColor = False ParentColor = False
@ -1376,8 +1362,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = seY1 AnchorSideLeft.Control = seY1
AnchorSideBottom.Control = seY1 AnchorSideBottom.Control = seY1
Left = 20 Left = 20
Height = 19 Height = 20
Top = 310 Top = 308
Width = 50 Width = 50
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
@ -1391,8 +1377,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seX1 AnchorSideTop.Control = seX1
Left = 78 Left = 78
Height = 19 Height = 20
Top = 310 Top = 308
Width = 50 Width = 50
BorderSpacing.Left = 8 BorderSpacing.Left = 8
Enabled = False Enabled = False
@ -1405,7 +1391,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Control = seY1 AnchorSideTop.Control = seY1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 4 Left = 4
Height = 14 Height = 15
Top = 339 Top = 339
Width = 8 Width = 8
BorderSpacing.Left = 4 BorderSpacing.Left = 4
@ -1418,8 +1404,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = btnGrab1 AnchorSideBottom.Control = btnGrab1
Left = 20 Left = 20
Height = 19 Height = 20
Top = 337 Top = 336
Width = 50 Width = 50
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
@ -1433,8 +1419,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = seX2 AnchorSideLeft.Control = seX2
AnchorSideTop.Control = seY1 AnchorSideTop.Control = seY1
Left = 78 Left = 78
Height = 19 Height = 20
Top = 337 Top = 336
Width = 50 Width = 50
Enabled = False Enabled = False
OnChange = seX1Change OnChange = seX1Change
@ -1453,7 +1439,6 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Width = 22 Width = 22
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Color = clBtnFace
Enabled = False Enabled = False
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
@ -1507,7 +1492,6 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Top = 360 Top = 360
Width = 22 Width = 22
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Color = clBtnFace
Enabled = False Enabled = False
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100

133
Server/cedserver.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="7"/> <Version Value="9"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/> <MainUnitHasUsesSectionForAllUnits Value="False"/>
@ -9,21 +9,105 @@
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
</General> </General>
<VersionInfo> <VersionInfo>
<UseVersionInfo Value="True"/> <UseVersionInfo Value="True"/>
<CurrentMajorRevNr Value="6"/> <MinorVersionNr Value="6"/>
<CurrentMinorRevNr Value="1"/> <RevisionNr Value="1"/>
<CurrentBuildNr Value="209"/> <BuildNr Value="209"/>
<ProjectVersion Value="0.6.1.209"/> <StringTable CompanyName="AKS DataBasis" FileDescription="CentrED Server" InternalName="CentrED Server" LegalCopyright="Andreas Schneider" OriginalFilename="cedserver.exe" ProductName="CentrED"/>
<CompanyName Value="AKS DataBasis"/>
<FileDescription Value="CentrED Server"/>
<InternalName Value="CentrED Server"/>
<LegalCopyright Value="Andreas Schneider"/>
<OriginalFilename Value="cedserver.exe"/>
<ProductName Value="CentrED"/>
</VersionInfo> </VersionInfo>
<BuildModes Count="3">
<Item1 Name="default" Default="True"/>
<Item2 Name="Release Linux i686">
<CompilerOptions>
<Version Value="10"/>
<Target>
<Filename Value="../bin/cedserver"/>
</Target>
<SearchPaths>
<IncludeFiles Value="..;../Imaging"/>
<OtherUnitFiles Value="..;../UOLib;../MulProvider;../Imaging/ZLib"/>
<UnitOutputDirectory Value="../obj"/>
<SrcPath Value="..;../UOLib;../MulProvider;../Imaging/ZLib"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetProcessor Value="pentiumm"/>
<TargetCPU Value="i386"/>
<TargetOS Value="linux"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<UseLineInfoUnit Value="False"/>
<StripSymbols Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CustomOptions Value="-FE../bin/
-dNoLogging"/>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</Item2>
<Item3 Name="Release Win32">
<CompilerOptions>
<Version Value="10"/>
<Target>
<Filename Value="../bin/cedserver"/>
</Target>
<SearchPaths>
<IncludeFiles Value="..;../Imaging"/>
<OtherUnitFiles Value="..;../UOLib;../MulProvider;../Imaging/ZLib"/>
<UnitOutputDirectory Value="../obj"/>
<SrcPath Value="..;../UOLib;../MulProvider;../Imaging/ZLib"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<TargetProcessor Value="pentiumm"/>
<TargetCPU Value="i386"/>
<TargetOS Value="win32"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<UseLineInfoUnit Value="False"/>
<StripSymbols Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CustomOptions Value="-FE../bin/
-dNoLogging"/>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</Item3>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
@ -127,38 +211,35 @@
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="10"/>
<Target> <Target>
<Filename Value="../bin/cedserver"/> <Filename Value="../bin/cedserver"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="../;../Imaging/"/> <IncludeFiles Value="..;../Imaging"/>
<OtherUnitFiles Value="../;../UOLib/;../MulProvider/;../Imaging/ZLib/"/> <OtherUnitFiles Value="..;../UOLib;../MulProvider;../Imaging/ZLib"/>
<UnitOutputDirectory Value="../obj"/> <UnitOutputDirectory Value="../obj"/>
<SrcPath Value="../;../UOLib/;../MulProvider/;../Imaging/ZLib/"/> <SrcPath Value="..;../UOLib;../MulProvider;../Imaging/ZLib"/>
</SearchPaths> </SearchPaths>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<CStyleOperator Value="False"/> <CStyleOperator Value="False"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseLineInfoUnit Value="False"/> <GenerateDwarf Value="True"/>
<StripSymbols Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<LinkSmart Value="True"/>
</Linking> </Linking>
<Other> <Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CustomOptions Value="-FE../bin/ <CustomOptions Value="-FE../bin/
-dNoLogging"/> -dNoLogging"/>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>

2
Server/cedserver.lpr
View File

@ -37,6 +37,8 @@ uses
{$IFDEF WINDOWS}{$R cedserver.rc}{$ENDIF} {$IFDEF WINDOWS}{$R cedserver.rc}{$ENDIF}
{$R *.res}
begin begin
Writeln(''); Writeln('');
Writeln('CentrED Server Version ', ProductVersion); Writeln('CentrED Server Version ', ProductVersion);