Changeset 135
- Timestamp:
- May 3, 2018, 12:26:57 PM (7 years ago)
- Location:
- trunk
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Components/ButtonBase.pas
r111 r135 8 8 type 9 9 TButtonBase = class(TGraphicControl) 10 constructor Create(aOwner: TComponent); override;11 10 protected 12 11 FDown, FPermanent: boolean; … … 26 25 Active: boolean; 27 26 public 27 constructor Create(aOwner: TComponent); override; 28 28 property Graphic: TBitmap read FGraphic write FGraphic; 29 29 // property DownSound: string read FDownSound write FDownSound; -
trunk/Components/CevoComponents.lpk
r111 r135 15 15 <SyntaxMode Value="Delphi"/> 16 16 <CStyleOperator Value="False"/> 17 <IncludeAssertionCode Value="True"/>18 17 <AllowLabel Value="False"/> 19 18 <CPPInline Value="False"/> … … 21 20 </Parsing> 22 21 <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"/>30 22 <Optimizations> 31 23 <OptimizationLevel Value="0"/> 32 24 </Optimizations> 33 25 </CodeGeneration> 26 <Linking> 27 <Debugging> 28 <GenerateDebugInfo Value="False"/> 29 </Debugging> 30 </Linking> 34 31 <Other> 35 32 <CompilerMessages> -
trunk/Components/Sound.pas
r111 r135 136 136 end; 137 137 138 var139 i: integer;140 141 138 procedure UnitInit; 142 139 begin -
trunk/LocalPlayer/Diagram.pas
r120 r135 39 39 40 40 uses 41 Protocol, ScreenTools, ClientTools, T erm, Tribes;41 Protocol, ScreenTools, ClientTools, Tribes; 42 42 43 43 {$R *.lfm} … … 141 141 142 142 procedure TDiaDlg.OffscreenPaint; 143 type144 TLine = array [0 .. 99999, 0 .. 2] of Byte;145 143 var 146 144 p, T, max, x, y, y0, Stop, r, RoundRange, LineStep: integer; -
trunk/Messg.pas
r111 r135 6 6 uses 7 7 ScreenTools, LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, 8 Graphics, Controls, Forms, Button Base, ButtonA, ButtonB, Area, DrawDlg;8 Graphics, Controls, Forms, ButtonA, DrawDlg; 9 9 10 10 const -
trunk/Start.pas
r128 r135 98 98 procedure UnlistBackupFile(FileName: string); 99 99 procedure SmartInvalidate(x0, y0, x1, y1: integer; 100 invalidateTab0: boolean = false); 100 invalidateTab0: boolean = false); overload; 101 101 end; 102 102
Note:
See TracChangeset
for help on using the changeset viewer.