Browse Subversion Repository
Diff of /Unit2.pas
 Parent Directory
|  Revision Log
|  Patch
| 60 |
s.Start(true); |
s.Start(true); |
| 61 |
while Terminated = false do |
while Terminated = false do |
| 62 |
begin |
begin |
|
s.Execute; |
|
| 63 |
Synchronize( |
Synchronize( |
| 64 |
procedure |
procedure |
| 65 |
begin |
begin |
| 66 |
Form1.FormPaint(s); |
Form1.FormPaint(s); |
| 67 |
|
s.Execute; |
| 68 |
end); |
end); |
| 69 |
|
if s.Sleeps = true then |
| 70 |
|
Sleep(100) |
| 71 |
|
else |
| 72 |
|
s.Sleeps:=true; |
| 73 |
end; |
end; |
| 74 |
end; |
end; |
| 75 |
|
|
|
|
Legend:
| Removed from v.4 |
|
| changed lines |
| |
Added in v.5 |
|
|
| 
Parent Directory
Revision Log
Patch