Changeset 9 for trunk/ScreenTools.pas


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

    r6 r9  
    1 {$INCLUDE switches}
     1{$INCLUDE Switches.pas}
    22unit ScreenTools;
    33
    … …  
    55
    66uses
    7   StringTables,
    8 
    9   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Menus;
     7  Windows, StringTables,
     8
     9  LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms, Menus;
    1010
    1111type
    … …  
    1313    Image: TBitmap;
    1414    clBevelLight, clBevelShade, clTextLight, clTextShade, clLitText, clMark,
    15       clPage, clCover: TColor end;
     15      clPage, clCover: TColor;
     16  end;
    1617
    1718    function ChangeResolution(x, y, bpp, freq: integer): boolean;
    … …  
    192193  Directories, Sound, ButtonBase, ButtonA, ButtonB,
    193194
    194   Registry, JPEG;
     195  Registry;
    195196
    196197var
Note: See TracChangeset for help on using the changeset viewer.