Subversion Repositories ExamClock

Rev

Rev 12 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12 Rev 14
Line 220... Line 220...
220 
      first the Foundation display }
 220 
      first the Foundation display }
221 
    if FoundationDuration > ZeroHour then
 221 
    if FoundationDuration > ZeroHour then
222 
    begin
 222 
    begin
223 
      FoundationDuration := FoundationDuration - Sec;
 223 
      FoundationDuration := FoundationDuration - Sec;
224 
      if FoundationDuration <= TenMins then
 224 
      if FoundationDuration <= TenMins then
225 
         FoundationTimeLabel.Color := clFuchsia
 225 
           FoundationTimeLabel.Color := clFuchsia
226 
      else
 226 
      else
227 
      begin
 227 
      begin
228 
        if FoundationDuration <= FoundationHalfTime then
 228 
        if FoundationDuration <= FoundationHalfTime then
229 
        FoundationTimeLabel.Color := clYellow;
 229 
          FoundationTimeLabel.Color := clYellow;
230 
      end;
 230 
      end;
231 
    end
 231 
    end
232 
    else
 232 
    else
233 
    begin
 233 
    begin
234 
      FoundationDuration := ZeroHour;
 234 
      FoundationDuration := ZeroHour;
Line 239... Line 239...
239 
    { update the Intermediate display }
 239 
    { update the Intermediate display }
240 
    if IntermediateDuration > ZeroHour then
 240 
    if IntermediateDuration > ZeroHour then
241 
    begin
 241 
    begin
242 
      IntermediateDuration := IntermediateDuration - Sec;
 242 
      IntermediateDuration := IntermediateDuration - Sec;
243 
      if IntermediateDuration <= TenMins then
 243 
      if IntermediateDuration <= TenMins then
244 
         IntermediateTimeLabel.Color := clFuchsia
 244 
           IntermediateTimeLabel.Color := clFuchsia
245 
      else
 245 
      else
246 
      begin
 246 
      begin
247 
        if IntermediateDuration <= IntermediateHalfTime then
 247 
        if IntermediateDuration <= IntermediateHalfTime then
248 
        IntermediateTimeLabel.Color := clYellow;
 248 
          IntermediateTimeLabel.Color := clYellow;
249 
      end;
 249 
      end;
250 
    end
 250 
    end
251 
    else
 251 
    else
252 
    begin
 252 
    begin
253 
      IntermediateDuration := ZeroHour;
 253 
      IntermediateDuration := ZeroHour;
Line 258... Line 258...
258 
    { update the Advanced display }
 258 
    { update the Advanced display }
259 
    if AdvancedDuration > ZeroHour then
 259 
    if AdvancedDuration > ZeroHour then
260 
    begin
 260 
    begin
261 
      AdvancedDuration := AdvancedDuration - Sec;
 261 
      AdvancedDuration := AdvancedDuration - Sec;
262 
      if AdvancedDuration <= TenMins then
 262 
      if AdvancedDuration <= TenMins then
263 
         AdvancedTimeLabel.Color := clFuchsia
 263 
        AdvancedTimeLabel.Color := clFuchsia
264 
      else
 264 
      else
265 
      begin
 265 
      begin
266 
        if AdvancedDuration <= AdvancedHalfTime then
 266 
        if AdvancedDuration <= AdvancedHalfTime then
267 
        AdvancedTimeLabel.Color := clYellow;
 267 
          AdvancedTimeLabel.Color := clYellow;
268 
      end;
 268 
      end;
269 
    end
 269 
    end
270 
    else
 270 
    else
271 
    begin
 271 
    begin
272 
      AdvancedDuration := ZeroHour;
 272 
      AdvancedDuration := ZeroHour;