equal
deleted
inserted
replaced
489 LoadImage:= Result |
489 LoadImage:= Result |
490 end; |
490 end; |
491 |
491 |
492 //////////////////////////////////////////////////////////////////////////////// |
492 //////////////////////////////////////////////////////////////////////////////// |
493 var ProgrSurf: PSDL_Surface = nil; |
493 var ProgrSurf: PSDL_Surface = nil; |
494 Step: Longword = 0; |
494 Step: integer = 0; |
495 |
495 |
496 procedure AddProgress; |
496 procedure AddProgress; |
497 var r: TSDL_Rect; |
497 var r: TSDL_Rect; |
498 begin |
498 begin |
499 if Step = 0 then |
499 if Step = 0 then |