diff --git a/Client/CentrED.lpi b/Client/CentrED.lpi index 170d52d..a4cc2a6 100644 --- a/Client/CentrED.lpi +++ b/Client/CentrED.lpi @@ -19,7 +19,7 @@ - + @@ -66,11 +66,9 @@ - - + - @@ -117,11 +115,9 @@ - - + - @@ -168,11 +164,9 @@ - - + - @@ -204,11 +198,8 @@ - - + - - @@ -240,11 +231,9 @@ - - + - @@ -276,11 +265,9 @@ - - + - @@ -333,7 +320,6 @@ - @@ -357,14 +343,12 @@ - - @@ -372,111 +356,94 @@ - - - - - - - - - - - - - - - - - @@ -484,7 +451,6 @@ - @@ -499,84 +465,68 @@ - - - - - - - - - - - - - - - - @@ -585,34 +535,28 @@ - - - - - - @@ -654,10 +598,8 @@ - - + - diff --git a/Client/CentrED.lpr b/Client/CentrED.lpr index 1bb1597..9733d44 100644 --- a/Client/CentrED.lpr +++ b/Client/CentrED.lpr @@ -28,7 +28,7 @@ program CentrED; {$mode objfpc}{$H+} uses - {$IFNDEF NoLogging}heaptrc,{$ENDIF} + {$IFNDEF NoLogging}heaptrc, Logging, filechannel,{$ENDIF} {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} @@ -46,6 +46,7 @@ end; begin {$IFNDEF NoLogging} SetHeapTraceOutput('CentrED.trc'); + Logger.Channels.Add(TFileChannel.Create('CentrED.log')); {$ENDIF} OnGetApplicationName := @GetApplicationName; diff --git a/Client/UfrmMain.lfm b/Client/UfrmMain.lfm index 98ba7aa..7d055d4 100644 --- a/Client/UfrmMain.lfm +++ b/Client/UfrmMain.lfm @@ -18,7 +18,7 @@ object frmMain: TfrmMain Position = poScreenCenter SessionProperties = 'acFlat.Checked;acNoDraw.Checked;Height;Left;mnuFlatShowHeight.Checked;mnuSecurityQuestion.Checked;mnuShowAnimations.Checked;spTileList.Top;tbStatics.Down;tbTerrain.Down;Top;Width;WindowState;mnuWhiteBackground.Checked' ShowInTaskBar = stAlways - LCLVersion = '1.3' + LCLVersion = '1.5' WindowState = wsMaximized object pnlBottom: TPanel Left = 0 @@ -81,7 +81,7 @@ object frmMain: TfrmMain end object edX: TSpinEdit Left = 24 - Height = 25 + Height = 21 Top = 3 Width = 55 MaxValue = 100000 @@ -89,7 +89,7 @@ object frmMain: TfrmMain end object edY: TSpinEdit Left = 104 - Height = 25 + Height = 21 Top = 3 Width = 52 MaxValue = 100000 @@ -117,13 +117,13 @@ object frmMain: TfrmMain TabOrder = 1 object tsTiles: TTabSheet Caption = 'Tiles' - ClientHeight = 472 - ClientWidth = 218 + ClientHeight = 476 + ClientWidth = 220 object lblFilter: TLabel AnchorSideLeft.Control = cbTerrain AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cbTerrain - Left = 89 + Left = 85 Height = 13 Top = 8 Width = 31 @@ -140,10 +140,10 @@ object frmMain: TfrmMain AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = spTileList Left = 4 - Height = 224 + Height = 228 Hint = '-' Top = 60 - Width = 210 + Width = 212 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 4 BorderSpacing.Top = 4 @@ -200,11 +200,11 @@ object frmMain: TfrmMain AnchorSideBottom.Side = asrBottom Left = 0 Height = 183 - Top = 289 - Width = 218 + Top = 293 + Width = 220 Anchors = [akTop, akLeft, akRight, akBottom] Caption = 'Random pool' - ClientHeight = 169 + ClientHeight = 168 ClientWidth = 216 TabOrder = 1 object btnAddRandom: TSpeedButton @@ -362,7 +362,7 @@ object frmMain: TfrmMain Left = 164 Height = 22 Hint = 'Save Preset' - Top = 138 + Top = 139 Width = 22 Anchors = [akTop, akRight] BorderSpacing.Right = 4 @@ -414,7 +414,7 @@ object frmMain: TfrmMain Left = 190 Height = 22 Hint = 'Delete Preset' - Top = 138 + Top = 139 Width = 22 Anchors = [akTop, akRight] BorderSpacing.Right = 4 @@ -469,7 +469,7 @@ object frmMain: TfrmMain AnchorSideBottom.Control = cbRandomPreset Cursor = 63 Left = 4 - Height = 110 + Height = 111 Top = 24 Width = 208 Anchors = [akTop, akLeft, akRight, akBottom] @@ -517,8 +517,8 @@ object frmMain: TfrmMain AnchorSideBottom.Control = gbRandom AnchorSideBottom.Side = asrBottom Left = 4 - Height = 27 - Top = 138 + Height = 25 + Top = 139 Width = 156 Anchors = [akLeft, akRight, akBottom] BorderSpacing.Left = 4 @@ -538,8 +538,8 @@ object frmMain: TfrmMain Cursor = crVSplit Left = 0 Height = 5 - Top = 284 - Width = 218 + Top = 288 + Width = 220 Align = alNone Anchors = [akLeft, akRight, akBottom] ResizeAnchor = akBottom @@ -549,10 +549,10 @@ object frmMain: TfrmMain AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = vdtTiles AnchorSideBottom.Side = asrBottom - Left = 110 + Left = 112 Height = 23 Hint = 'Append S or T to restrict the search to Statics or Terrain.' - Top = 253 + Top = 257 Width = 96 Anchors = [akRight, akBottom] BorderSpacing.Right = 8 @@ -571,10 +571,10 @@ object frmMain: TfrmMain AnchorSideTop.Side = asrBottom AnchorSideRight.Control = tsTiles AnchorSideRight.Side = asrBottom - Left = 89 + Left = 85 Height = 23 Top = 21 - Width = 113 + Width = 119 Anchors = [akTop, akLeft, akRight] BorderSpacing.Right = 16 OnEditingDone = edFilterEditingDone @@ -585,10 +585,10 @@ object frmMain: TfrmMain AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = cbTerrain AnchorSideTop.Side = asrBottom - Left = 3 + Left = 4 Height = 24 Top = 32 - Width = 71 + Width = 65 Caption = 'Statics' Checked = True OnChange = cbStaticsChange @@ -601,7 +601,7 @@ object frmMain: TfrmMain Left = 4 Height = 24 Top = 8 - Width = 69 + Width = 65 BorderSpacing.Left = 4 BorderSpacing.Top = 8 Caption = 'Terrain' @@ -613,8 +613,8 @@ object frmMain: TfrmMain end object tsClients: TTabSheet Caption = 'Clients' - ClientHeight = 472 - ClientWidth = 218 + ClientHeight = 476 + ClientWidth = 220 object lbClients: TListBox Left = 0 Height = 478 @@ -632,8 +632,8 @@ object frmMain: TfrmMain end object tsLocations: TTabSheet Caption = 'Locations' - ClientHeight = 472 - ClientWidth = 218 + ClientHeight = 476 + ClientWidth = 220 object btnClearLocations: TSpeedButton AnchorSideLeft.Control = btnDeleteLocation AnchorSideLeft.Side = asrBottom @@ -851,6 +851,7 @@ object frmMain: TfrmMain end object tbSeparator1: TToolButton Left = 24 + Height = 22 Top = 2 Width = 5 Style = tbsDivider @@ -911,6 +912,7 @@ object frmMain: TfrmMain end object tbSeparator3: TToolButton Left = 195 + Height = 22 Top = 2 Width = 5 Caption = 'tbSeparator3' @@ -925,6 +927,7 @@ object frmMain: TfrmMain end object tbSeparator4: TToolButton Left = 269 + Height = 22 Top = 2 Width = 5 Caption = 'tbSeparator4' @@ -956,6 +959,7 @@ object frmMain: TfrmMain end object tbSeparator5: TToolButton Left = 424 + Height = 22 Top = 2 Width = 5 Caption = 'tbSeparator5' @@ -998,6 +1002,7 @@ object frmMain: TfrmMain end object tbSeparator2: TToolButton Left = 167 + Height = 22 Top = 2 Width = 5 Caption = 'tbSeparator2' @@ -2734,4 +2739,4 @@ object frmMain: TfrmMain left = 368 top = 208 end -end \ No newline at end of file +end