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

- More adjustements to frmLogin 

- Added property storage to several frmMain options
This commit is contained in:
Andreas Schneider 2009-12-09 19:10:07 +01:00
parent 36afc1e1d9
commit 3bd5add656
3 changed files with 24 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Client/UfrmLogin.lfm
View File

@ -1,13 +1,14 @@
object frmLogin: TfrmLogin object frmLogin: TfrmLogin
Left = 290 Left = 290
Height = 246 Height = 266
Top = 171 Top = 171
Width = 481 Width = 481
ActiveControl = btnOK ActiveControl = btnOK
AutoSize = True
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'UO CentrED' Caption = 'UO CentrED'
ClientHeight = 246 ClientHeight = 266
ClientWidth = 481 ClientWidth = 481
Font.Height = -11 Font.Height = -11
OnClose = FormClose OnClose = FormClose
@ -17,16 +18,19 @@ object frmLogin: TfrmLogin
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
object lblCopyright: TLabel object lblCopyright: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = gbData
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 16 Height = 17
Top = 230 Top = 239
Width = 481 Width = 481
Alignment = taCenter Alignment = taCenter
Anchors = [akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
ParentColor = False ParentColor = False
end end
object gbConnection: TGroupBox object gbConnection: TGroupBox

8
Client/UfrmMain.lfm
View File

@ -16,6 +16,7 @@ object frmMain: TfrmMain
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
Position = poScreenCenter Position = poScreenCenter
SessionProperties = 'Height;Left;Top;Width;WindowState;acFlat.Checked;acNoDraw.Checked;tbStatics.Down;tbTerrain.Down;mnuFlatShowHeight.Checked'
ShowInTaskBar = stAlways ShowInTaskBar = stAlways
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
WindowState = wsMaximized WindowState = wsMaximized
@ -2622,4 +2623,11 @@ object frmMain: TfrmMain
OnClick = mnuFlatShowHeightClick OnClick = mnuFlatShowHeightClick
end end
end end
object XMLPropStorage1: TXMLPropStorage
StoredValues = <>
RootNodePath = 'Forms/frmMain'
Active = False
left = 368
top = 208
end
end end

9
Client/UfrmMain.pas
View File

@ -33,8 +33,9 @@ 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, VirtualTrees, Buttons, UMulBlock, UWorldItem, math,
LCLIntf, UOverlayUI, UStatics, UEnhancedMemoryStream, ActnList, fgl, LCLIntf, UOverlayUI, UStatics, UEnhancedMemoryStream, ActnList,
ImagingClasses, dateutils, UPlatformTypes, UMap, UPacket, UGLFont; XMLPropStorage, fgl, ImagingClasses, dateutils, UPlatformTypes, UMap, UPacket,
UGLFont;
type type
TAccessChangedListener = procedure(AAccessLevel: TAccessLevel) of object; TAccessChangedListener = procedure(AAccessLevel: TAccessLevel) of object;
@ -160,6 +161,7 @@ type
vdtRandom: TVirtualDrawTree; vdtRandom: TVirtualDrawTree;
vstChat: TVirtualStringTree; vstChat: TVirtualStringTree;
vstLocations: TVirtualStringTree; vstLocations: TVirtualStringTree;
XMLPropStorage1: TXMLPropStorage;
procedure acBoundariesExecute(Sender: TObject); procedure acBoundariesExecute(Sender: TObject);
procedure acDeleteExecute(Sender: TObject); procedure acDeleteExecute(Sender: TObject);
procedure acDrawExecute(Sender: TObject); procedure acDrawExecute(Sender: TObject);
@ -826,6 +828,9 @@ begin
FConfigDir := GetAppConfigDir(False); FConfigDir := GetAppConfigDir(False);
ForceDirectories(FConfigDir); ForceDirectories(FConfigDir);
XMLPropStorage1.FileName := FConfigDir + 'CentrED.xml';
XMLPropStorage1.Active := True;
FLandscape := ResMan.Landscape; FLandscape := ResMan.Landscape;
FLandscape.OnChange := @OnLandscapeChanged; FLandscape.OnChange := @OnLandscapeChanged;
FLandscape.OnMapChanged := @OnMapChanged; FLandscape.OnMapChanged := @OnMapChanged;