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/CityScreen.pas

    r6 r9  
    1 {$INCLUDE switches}
     1{$INCLUDE switches.pas}
    22unit CityScreen;
    33
    … …  
    77  Protocol, ClientTools, Term, ScreenTools, IsoEngine, BaseWin,
    88
    9   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls,
     9  LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls,
    1010  ButtonA,
    1111  ButtonB, ButtonBase, ButtonC, Area;
    … …  
    9393  Math;
    9494
    95 {$R *.DFM}
     95{$R *.lfm}
    9696
    9797const
    … …  
    306306  with SmallCityMap.Canvas do
    307307  begin
    308     brush.Color := Colors.Canvas.Pixels[clkAge0 + Age, cliImp];
     308    brush.Color := ScreenTools.Colors.Canvas.Pixels[clkAge0 + Age, cliImp];
    309309    for i := 0 to 29 do
    310310    begin
    … …  
    338338        if i < 36 then
    339339        begin
    340           brush.Color := Colors.Canvas.Pixels[clkAge0 + Age, cliImpProject];
     340          brush.Color := ScreenTools.Colors.Canvas.Pixels[clkAge0 + Age, cliImpProject];
    341341          FillRect(Rect(5 + 16 * (i mod 3) + 48 * (i div 18),
    342342            3 + 12 * (i mod 18 div 3), 13 + 16 * (i mod 3) + 48 * (i div 18),
    … …  
    989989    if ProdHint then
    990990    begin
    991       Frame(offscreen.Canvas, xView + 9 - 1, yView + 5 - 1,
     991      ScreenTools.Frame(offscreen.Canvas, xView + 9 - 1, yView + 5 - 1,
    992992        xView + 9 + xSizeBig, yView + 5 + ySizeBig, $B0B0B0, $FFFFFF);
    993993      RFrame(offscreen.Canvas, xView + 9 - 2, yView + 5 - 2,
    … …  
    16241624        bitblt(Canvas.Handle, xView + 5 + 62, yView + 3, 2, 42,
    16251625          Back.Canvas.Handle, xView + 5 + 62, yView + 3, SRCCOPY);
    1626         Frame(Canvas, xView + 9 - 1, yView + 5 - 1, xView + 9 + xSizeBig,
     1626        ScreenTools.Frame(Canvas, xView + 9 - 1, yView + 5 - 1, xView + 9 + xSizeBig,
    16271627          yView + 5 + ySizeBig, $B0B0B0, $FFFFFF);
    16281628        RFrame(Canvas, xView + 9 - 2, yView + 5 - 2, xView + 9 + xSizeBig + 1,
Note: See TracChangeset for help on using the changeset viewer.