* Added missing assets

* Fixed compilation on linux

Client/CentrED.lpi

@@ -1,4 +1,4 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
     <Version Value="9"/>
@@ -21,15 +21,15 @@
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="7"/>
       <RevisionNr Value="8"/>
-      <BuildNr Value="1759"/>
+      <BuildNr Value="1760"/>
       <Language Value="0419"/>
       <StringTable CompanyName="www.uoquint.ru" FileDescription="UO CentrED+" InternalName="CentrED+" LegalCopyright="StaticZ" OriginalFilename="CentrED-plus.exe" ProductName="CentrED+" ProductVersion="0.7.8"/>
     </VersionInfo>
-    <BuildModes Count="4">
+    <BuildModes Count="5">
       <Item1 Name="default" Default="True"/>
       <Item2 Name="Release Win32">
         <CompilerOptions>
-          <Version Value="9"/>
+          <Version Value="11"/>
           <Target>
             <Filename Value="../bin/PEBinaries/CentrED-plus (x32).exe"/>
           </Target>
@@ -38,7 +38,6 @@
             <OtherUnitFiles Value="..;../UOLib;../MulProvider;../Imaging;../Imaging/JpegLib;../Imaging/ZLib;Tools"/>
             <UnitOutputDirectory Value="../obj/win32"/>
             <SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType);..;../UOLib;../MulProvider;../Imaging;../Imaging/JpegLib;../Imaging/ZLib;Tools"/>
-            <LCLWidgetType Value="win32"/>
           </SearchPaths>
           <Parsing>
             <SyntaxOptions>
@@ -56,6 +55,7 @@
           </CodeGeneration>
           <Linking>
             <Debugging>
+              <GenerateDebugInfo Value="False"/>
               <UseLineInfoUnit Value="False"/>
               <StripSymbols Value="True"/>
             </Debugging>
@@ -68,18 +68,16 @@
           </Linking>
           <Other>
             <CompilerMessages>
-              <IgnoredMessages idx4079="True" idx4080="True" idx4081="True" idx5024="True" idx5028="True"/>
-              <UseMsgFile Value="True"/>
+              <IgnoredMessages idx5028="True" idx5024="True" idx4081="True" idx4080="True" idx4079="True"/>
             </CompilerMessages>
             <CustomOptions Value="-FE../bin/PEBinaries/
 -dNoLogging"/>
-            <CompilerPath Value="$(CompPath)"/>
           </Other>
         </CompilerOptions>
       </Item2>
       <Item3 Name="Release Win64">
         <CompilerOptions>
-          <Version Value="9"/>
+          <Version Value="11"/>
           <Target>
             <Filename Value="../bin/PEBinaries/CentrED-plus (x64).exe"/>
           </Target>
@@ -88,7 +86,6 @@
             <OtherUnitFiles Value="..;../UOLib;../MulProvider;../Imaging;../Imaging/JpegLib;../Imaging/ZLib;Tools"/>
             <UnitOutputDirectory Value="../obj/win64"/>
             <SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType);..;../UOLib;../MulProvider;../Imaging;../Imaging/JpegLib;../Imaging/ZLib;Tools"/>
-            <LCLWidgetType Value="win32"/>
           </SearchPaths>
           <Parsing>
             <SyntaxOptions>
@@ -106,6 +103,7 @@
           </CodeGeneration>
           <Linking>
             <Debugging>
+              <GenerateDebugInfo Value="False"/>
               <UseLineInfoUnit Value="False"/>
               <StripSymbols Value="True"/>
             </Debugging>
@@ -118,26 +116,24 @@
           </Linking>
           <Other>
             <CompilerMessages>
-              <IgnoredMessages idx4079="True" idx4080="True" idx4081="True" idx5024="True" idx5028="True"/>
-              <UseMsgFile Value="True"/>
+              <IgnoredMessages idx5028="True" idx5024="True" idx4081="True" idx4080="True" idx4079="True"/>
             </CompilerMessages>
             <CustomOptions Value="-FE../bin/PEBinaries/
 -dNoLogging"/>
-            <CompilerPath Value="$(CompPath)"/>
           </Other>
         </CompilerOptions>
       </Item3>
       <Item4 Name="Release Linux GTK2 x86">
         <CompilerOptions>
-          <Version Value="9"/>
+          <Version Value="11"/>
           <Target>
             <Filename Value="../bin/PEBinaries/CentrED-plus"/>
           </Target>
           <SearchPaths>
             <IncludeFiles Value="$(ProjOutDir);../Imaging;.."/>
-            <OtherUnitFiles Value="..;../UOLib;../MulProvider;../Imaging;../Imaging/JpegLib;../Imaging/ZLib;Tools"/>
+            <OtherUnitFiles Value="..;../UOLib;../MulProvider;../Imaging;../Imaging/JpegLib;../Imaging/ZLib;Tools;GUI"/>
             <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)"/>
           </SearchPaths>
           <Parsing>
             <SyntaxOptions>
@@ -154,6 +150,7 @@
           </CodeGeneration>
           <Linking>
             <Debugging>
+              <GenerateDebugInfo Value="False"/>
               <UseLineInfoUnit Value="False"/>
               <StripSymbols Value="True"/>
             </Debugging>
@@ -166,15 +163,60 @@
           </Linking>
           <Other>
             <CompilerMessages>
