From 21e398ae924e176a50d02b7ad1a718d041546cc7 Mon Sep 17 00:00:00 2001 From: Andreas Schneider Date: Mon, 21 Dec 2009 20:12:45 +0100 Subject: [PATCH] - Added lightlevel slider --- Client/CentrED.lpi | 10 +- Client/Tools/UfrmLightlevel.lfm | 22 + Client/Tools/UfrmLightlevel.pas | 48 ++ Client/UdmNetwork.pas | 4 +- Client/UfrmLogin.lfm | 1368 +++++++++++++++---------------- Client/UfrmLogin.pas | 382 ++++----- Client/UfrmMain.lfm | 52 +- Client/UfrmMain.pas | 11 +- 8 files changed, 1016 insertions(+), 881 deletions(-) create mode 100644 Client/Tools/UfrmLightlevel.lfm create mode 100644 Client/Tools/UfrmLightlevel.pas diff --git a/Client/CentrED.lpi b/Client/CentrED.lpi index 6ff2e7a..f33ca53 100644 --- a/Client/CentrED.lpi +++ b/Client/CentrED.lpi @@ -5,6 +5,7 @@ + @@ -56,7 +57,7 @@ - + @@ -320,6 +321,13 @@ + + + + + + + diff --git a/Client/Tools/UfrmLightlevel.lfm b/Client/Tools/UfrmLightlevel.lfm new file mode 100644 index 0000000..0eec6a7 --- /dev/null +++ b/Client/Tools/UfrmLightlevel.lfm @@ -0,0 +1,22 @@ +inherited frmLightlevel: TfrmLightlevel + Height = 171 + Width = 40 + ActiveControl = tbLightlevel + Caption = 'Lightlevel' + ClientHeight = 171 + ClientWidth = 40 + object tbLightlevel: TTrackBar[0] + Left = 0 + Height = 171 + Top = 0 + Width = 40 + Max = 32 + OnChange = tbLightlevelChange + Orientation = trVertical + Position = 0 + Align = alClient + TabOrder = 0 + end + inherited tmClose: TTimer[1] + end +end diff --git a/Client/Tools/UfrmLightlevel.pas b/Client/Tools/UfrmLightlevel.pas new file mode 100644 index 0000000..58f4047 --- /dev/null +++ b/Client/Tools/UfrmLightlevel.pas @@ -0,0 +1,48 @@ +unit UfrmLightlevel; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, + ExtCtrls, ComCtrls, UfrmToolWindow; + +type + + { TfrmLightlevel } + + TfrmLightlevel = class(TfrmToolWindow) + tbLightlevel: TTrackBar; + procedure tbLightlevelChange(Sender: TObject); + private + { private declarations } + public + { public declarations } + end; + +var + frmLightlevel: TfrmLightlevel; + +implementation + +uses + UfrmMain; + +{ TfrmLightlevel } + +procedure TfrmLightlevel.tbLightlevelChange(Sender: TObject); +begin + if frmMain.LightManager.LightLevel = 0 then + begin + frmMain.LightManager.LightLevel := tbLightlevel.Position; + frmMain.InvalidateFilter; + end else + frmMain.LightManager.LightLevel := tbLightlevel.Position; +end; + +initialization + {$I UfrmLightlevel.lrs} + +end. + diff --git a/Client/UdmNetwork.pas b/Client/UdmNetwork.pas index 8d2d6bb..a983e73 100644 --- a/Client/UdmNetwork.pas +++ b/Client/UdmNetwork.pas @@ -78,7 +78,7 @@ uses UGameResources, UfrmAccountControl, UfrmEditAccount, UfrmDrawSettings, UfrmBoundaries, UfrmElevateSettings, UfrmConfirmation, UfrmMoveSettings, UfrmAbout, UfrmHueSettings, UfrmRadar, UfrmLargeScaleCommand, - UfrmVirtualLayer, UfrmFilter, UfrmRegionControl; + UfrmVirtualLayer, UfrmFilter, UfrmRegionControl, UfrmLightlevel; {$I version.inc} @@ -210,6 +210,7 @@ begin frmBoundaries := TfrmBoundaries.Create(frmMain); frmFilter := TfrmFilter.Create(frmMain); frmVirtualLayer := TfrmVirtualLayer.Create(frmMain); + frmLightlevel := TfrmLightlevel.Create(frmMain); frmAbout := TfrmAbout.Create(frmMain); frmMain.Show; frmInitialize.Hide; @@ -306,6 +307,7 @@ begin FreeAndNil(frmRegionControl); FreeAndNil(frmLargeScaleCommand); FreeAndNil(frmRadarMap); + FreeAndNil(frmLightlevel); if frmMain <> nil then begin diff --git a/Client/UfrmLogin.lfm b/Client/UfrmLogin.lfm index 8d1d37d..8274866 100644 --- a/Client/UfrmLogin.lfm +++ b/Client/UfrmLogin.lfm @@ -1,684 +1,684 @@ -object frmLogin: TfrmLogin - Left = 290 - Height = 266 - Top = 171 - Width = 481 - ActiveControl = btnOK - AutoSize = True - BorderIcons = [biSystemMenu] - BorderStyle = bsDialog - Caption = 'UO CentrED' - ClientHeight = 266 - ClientWidth = 481 - Font.Height = -11 - OnClose = FormClose - OnCreate = FormCreate - Position = poScreenCenter - ShowInTaskBar = stAlways - LCLVersion = '0.9.29' - object lblCopyright: TLabel - AnchorSideLeft.Control = Owner - AnchorSideTop.Control = gbData - AnchorSideTop.Side = asrBottom - AnchorSideRight.Control = Owner - AnchorSideRight.Side = asrBottom - AnchorSideBottom.Control = Owner - AnchorSideBottom.Side = asrBottom - Left = 0 - Height = 18 - Top = 239 - Width = 481 - Alignment = taCenter - Anchors = [akTop, akLeft, akRight] - BorderSpacing.Top = 8 - ParentColor = False - end - object gbConnection: TGroupBox - AnchorSideLeft.Control = Owner - AnchorSideTop.Control = Owner - AnchorSideRight.Control = gbActions - AnchorSideBottom.Side = asrCenter - Left = 8 - Height = 128 - Top = 4 - Width = 314 - Anchors = [akTop, akLeft, akRight] - AutoSize = True - BorderSpacing.Left = 8 - BorderSpacing.Top = 4 - Caption = 'Connection' - ClientHeight = 114 - ClientWidth = 312 - TabOrder = 0 - object lblHost: TLabel - AnchorSideLeft.Control = imgHost - AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = edHost - AnchorSideTop.Side = asrCenter - Left = 32 - Height = 14 - Top = 10 - Width = 28 - BorderSpacing.Left = 8 - Caption = 'Host:' - ParentColor = False - end - object lblUsername: TLabel - AnchorSideLeft.Control = imgUsername - AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = edUsername - AnchorSideTop.Side = asrCenter - Left = 32 - Height = 14 - Top = 46 - Width = 58 - BorderSpacing.Left = 8 - Caption = 'Username:' - ParentColor = False - end - object lblPassword: TLabel - AnchorSideLeft.Control = imgPassword - AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = edPassword - AnchorSideTop.Side = asrCenter - Left = 32 - Height = 14 - Top = 81 - Width = 54 - BorderSpacing.Left = 8 - Caption = 'Password:' - ParentColor = False - end - object imgHost: TImage - AnchorSideLeft.Control = gbConnection - AnchorSideTop.Control = lblHost - AnchorSideTop.Side = asrCenter - Left = 8 - Height = 16 - Top = 9 - Width = 16 - AutoSize = True - BorderSpacing.Left = 8 - Picture.Data = { - 07545069786D61702E0A00002F2A2058504D202A2F0A73746174696320636861 - 72202A64756D6D795B5D3D7B0A223136203136203132342032222C0A22517420 - 63204E6F6E65222C0A22236E20632023333739343337222C0A22236D20632023 - 343261313362222C0A22236620632023353661393530222C0A22233520632023 - 363036303630222C0A22233420632023363336333633222C0A22235920632023 - 363436343634222C0A22233320632023363736373637222C0A22235420632023 - 363836383638222C0A22233220632023366236623662222C0A22234920632023 - 366436643664222C0A22233120632023373037303730222C0A22237920632023 - 373337333733222C0A22233020632023373437343734222C0A22237020632023 - 373837383738222C0A22235A20632023373937393739222C0A22236820632023 - 376537653765222C0A22232E20632023383438343834222C0A222E3020632023 - 386138613861222C0A222E3220632023386238623862222C0A222E5A20632023 - 386438643864222C0A222E5920632023386638663866222C0A222E5420632023 - 393139313931222C0A222E4720632023393139313932222C0A222E4620632023 - 393339333934222C0A222E4520632023393539353936222C0A222E4420632023 - 393739373938222C0A222E4920632023393839383938222C0A22234A20632023 - 396239623962222C0A222E7A20632023396539653965222C0A22237A20632023 - 613261326132222C0A22235520632023613361336133222C0A22236520632023 - 613463386130222C0A222E7020632023613561356135222C0A22237120632023 - 613861386138222C0A222E6720632023616261626162222C0A22235220632023 - 616561666237222C0A22235120632023616562316239222C0A22236920632023 - 616661666166222C0A22234720632023616662316239222C0A222E6620632023 - 623062306230222C0A22235020632023623062316239222C0A22234620632023 - 623162326261222C0A22237720632023623162336262222C0A22234520632023 - 623262346262222C0A22234B20632023623362336233222C0A22237620632023 - 623362346262222C0A22234F20632023623362356264222C0A22234420632023 - 623462356263222C0A22237520632023623462366264222C0A22232320632023 - 623562356235222C0A22234320632023623562366265222C0A222E6520632023 - 623662366236222C0A22237420632023623662376265222C0A22236C20632023 - 623662386265222C0A22237320632023623762396330222C0A222E3820632023 - 623862396330222C0A22236420632023623962616331222C0A222E3720632023 - 623962626331222C0A22236320632023626162626332222C0A222E6420632023 - 626262626262222C0A222E3620632023626262636333222C0A222E5220632023 - 626262646333222C0A222E3520632023626362656334222C0A22234E20632023 - 626462666335222C0A222E5120632023626562666335222C0A222E3420632023 - 626562666336222C0A222E5020632023626663316336222C0A222E6320632023 - 633063306330222C0A222E5820632023633063316337222C0A222E7820632023 - 633163316337222C0A222E4F20632023633163326338222C0A222E7720632023 - 633163336338222C0A222E4E20632023633263336338222C0A222E7620632023 - 633363346361222C0A222E6220632023633463346334222C0A22235620632023 - 633463356336222C0A222E4320632023633463366362222C0A222E7520632023 - 633563366362222C0A222E4A20632023633663366336222C0A222E6120632023 - 633963396339222C0A222E7420632023633963616366222C0A222E7120632023 - 636263626362222C0A222E6820632023636363636363222C0A222E2320632023 - 636463646364222C0A22235320632023636463656433222C0A22234820632023 - 636563666434222C0A22237820632023636664306434222C0A22236F20632023 - 643064316436222C0A22236720632023643164336437222C0A22234220632023 - 643264326434222C0A222E3920632023643364336437222C0A22237220632023 - 643364346435222C0A22235720632023643364346439222C0A22234C20632023 - 643464346434222C0A222E3120632023643464356439222C0A22236B20632023 - 643564356437222C0A222E5320632023643564366461222C0A222E4820632023 - 643664376462222C0A22236220632023643864386439222C0A222E7920632023 - 643864396463222C0A222E3320632023643964396461222C0A222E6E20632023 - 646264626465222C0A222E6D20632023646264636466222C0A222E6920632023 - 646364636463222C0A222E5720632023646364636464222C0A222E6C20632023 - 646364636466222C0A222E6B20632023646364656531222C0A222E4D20632023 - 646464646464222C0A22236120632023646564656465222C0A222E7220632023 - 646664666466222C0A22234D20632023646664666531222C0A222E5620632023 - 653065306530222C0A222E4C20632023653165316531222C0A222E4220632023 - 653165316532222C0A222E6A20632023653365336536222C0A22235820632023 - 653565356538222C0A222E4120632023653965396539222C0A222E7320632023 - 656165616561222C0A22236A20632023656265626562222C0A222E5520632023 - 656365636563222C0A222E6F20632023656365636565222C0A222E4B20632023 - 656665666566222C0A22234120632023663066306630222C0A22517451745174 - 5174517451745174517451745174517451745174517451745174222C0A225174 - 51745174517451742E232E612E622E632E642E652E662E67517451745174222C - 0A2251745174517451742E682E692E6A2E6B2E6C2E6D2E6E2E6F2E7051745174 - 5174222C0A225174517451742E712E722E732E742E752E762E772E782E792E7A - 517451745174222C0A22517451742E712E412E412E422E432E442E452E462E47 - 2E482E49517451745174222C0A22517451742E4A2E4B2E4C2E4D2E4E2E4F2E50 - 2E512E522E532E54517451745174222C0A22517451742E632E552E562E572E58 - 2E472E592E5A2E302E312E32517451745174222C0A22517451742E642E552E72 - 2E332E342E352E362E372E382E39232E517451745174222C0A22517451742323 - 2E55236123622E52236323642365236623672368517451745174222C0A225174 - 51742369236A2E4D236B2E372E38236C236D236E236F2370517451745174222C - 0A225174517423712E732E4D2372237323742375237623772378237951745174 - 5174222C0A2251745174237A23412E5623422343234423452346234723482349 - 517451745174222C0A2251745174234A234B234C234D234E234F235023512352 - 23532354517451745174222C0A2251745174517451742E302355235623572348 - 2353235323582359517451745174222C0A22517451745174517451745174235A - 233023312332233323342335517451745174222C0A2251745174517451745174 - 51745174517451745174517451745174517451745174227D3B0A - } - Transparent = True - end - object imgUsername: TImage - AnchorSideLeft.Control = imgHost - AnchorSideTop.Control = lblUsername - AnchorSideTop.Side = asrCenter - Left = 8 - Height = 16 - Top = 45 - Width = 16 - AutoSize = True - Picture.Data = { - 07545069786D61702E0A00002F2A2058504D202A2F0A73746174696320636861 - 72202A64756D6D795B5D3D7B0A223136203136203132342032222C0A22517420 - 63204E6F6E65222C0A222E3220632023316334366265222C0A222E5820632023 - 316334386263222C0A22233420632023316633643966222C0A22235A20632023 - 316634306130222C0A22236120632023316634396335222C0A222E3320632023 - 316634636334222C0A22235920632023323035306233222C0A22233320632023 - 323134316137222C0A22233220632023323234346162222C0A22233020632023 - 323234356161222C0A22233120632023323234366163222C0A22235520632023 - 323434396231222C0A22233520632023323434666232222C0A222E5120632023 - 323533633661222C0A222E5720632023326433653638222C0A22235220632023 - 333536306266222C0A22236D20632023343235303838222C0A22237820632023 - 343338646666222C0A22236220632023343435343861222C0A22234D20632023 - 346135656134222C0A222E6B20632023346232653133222C0A22237720632023 - 346539376665222C0A22234B20632023353039666666222C0A22234920632023 - 353339636665222C0A22237620632023353339656664222C0A22236A20632023 - 353461306664222C0A22234A20632023353561336666222C0A22234820632023 - 353761326665222C0A22234420632023353836363966222C0A22237520632023 - 353961356665222C0A22236920632023353961386665222C0A22234720632023 - 356161386665222C0A222E6420632023356233333135222C0A22234620632023 - 356261636666222C0A222E7320632023356333333066222C0A22237420632023 - 356461636665222C0A22236820632023356562316665222C0A222E3920632023 - 356662366666222C0A22237120632023363062376666222C0A22235120632023 - 363136313836222C0A22237320632023363162326665222C0A22235320632023 - 363162396665222C0A22235420632023363262396665222C0A22237220632023 - 363362366666222C0A222E3820632023363363306666222C0A22236720632023 - 363462396665222C0A222E4120632023363633623131222C0A22236620632023 - 363862666665222C0A222E3720632023363963396666222C0A222E7A20632023 - 366234353232222C0A22235620632023366436343761222C0A22236520632023 - 366463376665222C0A222E7820632023366534303135222C0A222E6A20632023 - 373133653065222C0A222E7920632023373234343139222C0A222E3620632023 - 373264346666222C0A222E7220632023373534313132222C0A22234C20632023 - 373861656638222C0A22236B20632023376162376666222C0A222E6320632023 - 376434323131222C0A22236C20632023383061396665222C0A22232E20632023 - 383063316666222C0A22237920632023383238666263222C0A22234520632023 - 383462626635222C0A222E7120632023383534633135222C0A222E7420632023 - 383733653063222C0A222E6920632023383734613066222C0A222E6F20632023 - 383734623066222C0A222E7020632023383734623131222C0A222E6220632023 - 386134383066222C0A222E6E20632023386134613066222C0A222E2320632023 - 386434383132222C0A222E6120632023393034623130222C0A222E4A20632023 - 393235623261222C0A222E6820632023393335333131222C0A22237020632023 - 393439656233222C0A222E6520632023393634653131222C0A222E6C20632023 - 393734623066222C0A22236420632023393864316666222C0A222E6720632023 - 393935383132222C0A222E5020632023396136323264222C0A222E6620632023 - 396235383132222C0A222E4220632023396235653166222C0A222E6D20632023 - 396635383132222C0A222E3520632023613465346666222C0A222E4920632023 - 613736383233222C0A222E5220632023613736643334222C0A222E3020632023 - 613837623464222C0A222E5A20632023613937623465222C0A22236320632023 - 616263386663222C0A222E5620632023616537343334222C0A222E7520632023 - 623839373763222C0A222E3120632023633364366633222C0A22232320632023 - 633664376636222C0A22234120632023633737343239222C0A222E7720632023 - 633839633731222C0A22234F20632023636137373261222C0A22235020632023 - 636437393235222C0A22236E20632023636537633238222C0A22235720632023 - 636537653265222C0A22234220632023643137643239222C0A222E4620632023 - 643161393766222C0A22235820632023643361323664222C0A222E5920632023 - 643465326634222C0A222E3420632023643665346636222C0A222E4720632023 - 646662353839222C0A222E7620632023653462373861222C0A222E4520632023 - 653562623865222C0A22236F20632023656162333738222C0A222E4C20632023 - 656163636162222C0A22237A20632023656462383765222C0A22234320632023 - 656562613832222C0A222E4B20632023656563616136222C0A222E4F20632023 - 656563646137222C0A222E4820632023656564666364222C0A22234E20632023 - 656662633833222C0A222E4420632023663163353937222C0A222E5520632023 - 663663666135222C0A222E4D20632023663664306137222C0A222E4E20632023 - 663664306138222C0A222E5420632023663764346166222C0A222E4320632023 - 663765386439222C0A222E5320632023663863633963222C0A22517451745174 - 5174517451745174517451745174517451745174517451745174222C0A225174 - 517451745174517451742E232E612E622E632E6451745174517451745174222C - 0A22517451745174517451742E652E662E672E682E692E6A2E6B517451745174 - 5174222C0A2251745174517451742E6C2E6D2E6E2E6F2E702E712E722E735174 - 517451745174222C0A2251745174517451742E742E752E762E772E782E792E7A - 2E415174517451745174222C0A2251745174517451742E422E432E442E452E46 - 2E472E482E495174517451745174222C0A2251745174517451742E4A2E4B2E4C - 2E4D2E4E2E4C2E4F2E505174517451745174222C0A2251745174517451742E51 - 2E522E532E542E542E552E562E575174517451745174222C0A22517451745174 - 51742E582E592E5A2E302E302E5A2E312E325174517451745174222C0A225174 - 517451742E332E342E352E362E372E382E39232E23232361517451745174222C - 0A225174517423622363236423652366236723682369236A236B236C236D5174 - 5174222C0A225174236E236F2370237123722373237423752376237723782379 - 237A23415174222C0A22517423422343234423452346234723482349234A234B - 234C234D234E234F5174222C0A22517451742350235123522353235423542354 - 2353235323552356235723585174222C0A2251745174517451742359235A2330 - 233123322333233423355174517451745174222C0A2251745174517451745174 - 51745174517451745174517451745174517451745174227D3B0A - } - Transparent = True - end - object imgPassword: TImage - AnchorSideLeft.Control = imgUsername - AnchorSideTop.Control = lblPassword - AnchorSideTop.Side = asrCenter - Left = 8 - Height = 16 - Top = 80 - Width = 16 - AutoSize = True - Picture.Data = { - 07545069786D6170DE0800002F2A2058504D202A2F0A73746174696320636861 - 72202A64756D6D795B5D3D7B0A223136203136203130332032222C0A22517420 - 63204E6F6E65222C0A22236F20632023623238383338222C0A22237620632023 - 623538623339222C0A22234220632023623738643339222C0A22236420632023 - 623838333333222C0A222E4E20632023626138363334222C0A22234820632023 - 626139303361222C0A222E5820632023626238383335222C0A222E3820632023 - 626638623335222C0A22236720632023633138653336222C0A22234B20632023 - 633239353362222C0A22234120632023633838383331222C0A222E6B20632023 - 633839353339222C0A22234720632023633938613332222C0A22236320632023 - 636138613332222C0A22237520632023636138623332222C0A22236E20632023 - 636238623332222C0A22234A20632023636339303333222C0A22234920632023 - 643139363336222C0A222E4420632023643637633239222C0A22236520632023 - 643637643239222C0A222E4D20632023643637663239222C0A222E5720632023 - 643738313262222C0A222E3720632023643738323262222C0A22236620632023 - 643838353263222C0A222E7720632023646139303330222C0A222E7120632023 - 646439383332222C0A222E6A20632023646661313339222C0A222E6620632023 - 646661623432222C0A22234320632023653161633432222C0A222E3420632023 - 653361393365222C0A222E6F20632023653361633432222C0A222E2320632023 - 653362303434222C0A222E4F20632023653362323435222C0A222E4520632023 - 656163343666222C0A222E5020632023656163353736222C0A22237220632023 - 656563353238222C0A22236B20632023656563383238222C0A22232320632023 - 656663393262222C0A222E5620632023656663393332222C0A222E4B20632023 - 656663643334222C0A222E4220632023663063653338222C0A222E3120632023 - 663064323238222C0A22237120632023663164313339222C0A222E4720632023 - 663164313364222C0A22237820632023663164363433222C0A222E5520632023 - 663263653363222C0A222E5220632023663264363339222C0A222E4120632023 - 663264363437222C0A22236120632023663364363364222C0A222E4A20632023 - 663364373530222C0A22232E20632023663364383465222C0A222E7420632023 - 663364613862222C0A22236C20632023663464373431222C0A22236A20632023 - 663464383433222C0A222E3220632023663564343337222C0A22237920632023 - 663564623438222C0A222E5320632023663564623464222C0A222E4820632023 - 663564623564222C0A222E7520632023663564643439222C0A22237A20632023 - 663565313832222C0A22237320632023663664633465222C0A222E4920632023 - 663664663639222C0A222E3320632023663665303833222C0A22234520632023 - 663665313766222C0A222E3020632023663665343762222C0A22236220632023 - 663765313861222C0A22237420632023663765323835222C0A22236D20632023 - 663765323839222C0A222E5420632023663765343635222C0A222E6C20632023 - 663765343765222C0A222E4620632023663765353830222C0A222E7220632023 - 663765353831222C0A222E7A20632023663765353832222C0A22234620632023 - 663765363966222C0A22234420632023663765626334222C0A222E7920632023 - 663865373839222C0A222E6720632023663865373864222C0A222E6D20632023 - 663865393934222C0A222E6E20632023663865396263222C0A222E3920632023 - 663965616162222C0A222E6320632023663965623965222C0A222E6820632023 - 663965636131222C0A222E5120632023666165656163222C0A22236920632023 - 666165656230222C0A22237020632023666165666262222C0A222E4C20632023 - 666265663835222C0A222E5A20632023666266316262222C0A222E7320632023 - 666266316263222C0A222E6420632023666266326265222C0A22237720632023 - 666266346336222C0A222E3520632023666366336130222C0A222E3620632023 - 666366356139222C0A222E4320632023666366356165222C0A222E6220632023 - 666366356365222C0A222E7820632023666366376435222C0A222E6120632023 - 666366386465222C0A222E7620632023666466386331222C0A222E7020632023 - 666566636565222C0A22236820632023666566636630222C0A222E5920632023 - 666566636631222C0A222E6520632023666666666665222C0A222E6920632023 - 666666666666222C0A22517451745174517451745174517451742E232E232E23 - 2E235174517451745174222C0A2251745174517451745174517451742E232E23 - 2E612E612E232E23517451745174222C0A225174517451745174517451742E23 - 2E232E622E632E642E652E232E6651745174222C0A2251745174517451745174 - 2E232E232E622E672E682E232E232E692E6A2E6B5174222C0A22517451745174 - 517451742E232E612E672E6C2E6D2E6E2E232E6F2E702E712E6B222C0A225174 - 51745174517451742E232E642E6C2E6C2E722E6D2E732E742E752E762E77222C - 0A22517451745174517451742E232E782E792E6C2E6C2E6C2E7A2E412E422E43 - 2E44222C0A22517451745174517451742E232E452E462E472E482E492E4A2E4B - 2E4C2E4D2E4E222C0A22517451742E232E232E4F2E502E512E522E532E542E55 - 2E562E4C2E572E585174222C0A22517451742E232E592E5A2E302E312E322E33 - 2E342E352E362E372E3851745174222C0A222E232E232E232E39232E23232361 - 236223632364236523662367517451745174222C0A222E2323682369236A236B - 236C236D236E236F5174517451745174517451745174222C0A222E2323702371 - 2372237323742375237651745174517451745174517451745174222C0A222E23 - 237723782379237A23412342517451745174517451745174517451745174222C - 0A22234323442345234623472348517451745174517451745174517451745174 - 5174222C0A2251742349234A236E234B51745174517451745174517451745174 - 517451745174227D3B0A - } - Transparent = True - end - object edHost: TEdit - AnchorSideLeft.Control = lblUsername - AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = gbConnection - AnchorSideRight.Control = edPort - Left = 98 - Height = 19 - Top = 8 - Width = 143 - Anchors = [akTop, akLeft, akRight] - BorderSpacing.Left = 8 - BorderSpacing.Top = 8 - TabOrder = 0 - Text = 'localhost' - end - object edUsername: TEdit - AnchorSideLeft.Control = edHost - AnchorSideTop.Control = edHost - AnchorSideTop.Side = asrBottom - AnchorSideRight.Control = edPort - AnchorSideRight.Side = asrBottom - Left = 98 - Height = 19 - Top = 44 - Width = 206 - Anchors = [akTop, akLeft, akRight] - BorderSpacing.Top = 17 - TabOrder = 2 - end - object edPassword: TEdit - AnchorSideLeft.Control = edUsername - AnchorSideTop.Control = edUsername - AnchorSideTop.Side = asrBottom - AnchorSideRight.Control = edUsername - AnchorSideRight.Side = asrBottom - Left = 98 - Height = 19 - Top = 79 - Width = 206 - Anchors = [akTop, akLeft, akRight] - BorderSpacing.Top = 16 - BorderSpacing.Bottom = 16 - EchoMode = emPassword - PasswordChar = '*' - TabOrder = 3 - end - object edPort: TSpinEdit - AnchorSideLeft.Control = edHost - AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = edHost - AnchorSideRight.Control = gbConnection - AnchorSideRight.Side = asrBottom - AnchorSideBottom.Control = edHost - AnchorSideBottom.Side = asrBottom - Left = 249 - Height = 19 - Top = 8 - Width = 55 - Anchors = [akTop, akRight, akBottom] - BorderSpacing.Left = 8 - BorderSpacing.Right = 8 - MaxValue = 65565 - MinValue = 1024 - TabOrder = 1 - Value = 2597 - end - end - object gbActions: TGroupBox - AnchorSideLeft.Control = gbConnection - AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = gbConnection - AnchorSideRight.Control = Owner - AnchorSideRight.Side = asrBottom - Left = 330 - Height = 76 - Top = 12 - Width = 143 - Anchors = [akTop, akLeft, akRight] - AutoSize = True - BorderSpacing.Left = 8 - BorderSpacing.Top = 8 - BorderSpacing.Right = 8 - ClientHeight = 74 - ClientWidth = 141 - TabOrder = 2 - object btnOK: TButton - AnchorSideLeft.Control = gbActions - AnchorSideTop.Control = gbActions - AnchorSideRight.Control = gbActions - AnchorSideRight.Side = asrBottom - Left = 8 - Height = 25 - Top = 8 - Width = 125 - BorderSpacing.Around = 8 - BorderSpacing.InnerBorder = 4 - Caption = '&OK' - Default = True - OnClick = btnOKClick - TabOrder = 0 - end - object btnCancel: TButton - AnchorSideLeft.Control = btnOK - AnchorSideTop.Control = btnOK - AnchorSideTop.Side = asrBottom - AnchorSideRight.Control = btnOK - AnchorSideRight.Side = asrBottom - Left = 8 - Height = 25 - Top = 41 - Width = 125 - Anchors = [akTop, akLeft, akRight] - BorderSpacing.Bottom = 8 - BorderSpacing.InnerBorder = 4 - Caption = '&Cancel' - ModalResult = 2 - OnClick = btnCancelClick - TabOrder = 1 - end - end - object gbData: TGroupBox - AnchorSideLeft.Control = gbConnection - AnchorSideTop.Control = gbConnection - AnchorSideTop.Side = asrBottom - AnchorSideRight.Control = gbConnection - AnchorSideRight.Side = asrBottom - Left = 8 - Height = 95 - Top = 136 - Width = 314 - Anchors = [akTop, akLeft, akRight] - AutoSize = True - BorderSpacing.Top = 4 - Caption = 'Data files' - ClientHeight = 81 - ClientWidth = 312 - TabOrder = 1 - object lblData: TLabel - AnchorSideLeft.Control = gbData - AnchorSideTop.Control = gbData - AnchorSideRight.Control = gbData - AnchorSideRight.Side = asrBottom - Left = 8 - Height = 46 - Top = 4 - Width = 296 - Anchors = [akTop, akLeft, akRight] - BorderSpacing.Left = 8 - BorderSpacing.Top = 4 - BorderSpacing.Right = 8 - Caption = 'Select the directory containing art.mul, artidx.mul, hues.mul, tiledata.mul, animdata.mul, texmaps.mul and texidx.mul.' - ParentColor = False - WordWrap = True - end - object edData: TDirectoryEdit - AnchorSideLeft.Control = lblData - AnchorSideTop.Control = lblData - AnchorSideTop.Side = asrBottom - Left = 8 - Height = 19 - Top = 54 - Width = 272 - ShowHidden = False - ButtonWidth = 23 - NumGlyphs = 1 - BorderSpacing.Top = 4 - BorderSpacing.Bottom = 8 - MaxLength = 0 - TabOrder = 0 - end - end - object gbProfiles: TGroupBox - AnchorSideLeft.Control = gbActions - AnchorSideTop.Control = gbActions - AnchorSideTop.Side = asrBottom - AnchorSideRight.Control = gbActions - AnchorSideRight.Side = asrBottom - Left = 330 - Height = 85 - Top = 96 - Width = 143 - Anchors = [akTop, akLeft, akRight] - AutoSize = True - BorderSpacing.Top = 8 - Caption = 'Profiles' - ClientHeight = 71 - ClientWidth = 141 - TabOrder = 3 - object btnSaveProfile: TSpeedButton - AnchorSideTop.Control = btnDeleteProfile - AnchorSideRight.Control = btnDeleteProfile - Left = 81 - Height = 22 - Hint = 'Save profile' - Top = 41 - Width = 22 - Anchors = [akTop, akRight] - BorderSpacing.Right = 8 - Color = clBtnFace - Glyph.Data = { - 36040000424D3604000000000000360000002800000010000000100000000100 - 2000000000000004000064000000640000000000000000000000BA6A36FFB969 - 35FFB86935FFB76835FFB56835FFB46734FFB26634FFB06533FFAE6433FFAC63 - 32FFAA6232FFA96132FFA86031FFA76031FFA66031FFA86131FFBA6A35FFEBC6 - ADFFEAC5ADFFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFB - F8FFFEFBF8FFFEFBF8FFFEFBF8FFC89A7CFFC79879FFA76031FFBA6B37FFEDCA - B3FFE0A27AFFFEFAF7FF62C088FF62C088FF62C088FF62C088FF62C088FF62C0 - 88FF62C088FF62C088FFFDF9F6FFCA8D65FFC99B7CFFA76031FFBB6C38FFEECC - B6FFE1A27AFFFEFAF7FFBFDCC2FFBFDCC2FFBFDCC2FFBFDCC2FFBFDCC2FFBFDC - C2FFBFDCC2FFBFDCC2FFFDF9F6FFCD9068FFCC9E81FFA86132FFBB6B38FFEFCE - B8FFE1A279FFFEFAF7FF62C088FF62C088FF62C088FF62C088FF62C088FF62C0 - 88FF62C088FF62C088FFFDF9F6FFCF936AFFCEA384FFAA6132FFBA6A36FFEFD0 - BBFFE2A27AFFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFB - F8FFFEFBF8FFFEFBF8FFFEFBF8FFD3966DFFD2A78AFFAB6232FFBB6A36FFF0D2 - BEFFE2A37AFFE2A37AFFE1A37AFFE2A37BFFE1A37BFFE0A178FFDE9F77FFDD9F - 76FFDC9D74FFD99B72FFD89971FFD69970FFD5AB8EFFAD6333FFBB6A36FFF2D5 - C2FFE3A37AFFE3A37AFFE2A37BFFE2A37BFFE2A47BFFE1A279FFE0A178FFDEA0 - 77FFDE9E75FFDC9D74FFDA9B73FFD99B73FFDAB095FFAF6433FFBB6A36FFF2D8 - C5FFE3A47BFFE3A37AFFE3A47AFFE2A47BFFE2A37BFFE1A37BFFE1A279FFDFA0 - 77FFDE9F76FFDD9E74FFDB9C72FFDC9D74FFDDB59AFFB16534FFBB6B36FFF4D9 - C7FFE6A67DFFC88C64FFC98D65FFC98E67FFCB926CFFCB926DFFCA9069FFC88C - 65FFC88C64FFC88C64FFC88C64FFDA9C74FFE1BA9FFFB36634FFBB6B36FFF4DC - C9FFE7A77DFFF9ECE1FFF9ECE1FFF9EDE3FFFCF4EEFFFDFAF7FFFDF7F3FFFAED - E5FFF7E7DBFFF7E5D9FFF6E5D8FFDEA077FFE4BEA4FFB46734FFBC6B36FFF5DD - CCFFE7A87EFFFAF0E8FFFAF0E8FFC98D66FFFAF0E9FFFDF8F3FFFEFAF8FFFCF4 - EFFFF9E9DFFFF7E7DBFFF7E5D9FFE0A278FFE7C2A9FFB66835FFBC6B36FFF6DF - D0FFE8A87EFFFCF6F1FFFCF6F1FFC88C64FFFAF1E9FFFBF4EEFFFDFAF7FFFDF9 - F6FFFAF0E8FFF8E8DDFFF7E6DBFFE1A37AFFEFD5C3FFB76935FFBC6B36FFF6DF - D1FFE9AA80FFFEFAF6FFFDFAF6FFC88C64FFFBF3EEFFFBF1EAFFFCF6F2FFFEFB - F8FFFCF6F1FFF9ECE2FFF8E7DBFFEED0BAFFECD0BDFFBB703EFFBC6B36FFF6E0 - D1FFF7E0D1FFFEFBF8FFFEFBF7FFFDF9F6FFFCF5F0FFFAF0EAFFFBF2EDFFFDF9 - F6FFFDFAF7FFFBF1EBFFF8E9DFFFECD0BDFFC9895EFF0000000000000000BC6B - 36FFBC6B36FFBC6B36FFBC6B36FFBB6B36FFBB6B36FFBB6A36FFBB6A36FFBC6C - 39FFBD6E3BFFBB6D3AFFBB6B38FFBB703EFF0000000000000000 - } - NumGlyphs = 0 - OnClick = btnSaveProfileClick - ShowCaption = False - ShowHint = True - ParentShowHint = False - end - object btnDeleteProfile: TSpeedButton - AnchorSideTop.Control = cbProfile - AnchorSideTop.Side = asrBottom - AnchorSideRight.Control = cbProfile - AnchorSideRight.Side = asrBottom - Left = 111 - Height = 22 - Hint = 'Delete profile' - Top = 41 - Width = 22 - Anchors = [akTop, akRight] - BorderSpacing.Top = 8 - BorderSpacing.Bottom = 8 - Color = clBtnFace - Glyph.Data = { - 36040000424D3604000000000000360000002800000010000000100000000100 - 2000000000000004000064000000640000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000004F4CF2FF403EEDFF000000000000000000000000000000000000 - 0000000000002422E4FF312FEAFF000000000000000000000000000000000000 - 00005856F5FF6361FAFF5855F6FF413FEDFF0000000000000000000000000000 - 00002C2AE6FF413FF1FF4C4AF6FF312FEAFF0000000000000000000000000000 - 00005B58F6FF6562FAFF7170FFFF5956F6FF4240EEFF00000000000000003532 - E9FF4745F2FF6362FFFF4A48F4FF2F2DE9FF0000000000000000000000000000 - 0000000000005B59F6FF6663FAFF7471FFFF5A58F6FF4341EEFF3E3CECFF504D - F4FF6867FFFF504EF5FF3634EBFF000000000000000000000000000000000000 - 000000000000000000005C5AF6FF6764FAFF7472FFFF7370FFFF706EFFFF6E6C - FFFF5755F7FF3F3DEEFF00000000000000000000000000000000000000000000 - 00000000000000000000000000005D5BF7FF7976FFFF5956FFFF5754FFFF7270 - FFFF4846F0FF0000000000000000000000000000000000000000000000000000 - 00000000000000000000000000005D5AF6FF7D79FFFF5E5BFFFF5B58FFFF7674 - FFFF4643EFFF0000000000000000000000000000000000000000000000000000 - 000000000000000000006663F9FF706DFBFF807EFFFF7E7BFFFF7C79FFFF7977 - FFFF5E5CF7FF4744EFFF00000000000000000000000000000000000000000000 - 0000000000006E6BFCFF7774FDFF8682FFFF7673FCFF6462F8FF605DF7FF6D6A - FAFF7B79FFFF605DF7FF4845EFFF000000000000000000000000000000000000 - 00007471FEFF7D7AFEFF8A87FFFF7C79FDFF6C69FBFF0000000000000000615E - F8FF6E6CFAFF7D7AFFFF615FF7FF4946F0FF0000000000000000000000000000 - 00007A77FFFF817EFFFF817EFEFF7471FDFF0000000000000000000000000000 - 0000625FF8FF6F6DFBFF7E7CFFFF625FF8FF0000000000000000000000000000 - 0000000000007A77FFFF7976FEFF000000000000000000000000000000000000 - 0000000000006461F8FF6A68F9FF5451F3FF0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000 - } - NumGlyphs = 0 - OnClick = btnDeleteProfileClick - ShowCaption = False - ShowHint = True - ParentShowHint = False - end - object cbProfile: TComboBox - AnchorSideLeft.Control = gbProfiles - AnchorSideTop.Control = gbProfiles - AnchorSideRight.Control = gbProfiles - AnchorSideRight.Side = asrBottom - Left = 8 - Height = 29 - Top = 4 - Width = 125 - Anchors = [akTop, akLeft, akRight] - BorderSpacing.Left = 8 - BorderSpacing.Top = 4 - BorderSpacing.Right = 8 - ItemHeight = 0 - OnChange = cbProfileChange - Style = csDropDownList - TabOrder = 0 - end - end -end +object frmLogin: TfrmLogin + Left = 290 + Height = 266 + Top = 171 + Width = 481 + ActiveControl = btnOK + AutoSize = True + BorderIcons = [biSystemMenu] + BorderStyle = bsDialog + Caption = 'UO CentrED' + ClientHeight = 266 + ClientWidth = 481 + Font.Height = -11 + OnClose = FormClose + OnCreate = FormCreate + Position = poScreenCenter + ShowInTaskBar = stAlways + LCLVersion = '0.9.29' + object lblCopyright: TLabel + AnchorSideLeft.Control = Owner + AnchorSideTop.Control = gbData + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = Owner + AnchorSideBottom.Side = asrBottom + Left = 0 + Height = 19 + Top = 239 + Width = 481 + Alignment = taCenter + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 8 + ParentColor = False + end + object gbConnection: TGroupBox + AnchorSideLeft.Control = Owner + AnchorSideTop.Control = Owner + AnchorSideRight.Control = gbActions + AnchorSideBottom.Side = asrCenter + Left = 8 + Height = 128 + Top = 4 + Width = 314 + Anchors = [akTop, akLeft, akRight] + AutoSize = True + BorderSpacing.Left = 8 + BorderSpacing.Top = 4 + Caption = 'Connection' + ClientHeight = 114 + ClientWidth = 312 + TabOrder = 0 + object lblHost: TLabel + AnchorSideLeft.Control = imgHost + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = edHost + AnchorSideTop.Side = asrCenter + Left = 32 + Height = 14 + Top = 10 + Width = 28 + BorderSpacing.Left = 8 + Caption = 'Host:' + ParentColor = False + end + object lblUsername: TLabel + AnchorSideLeft.Control = imgUsername + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = edUsername + AnchorSideTop.Side = asrCenter + Left = 32 + Height = 14 + Top = 46 + Width = 58 + BorderSpacing.Left = 8 + Caption = 'Username:' + ParentColor = False + end + object lblPassword: TLabel + AnchorSideLeft.Control = imgPassword + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = edPassword + AnchorSideTop.Side = asrCenter + Left = 32 + Height = 14 + Top = 81 + Width = 54 + BorderSpacing.Left = 8 + Caption = 'Password:' + ParentColor = False + end + object imgHost: TImage + AnchorSideLeft.Control = gbConnection + AnchorSideTop.Control = lblHost + AnchorSideTop.Side = asrCenter + Left = 8 + Height = 16 + Top = 9 + Width = 16 + AutoSize = True + BorderSpacing.Left = 8 + Picture.Data = { + 07545069786D61702E0A00002F2A2058504D202A2F0A73746174696320636861 + 72202A64756D6D795B5D3D7B0A223136203136203132342032222C0A22517420 + 63204E6F6E65222C0A22236E20632023333739343337222C0A22236D20632023 + 343261313362222C0A22236620632023353661393530222C0A22233520632023 + 363036303630222C0A22233420632023363336333633222C0A22235920632023 + 363436343634222C0A22233320632023363736373637222C0A22235420632023 + 363836383638222C0A22233220632023366236623662222C0A22234920632023 + 366436643664222C0A22233120632023373037303730222C0A22237920632023 + 373337333733222C0A22233020632023373437343734222C0A22237020632023 + 373837383738222C0A22235A20632023373937393739222C0A22236820632023 + 376537653765222C0A22232E20632023383438343834222C0A222E3020632023 + 386138613861222C0A222E3220632023386238623862222C0A222E5A20632023 + 386438643864222C0A222E5920632023386638663866222C0A222E5420632023 + 393139313931222C0A222E4720632023393139313932222C0A222E4620632023 + 393339333934222C0A222E4520632023393539353936222C0A222E4420632023 + 393739373938222C0A222E4920632023393839383938222C0A22234A20632023 + 396239623962222C0A222E7A20632023396539653965222C0A22237A20632023 + 613261326132222C0A22235520632023613361336133222C0A22236520632023 + 613463386130222C0A222E7020632023613561356135222C0A22237120632023 + 613861386138222C0A222E6720632023616261626162222C0A22235220632023 + 616561666237222C0A22235120632023616562316239222C0A22236920632023 + 616661666166222C0A22234720632023616662316239222C0A222E6620632023 + 623062306230222C0A22235020632023623062316239222C0A22234620632023 + 623162326261222C0A22237720632023623162336262222C0A22234520632023 + 623262346262222C0A22234B20632023623362336233222C0A22237620632023 + 623362346262222C0A22234F20632023623362356264222C0A22234420632023 + 623462356263222C0A22237520632023623462366264222C0A22232320632023 + 623562356235222C0A22234320632023623562366265222C0A222E6520632023 + 623662366236222C0A22237420632023623662376265222C0A22236C20632023 + 623662386265222C0A22237320632023623762396330222C0A222E3820632023 + 623862396330222C0A22236420632023623962616331222C0A222E3720632023 + 623962626331222C0A22236320632023626162626332222C0A222E6420632023 + 626262626262222C0A222E3620632023626262636333222C0A222E5220632023 + 626262646333222C0A222E3520632023626362656334222C0A22234E20632023 + 626462666335222C0A222E5120632023626562666335222C0A222E3420632023 + 626562666336222C0A222E5020632023626663316336222C0A222E6320632023 + 633063306330222C0A222E5820632023633063316337222C0A222E7820632023 + 633163316337222C0A222E4F20632023633163326338222C0A222E7720632023 + 633163336338222C0A222E4E20632023633263336338222C0A222E7620632023 + 633363346361222C0A222E6220632023633463346334222C0A22235620632023 + 633463356336222C0A222E4320632023633463366362222C0A222E7520632023 + 633563366362222C0A222E4A20632023633663366336222C0A222E6120632023 + 633963396339222C0A222E7420632023633963616366222C0A222E7120632023 + 636263626362222C0A222E6820632023636363636363222C0A222E2320632023 + 636463646364222C0A22235320632023636463656433222C0A22234820632023 + 636563666434222C0A22237820632023636664306434222C0A22236F20632023 + 643064316436222C0A22236720632023643164336437222C0A22234220632023 + 643264326434222C0A222E3920632023643364336437222C0A22237220632023 + 643364346435222C0A22235720632023643364346439222C0A22234C20632023 + 643464346434222C0A222E3120632023643464356439222C0A22236B20632023 + 643564356437222C0A222E5320632023643564366461222C0A222E4820632023 + 643664376462222C0A22236220632023643864386439222C0A222E7920632023 + 643864396463222C0A222E3320632023643964396461222C0A222E6E20632023 + 646264626465222C0A222E6D20632023646264636466222C0A222E6920632023 + 646364636463222C0A222E5720632023646364636464222C0A222E6C20632023 + 646364636466222C0A222E6B20632023646364656531222C0A222E4D20632023 + 646464646464222C0A22236120632023646564656465222C0A222E7220632023 + 646664666466222C0A22234D20632023646664666531222C0A222E5620632023 + 653065306530222C0A222E4C20632023653165316531222C0A222E4220632023 + 653165316532222C0A222E6A20632023653365336536222C0A22235820632023 + 653565356538222C0A222E4120632023653965396539222C0A222E7320632023 + 656165616561222C0A22236A20632023656265626562222C0A222E5520632023 + 656365636563222C0A222E6F20632023656365636565222C0A222E4B20632023 + 656665666566222C0A22234120632023663066306630222C0A22517451745174 + 5174517451745174517451745174517451745174517451745174222C0A225174 + 51745174517451742E232E612E622E632E642E652E662E67517451745174222C + 0A2251745174517451742E682E692E6A2E6B2E6C2E6D2E6E2E6F2E7051745174 + 5174222C0A225174517451742E712E722E732E742E752E762E772E782E792E7A + 517451745174222C0A22517451742E712E412E412E422E432E442E452E462E47 + 2E482E49517451745174222C0A22517451742E4A2E4B2E4C2E4D2E4E2E4F2E50 + 2E512E522E532E54517451745174222C0A22517451742E632E552E562E572E58 + 2E472E592E5A2E302E312E32517451745174222C0A22517451742E642E552E72 + 2E332E342E352E362E372E382E39232E517451745174222C0A22517451742323 + 2E55236123622E52236323642365236623672368517451745174222C0A225174 + 51742369236A2E4D236B2E372E38236C236D236E236F2370517451745174222C + 0A225174517423712E732E4D2372237323742375237623772378237951745174 + 5174222C0A2251745174237A23412E5623422343234423452346234723482349 + 517451745174222C0A2251745174234A234B234C234D234E234F235023512352 + 23532354517451745174222C0A2251745174517451742E302355235623572348 + 2353235323582359517451745174222C0A22517451745174517451745174235A + 233023312332233323342335517451745174222C0A2251745174517451745174 + 51745174517451745174517451745174517451745174227D3B0A + } + Transparent = True + end + object imgUsername: TImage + AnchorSideLeft.Control = imgHost + AnchorSideTop.Control = lblUsername + AnchorSideTop.Side = asrCenter + Left = 8 + Height = 16 + Top = 45 + Width = 16 + AutoSize = True + Picture.Data = { + 07545069786D61702E0A00002F2A2058504D202A2F0A73746174696320636861 + 72202A64756D6D795B5D3D7B0A223136203136203132342032222C0A22517420 + 63204E6F6E65222C0A222E3220632023316334366265222C0A222E5820632023 + 316334386263222C0A22233420632023316633643966222C0A22235A20632023 + 316634306130222C0A22236120632023316634396335222C0A222E3320632023 + 316634636334222C0A22235920632023323035306233222C0A22233320632023 + 323134316137222C0A22233220632023323234346162222C0A22233020632023 + 323234356161222C0A22233120632023323234366163222C0A22235520632023 + 323434396231222C0A22233520632023323434666232222C0A222E5120632023 + 323533633661222C0A222E5720632023326433653638222C0A22235220632023 + 333536306266222C0A22236D20632023343235303838222C0A22237820632023 + 343338646666222C0A22236220632023343435343861222C0A22234D20632023 + 346135656134222C0A222E6B20632023346232653133222C0A22237720632023 + 346539376665222C0A22234B20632023353039666666222C0A22234920632023 + 353339636665222C0A22237620632023353339656664222C0A22236A20632023 + 353461306664222C0A22234A20632023353561336666222C0A22234820632023 + 353761326665222C0A22234420632023353836363966222C0A22237520632023 + 353961356665222C0A22236920632023353961386665222C0A22234720632023 + 356161386665222C0A222E6420632023356233333135222C0A22234620632023 + 356261636666222C0A222E7320632023356333333066222C0A22237420632023 + 356461636665222C0A22236820632023356562316665222C0A222E3920632023 + 356662366666222C0A22237120632023363062376666222C0A22235120632023 + 363136313836222C0A22237320632023363162326665222C0A22235320632023 + 363162396665222C0A22235420632023363262396665222C0A22237220632023 + 363362366666222C0A222E3820632023363363306666222C0A22236720632023 + 363462396665222C0A222E4120632023363633623131222C0A22236620632023 + 363862666665222C0A222E3720632023363963396666222C0A222E7A20632023 + 366234353232222C0A22235620632023366436343761222C0A22236520632023 + 366463376665222C0A222E7820632023366534303135222C0A222E6A20632023 + 373133653065222C0A222E7920632023373234343139222C0A222E3620632023 + 373264346666222C0A222E7220632023373534313132222C0A22234C20632023 + 373861656638222C0A22236B20632023376162376666222C0A222E6320632023 + 376434323131222C0A22236C20632023383061396665222C0A22232E20632023 + 383063316666222C0A22237920632023383238666263222C0A22234520632023 + 383462626635222C0A222E7120632023383534633135222C0A222E7420632023 + 383733653063222C0A222E6920632023383734613066222C0A222E6F20632023 + 383734623066222C0A222E7020632023383734623131222C0A222E6220632023 + 386134383066222C0A222E6E20632023386134613066222C0A222E2320632023 + 386434383132222C0A222E6120632023393034623130222C0A222E4A20632023 + 393235623261222C0A222E6820632023393335333131222C0A22237020632023 + 393439656233222C0A222E6520632023393634653131222C0A222E6C20632023 + 393734623066222C0A22236420632023393864316666222C0A222E6720632023 + 393935383132222C0A222E5020632023396136323264222C0A222E6620632023 + 396235383132222C0A222E4220632023396235653166222C0A222E6D20632023 + 396635383132222C0A222E3520632023613465346666222C0A222E4920632023 + 613736383233222C0A222E5220632023613736643334222C0A222E3020632023 + 613837623464222C0A222E5A20632023613937623465222C0A22236320632023 + 616263386663222C0A222E5620632023616537343334222C0A222E7520632023 + 623839373763222C0A222E3120632023633364366633222C0A22232320632023 + 633664376636222C0A22234120632023633737343239222C0A222E7720632023 + 633839633731222C0A22234F20632023636137373261222C0A22235020632023 + 636437393235222C0A22236E20632023636537633238222C0A22235720632023 + 636537653265222C0A22234220632023643137643239222C0A222E4620632023 + 643161393766222C0A22235820632023643361323664222C0A222E5920632023 + 643465326634222C0A222E3420632023643665346636222C0A222E4720632023 + 646662353839222C0A222E7620632023653462373861222C0A222E4520632023 + 653562623865222C0A22236F20632023656162333738222C0A222E4C20632023 + 656163636162222C0A22237A20632023656462383765222C0A22234320632023 + 656562613832222C0A222E4B20632023656563616136222C0A222E4F20632023 + 656563646137222C0A222E4820632023656564666364222C0A22234E20632023 + 656662633833222C0A222E4420632023663163353937222C0A222E5520632023 + 663663666135222C0A222E4D20632023663664306137222C0A222E4E20632023 + 663664306138222C0A222E5420632023663764346166222C0A222E4320632023 + 663765386439222C0A222E5320632023663863633963222C0A22517451745174 + 5174517451745174517451745174517451745174517451745174222C0A225174 + 517451745174517451742E232E612E622E632E6451745174517451745174222C + 0A22517451745174517451742E652E662E672E682E692E6A2E6B517451745174 + 5174222C0A2251745174517451742E6C2E6D2E6E2E6F2E702E712E722E735174 + 517451745174222C0A2251745174517451742E742E752E762E772E782E792E7A + 2E415174517451745174222C0A2251745174517451742E422E432E442E452E46 + 2E472E482E495174517451745174222C0A2251745174517451742E4A2E4B2E4C + 2E4D2E4E2E4C2E4F2E505174517451745174222C0A2251745174517451742E51 + 2E522E532E542E542E552E562E575174517451745174222C0A22517451745174 + 51742E582E592E5A2E302E302E5A2E312E325174517451745174222C0A225174 + 517451742E332E342E352E362E372E382E39232E23232361517451745174222C + 0A225174517423622363236423652366236723682369236A236B236C236D5174 + 5174222C0A225174236E236F2370237123722373237423752376237723782379 + 237A23415174222C0A22517423422343234423452346234723482349234A234B + 234C234D234E234F5174222C0A22517451742350235123522353235423542354 + 2353235323552356235723585174222C0A2251745174517451742359235A2330 + 233123322333233423355174517451745174222C0A2251745174517451745174 + 51745174517451745174517451745174517451745174227D3B0A + } + Transparent = True + end + object imgPassword: TImage + AnchorSideLeft.Control = imgUsername + AnchorSideTop.Control = lblPassword + AnchorSideTop.Side = asrCenter + Left = 8 + Height = 16 + Top = 80 + Width = 16 + AutoSize = True + Picture.Data = { + 07545069786D6170DE0800002F2A2058504D202A2F0A73746174696320636861 + 72202A64756D6D795B5D3D7B0A223136203136203130332032222C0A22517420 + 63204E6F6E65222C0A22236F20632023623238383338222C0A22237620632023 + 623538623339222C0A22234220632023623738643339222C0A22236420632023 + 623838333333222C0A222E4E20632023626138363334222C0A22234820632023 + 626139303361222C0A222E5820632023626238383335222C0A222E3820632023 + 626638623335222C0A22236720632023633138653336222C0A22234B20632023 + 633239353362222C0A22234120632023633838383331222C0A222E6B20632023 + 633839353339222C0A22234720632023633938613332222C0A22236320632023 + 636138613332222C0A22237520632023636138623332222C0A22236E20632023 + 636238623332222C0A22234A20632023636339303333222C0A22234920632023 + 643139363336222C0A222E4420632023643637633239222C0A22236520632023 + 643637643239222C0A222E4D20632023643637663239222C0A222E5720632023 + 643738313262222C0A222E3720632023643738323262222C0A22236620632023 + 643838353263222C0A222E7720632023646139303330222C0A222E7120632023 + 646439383332222C0A222E6A20632023646661313339222C0A222E6620632023 + 646661623432222C0A22234320632023653161633432222C0A222E3420632023 + 653361393365222C0A222E6F20632023653361633432222C0A222E2320632023 + 653362303434222C0A222E4F20632023653362323435222C0A222E4520632023 + 656163343666222C0A222E5020632023656163353736222C0A22237220632023 + 656563353238222C0A22236B20632023656563383238222C0A22232320632023 + 656663393262222C0A222E5620632023656663393332222C0A222E4B20632023 + 656663643334222C0A222E4220632023663063653338222C0A222E3120632023 + 663064323238222C0A22237120632023663164313339222C0A222E4720632023 + 663164313364222C0A22237820632023663164363433222C0A222E5520632023 + 663263653363222C0A222E5220632023663264363339222C0A222E4120632023 + 663264363437222C0A22236120632023663364363364222C0A222E4A20632023 + 663364373530222C0A22232E20632023663364383465222C0A222E7420632023 + 663364613862222C0A22236C20632023663464373431222C0A22236A20632023 + 663464383433222C0A222E3220632023663564343337222C0A22237920632023 + 663564623438222C0A222E5320632023663564623464222C0A222E4820632023 + 663564623564222C0A222E7520632023663564643439222C0A22237A20632023 + 663565313832222C0A22237320632023663664633465222C0A222E4920632023 + 663664663639222C0A222E3320632023663665303833222C0A22234520632023 + 663665313766222C0A222E3020632023663665343762222C0A22236220632023 + 663765313861222C0A22237420632023663765323835222C0A22236D20632023 + 663765323839222C0A222E5420632023663765343635222C0A222E6C20632023 + 663765343765222C0A222E4620632023663765353830222C0A222E7220632023 + 663765353831222C0A222E7A20632023663765353832222C0A22234620632023 + 663765363966222C0A22234420632023663765626334222C0A222E7920632023 + 663865373839222C0A222E6720632023663865373864222C0A222E6D20632023 + 663865393934222C0A222E6E20632023663865396263222C0A222E3920632023 + 663965616162222C0A222E6320632023663965623965222C0A222E6820632023 + 663965636131222C0A222E5120632023666165656163222C0A22236920632023 + 666165656230222C0A22237020632023666165666262222C0A222E4C20632023 + 666265663835222C0A222E5A20632023666266316262222C0A222E7320632023 + 666266316263222C0A222E6420632023666266326265222C0A22237720632023 + 666266346336222C0A222E3520632023666366336130222C0A222E3620632023 + 666366356139222C0A222E4320632023666366356165222C0A222E6220632023 + 666366356365222C0A222E7820632023666366376435222C0A222E6120632023 + 666366386465222C0A222E7620632023666466386331222C0A222E7020632023 + 666566636565222C0A22236820632023666566636630222C0A222E5920632023 + 666566636631222C0A222E6520632023666666666665222C0A222E6920632023 + 666666666666222C0A22517451745174517451745174517451742E232E232E23 + 2E235174517451745174222C0A2251745174517451745174517451742E232E23 + 2E612E612E232E23517451745174222C0A225174517451745174517451742E23 + 2E232E622E632E642E652E232E6651745174222C0A2251745174517451745174 + 2E232E232E622E672E682E232E232E692E6A2E6B5174222C0A22517451745174 + 517451742E232E612E672E6C2E6D2E6E2E232E6F2E702E712E6B222C0A225174 + 51745174517451742E232E642E6C2E6C2E722E6D2E732E742E752E762E77222C + 0A22517451745174517451742E232E782E792E6C2E6C2E6C2E7A2E412E422E43 + 2E44222C0A22517451745174517451742E232E452E462E472E482E492E4A2E4B + 2E4C2E4D2E4E222C0A22517451742E232E232E4F2E502E512E522E532E542E55 + 2E562E4C2E572E585174222C0A22517451742E232E592E5A2E302E312E322E33 + 2E342E352E362E372E3851745174222C0A222E232E232E232E39232E23232361 + 236223632364236523662367517451745174222C0A222E2323682369236A236B + 236C236D236E236F5174517451745174517451745174222C0A222E2323702371 + 2372237323742375237651745174517451745174517451745174222C0A222E23 + 237723782379237A23412342517451745174517451745174517451745174222C + 0A22234323442345234623472348517451745174517451745174517451745174 + 5174222C0A2251742349234A236E234B51745174517451745174517451745174 + 517451745174227D3B0A + } + Transparent = True + end + object edHost: TEdit + AnchorSideLeft.Control = lblUsername + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = gbConnection + AnchorSideRight.Control = edPort + Left = 98 + Height = 19 + Top = 8 + Width = 143 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Left = 8 + BorderSpacing.Top = 8 + TabOrder = 0 + Text = 'localhost' + end + object edUsername: TEdit + AnchorSideLeft.Control = edHost + AnchorSideTop.Control = edHost + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = edPort + AnchorSideRight.Side = asrBottom + Left = 98 + Height = 19 + Top = 44 + Width = 206 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 17 + TabOrder = 2 + end + object edPassword: TEdit + AnchorSideLeft.Control = edUsername + AnchorSideTop.Control = edUsername + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = edUsername + AnchorSideRight.Side = asrBottom + Left = 98 + Height = 19 + Top = 79 + Width = 206 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 16 + BorderSpacing.Bottom = 16 + EchoMode = emPassword + PasswordChar = '*' + TabOrder = 3 + end + object edPort: TSpinEdit + AnchorSideLeft.Control = edHost + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = edHost + AnchorSideRight.Control = gbConnection + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = edHost + AnchorSideBottom.Side = asrBottom + Left = 249 + Height = 19 + Top = 8 + Width = 55 + Anchors = [akTop, akRight, akBottom] + BorderSpacing.Left = 8 + BorderSpacing.Right = 8 + MaxValue = 65565 + MinValue = 1024 + TabOrder = 1 + Value = 2597 + end + end + object gbActions: TGroupBox + AnchorSideLeft.Control = gbConnection + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = gbConnection + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom + Left = 330 + Height = 78 + Top = 12 + Width = 143 + Anchors = [akTop, akLeft, akRight] + AutoSize = True + BorderSpacing.Left = 8 + BorderSpacing.Top = 8 + BorderSpacing.Right = 8 + ClientHeight = 76 + ClientWidth = 141 + TabOrder = 2 + object btnOK: TButton + AnchorSideLeft.Control = gbActions + AnchorSideTop.Control = gbActions + AnchorSideRight.Control = gbActions + AnchorSideRight.Side = asrBottom + Left = 8 + Height = 25 + Top = 8 + Width = 125 + BorderSpacing.Around = 8 + BorderSpacing.InnerBorder = 4 + Caption = '&OK' + Default = True + OnClick = btnOKClick + TabOrder = 0 + end + object btnCancel: TButton + AnchorSideLeft.Control = btnOK + AnchorSideTop.Control = btnOK + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = btnOK + AnchorSideRight.Side = asrBottom + Left = 8 + Height = 25 + Top = 41 + Width = 125 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Bottom = 8 + BorderSpacing.InnerBorder = 4 + Caption = '&Cancel' + ModalResult = 2 + OnClick = btnCancelClick + TabOrder = 1 + end + end + object gbData: TGroupBox + AnchorSideLeft.Control = gbConnection + AnchorSideTop.Control = gbConnection + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = gbConnection + AnchorSideRight.Side = asrBottom + Left = 8 + Height = 95 + Top = 136 + Width = 314 + Anchors = [akTop, akLeft, akRight] + AutoSize = True + BorderSpacing.Top = 4 + Caption = 'Data files' + ClientHeight = 81 + ClientWidth = 312 + TabOrder = 1 + object lblData: TLabel + AnchorSideLeft.Control = gbData + AnchorSideTop.Control = gbData + AnchorSideRight.Control = gbData + AnchorSideRight.Side = asrBottom + Left = 8 + Height = 46 + Top = 4 + Width = 296 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Left = 8 + BorderSpacing.Top = 4 + BorderSpacing.Right = 8 + Caption = 'Select the directory containing art.mul, artidx.mul, hues.mul, tiledata.mul, animdata.mul, texmaps.mul, texidx.mul, light.mul and lightidx.mul.' + ParentColor = False + WordWrap = True + end + object edData: TDirectoryEdit + AnchorSideLeft.Control = lblData + AnchorSideTop.Control = lblData + AnchorSideTop.Side = asrBottom + Left = 8 + Height = 19 + Top = 54 + Width = 272 + ShowHidden = False + ButtonWidth = 23 + NumGlyphs = 1 + BorderSpacing.Top = 4 + BorderSpacing.Bottom = 8 + MaxLength = 0 + TabOrder = 0 + end + end + object gbProfiles: TGroupBox + AnchorSideLeft.Control = gbActions + AnchorSideTop.Control = gbActions + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = gbActions + AnchorSideRight.Side = asrBottom + Left = 330 + Height = 85 + Top = 98 + Width = 143 + Anchors = [akTop, akLeft, akRight] + AutoSize = True + BorderSpacing.Top = 8 + Caption = 'Profiles' + ClientHeight = 71 + ClientWidth = 141 + TabOrder = 3 + object btnSaveProfile: TSpeedButton + AnchorSideTop.Control = btnDeleteProfile + AnchorSideRight.Control = btnDeleteProfile + Left = 81 + Height = 22 + Hint = 'Save profile' + Top = 41 + Width = 22 + Anchors = [akTop, akRight] + BorderSpacing.Right = 8 + Color = clBtnFace + Glyph.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000BA6A36FFB969 + 35FFB86935FFB76835FFB56835FFB46734FFB26634FFB06533FFAE6433FFAC63 + 32FFAA6232FFA96132FFA86031FFA76031FFA66031FFA86131FFBA6A35FFEBC6 + ADFFEAC5ADFFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFB + F8FFFEFBF8FFFEFBF8FFFEFBF8FFC89A7CFFC79879FFA76031FFBA6B37FFEDCA + B3FFE0A27AFFFEFAF7FF62C088FF62C088FF62C088FF62C088FF62C088FF62C0 + 88FF62C088FF62C088FFFDF9F6FFCA8D65FFC99B7CFFA76031FFBB6C38FFEECC + B6FFE1A27AFFFEFAF7FFBFDCC2FFBFDCC2FFBFDCC2FFBFDCC2FFBFDCC2FFBFDC + C2FFBFDCC2FFBFDCC2FFFDF9F6FFCD9068FFCC9E81FFA86132FFBB6B38FFEFCE + B8FFE1A279FFFEFAF7FF62C088FF62C088FF62C088FF62C088FF62C088FF62C0 + 88FF62C088FF62C088FFFDF9F6FFCF936AFFCEA384FFAA6132FFBA6A36FFEFD0 + BBFFE2A27AFFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFB + F8FFFEFBF8FFFEFBF8FFFEFBF8FFD3966DFFD2A78AFFAB6232FFBB6A36FFF0D2 + BEFFE2A37AFFE2A37AFFE1A37AFFE2A37BFFE1A37BFFE0A178FFDE9F77FFDD9F + 76FFDC9D74FFD99B72FFD89971FFD69970FFD5AB8EFFAD6333FFBB6A36FFF2D5 + C2FFE3A37AFFE3A37AFFE2A37BFFE2A37BFFE2A47BFFE1A279FFE0A178FFDEA0 + 77FFDE9E75FFDC9D74FFDA9B73FFD99B73FFDAB095FFAF6433FFBB6A36FFF2D8 + C5FFE3A47BFFE3A37AFFE3A47AFFE2A47BFFE2A37BFFE1A37BFFE1A279FFDFA0 + 77FFDE9F76FFDD9E74FFDB9C72FFDC9D74FFDDB59AFFB16534FFBB6B36FFF4D9 + C7FFE6A67DFFC88C64FFC98D65FFC98E67FFCB926CFFCB926DFFCA9069FFC88C + 65FFC88C64FFC88C64FFC88C64FFDA9C74FFE1BA9FFFB36634FFBB6B36FFF4DC + C9FFE7A77DFFF9ECE1FFF9ECE1FFF9EDE3FFFCF4EEFFFDFAF7FFFDF7F3FFFAED + E5FFF7E7DBFFF7E5D9FFF6E5D8FFDEA077FFE4BEA4FFB46734FFBC6B36FFF5DD + CCFFE7A87EFFFAF0E8FFFAF0E8FFC98D66FFFAF0E9FFFDF8F3FFFEFAF8FFFCF4 + EFFFF9E9DFFFF7E7DBFFF7E5D9FFE0A278FFE7C2A9FFB66835FFBC6B36FFF6DF + D0FFE8A87EFFFCF6F1FFFCF6F1FFC88C64FFFAF1E9FFFBF4EEFFFDFAF7FFFDF9 + F6FFFAF0E8FFF8E8DDFFF7E6DBFFE1A37AFFEFD5C3FFB76935FFBC6B36FFF6DF + D1FFE9AA80FFFEFAF6FFFDFAF6FFC88C64FFFBF3EEFFFBF1EAFFFCF6F2FFFEFB + F8FFFCF6F1FFF9ECE2FFF8E7DBFFEED0BAFFECD0BDFFBB703EFFBC6B36FFF6E0 + D1FFF7E0D1FFFEFBF8FFFEFBF7FFFDF9F6FFFCF5F0FFFAF0EAFFFBF2EDFFFDF9 + F6FFFDFAF7FFFBF1EBFFF8E9DFFFECD0BDFFC9895EFF0000000000000000BC6B + 36FFBC6B36FFBC6B36FFBC6B36FFBB6B36FFBB6B36FFBB6A36FFBB6A36FFBC6C + 39FFBD6E3BFFBB6D3AFFBB6B38FFBB703EFF0000000000000000 + } + NumGlyphs = 0 + OnClick = btnSaveProfileClick + ShowCaption = False + ShowHint = True + ParentShowHint = False + end + object btnDeleteProfile: TSpeedButton + AnchorSideTop.Control = cbProfile + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = cbProfile + AnchorSideRight.Side = asrBottom + Left = 111 + Height = 22 + Hint = 'Delete profile' + Top = 41 + Width = 22 + Anchors = [akTop, akRight] + BorderSpacing.Top = 8 + BorderSpacing.Bottom = 8 + Color = clBtnFace + Glyph.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004F4CF2FF403EEDFF000000000000000000000000000000000000 + 0000000000002422E4FF312FEAFF000000000000000000000000000000000000 + 00005856F5FF6361FAFF5855F6FF413FEDFF0000000000000000000000000000 + 00002C2AE6FF413FF1FF4C4AF6FF312FEAFF0000000000000000000000000000 + 00005B58F6FF6562FAFF7170FFFF5956F6FF4240EEFF00000000000000003532 + E9FF4745F2FF6362FFFF4A48F4FF2F2DE9FF0000000000000000000000000000 + 0000000000005B59F6FF6663FAFF7471FFFF5A58F6FF4341EEFF3E3CECFF504D + F4FF6867FFFF504EF5FF3634EBFF000000000000000000000000000000000000 + 000000000000000000005C5AF6FF6764FAFF7472FFFF7370FFFF706EFFFF6E6C + FFFF5755F7FF3F3DEEFF00000000000000000000000000000000000000000000 + 00000000000000000000000000005D5BF7FF7976FFFF5956FFFF5754FFFF7270 + FFFF4846F0FF0000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005D5AF6FF7D79FFFF5E5BFFFF5B58FFFF7674 + FFFF4643EFFF0000000000000000000000000000000000000000000000000000 + 000000000000000000006663F9FF706DFBFF807EFFFF7E7BFFFF7C79FFFF7977 + FFFF5E5CF7FF4744EFFF00000000000000000000000000000000000000000000 + 0000000000006E6BFCFF7774FDFF8682FFFF7673FCFF6462F8FF605DF7FF6D6A + FAFF7B79FFFF605DF7FF4845EFFF000000000000000000000000000000000000 + 00007471FEFF7D7AFEFF8A87FFFF7C79FDFF6C69FBFF0000000000000000615E + F8FF6E6CFAFF7D7AFFFF615FF7FF4946F0FF0000000000000000000000000000 + 00007A77FFFF817EFFFF817EFEFF7471FDFF0000000000000000000000000000 + 0000625FF8FF6F6DFBFF7E7CFFFF625FF8FF0000000000000000000000000000 + 0000000000007A77FFFF7976FEFF000000000000000000000000000000000000 + 0000000000006461F8FF6A68F9FF5451F3FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000 + } + NumGlyphs = 0 + OnClick = btnDeleteProfileClick + ShowCaption = False + ShowHint = True + ParentShowHint = False + end + object cbProfile: TComboBox + AnchorSideLeft.Control = gbProfiles + AnchorSideTop.Control = gbProfiles + AnchorSideRight.Control = gbProfiles + AnchorSideRight.Side = asrBottom + Left = 8 + Height = 29 + Top = 4 + Width = 125 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Left = 8 + BorderSpacing.Top = 4 + BorderSpacing.Right = 8 + ItemHeight = 0 + OnChange = cbProfileChange + Style = csDropDownList + TabOrder = 0 + end + end +end diff --git a/Client/UfrmLogin.pas b/Client/UfrmLogin.pas index 1b63380..812077d 100644 --- a/Client/UfrmLogin.pas +++ b/Client/UfrmLogin.pas @@ -1,190 +1,192 @@ -(* - * CDDL HEADER START - * - * The contents of this file are subject to the terms of the - * Common Development and Distribution License, Version 1.0 only - * (the "License"). You may not use this file except in compliance - * with the License. - * - * You can obtain a copy of the license at - * http://www.opensource.org/licenses/cddl1.php. - * See the License for the specific language governing permissions - * and limitations under the License. - * - * When distributing Covered Code, include this CDDL HEADER in each - * file and include the License file at - * http://www.opensource.org/licenses/cddl1.php. If applicable, - * add the following below this CDDL HEADER, with the fields enclosed - * by brackets "[]" replaced with your own identifying * information: - * Portions Copyright [yyyy] [name of copyright owner] - * - * CDDL HEADER END - * - * - * Portions Copyright 2009 Andreas Schneider - *) -unit UfrmLogin; - -{$mode objfpc}{$H+} - -interface - -uses - Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, - ExtCtrls, Spin, EditBtn, Buttons, IniFiles; - -type - - { TfrmLogin } - - TfrmLogin = class(TForm) - btnOK: TButton; - btnCancel: TButton; - cbProfile: TComboBox; - edData: TDirectoryEdit; - edHost: TEdit; - edUsername: TEdit; - edPassword: TEdit; - gbConnection: TGroupBox; - gbData: TGroupBox; - gbActions: TGroupBox; - gbProfiles: TGroupBox; - imgHost: TImage; - imgUsername: TImage; - imgPassword: TImage; - lblCopyright: TLabel; - lblHost: TLabel; - lblUsername: TLabel; - lblPassword: TLabel; - edPort: TSpinEdit; - lblData: TLabel; - btnSaveProfile: TSpeedButton; - btnDeleteProfile: TSpeedButton; - procedure btnCancelClick(Sender: TObject); - procedure btnDeleteProfileClick(Sender: TObject); - procedure btnOKClick(Sender: TObject); - procedure btnSaveProfileClick(Sender: TObject); - procedure cbProfileChange(Sender: TObject); - procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); - procedure FormCreate(Sender: TObject); - protected - FProfilePath: string; - public - { public declarations } - end; - -var - frmLogin: TfrmLogin; - -implementation - -uses - UdmNetwork; - -{$I version.inc} - -{ TfrmLogin } - -procedure TfrmLogin.btnCancelClick(Sender: TObject); -begin - Close; -end; - -procedure TfrmLogin.btnDeleteProfileClick(Sender: TObject); -begin - if cbProfile.ItemIndex > -1 then - begin - DeleteFile(FProfilePath + cbProfile.Text + '.ini'); - cbProfile.Items.Delete(cbProfile.ItemIndex); - end; -end; - -procedure TfrmLogin.btnOKClick(Sender: TObject); -var - path: string; -begin - path := IncludeTrailingPathDelimiter(edData.Text); - if (not FileExists(path + 'art.mul')) or - (not FileExists(path + 'artidx.mul')) or - (not FileExists(path + 'hues.mul')) or - (not FileExists(path + 'tiledata.mul')) or - (not FileExists(path + 'animdata.mul')) or - (not FileExists(path + 'texmaps.mul')) or - (not FileExists(path + 'texidx.mul')) then - begin - MessageDlg('Incorrect directory', 'The data path you specified does not ' - + 'seem to be correct.', mtWarning, [mbOK], 0); - edData.SetFocus; - end else - ModalResult := mrOK; -end; - -procedure TfrmLogin.btnSaveProfileClick(Sender: TObject); -var - profileName: string; - profile: TIniFile; -begin - profileName := cbProfile.Text; - if InputQuery('Save profile', 'Enter the name of the profile:', profileName) then - begin - profile := TIniFile.Create(FProfilePath + profileName + '.ini'); - profile.WriteString('Connection', 'Host', edHost.Text); - profile.WriteInteger('Connection', 'Port', edPort.Value); - profile.WriteString('Connection', 'Username', edUsername.Text); - profile.WriteString('Data', 'Path', edData.Text); - profile.Free; - cbProfile.ItemIndex := cbProfile.Items.IndexOf(profileName); - if cbProfile.ItemIndex = -1 then - begin - cbProfile.Items.Add(profileName); - cbProfile.ItemIndex := cbProfile.Items.Count - 1; - end; - end; -end; - -procedure TfrmLogin.cbProfileChange(Sender: TObject); -var - profile: TIniFile; -begin - if cbProfile.ItemIndex > -1 then - begin - profile := TIniFile.Create(FProfilePath + cbProfile.Text + '.ini'); - edHost.Text := profile.ReadString('Connection', 'Host', ''); - edPort.Value := profile.ReadInteger('Connection', 'Port', 2597); - edUsername.Text := profile.ReadString('Connection', 'Username', ''); - edPassword.Text := ''; - edData.Text := profile.ReadString('Data', 'Path', ''); - edPassword.SetFocus; - profile.Free; - end; -end; - -procedure TfrmLogin.FormClose(Sender: TObject; var CloseAction: TCloseAction); -begin - if ModalResult <> mrOK then - dmNetwork.CheckClose(Self); -end; - -procedure TfrmLogin.FormCreate(Sender: TObject); -var - searchRec: TSearchRec; -begin - lblCopyright.Caption := Format('UO CentrED Client Version %s (c) %s', - [ProductVersion, Copyright]); - - FProfilePath := GetAppConfigDir(False) + 'Profiles' + PathDelim; - ForceDirectories(FProfilePath); - if FindFirst(FProfilePath + '*.ini', faAnyFile, searchRec) = 0 then - begin - repeat - cbProfile.Items.Add(ChangeFileExt(searchRec.Name, '')); - until FindNext(searchRec) <> 0; - end; - FindClose(searchRec); -end; - -initialization - {$I UfrmLogin.lrs} - -end. - +(* + * CDDL HEADER START + * + * The contents of this file are subject to the terms of the + * Common Development and Distribution License, Version 1.0 only + * (the "License"). You may not use this file except in compliance + * with the License. + * + * You can obtain a copy of the license at + * http://www.opensource.org/licenses/cddl1.php. + * See the License for the specific language governing permissions + * and limitations under the License. + * + * When distributing Covered Code, include this CDDL HEADER in each + * file and include the License file at + * http://www.opensource.org/licenses/cddl1.php. If applicable, + * add the following below this CDDL HEADER, with the fields enclosed + * by brackets "[]" replaced with your own identifying * information: + * Portions Copyright [yyyy] [name of copyright owner] + * + * CDDL HEADER END + * + * + * Portions Copyright 2009 Andreas Schneider + *) +unit UfrmLogin; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, + ExtCtrls, Spin, EditBtn, Buttons, IniFiles; + +type + + { TfrmLogin } + + TfrmLogin = class(TForm) + btnOK: TButton; + btnCancel: TButton; + cbProfile: TComboBox; + edData: TDirectoryEdit; + edHost: TEdit; + edUsername: TEdit; + edPassword: TEdit; + gbConnection: TGroupBox; + gbData: TGroupBox; + gbActions: TGroupBox; + gbProfiles: TGroupBox; + imgHost: TImage; + imgUsername: TImage; + imgPassword: TImage; + lblCopyright: TLabel; + lblHost: TLabel; + lblUsername: TLabel; + lblPassword: TLabel; + edPort: TSpinEdit; + lblData: TLabel; + btnSaveProfile: TSpeedButton; + btnDeleteProfile: TSpeedButton; + procedure btnCancelClick(Sender: TObject); + procedure btnDeleteProfileClick(Sender: TObject); + procedure btnOKClick(Sender: TObject); + procedure btnSaveProfileClick(Sender: TObject); + procedure cbProfileChange(Sender: TObject); + procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); + procedure FormCreate(Sender: TObject); + protected + FProfilePath: string; + public + { public declarations } + end; + +var + frmLogin: TfrmLogin; + +implementation + +uses + UdmNetwork; + +{$I version.inc} + +{ TfrmLogin } + +procedure TfrmLogin.btnCancelClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmLogin.btnDeleteProfileClick(Sender: TObject); +begin + if cbProfile.ItemIndex > -1 then + begin + DeleteFile(FProfilePath + cbProfile.Text + '.ini'); + cbProfile.Items.Delete(cbProfile.ItemIndex); + end; +end; + +procedure TfrmLogin.btnOKClick(Sender: TObject); +var + path: string; +begin + path := IncludeTrailingPathDelimiter(edData.Text); + if (not FileExists(path + 'art.mul')) or + (not FileExists(path + 'artidx.mul')) or + (not FileExists(path + 'hues.mul')) or + (not FileExists(path + 'tiledata.mul')) or + (not FileExists(path + 'animdata.mul')) or + (not FileExists(path + 'texmaps.mul')) or + (not FileExists(path + 'texidx.mul')) or + (not FileExists(path + 'light.mul')) or + (not FileExists(path + 'lightidx.mul')) then + begin + MessageDlg('Incorrect directory', 'The data path you specified does not ' + + 'seem to be correct.', mtWarning, [mbOK], 0); + edData.SetFocus; + end else + ModalResult := mrOK; +end; + +procedure TfrmLogin.btnSaveProfileClick(Sender: TObject); +var + profileName: string; + profile: TIniFile; +begin + profileName := cbProfile.Text; + if InputQuery('Save profile', 'Enter the name of the profile:', profileName) then + begin + profile := TIniFile.Create(FProfilePath + profileName + '.ini'); + profile.WriteString('Connection', 'Host', edHost.Text); + profile.WriteInteger('Connection', 'Port', edPort.Value); + profile.WriteString('Connection', 'Username', edUsername.Text); + profile.WriteString('Data', 'Path', edData.Text); + profile.Free; + cbProfile.ItemIndex := cbProfile.Items.IndexOf(profileName); + if cbProfile.ItemIndex = -1 then + begin + cbProfile.Items.Add(profileName); + cbProfile.ItemIndex := cbProfile.Items.Count - 1; + end; + end; +end; + +procedure TfrmLogin.cbProfileChange(Sender: TObject); +var + profile: TIniFile; +begin + if cbProfile.ItemIndex > -1 then + begin + profile := TIniFile.Create(FProfilePath + cbProfile.Text + '.ini'); + edHost.Text := profile.ReadString('Connection', 'Host', ''); + edPort.Value := profile.ReadInteger('Connection', 'Port', 2597); + edUsername.Text := profile.ReadString('Connection', 'Username', ''); + edPassword.Text := ''; + edData.Text := profile.ReadString('Data', 'Path', ''); + edPassword.SetFocus; + profile.Free; + end; +end; + +procedure TfrmLogin.FormClose(Sender: TObject; var CloseAction: TCloseAction); +begin + if ModalResult <> mrOK then + dmNetwork.CheckClose(Self); +end; + +procedure TfrmLogin.FormCreate(Sender: TObject); +var + searchRec: TSearchRec; +begin + lblCopyright.Caption := Format('UO CentrED Client Version %s (c) %s', + [ProductVersion, Copyright]); + + FProfilePath := GetAppConfigDir(False) + 'Profiles' + PathDelim; + ForceDirectories(FProfilePath); + if FindFirst(FProfilePath + '*.ini', faAnyFile, searchRec) = 0 then + begin + repeat + cbProfile.Items.Add(ChangeFileExt(searchRec.Name, '')); + until FindNext(searchRec) <> 0; + end; + FindClose(searchRec); +end; + +initialization + {$I UfrmLogin.lrs} + +end. + diff --git a/Client/UfrmMain.lfm b/Client/UfrmMain.lfm index 65b8bbd..aaa0501 100644 --- a/Client/UfrmMain.lfm +++ b/Client/UfrmMain.lfm @@ -968,14 +968,14 @@ object frmMain: TfrmMain OnClick = tbStaticsClick end object tbSeparator5: TToolButton - Left = 415 + Left = 438 Top = 2 Width = 17 Caption = 'tbSeparator5' Style = tbsDivider end object tbRadarMap: TToolButton - Left = 432 + Left = 455 Hint = 'Radar Map' Top = 2 Caption = 'Radar Map' @@ -997,7 +997,7 @@ object frmMain: TfrmMain OnMouseMove = tbFilterMouseMove end object tbFlat: TToolButton - Left = 380 + Left = 403 Top = 2 Action = acFlat DropdownMenu = pmFlatViewSettings @@ -1021,6 +1021,11 @@ object frmMain: TfrmMain Top = 2 Action = acUndo end + object ToolButton1: TToolButton + Left = 380 + Top = 2 + Action = acLightlevel + end end object pnlChatHeader: TPanel AnchorSideLeft.Control = pnlChat @@ -1456,7 +1461,7 @@ object frmMain: TfrmMain left = 264 top = 32 Bitmap = { - 4C69150000001000000010000000000000000000000000000000000000000000 + 4C69160000001000000010000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000D9A781FFD39E76FF00000000000000000000000000000000000000000000 0000000000000000000000000000ECBEA1FFE7BB9DFFE4B697FFE0B292FFDAAE @@ -2128,6 +2133,38 @@ object frmMain: TfrmMain 3DD2FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0036813C03337D 3978FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B0E2 + F55CA7DCF5B59DD9F5E291D1F1F782CBF0F876C4EFED6DBFEDD177C3EE80FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AFE0F619ADDEF6B7B7E4 + F8FFC7ECFBFFD7F3FCFFE1F7FDFFE2F8FEFFD8F0FCFFB6DFF8FF6BBBEDFF56AF + E8DE77BEEC2CFFFFFF00FFFFFF00FFFFFF00B2E1F50BA2DBF4CAC3EBFAFFE2F9 + FDFFE0F9FDFFD5F7FDFFCFF6FDFFC9F4FCFFC7F4FCFFD6F9FDFFEBFAFEFF90CA + F2FF43A2E4ED78BEE917FFFFFF00FFFFFF0098D6F489B4E3F8FFE5FAFEFFDBF8 + FDFFE4FAFEFFF0FCFEFFF9FEFFFFF9FEFFFFEFFCFEFFD2F6FDFFB4F1FBFFEDFD + FFFF6BB3EAFF58A9E4B6FFFFFF00FFFFFF0088CDF1E4D2EFFBFFDBF9FEFFDFF9 + FDFFECFBFEFFEEFCFEFFEFFCFEFFEFFCFEFFEBFBFEFFE0F9FEFFB8F1FBFFA8F1 + FBFFCBE5F8FF3892DCF7FFFFFF00FFFFFF007BC5EEF9DFF6FDFFC8F5FCFFCDF6 + FCFFD6F7FDFFD3F4FCFFCFF2FCFFCAF1FBFFC4F0FCFFBAF2FBFF96EAF8FF72E5 + F7FFE2F4FDFF3189D8FEFFFFFF00FFFFFF006FBEECE3C9E9F9FFD4F9FDFF7CE3 + F7FF86E5F8FF60B1EFFF68B5EFFF63B4EFFF4CA6ECFF82E4F7FF59DCF5FF8AEB + FAFFCBE2F7FF338BD9F7FFFFFF00FFFFFF0078C0EC888BC8EFFFECFCFEFF77E1 + F7FF2F99EAFF75E1F6FF74E1F6FF68DEF5FF73E1F6FF0986E6FF46D5F3FFDCFE + FEFF6FAAE5FF4C99DEBFFFFFFF00FFFFFF0080C6F00468B5E9D8A5D4F3FFDCFA + FEFF38A1EBFF74E1F6FF6AE4F6FF5DE2F5FF72E0F6FF1691E8FFC0F5FDFFACCE + F1FF2780D6F86FAEE425FFFFFF00FFFFFF00FFFFFF0078BDEB2F5CACE7EBA6D3 + F3FF65AEF0FF74E1F6FF73E1F6FF72E0F6FF71E0F6FF4CA3ECFF9CC3EFFF297F + D6FB65A8E25AFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0075B9EA3461A7 + DEE7469DE6FF4BBEF7FF47E6FDFF41E5FDFF51C3FBFF167CDEFF3382D1F266AA + E346FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0085A7 + BF4B638195FA7A95A3FF3A8A98FF357F8CFF606E76FF2D4357FE7FA2BE40FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0068777DE2A6A5A2FFA8A2A2FF9D9998FF948F8BFF434B53EBFFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF005F6E77C6BCBCBBFFEBEAEAFFCDCCCCFFA3A19FFF3F4C55DBFFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0088A7BB5D485055F5444545FE3F4141FE3F474AF67D9CB16AFFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00 } end @@ -2609,6 +2646,13 @@ object frmMain: TfrmMain OnExecute = acUndoExecute ShortCut = 16474 end + object acLightlevel: TAction + Category = 'Settings' + Caption = 'Lightlevel' + Hint = 'Set Lightlevel' + ImageIndex = 21 + OnExecute = acLightlevelExecute + end end object tmGrabTileInfo: TTimer Enabled = False diff --git a/Client/UfrmMain.pas b/Client/UfrmMain.pas index 08465cd..4a50857 100644 --- a/Client/UfrmMain.pas +++ b/Client/UfrmMain.pas @@ -68,6 +68,7 @@ type acFilter: TAction; acFlat: TAction; acNoDraw: TAction; + acLightlevel: TAction; acUndo: TAction; acVirtualLayer: TAction; ActionList1: TActionList; @@ -147,6 +148,7 @@ type tbNoDraw: TToolButton; tbSeparator2: TToolButton; tbUndo: TToolButton; + ToolButton1: TToolButton; tsLocations: TTabSheet; tbSetHue: TToolButton; tmGrabTileInfo: TTimer; @@ -181,6 +183,7 @@ type procedure acFilterExecute(Sender: TObject); procedure acFlatExecute(Sender: TObject); procedure acHueExecute(Sender: TObject); + procedure acLightlevelExecute(Sender: TObject); procedure acMoveExecute(Sender: TObject); procedure acNoDrawExecute(Sender: TObject); procedure acSelectExecute(Sender: TObject); @@ -373,6 +376,7 @@ type property Landscape: TLandscape read FLandscape; property CurrentTile: TWorldItem read FCurrentTile write SetCurrentTile; property SelectedTile: TWorldItem read FSelectedTile write SetSelectedTile; + property LightManager: TLightManager read FLightManager; { Methods } procedure InvalidateFilter; procedure InvalidateScreenBuffer; @@ -395,7 +399,7 @@ uses UfrmBoundaries, UfrmElevateSettings, UfrmConfirmation, UfrmMoveSettings, UfrmAbout, UPacketHandlers, UfrmHueSettings, UfrmRadar, UfrmLargeScaleCommand, UfrmLogin, UResourceManager, UfrmVirtualLayer, UfrmFilter, UfrmRegionControl, - Logging, LConvEncoding, LCLType; + Logging, LConvEncoding, LCLType, UfrmLightlevel; type TGLArrayf4 = array[0..3] of GLfloat; @@ -1171,6 +1175,11 @@ begin frmHueSettings.Show; end; +procedure TfrmMain.acLightlevelExecute(Sender: TObject); +begin + frmLightlevel.Show; +end; + procedure TfrmMain.acMoveExecute(Sender: TObject); begin acMove.Checked := True;