Ignore:
Timestamp:
Jan 7, 2017, 1:28:56 PM (7 years ago)
Author:
chronos
Message:
  • Modified: Converted to Lazarus project. Application can be run with errors.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        66Win32
        77*.~dsk
         8C-evo.exe
         9Integrated.compiled
         10Integrated.lps
         11lib

  • trunk/LocalPlayer/Help.pas

    r6 r9  
    1 {$INCLUDE switches}
     1{$INCLUDE switches.pas}
    22unit Help;
    33
    … …  
    77  Protocol, ScreenTools, BaseWin, StringTables,
    88
    9   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
    10   ExtCtrls, ButtonB, PVSB, ButtonBase;
     9  LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms,
     10  ExtCtrls, ButtonB, PVSB, ButtonBase, Types;
    1111
    1212const
    … …  
    9898
    9999uses
    100   Directories, ClientTools, Term, Tribes, ShellAPI, Inp, Messg;
    101 
    102 {$R *.DFM}
     100  Directories, ClientTools, Term, Tribes, Inp, Messg;
     101
     102{$R *.lfm}
    103103
    104104type
    105   THelpLineInfo = packed record
     105  THelpLineInfo = class
    106106    Format, Picpix: Byte;
    107107    Link: Word;
    … …  
    113113  HelpLineInfo: THelpLineInfo;
    114114begin
     115  HelpLineInfo := THelpLineInfo.Create;
    115116  if LinkIndex < 0 then
    116117    LinkIndex := liInvalid;
    … …  
    475476          pkSmallIcon, pkSmallIcon_AsPreq:
    476477            begin
    477               Frame(OffScreen.Canvas, 8 - 1 + x0[i], 2 - 1 + i * 24,
     478              ScreenTools.Frame(OffScreen.Canvas, 8 - 1 + x0[i], 2 - 1 + i * 24,
    478479                8 + xSizeSmall + x0[i], 2 + 20 + i * 24, $000000, $000000);
    479480              if HelpLineInfo.Picpix = imPalace then
    … …  
    533534          pkDomain:
    534535            begin
    535               Frame(OffScreen.Canvas, 8 - 1 + x0[i], 2 - 1 + i * 24,
     536              ScreenTools.Frame(OffScreen.Canvas, 8 - 1 + x0[i], 2 - 1 + i * 24,
    536537                8 + 36 + x0[i], 2 + 20 + i * 24, $000000, $000000);
    537538              Dump(OffScreen, HGrSystem, 8 + x0[i], 2 + i * 24, 36, 20,
    … …  
    541542          pkAdvIcon, pkAdvIcon_AsPreq:
    542543            begin
    543               Frame(OffScreen.Canvas, 8 - 1 + x0[i], 2 - 1 + i * 24,
     544              ScreenTools.Frame(OffScreen.Canvas, 8 - 1 + x0[i], 2 - 1 + i * 24,
    544545                8 + xSizeSmall + x0[i], 2 + ySizeSmall + i * 24,
    545546                $000000, $000000);
    … …  
    582583                  Dump(OffScreen, HGrSystem, InnerWidth - 38 - 38 * cnt,
    583584                    i * 24 + 1, 36, 20, 75 + j * 37, 295);
    584                   Frame(OffScreen.Canvas, InnerWidth - 39 - 38 * cnt, i * 24,
     585                  ScreenTools.Frame(OffScreen.Canvas, InnerWidth - 39 - 38 * cnt, i * 24,
    585586                    InnerWidth - 2 - 38 * cnt, i * 24 + 21, $000000, $000000);
    586587                end;
    … …  
    707708              DarkGradient(OffScreen.Canvas, x0[i] + 8 - 1,
    708709                7 + i * 24 - 3, 16, 1);
    709               Frame(OffScreen.Canvas, x0[i] + 8, 7 + i * 24 - 2, x0[i] + 8 + 13,
     710              ScreenTools.Frame(OffScreen.Canvas, x0[i] + 8, 7 + i * 24 - 2, x0[i] + 8 + 13,
    710711                7 + i * 24 - 2 + 13, $C0C0C0, $C0C0C0);
    711712              Sprite(OffScreen, HGrSystem, x0[i] + 8 + 2, 7 + i * 24, 10, 10,
    … …  
    716717          pkExp:
    717718            begin
    718               Frame(OffScreen.Canvas, 20 - 1, 8 - 4 + i * 24, 20 + 12,
     719              ScreenTools.Frame(OffScreen.Canvas, 20 - 1, 8 - 4 + i * 24, 20 + 12,
    719720                8 + 11 + i * 24, $000000, $000000);
    720721              Dump(OffScreen, HGrSystem, 20, 8 - 3 + i * 24, 12, 14,
    … …  
    730731          pkGov:
    731732            begin
    732               Frame(OffScreen.Canvas, 8 - 1 + x0[i], 2 - 1 + i * 24,
     733              ScreenTools.Frame(OffScreen.Canvas, 8 - 1 + x0[i], 2 - 1 + i * 24,
    733734                8 + xSizeSmall + x0[i], 2 + 20 + i * 24, $000000, $000000);
    734735              BitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24, xSizeSmall,
    … …  
    750751          x0[i] := x0[i] + 8
    751752        end;
    752         line(OffScreen.Canvas, i, false)
    753       end
     753        Self.line(OffScreen.Canvas, i, false)
     754      end;
    754755  end;
    755756  MarkUsedOffscreen(InnerWidth, InnerHeight + 13 + 48);
    … …  
    18951896        case Link and $FF of
    18961897          1:
    1897             ShellExecute(Handle, 'open',
    1898               pchar(HomeDir + 'AI Template\AI development manual.html'), '', '',
    1899               SW_SHOWNORMAL);
     1898             OpenDocument(pchar(HomeDir + 'AI Template\AI development manual.html'));{ *Převedeno z ShellExecute* }
    19001899          2:
    1901             ShellExecute(Handle, 'open', 'http://c-evo.org', '', '',
    1902               SW_SHOWNORMAL);
     1900            OpenURL('http://c-evo.org');{ *Převedeno z ShellExecute* }
    19031901          3:
    1904             ShellExecute(Handle, 'open', 'http://c-evo.org/_sg/contact', '', '',
    1905               SW_SHOWNORMAL);
     1902            OpenURL('http://c-evo.org/_sg/contact');{ *Převedeno z ShellExecute* }
    19061903        end
    19071904      else
Note: See TracChangeset for help on using the changeset viewer.