-              <IgnoredMessages idx4079="True" idx4080="True" idx4081="True" idx5024="True" idx5028="True"/>
-              <UseMsgFile Value="True"/>
+              <IgnoredMessages idx5028="True" idx5024="True" idx4081="True" idx4080="True" idx4079="True"/>
             </CompilerMessages>
             <CustomOptions Value="-FE../bin/PEBinaries/
 -dNoLogging"/>
-            <CompilerPath Value="$(CompPath)"/>
           </Other>
         </CompilerOptions>
       </Item4>
+      <Item5 Name="Release Linux GTK2 x64">
+        <CompilerOptions>
+          <Version Value="11"/>
+          <Target>
+            <Filename Value="../bin/PEBinaries/CentrED-plus"/>
+          </Target>
+          <SearchPaths>
+            <IncludeFiles Value="$(ProjOutDir);../Imaging;.."/>
+            <OtherUnitFiles Value="..;../UOLib;../MulProvider;../Imaging;../Imaging/JpegLib;../Imaging/ZLib;Tools;GUI"/>
+            <UnitOutputDirectory Value="../obj/$(TargetCPU)-$(TargetOS)"/>
+            <SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)"/>
+          </SearchPaths>
+          <Parsing>
+            <SyntaxOptions>
+              <CStyleOperator Value="False"/>
+            </SyntaxOptions>
+          </Parsing>
+          <CodeGeneration>
+            <SmartLinkUnit Value="True"/>
+            <TargetCPU Value="x86_64"/>
+            <TargetOS Value="linux"/>
+            <Optimizations>
+              <OptimizationLevel Value="3"/>
+            </Optimizations>
+          </CodeGeneration>
+          <Linking>
+            <Debugging>
+              <GenerateDebugInfo Value="False"/>
+              <UseLineInfoUnit Value="False"/>
+              <StripSymbols Value="True"/>
+            </Debugging>
+            <LinkSmart Value="True"/>
+            <Options>
+              <Win32>
+                <GraphicApplication Value="True"/>
+              </Win32>
+            </Options>
+          </Linking>
+          <Other>
+            <CompilerMessages>
+              <IgnoredMessages idx5028="True" idx5024="True" idx4081="True" idx4080="True" idx4079="True"/>
+            </CompilerMessages>
+            <CustomOptions Value="-FE../bin/PEBinaries/
+-dNoLogging"/>
+          </Other>
+        </CompilerOptions>
+      </Item5>
     </BuildModes>
     <PublishOptions>
       <Version Value="2"/>
@@ -215,21 +257,19 @@
       <Unit0>
         <Filename Value="CentrED.lpr"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="CentrED"/>
       </Unit0>
       <Unit1>
         <Filename Value="UfrmMain.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmMain"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmMain"/>
       </Unit1>
       <Unit2>
         <Filename Value="UdmNetwork.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="dmNetwork"/>
         <ResourceBaseClass Value="DataModule"/>
-        <UnitName Value="UdmNetwork"/>
       </Unit2>
       <Unit3>
         <Filename Value="UfrmLogin.pas"/>
@@ -243,118 +283,101 @@
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmInitialize"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmInitialize"/>
       </Unit4>
       <Unit5>
         <Filename Value="UfrmAccountControl.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmAccountControl"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmAccountControl"/>
       </Unit5>
       <Unit6>
         <Filename Value="UfrmEditAccount.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmEditAccount"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmEditAccount"/>
       </Unit6>
       <Unit7>
         <Filename Value="Tools/UfrmDrawSettings.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmDrawSettings"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmDrawSettings"/>
       </Unit7>
       <Unit8>
         <Filename Value="Tools/UfrmBoundaries.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmBoundaries"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmBoundaries"/>
       </Unit8>
       <Unit9>
         <Filename Value="Tools/UfrmElevateSettings.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmElevateSettings"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmElevateSettings"/>
       </Unit9>
       <Unit10>
         <Filename Value="UOverlayUI.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UOverlayUI"/>
       </Unit10>
       <Unit11>
         <Filename Value="UResourceManager.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UResourceManager"/>
       </Unit11>
       <Unit12>
         <Filename Value="Tools/UfrmConfirmation.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmConfirmation"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmConfirmation"/>
       </Unit12>
       <Unit13>
         <Filename Value="Tools/UfrmMoveSettings.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmMoveSettings"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmMoveSettings"/>
       </Unit13>
       <Unit14>
         <Filename Value="UfrmAbout.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmAbout"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmAbout"/>
       </Unit14>
       <Unit15>
         <Filename Value="Tools/UfrmHueSettings.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmHueSettings"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmHueSettings"/>
       </Unit15>
       <Unit16>
         <Filename Value="UfrmRadar.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmRadarMap"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmRadar"/>
       </Unit16>
       <Unit17>
         <Filename Value="UfrmLargeScaleCommand.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmLargeScaleCommand"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmLargeScaleCommand"/>
       </Unit17>
       <Unit18>
         <Filename Value="Tools/UfrmVirtualLayer.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmVirtualLayer"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmVirtualLayer"/>
       </Unit18>
       <Unit19>
         <Filename Value="Tools/UfrmFilter.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmFilter"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmFilter"/>
       </Unit19>
       <Unit20>
         <Filename Value="UGUIPlatformUtils.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UGUIPlatformUtils"/>
       </Unit20>
       <Unit21>
         <Filename Value="UPlatformTypes.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UPlatformTypes"/>
       </Unit21>
       <Unit22>
         <Filename Value="UfrmRegionControl.pas"/>
