Changeset 114 for trunk/Packages


Ignore:
Timestamp:
May 1, 2016, 11:13:57 PM (9 years ago)
Author:
chronos
Message:
  • Fixed: Build under FPC 3.0 and Lazarus 1.6.
  • Modified: Updated internet tariffs page.
Location:
trunk/Packages
Files:
7 edited
1 moved

Legend:

Unmodified
Added
Removed

  • trunk/Packages/Common/UCommon.pas

    r89 r114  
    77uses
    88  {$IFDEF Windows}Windows,{$ENDIF}
    9   Classes, SysUtils, StrUtils, Dialogs, Process, LCLIntf,
     9  Classes, SysUtils, StrUtils, Dialogs, Process, LCLIntf, LazFileUtils,
    1010  FileUtil; //, ShFolder, ShellAPI;
    1111

  • trunk/Packages/Common/UDebugLog.pas

    r89 r114  
    66
    77uses
    8   Classes, SysUtils, FileUtil, SpecializedList, SyncObjs;
     8  Classes, SysUtils, FileUtil, SpecializedList, SyncObjs, LazFileUtils;
    99
    1010type

  • trunk/Packages/CoolWeb/CoolWeb.lpk

    r103 r114  
    1 <?xml version="1.0"?>
     1<?xml version="1.0" encoding="UTF-8"?>
    22<CONFIG>
    33  <Package Version="4">
    44    <Name Value="CoolWeb"/>
     5    <Type Value="RunAndDesignTime"/>
    56    <AddToProjectUsesSection Value="True"/>
    67    <Author Value="Chronos (robie@centrum.cz)"/>
    … …  
    910      <SearchPaths>
    1011        <IncludeFiles Value="WebServer"/>
    11         <OtherUnitFiles Value="WebServer;Persistence;Network;Modules;Common;/usr/lib/mysql;/usr/lib64/mysql"/>
     12        <OtherUnitFiles Value="WebServer;Persistence;Network;Modules;Common;/usr/lib/mysql/;/usr/lib64/mysql/"/>
    1213        <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    1314      </SearchPaths>
    … …  
    1718        </SyntaxOptions>
    1819      </Parsing>
    19       <Other>
    20         <CompilerMessages>
    21           <UseMsgFile Value="True"/>
    22         </CompilerMessages>
    23         <CompilerPath Value="$(CompPath)"/>
    24       </Other>
    2520    </CompilerOptions>
    2621    <Description Value="Unit set for generating CGI or server web application."/>
    2722    <License Value="GNU/GPL"/>
    2823    <Version Minor="3"/>
    29     <Files Count="17">
     24    <Files Count="18">
    3025      <Item1>
    3126        <Filename Value="WebServer/UHTTPServer.pas"/>
    … …  
    10499        <UnitName Value="LazIDEReg"/>
    105100      </Item17>
     101      <Item18>
     102        <Filename Value="Modules/UWebUser.pas"/>
     103        <UnitName Value="UWebUser"/>
     104      </Item18>
    106105    </Files>
    107     <Type Value="RunAndDesignTime"/>
    108106    <RequiredPkgs Count="8">
    109107      <Item1>

  • trunk/Packages/CoolWeb/CoolWeb.pas

    r103 r114  
    55unit CoolWeb;
    66
     7{$warn 5023 off : no warning about unused units}
    78interface
    89
    … …  
    1112  UTurboPowerForm, UHTTPSessionFile, UHTTPSessionMySQL, USqlDatabase,
    1213  UTCPServer, UPageList, UHtmlClasses, UMemoryStreamEx, UMIMEType,
    13   UXmlClasses, UWebPage, UWebApp, LazIDEReg, LazarusPackageIntf;
     14  UXmlClasses, UWebPage, UWebApp, LazIDEReg, UWebUser, LazarusPackageIntf;
    1415
    1516implementation

  • trunk/Packages/CoolWeb/Modules/UWebUser.pas

    r113 r114  
    1 unit UUser;
     1unit UWebUser;
    22
    33{$mode Delphi}{$H+}

  • trunk/Packages/CoolWeb/Network/UTCPServer.pas

    r96 r114  
    1313  //LibC,
    1414  {$ENDIF}
    15   BlckSock, UPool, UResetableThread;
     15  BlckSock, UResetableThread;
    1616
    1717type

  • trunk/Packages/CoolWeb/WebServer/UHTTPSessionFile.pas

    r100 r114  
    66
    77uses
    8   Classes, SysUtils, UHTTPServer, syncobjs, synacode, UCommon, FileUtil;
     8  Classes, SysUtils, UHTTPServer, syncobjs, synacode, UCommon, FileUtil,
     9  LazFileUtils;
    910
    1011type

  • trunk/Packages/TemplateGenerics/Generic/GenericMatrix.inc

    r84 r114  
    4949    function Implode(RowSeparator, ColSeparator: string; Converter: TGMatrixToStringConverter): string;
    5050    procedure Explode(Text, Separator: string; Converter: TGMatrixFromStringConverter; SlicesCount: Integer = -1);
    51     function IndexOf(Item: TGMatrixItem; Start: TGMatrixIndex = 0): TGMatrixIndex;
    52     function IndexOfList(List: TGMatrix; Start: TGMatrixIndex = 0): TGMatrixIndex;
     51    function IndexOf(Item: TGMatrixItem; Start: TGMatrixIndex): TGMatrixIndex;
     52    function IndexOfList(List: TGMatrix; Start: TGMatrixIndex): TGMatrixIndex;
    5353    procedure Insert(Index: TGMatrixIndex; Item: TGMatrixItem);
    5454    procedure InsertList(Index: TGMatrixIndex; List: TGMatrix);
Note: See TracChangeset for help on using the changeset viewer.