CentrED/Client/CentrED.lpr

(*
 * 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 2010 Andreas Schneider
 *)
program CentrED;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils,
  Interfaces, // this includes the LCL widgetset
  Forms, Dialogs, Windows, UdmNetwork, UResourceManager;

{$R CentrED.res}
//{$R CentrED.manifest.rc}

function GetApplicationName: String;
begin
  Result := 'CentrED-plus';
end;

function LoadCursorFromRes(AFileName: string; CurFormat: Boolean = True): HCURSOR;
type
  TIconHeader = packed record
    hReserved: WORD; // = 0
    hType:     WORD; // ICO = 1, CUR = 2
    hCount:    WORD;
  end;
  TIconInfo = packed record
    iWidth:    BYTE;
    iHeight:   BYTE;
    iColors:   BYTE;
    iReserved: BYTE; // = 0
    iHotspotX: WORD; // CUR file (/iPlanes for ICO)
    iHotspotY: WORD; // CUR file (/iBpp for ICO)
    iSize:     Cardinal;
    iOffset:   Cardinal;
  end;
var
  stream: TStream;
  dwSize: Integer;
  buffer: array of Byte;
  header: TIconHeader;
  icoinf: TIconInfo;
begin
  stream := ResourceManager.GetResource(AFileName);
  dwSize := stream.Size;
  SetLength(buffer, dwSize + 8);
  stream.Read(buffer[0], dwSize);
  if not CurFormat then
    Result := HCURSOR(CreateIconFromResource(@buffer[0], dwSize, False, $00030000))
  else begin
    CopyMemory(@header, @buffer[0], SizeOf(TIconHeader));
    // Грузим последнее изображение, которое обычно должно являться первым и единственным в иконках
    CopyMemory(@icoinf, @buffer[SizeOf(TIconHeader) + (header.hCount - 1) * SizeOf(TIconInfo)], SizeOf(TIconInfo));
    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;
end;


begin
  Application.Title:='CentrED+';
  OnGetApplicationName := @GetApplicationName;
  Application.Initialize;
  if LowerCase(ChangeFileExt(ExtractFileName(ParamStr(0)), '')) <> LowerCase(GetApplicationName) then
  begin
    MessageDlg('Ошибка', 'Исполняемый файл был переименован. Переименуйте ' +
                         'файл следующим образом: "' +
                         GetApplicationName + '.exe"', mtError, [mbOK], 0);
    Application.Terminate;
  end;

  if Paramcount = 1 then begin
    MessageDlg('Параметры запуска', ParamStr(1), mtError, [mbOK], 0);
  end;


  // Загрузка курсоров ...
  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
  //Screen.Cursors[-12] := LoadCursorFromRes('Cursors/.cur');           //crDrag
  //Screen.Cursors[-16] := LoadCursorFromRes('Cursors/.cur');           //crMultiDrag
  //Screen.Cursors[-13] := LoadCursorFromRes('Cursors/.cur');           //crNoDrop

  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
  Screen.Cursors[-18] := LoadCursorFromRes('Cursors/TN_Unavailable.cur');          //crNo

  Screen.Cursors[-22] := LoadCursorFromRes('Cursors/BC_Move.cur');                 //crSize
  Screen.Cursors[-06] := LoadCursorFromRes('Cursors/BC_DiagonalResize2.cur');      //crSizeNESW
  Screen.Cursors[-07] := LoadCursorFromRes('Cursors/BC_VerticalResize.cur');       //crSizeNS
  Screen.Cursors[-08] := LoadCursorFromRes('Cursors/BC_DiagonalResize1.cur');      //crSizeNWSE
  Screen.Cursors[-09] := LoadCursorFromRes('Cursors/BC_HorizontalResize.cur');     //crSizeWE
  Screen.Cursors[-10] := LoadCursorFromRes('Cursors/BC_AlternateSelect.cur');      //crUpArrow
  //Screen.Cursors[-14] := LoadCursorFromRes('Cursors/.cur');           //crHSplit
  //Screen.Cursors[-15] := LoadCursorFromRes('Cursors/.cur');           //crVSplit

  Screen.Cursors[-21] := LoadCursorFromRes('Cursors/TN_LinkSelect.cur');           //crHandPoint
  Screen.Cursors[+01] := LoadCursorFromRes('Cursors/UO_Precision.cur');
  Screen.Cursors[+02] := LoadCursorFromRes('Cursors/UO_AttackMode.cur');
  Screen.Cursors[+03] := LoadCursorFromRes('Cursors/UO_Gauntlet.cur');

  // Запуск программы...
  Application.CreateForm(TdmNetwork, dmNetwork);
  Application.Run;
end.