@@ -362,99 +385,80 @@
         <ComponentName Value="frmRegionControl"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmRegionControl"/>
       </Unit22>
       <Unit23>
         <Filename Value="UPacketHandlers.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UPacketHandlers"/>
       </Unit23>
       <Unit24>
         <Filename Value="UPackets.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UPackets"/>
       </Unit24>
       <Unit25>
         <Filename Value="ULandscape.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="ULandscape"/>
       </Unit25>
       <Unit26>
         <Filename Value="UGameResources.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UGameResources"/>
       </Unit26>
       <Unit27>
         <Filename Value="UAdminHandling.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UAdminHandling"/>
       </Unit27>
       <Unit28>
         <Filename Value="Tools/UfrmToolWindow.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmToolWindow"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmToolWindow"/>
       </Unit28>
       <Unit29>
         <Filename Value="../Logging.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="Logging"/>
       </Unit29>
       <Unit30>
         <Filename Value="../UOLib/UStatics.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UStatics"/>
       </Unit30>
       <Unit31>
         <Filename Value="../UOLib/UWorldItem.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UWorldItem"/>
       </Unit31>
       <Unit32>
         <Filename Value="../UOLib/UMap.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UMap"/>
       </Unit32>
       <Unit33>
         <Filename Value="../UOLib/UTiledata.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UTiledata"/>
       </Unit33>
       <Unit34>
         <Filename Value="UGLFont.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UGLFont"/>
       </Unit34>
       <Unit35>
         <Filename Value="../UOLib/UAnimData.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UAnimData"/>
       </Unit35>
       <Unit36>
         <Filename Value="../MulProvider/UTileDataProvider.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UTileDataProvider"/>
       </Unit36>
       <Unit37>
         <Filename Value="../MulProvider/UAnimDataProvider.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UAnimDataProvider"/>
       </Unit37>
       <Unit38>
         <Filename Value="../MulProvider/UMulManager.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UMulManager"/>
       </Unit38>
       <Unit39>
         <Filename Value="../MulProvider/UArtProvider.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UArtProvider"/>
       </Unit39>
       <Unit40>
         <Filename Value="../MulProvider/UTexmapProvider.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UTexmapProvider"/>
       </Unit40>
       <Unit41>
         <Filename Value="../version.inc"/>
@@ -463,44 +467,36 @@
       <Unit42>
         <Filename Value="ULightManager.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="ULightManager"/>
       </Unit42>
       <Unit43>
         <Filename Value="../UOLib/ULight.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="ULight"/>
       </Unit43>
       <Unit44>
         <Filename Value="../MulProvider/ULightProvider.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="ULightProvider"/>
       </Unit44>
       <Unit45>
         <Filename Value="Tools/UfrmLightlevel.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmLightlevel"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmLightlevel"/>
       </Unit45>
       <Unit46>
         <Filename Value="../UEnhancedMemoryStream.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UEnhancedMemoryStream"/>
       </Unit46>
       <Unit47>
         <Filename Value="UndoRedoCmd.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UndoRedoCmd"/>
       </Unit47>
       <Unit48>
         <Filename Value="../UOLib/UArt.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UArt"/>
       </Unit48>
       <Unit49>
         <Filename Value="../vinfo.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="vinfo"/>
       </Unit49>
       <Unit50>
         <Filename Value="language.pas"/>
@@ -513,7 +509,6 @@
         <ComponentName Value="frmFillSettings"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmFillSettings"/>
       </Unit51>
       <Unit52>
         <Filename Value="Tools/UfrmSelectionSettings.pas"/>
@@ -521,7 +516,6 @@
         <ComponentName Value="frmSelectionSettings"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmSelectionSettings"/>
       </Unit52>
       <Unit53>
         <Filename Value="Tools/UfrmSurfStretchSettings.pas"/>
@@ -529,7 +523,6 @@
         <ComponentName Value="frmSurfStretchSettings"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmSurfStretchSettings"/>
       </Unit53>
       <Unit54>
         <Filename Value="Tools/UfrmSurfElevateSettings.pas"/>
@@ -537,7 +530,6 @@
         <ComponentName Value="frmSurfElevateSettings"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmSurfElevateSettings"/>
       </Unit54>
       <Unit55>
         <Filename Value="Tools/UfrmSurfSmoothSettings.pas"/>
@@ -545,40 +537,34 @@
         <ComponentName Value="frmSurfSmoothSettings"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UfrmSurfSmoothSettings"/>
       </Unit55>
       <Unit56>
         <Filename Value="Crc32Hash.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="Crc32Hash"/>
       </Unit56>
       <Unit57>
         <Filename Value="../UOLib/UUopFile.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UUopFile"/>
       </Unit57>
       <Unit58>
         <Filename Value="GUI/AeroGlass.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="AeroGlass"/>
       </Unit58>
       <Unit59>
         <Filename Value="GUI/VirtualList.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="VirtualList"/>
       </Unit59>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="9"/>
+    <Version Value="11"/>
     <Target>
-      <Filename Value="../bin/PEBinaries/CentrED-plus.exe"/>
+      <Filename Value="../bin/PEBinaries/CentrED-plus"/>
     </Target>
     <SearchPaths>
       <IncludeFiles Value="..;../obj;../Imaging;$(ProjOutDir)"/>
       <OtherUnitFiles Value="Tools;..;../UOLib;../Server;../MulProvider;../Imaging;../Imaging/JpegLib;../Imaging/ZLib;GUI"/>
       <UnitOutputDirectory Value="../obj"/>
-      <LCLWidgetType Value="win32"/>
     </SearchPaths>
     <Parsing>
       <SyntaxOptions>
