Changeset 135 for trunk


Ignore:
Timestamp:
May 3, 2018, 12:26:57 PM (7 years ago)
Author:
chronos
Message:
  • Fixed: Reduced compiler warnings.
Location:
trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/Components/ButtonBase.pas

    r111 r135  
    88type
    99  TButtonBase = class(TGraphicControl)
    10     constructor Create(aOwner: TComponent); override;
    1110  protected
    1211    FDown, FPermanent: boolean;
    … …  
    2625    Active: boolean;
    2726  public
     27    constructor Create(aOwner: TComponent); override;
    2828    property Graphic: TBitmap read FGraphic write FGraphic;
    2929    // property DownSound: string read FDownSound write FDownSound;

  • trunk/Components/CevoComponents.lpk

    r111 r135  
    1515          <SyntaxMode Value="Delphi"/>
    1616          <CStyleOperator Value="False"/>
    17           <IncludeAssertionCode Value="True"/>
    1817          <AllowLabel Value="False"/>
    1918          <CPPInline Value="False"/>
    … …  
    2120      </Parsing>
    2221      <CodeGeneration>
    23         <Checks>
    24           <IOChecks Value="True"/>
    25           <RangeChecks Value="True"/>
    26           <OverflowChecks Value="True"/>
    27           <StackChecks Value="True"/>
    28         </Checks>
    29         <VerifyObjMethodCallValidity Value="True"/>
    3022        <Optimizations>
    3123          <OptimizationLevel Value="0"/>
    3224        </Optimizations>
    3325      </CodeGeneration>
     26      <Linking>
     27        <Debugging>
     28          <GenerateDebugInfo Value="False"/>
     29        </Debugging>
     30      </Linking>
    3431      <Other>
    3532        <CompilerMessages>

  • trunk/Components/Sound.pas

    r111 r135  
    136136end;
    137137
    138 var
    139   i: integer;
    140 
    141138procedure UnitInit;
    142139begin

  • trunk/LocalPlayer/Diagram.pas

    r120 r135  
    3939
    4040uses
    41   Protocol, ScreenTools, ClientTools, Term, Tribes;
     41  Protocol, ScreenTools, ClientTools, Tribes;
    4242
    4343{$R *.lfm}
    … …  
    141141
    142142procedure TDiaDlg.OffscreenPaint;
    143 type
    144   TLine = array [0 .. 99999, 0 .. 2] of Byte;
    145143var
    146144  p, T, max, x, y, y0, Stop, r, RoundRange, LineStep: integer;

  • trunk/Messg.pas

    r111 r135  
    66uses
    77  ScreenTools, LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes,
    8   Graphics, Controls, Forms, ButtonBase, ButtonA, ButtonB, Area, DrawDlg;
     8  Graphics, Controls, Forms, ButtonA, DrawDlg;
    99
    1010const

  • trunk/Start.pas

    r128 r135  
    9898    procedure UnlistBackupFile(FileName: string);
    9999    procedure SmartInvalidate(x0, y0, x1, y1: integer;
    100       invalidateTab0: boolean = false);
     100      invalidateTab0: boolean = false); overload;
    101101  end;
    102102
Note: See TracChangeset for help on using the changeset viewer.