Revision: 1861
http://cose.svn.sourceforge.net/cose/?rev=1861&view=rev
Author: nfz_
Date: 2011-02-16 22:18:22 +0000 (Wed, 16 Feb 2011)
Log Message:
-----------
ProcessNode:
- TProcessTimer has a new property called MasterTick that increments each time band 0 starts over
Modified Paths:
--------------
trunk/editor/ProcessNode.pas
Modified: trunk/editor/ProcessNode.pas
===================================================================
--- trunk/editor/ProcessNode.pas 2011-01-09 05:26:16 UTC (rev 1860)
+++ trunk/editor/ProcessNode.pas 2011-02-16 22:18:22 UTC (rev 1861)
@@ -83,6 +83,7 @@
TProcessTimer = class(TComponent)
private
{ Private declarations }
+ FMasterTick: integer; // tick increments at begining of each band 0 start
PTimer: TTimer;
ProcListBandPos: integer;
ProcessBands: array[1..4] of TProcessBand;
@@ -112,6 +113,8 @@
function BandTimeMS(Band: integer): integer;
property TotalProcCount: integer read TotalProcessCount;
property TotalProcLegCount: integer read TotalLegCount;
+ property MasterTick: integer read FMasterTick;
+
published
{ Published declarations }
property TimerEnabled: boolean read GetTimerEnabled write SetTimerEnabled;
@@ -245,6 +248,7 @@
FTimerPartitions := 1;
ProcessTimeMS := 250;
PTimer.OnTimer := RunProcesses;
+ FMasterTick:= 0;
//
end;
@@ -334,7 +338,12 @@
begin
ProcessBand.LegCountLeft := ProcessBand.LegCount;
Inc(ProcListBandPos);
- if ProcListBandPos > 4 then ProcListBandPos := 1;
+ if ProcListBandPos > 4 then
+ begin
+ ProcListBandPos := 1;
+ // update master tick since starting over at the beginning again
+ inc(FMasterTick);
+ end;
ProcessBand := @ProcessBands[ProcListBandPos];
end;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