@@ -590,16 +576,13 @@
         <RangeChecks Value="True"/>
         <OverflowChecks Value="True"/>
       </Checks>
-      <TargetProcessor Value="pentium4"/>
-      <TargetCPU Value="i386"/>
-      <TargetOS Value="win32"/>
       <Optimizations>
         <OptimizationLevel Value="3"/>
       </Optimizations>
     </CodeGeneration>
     <Linking>
       <Debugging>
-        <GenerateDebugInfo Value="True"/>
+        <DebugInfoType Value="dsStabs"/>
       </Debugging>
       <Options>
         <Win32>
@@ -609,12 +592,10 @@
     </Linking>
     <Other>
       <CompilerMessages>
-        <IgnoredMessages idx4079="True" idx4080="True" idx4081="True" idx5024="True" idx5028="True"/>
-        <UseMsgFile Value="True"/>
+        <IgnoredMessages idx5028="True" idx5024="True" idx4081="True" idx4080="True" idx4079="True"/>
       </CompilerMessages>
       <CustomOptions Value="-FE../bin/PEBinaries/
 +-dNoLogging"/>
-      <CompilerPath Value="$(CompPath)"/>
     </Other>
   </CompilerOptions>
 </CONFIG>

Client/CentrED.lpr

@@ -21,7 +21,8 @@
  * CDDL HEADER END
  *
  *
- *      Portions Copyright 2010 Andreas Schneider
+ *      Portions Copyright 2015 Andreas Schneider
+ *      Portions Copyright 2015 StaticZ
  *)
 program CentrED;
 
@@ -33,7 +34,7 @@ uses
   {$ENDIF}{$ENDIF}
   Classes, SysUtils,
   Interfaces, // this includes the LCL widgetset
-  Forms, Dialogs, Windows, UdmNetwork, UResourceManager;
+  LCLType, Forms, Dialogs, UdmNetwork, UResourceManager, Graphics;
 
 {$R CentrED.res}
 //{$R CentrED.manifest.rc}
@@ -62,13 +63,14 @@ type
   end;
 var
   stream: TStream;
-  dwSize: Integer;
+  (*dwSize: Integer;
   buffer: array of Byte;
   header: TIconHeader;
-  icoinf: TIconInfo;
+  icoinf: TIconInfo;  *) //TODO Cleanup
+  cursorImage: TCursorImage;
 begin
   stream := ResourceManager.GetResource(AFileName);
-  dwSize := stream.Size;
+  (*dwSize := stream.Size;
   SetLength(buffer, dwSize + 8);
   stream.Read(buffer[0], dwSize);
   if not CurFormat then
@@ -80,28 +82,34 @@ begin
     CopyMemory(@buffer[icoinf.iOffset-4], @icoinf.iHotspotX, 2);
     CopyMemory(@buffer[icoinf.iOffset-2], @icoinf.iHotspotY, 2);
     Result := HCURSOR(CreateIconFromResource(@buffer[icoinf.iOffset-4], icoinf.iSize+4, False, $00030000))
+  end;*)
+  try
+    cursorImage := TCursorImage.Create;
+    cursorImage.LoadFromStream(stream);
+    Result := cursorImage.ReleaseHandle;
+  finally
+    cursorImage.Free;
   end;
 end;
 
-
 begin
   Application.Title:='CentrED+';
   OnGetApplicationName := @GetApplicationName;
   Application.Initialize;
