Rev 40 | Rev 44 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 40 | Rev 42 | ||
|---|---|---|---|
| Line 1513... | Line 1513... | ||
| 1513 | end; |
1513 | end; |
| 1514 | end; |
1514 | end; |
| 1515 | 1515 | ||
| 1516 | procedure TMainForm.DXDrawInitialize(Sender: TObject); |
1516 | procedure TMainForm.DXDrawInitialize(Sender: TObject); |
| 1517 | begin |
1517 | begin |
| 1518 | DXTimer.Enabled := True; |
1518 | if Assigned(DXTimer) then DXTimer.Enabled := True; |
| 1519 | end; |
1519 | end; |
| 1520 | 1520 | ||
| 1521 | procedure TMainForm.DXDrawFinalize(Sender: TObject); |
1521 | procedure TMainForm.DXDrawFinalize(Sender: TObject); |
| 1522 | begin |
1522 | begin |
| 1523 | DXTimer.Enabled := False; |
1523 | if Assigned(DXTimer) then DXTimer.Enabled := False; |
| 1524 | end; |
1524 | end; |
| 1525 | 1525 | ||
| 1526 | procedure TMainForm.DXTimerActivate(Sender: TObject); |
1526 | procedure TMainForm.DXTimerActivate(Sender: TObject); |
| 1527 | begin |
1527 | begin |
| 1528 | if TDxTimer(Sender).Tag > 0 then |
1528 | if TDxTimer(Sender).Tag > 0 then |