equal
deleted
inserted
replaced
347 end; |
347 end; |
348 TryPut:= bRes; |
348 TryPut:= bRes; |
349 end; |
349 end; |
350 |
350 |
351 procedure ReadThemeInfo(var ThemeObjects: TThemeObjects; var SprayObjects: TSprayObjects); |
351 procedure ReadThemeInfo(var ThemeObjects: TThemeObjects; var SprayObjects: TSprayObjects); |
352 var s: string; |
352 var s: shortstring; |
353 f: textfile; |
353 f: textfile; |
354 i, ii: LongInt; |
354 i, ii: LongInt; |
355 vobcount: Longword; |
355 vobcount: Longword; |
356 c1, c2: TSDL_Color; |
356 c1, c2: TSDL_Color; |
357 |
357 |