-  if LowerCase(ChangeFileExt(ExtractFileName(ParamStr(0)), '')) <> LowerCase(GetApplicationName) then
+  {if LowerCase(ChangeFileExt(ExtractFileName(ParamStr(0)), '')) <> LowerCase(GetApplicationName) then
   begin
-    MessageDlg('Ошибка', 'Исполняемый файл был переименован. Переименуйте ' +
-                         'файл следующим образом: "' +
+    MessageDlg('Bug', 'The executable file has been renamed. Rename ' +
+                         'file as follows: "' +
                          GetApplicationName + '.exe"', mtError, [mbOK], 0);
     Application.Terminate;
-  end;
+  end;} //TODO Why?
 
   if Paramcount = 1 then begin
-    MessageDlg('Параметры запуска', ParamStr(1), mtError, [mbOK], 0);
+    MessageDlg('Startup options', ParamStr(1), mtError, [mbOK], 0);
   end;
 
 
-  // Загрузка курсоров ...
+  // Loading cursors ...
   Screen.Cursors[-02] := LoadCursorFromRes('Cursors/BC_NormalSelect.cur');         //crArrow
   Screen.Cursors[-19] := LoadCursorFromRes('Cursors/BC_WorkingInBackground.cur');  //crAppStart
   Screen.Cursors[-20] := LoadCursorFromRes('Cursors/BC_HelpSelect.cur');           //crHelp
@@ -111,7 +119,7 @@ begin
 
   Screen.Cursors[-03] := LoadCursorFromRes('Cursors/BC_PrecisionSelect.cur');      //crCross
   Screen.Cursors[-04] := LoadCursorFromRes('Cursors/BC_TextSelect.cur');           //crIBeam
-  Screen.Cursors[-11] := LoadCursorFromRes('Cursors/BI_Busy.ani', False);          //crHourGlass
+  //TODO Screen.Cursors[-11] := LoadCursorFromRes('Cursors/BI_Busy.ani', False);          //crHourGlass
   Screen.Cursors[-18] := LoadCursorFromRes('Cursors/TN_Unavailable.cur');          //crNo
 
   Screen.Cursors[-22] := LoadCursorFromRes('Cursors/BC_Move.cur');                 //crSize
@@ -128,7 +136,7 @@ begin
   Screen.Cursors[+02] := LoadCursorFromRes('Cursors/UO_AttackMode.cur');
   Screen.Cursors[+03] := LoadCursorFromRes('Cursors/UO_Gauntlet.cur');
 
-  // Запуск программы...
+  // Run the program...
   Application.CreateForm(TdmNetwork, dmNetwork);
   Application.Run;
 end.

Client/GUI/VirtualList.pas

@@ -4,13 +4,13 @@ unit VirtualList;
 interface
 
 uses
-  Windows, Forms, Controls, StdCtrls, Graphics, Classes, SysUtils, VirtualTrees,
-  Logging, LMessages, ShellAPI, LCLIntf, Math;
+  Forms, Controls, StdCtrls, Graphics, Classes, SysUtils, VirtualTrees,
+  Logging, LMessages, LCLIntf, Math;
 
 type
   {$Z4} INPUTTYPE = (INPUT_MOUSE = $00, INPUT_KEYBOARD = $01, INPUT_HARDWARE = $02);
   {$Z4} KEYEVENTF = (KEYEVENTF_EXTENDEDKEY = $01, KEYEVENTF_KEYUP = $02, KEYEVENTF_SCANCODE = $04, KEYEVENTF_UNICODE = $08);
-  TKEYINPUT = record
+  {TKEYINPUT = record
     itype: INPUTTYPE;
     // tagKEYBDINPUT
     wVk: WORD;
@@ -18,7 +18,7 @@ type
     dwFlags: KEYEVENTF;
     time: DWORD;
     dwExtraInfo: ULONG_PTR;
-  end;
+  end;} //TODO
 
   PVirtualItem = ^TVirtualItem;
   TVirtualItem = record
@@ -83,7 +83,7 @@ type
     property TilesCount: Dword read FTilesCount;
   end;
 
-function SendInput(nInputs:UINT; pInputs:POINTER; cbSize:INTEGER):UINT; stdcall; external 'User32.dll' name 'SendInput';
+//function SendInput(nInputs:UINT; pInputs:POINTER; cbSize:INTEGER):UINT; stdcall; external 'User32.dll' name 'SendInput';
 
 Implementation
 
@@ -636,7 +636,7 @@ var
   ShiftState: TShiftState;
   HitItem: PVirtualItem;
   item: PVirtualItem;
-  kinput: TKEYINPUT;
+  //kinput: TKEYINPUT;
 begin
   //Logger.Send([lcClient, lcDebug], 'TVirtualTree.HandleMouseDown %s', ['Start']);
   HitItem := Self.GetItemAt(HitInfo.HitNode, HitInfo.HitColumn);
@@ -681,14 +681,14 @@ begin
   inherited HandleMouseDown(Message, HitInfo);
 
   // Чтоже я творю-то...
-  if (ShiftState = []) then begin
+  {if (ShiftState = []) then begin
     kinput.itype := INPUT_KEYBOARD;
     kinput.wVk := $11; // VK_CONTROL
     SendInput(1, @kinput, sizeof(TKEYINPUT));
     BeginDrag(TRUE);
     kinput.dwFlags := KEYEVENTF_KEYUP;
     SendInput(1, @kinput, sizeof(TKEYINPUT));
-  end;
+  end;} //TODO
 
 end;
 

Client/Tools/UfrmFilter.pas

@@ -31,8 +31,8 @@ interface
 
 uses
   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ExtCtrls, VirtualTrees, VirtualList, LCLIntf, LMessages, Buttons, UPlatformTypes,
-  UStatics, Menus, Windows, Logging;
+  ExtCtrls, VirtualTrees, VirtualList, LCLIntf, LCLType, LMessages, Buttons,
+  UPlatformTypes, UStatics, Menus, Logging;
 
 type
 

Client/Tools/UfrmHueSettings.pas

@@ -21,7 +21,8 @@
  * CDDL HEADER END
  *
  *
- *      Portions Copyright 2009 Andreas Schneider
+ *      Portions Copyright 2015 Andreas Schneider
+ *      Portions Copyright 2015 StaticZ
  *)
 unit UfrmHueSettings;
 
@@ -31,10 +32,9 @@ interface
 
 uses
   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ExtCtrls, Buttons, UfrmToolWindow, XMLRead, XMLWrite, DOM, VirtualTrees, VirtualList,
-  Math, UHue, UArt, UTiledata, UfrmMain, ImagingComponents, LConvEncoding, ComCtrls,
-  Windows, ShellAPI, Logging,
-  ULandscape;//ImagingClasses, UPlatformTypes;
+  ExtCtrls, Buttons, UfrmToolWindow, XMLRead, XMLWrite, DOM, VirtualTrees,
+  VirtualList, Math, UHue, UArt, UTiledata, UfrmMain, ImagingComponents,
+  LConvEncoding, ComCtrls, Logging, LCLIntf, LCLType, ULandscape;
 
 type
 
@@ -592,21 +592,21 @@ begin
 
   if vdtHuePreview.Tag = edTileId.Tag then exit;
 
-  //определяем число колонок
+  // We determine the number of columns
   cols:= ((ClientWidth - GetSystemMetrics(SM_CXVSCROLL))// - 16)
           div (ItemWidth + 2)) - 1;
   if (cols > vdtHuesPreviewColumnsMax)
   then cols:=vdtHuesPreviewColumnsMax;
