equal
deleted
inserted
replaced
697 end; |
697 end; |
698 |
698 |
699 procedure ReadThemeInfo(var ThemeObjects: TThemeObjects; var SprayObjects: TSprayObjects); |
699 procedure ReadThemeInfo(var ThemeObjects: TThemeObjects; var SprayObjects: TSprayObjects); |
700 var s, key, nameRef: shortstring; |
700 var s, key, nameRef: shortstring; |
701 f: PFSFile; |
701 f: PFSFile; |
702 i, y: LongInt; |
702 i: LongInt; |
703 ii, t: Longword; |
703 ii, t: Longword; |
704 c2: TSDL_Color; |
704 c2: TSDL_Color; |
705 begin |
705 begin |
706 |
706 |
707 AddProgress; |
707 AddProgress; |