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

    r6 r9  
    1 {$INCLUDE switches}
     1{$INCLUDE switches.pas}
    22unit Diagram;
    33
    … …  
    77  BaseWin,
    88
    9   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
     9  LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms,
    1010  ButtonB, ButtonBase, Menus;
    1111
    … …  
    4343  Protocol, ScreenTools, ClientTools, Term, Tribes;
    4444
    45 {$R *.DFM}
     45{$R *.lfm}
    4646
    4747const
    … …  
    6666    FillRect(Rect(Left, Top, Left + Width, Top + 200));
    6767    Brush.Style := bsClear;
    68     Frame(canvas, Left - 1, Top - 1, Left + Width, Top + 200,
     68    ScreenTools.Frame(canvas, Left - 1, Top - 1, Left + Width, Top + 200,
    6969      MainTexture.clBevelShade, MainTexture.clBevelLight);
    7070    RFrame(canvas, Left - 2, Top - 2, Left + Width + 1, Top + 200 + 1,
Note: See TracChangeset for help on using the changeset viewer.