-  Logger.Send([lcClient, lcInfo], 'TfrmHueSettings.HuePreviewRebuild(): Число колонок cols', cols+1);
+  Logger.Send([lcClient, lcInfo], 'TfrmHueSettings.HuePreviewRebuild(): Number of columns', cols+1);
 
-  // Создаем колонки
+  // Create Column
   vdtHuePreview.BeginUpdate;
   vdtHuePreview.Header.Columns.Clear;
   vdtHuePreview.Header.Columns.DefaultWidth := ItemWidth + 2;
   for cn := 0 to cols do
     vdtHuePreview.Header.Columns.Add;
 
-  // Создаем ячейки
+  // Create a cell
   vdtHuePreview.Clear;
 
   vdtHuePreview.Tag := ItemID;
@@ -668,12 +668,12 @@ begin
     hue := nil;
     if (PaintInfo.Node <> Sender.GetFirst()) then begin
       PaintInfo.Canvas.Brush.Color := vdtHuePreview.Color;
-      exit; // Не рисуем ячейки без цвета если они не в первом ряду
+      exit; // Do not draw a cell without color if they are not in the first row
     end;
   end else hue := ResMan.Hue.Hues[info^.ID[PaintInfo.Column] - 1];
 
   if ResMan.Art.Exists(id) then begin
-    // Определяем цвет подсветки (т.е. выделен ли тайл)
+    // Determine the illumination color (ie, recovered the tile)
     {mpos := vdtHuePreview.ScreenToClient(Mouse.CursorPos);
     if  (vdtHuePreview.GetNodeAt(mpos.x, mpos.y) = PaintInfo.Node)
     and ((mpos.x div vdtHuePreview.Header.Columns.DefaultWidth) = PaintInfo.Column)
@@ -731,7 +731,7 @@ begin
     edHue.Text := Format('$%x', [hues]);
     edHueEditingDone(Sender);
 
-    FormShow(Sender); // Закрываем окно и возвращаемся обратно
+    FormShow(Sender); // Close the window and return back
     Top  := LastFormPosition.y;
     Left := LastFormPosition.x;
     mpos.x := ImagePreviewItem.Width  div 2;

Client/UfrmAbout.pas

@@ -31,7 +31,7 @@ interface
 
 uses
   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ExtCtrls, ShellAPI, MMSystem;
+  ExtCtrls;
 
 type
 
@@ -106,21 +106,21 @@ begin
     GetMem(pSound, stream.Size);
     stream.Read(pSound^, stream.Size);
   end;
-  sndPlaySound(pSound, SND_MEMORY or SND_ASYNC or SND_LOOP);
+  //TODO: sndPlaySound(pSound, SND_MEMORY or SND_ASYNC or SND_LOOP);
 end;
 
 procedure TfrmAbout.FormHide(Sender: TObject);
 begin
   if pSound = nil then Exit;
-  sndPlaySound(nil, SND_ASYNC or SND_LOOP);
+  //TODO: sndPlaySound(nil, SND_ASYNC or SND_LOOP);
   FreeMem(pSound);
   pSound := nil;
 end;
 
 procedure TfrmAbout.imgBanerClick(Sender: TObject);
 begin
-  // Открываем сайт в браузере по умолчанию
-  ShellExecute(Handle, 'open', PChar('http://uoquint.ru'), nil, nil, 1 {SW_SHOWNORMAL});
+  //Open the site in the default browser
+  //TODO: ShellExecute(Handle, 'open', PChar('http://uoquint.ru'), nil, nil, 1 {SW_SHOWNORMAL});
 end;
 
 procedure TfrmAbout.imgBanerMouseEnter(Sender: TObject);
@@ -146,8 +146,8 @@ end;
 
 procedure TfrmAbout.lblWebLinkClick(Sender: TObject);
 begin
-  // Открываем сайт в браузере по умолчанию
-  ShellExecute(Handle, 'open', PChar('http://dev.uoquint.ru/projects/centred'), nil, nil, 1 {SW_SHOWNORMAL});
+  //Open the site in the default browser
+  //ShellExecute(Handle, 'open', PChar('http://dev.uoquint.ru/projects/centred'), nil, nil, 1 {SW_SHOWNORMAL});
 end;
 
 procedure TfrmAbout.lblWebLinkMouseEnter(Sender: TObject);

Client/UfrmLogin.pas

@@ -21,7 +21,8 @@
  * CDDL HEADER END
  *
  *
- *      Portions Copyright 2009 Andreas Schneider
+ *      Portions Copyright 2015 Andreas Schneider
+ *      Portions Copyright 2015 StaticZ
  *)
 unit UfrmLogin;
 
@@ -32,7 +33,7 @@ interface
 uses
   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
   ExtCtrls, Spin, EditBtn, Buttons, IniFiles, LConvEncoding, LazHelpHTML,
-  ShellAPI, Registry, AeroGlass;
+  Registry;
 
 type
 
@@ -141,17 +142,18 @@ var
   settings: TIniFile;
   ARegistry: TRegistry;
 begin
-  // Загрузка настроек
-  ARegistry := TRegistry.Create();
+  // Download settings
+  configDir := GetAppConfigDir(False);
+  (*ARegistry := TRegistry.Create();
   ARegistry.RootKey := HKEY_LOCAL_MACHINE;
   ARegistry.OpenKey('\SOFTWARE\Quintessence\UO CentrED+', False);
   if ARegistry.ReadBool('UseConfigDir')
     then configDir := GetAppConfigDir(False)
     else configDir := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))
                       + '..' + PathDelim + 'LocalData' + PathDelim + 'UsersData' + PathDelim ;
-  ARegistry.Free;
+  ARegistry.Free;*) //TODO cross platform?
 
-  // Сохранение настроек
+  // Save settings
   settings := TIniFile.Create(configDir + 'LoginSettings.ini');
   settings.WriteString('Connection', 'Host', edHost.Text);
   settings.WriteInteger('Connection', 'Port', edPort.Value);
@@ -167,7 +169,7 @@ begin
      settings.WriteString('Profile', 'Lang', '');
   settings.Free;
   {
-  // Проверка путей
+  // Check tracks
   path := IncludeTrailingPathDelimiter(UTF8ToCP1251(edData.Text));
   if (not FileExists(path + 'art.mul')) or
      (not FileExists(path + 'artidx.mul')) or                 LangDirectory := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + PathDelim + 'Language' + PathDelim;
@@ -185,7 +187,7 @@ begin
     edData.SetFocus;
   end else }
     ModalResult := mrOK;
-  Logger.Send([lcClient, lcInfo], 'Начинаем соеденинение с сервером');
+  Logger.Send([lcClient, lcInfo], 'Logging into server');
 end;
 
 procedure TfrmLogin.btnSaveProfileClick(Sender: TObject);
@@ -249,7 +251,7 @@ end;
 
 procedure TfrmLogin.FormActivate(Sender: TObject);
 begin
-  GlassForm(frmLogin);
+  //TODO ? GlassForm(frmLogin);
 end;
 
 procedure TfrmLogin.FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -281,15 +283,16 @@ begin
   BanerMouseLeave(Sender);
   edData.DialogTitle:=lblData.Caption;
 
-  // Загрузка настроек
-  ARegistry := TRegistry.Create();
+  // Download settings
+  configDir := GetAppConfigDir(False);
+  (*ARegistry := TRegistry.Create();
   ARegistry.RootKey := HKEY_LOCAL_MACHINE;
   ARegistry.OpenKey('\SOFTWARE\Quintessence\UO CentrED+', False);
   if ARegistry.ReadBool('UseConfigDir')
     then configDir := GetAppConfigDir(False)
     else configDir := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))
                       + '..' + PathDelim + 'LocalData' + PathDelim + 'UsersData' + PathDelim ;
-  ARegistry.Free;
+  ARegistry.Free;*) //TODO Cross platform?
 
   sprofile := '';
   iniSettings := TIniFile.Create(configDir + 'LoginSettings.ini');
@@ -325,7 +328,7 @@ begin
 
   iniSettings.Free;
 
-  // Загрузка локализаций
+  // Download locations
   LangDirectory := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))
                    + PathDelim + '..' + PathDelim +'Language' + PathDelim;
   LanguageLoad(Self, lastLanguage, LangDirectory);
@@ -338,8 +341,8 @@ end;
 
 procedure TfrmLogin.BanerClick(Sender: TObject);
 begin
-  // Открываем сайт в браузере по умолчанию
-  ShellExecute(Handle, 'open', PChar('http://dev.uoquint.ru'), nil, nil, 1 {SW_SHOWNORMAL});
+  // Open the site in the default browser
+  //TODO ShellExecute(Handle, 'open', PChar('http://dev.uoquint.ru'), nil, nil, 1 {SW_SHOWNORMAL});
 end;
 
 procedure TfrmLogin.BanerDrawImage(baner : array of Byte);
@@ -356,7 +359,7 @@ end;
 //function GetTickCount:DWORD; external 'kernel32' name 'GetTickCount';
 procedure TfrmLogin.BanerAnimTimer(Sender: TObject);
 var NowsTickCount : DWORD;
-begin { Таймер и GetTickCount вообще не работают!!!
+begin { GetTickCount timer does not work!!!
   NowsTickCount := GetTickCount;
   if (NowsTickCount - LastTickCount) < 10000 then exit;
   LastTickCount := NowsTickCount;

Client/UfrmMain.pas

@@ -36,7 +36,7 @@ uses
   UWorldItem, LCLIntf, UOverlayUI, UStatics, UEnhancedMemoryStream, ActnList,
   XMLPropStorage, LazHelpHTML, fgl, ImagingClasses, dateutils, UPlatformTypes,
   UMap, UPacket, UGLFont, DOM, XMLRead, XMLWrite, strutils, ULightManager,
-  UndoRedoCmd, ShellAPI, ImagingTypes, ImagingCanvases, types, Registry,
+  UndoRedoCmd, ImagingTypes, ImagingCanvases, types, Registry,
   IniFiles, LMessages;
 
 const
@@ -1616,7 +1616,9 @@ begin
   //oglGameWindow.Visible:= false;
   //oglGameWindowResize(Sender);
 
-  ARegistry := TRegistry.Create();
+  FConfigDir := GetAppConfigDir(False);
+
+  (*ARegistry := TRegistry.Create();
   ARegistry.RootKey := HKEY_LOCAL_MACHINE;
   ARegistry.OpenKey('\SOFTWARE\Quintessence\UO CentrED+', False);
 
@@ -1625,7 +1627,7 @@ begin
   if ARegistry.ReadBool('UseConfigDir')
     then FConfigDir := GetAppConfigDir(False)
     else FConfigDir := FLocalDir + 'UsersData' + PathDelim;
-  ARegistry.Free;
+  ARegistry.Free;*) //TODO cross platform
 
   if (sprofile <> '')
     then FProfileDir := FConfigDir + 'Profiles' + PathDelim + UTF8ToCP1251(sprofile) + PathDelim
@@ -2270,7 +2272,7 @@ end;
 
 //procedure ssrSaveHandle(handle: HWND; filepath: PChar);  external  'SSRender';
   //function GetDesktopWindow(): HWND; external  'SSRender';
-function GetDesktopWindow:HWND; external 'user32' name 'GetDesktopWindow';
+//function GetDesktopWindow:HWND; external 'user32' name 'GetDesktopWindow';
 procedure TfrmMain.mnuMakeScreenShotClick(Sender: TObject);
 var
   Bitmap: TBitmap;
@@ -2285,35 +2287,35 @@ var
 begin
   Bitmap:= TBitmap.Create;
   Image := TJPEGImage.Create;
-  // Снимаем фокус с окна (чтобы убрать стрелочки)
+  // We remove the focus from the window (to remove the arrows)
   Refocus := oglGameWindow.Focused;
   if Refocus then begin
     oglGameWindowMouseLeave(Sender);
     oglGameWindow.Paint;
   end;
-  // Получение контекстного устройства
+  // Obtaining device context
   oglGameWindow.HandleNeeded;
-  ScreenWND := GetDesktopWindow();// oglGameWindow.Handle; //Handle;//0;//
+  //TODO : ScreenWND := GetDesktopWindow();// oglGameWindow.Handle; //Handle;//0;//
   ScreenDC := GetDC(ScreenWND);   //GetDeviceContext(ScreenWND);
   if ScreenDC<>0 then try
-    // Получаем "буффер" экрана
+    // We get the "buffer" screen
     Bitmap.LoadFromDevice(ScreenDC);
-    // Размеры сохраняемого изображения
+    // The size of the stored image
     destRect.Left  :=0;
     destRect.Top   :=0;
     destRect.Right :=oglGameWindow.Width;
     destRect.Bottom:=oglGameWindow.Height;
     Image.SetSize(destRect.Right, destRect.Bottom);
-    // Сохраняемая область на экране
+    // Keep the area on the screen
     oglPoint.x := 0;  oglPoint.y := 0;
     oglPoint := oglGameWindow.ClientToScreen(oglPoint);
     srcRect.Left   := oglPoint.x;
     srcRect.Top    := oglPoint.y;
     srcRect.Right  := srcRect.Left + destRect.Right;
     srcRect.Bottom := srcRect.Top  + destRect.Bottom;
-    // Копируем область с экрана на сохраняемое изображение
+    // Copy the area from the screen to the stored image
     Image.Canvas.CopyRect(destRect, Bitmap.Canvas, srcRect);
-    // Сохраняем файл
+    // Save the file
     DateTime := Now;
     FolderPath := FAppDir + '../ScreenShots/' + FormatDateTime('YYYY-MM-DD', DateTime) + '/';
     ForceDirectories(FolderPath);
@@ -2327,7 +2329,7 @@ begin
     Image.Free;
   end else
     MessageDlg(lbDlgGetDcErrCaption, lbDlgGetDcErr, mtError, [mbOK], 0);
-  // Возвращаем обратно фокус окна (если надо)
+  // Return back to the focus window (if necessary)
   if Refocus then begin
     oglGameWindowMouseEnter(Sender);
     oglGameWindow.Paint;
@@ -2908,22 +2910,22 @@ end;
 
 procedure TfrmMain.mnuDocsClick(Sender: TObject);
 begin
-  ShellExecute(Handle, 'open', PChar('http://dev.uoquint.ru/projects/centred/wiki'), nil, nil, 1 {SW_SHOWNORMAL});
+  //TODO ShellExecute(Handle, 'open', PChar('http://dev.uoquint.ru/projects/centred/wiki'), nil, nil, 1 {SW_SHOWNORMAL});
 end;
 
 procedure TfrmMain.mnuRusComClick(Sender: TObject);
 begin
-  ShellExecute(Handle, 'open', PChar('http://forum.uokit.com/index.php?showforum=207'), nil, nil, 1 {SW_SHOWNORMAL});
+  //TODO ShellExecute(Handle, 'open', PChar('http://forum.uokit.com/index.php?showforum=207'), nil, nil, 1 {SW_SHOWNORMAL});
 end;
 
 procedure TfrmMain.mnuEng2ComClick(Sender: TObject);
 begin
-  ShellExecute(Handle, 'open', PChar('http://craftuo.com/threads/centred.888'), nil, nil, 1 {SW_SHOWNORMAL});
+  //TODO ShellExecute(Handle, 'open', PChar('http://craftuo.com/threads/centred.888'), nil, nil, 1 {SW_SHOWNORMAL});
 end;
 
 procedure TfrmMain.mnuEngComClick(Sender: TObject);
 begin
-  ShellExecute(Handle, 'open', PChar('http://board.uoquint.ru/'), nil, nil, 1 {SW_SHOWNORMAL});
+  //TODO ShellExecute(Handle, 'open', PChar('http://board.uoquint.ru/'), nil, nil, 1 {SW_SHOWNORMAL});
 end;
 
 procedure TfrmMain.oglGameWindowPaint(Sender: TObject);

Client/UfrmRadar.pas

@@ -32,7 +32,7 @@ interface
 uses
   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
   ImagingClasses, ImagingComponents, ImagingTypes, UEnhancedMemoryStream, crc,
-  StdCtrls, LConvEncoding, Windows, ShellAPI, Logging, LCLIntf;
+  StdCtrls, LConvEncoding, Logging, LCLIntf;
 
 type