equal
deleted
inserted
replaced
257 var x1, x2, y, k, i, girderHeight: LongInt; |
257 var x1, x2, y, k, i, girderHeight: LongInt; |
258 rr: TSDL_Rect; |
258 rr: TSDL_Rect; |
259 bRes: boolean; |
259 bRes: boolean; |
260 begin |
260 begin |
261 if girSurf = nil then |
261 if girSurf = nil then |
262 girSurf:= LoadDataImageAltPath(ptCurrTheme, ptGraphics, 'Girder', ifCritical or ifTransparent or ifIgnoreCaps); |
262 girSurf:= LoadDataImageAltPath(ptCurrTheme, ptGraphics, 'Girder', ifCritical or ifColorKey or ifIgnoreCaps); |
263 |
263 |
264 girderHeight:= girSurf^.h; |
264 girderHeight:= girSurf^.h; |
265 |
265 |
266 y:= topY+150; |
266 y:= topY+150; |
267 repeat |
267 repeat |
683 begin |
683 begin |
684 inc(ThemeObjects.Count); |
684 inc(ThemeObjects.Count); |
685 with ThemeObjects.objs[Pred(ThemeObjects.Count)] do |
685 with ThemeObjects.objs[Pred(ThemeObjects.Count)] do |
686 begin |
686 begin |
687 i:= Pos(',', s); |
687 i:= Pos(',', s); |
688 Surf:= LoadDataImage(ptCurrTheme, Trim(Copy(s, 1, Pred(i))), ifTransparent or ifIgnoreCaps or ifCritical); |
688 Surf:= LoadDataImage(ptCurrTheme, Trim(Copy(s, 1, Pred(i))), ifColorKey or ifIgnoreCaps or ifCritical); |
689 Width:= Surf^.w; |
689 Width:= Surf^.w; |
690 Height:= Surf^.h; |
690 Height:= Surf^.h; |
691 Mask:= LoadDataImage(ptCurrTheme, Trim(Copy(s, 1, Pred(i)))+'_mask', ifTransparent or ifIgnoreCaps); |
691 Mask:= LoadDataImage(ptCurrTheme, Trim(Copy(s, 1, Pred(i)))+'_mask', ifColorKey or ifIgnoreCaps); |
692 Delete(s, 1, i); |
692 Delete(s, 1, i); |
693 i:= Pos(',', s); |
693 i:= Pos(',', s); |
694 Maxcnt:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |
694 Maxcnt:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |
695 Delete(s, 1, i); |
695 Delete(s, 1, i); |
696 if (Maxcnt < 1) or (Maxcnt > MAXTHEMEOBJECTS) then |
696 if (Maxcnt < 1) or (Maxcnt > MAXTHEMEOBJECTS) then |
760 begin |
760 begin |
761 inc(SprayObjects.Count); |
761 inc(SprayObjects.Count); |
762 with SprayObjects.objs[Pred(SprayObjects.Count)] do |
762 with SprayObjects.objs[Pred(SprayObjects.Count)] do |
763 begin |
763 begin |
764 i:= Pos(',', s); |
764 i:= Pos(',', s); |
765 Surf:= LoadDataImage(ptCurrTheme, Trim(Copy(s, 1, Pred(i))), ifTransparent or ifIgnoreCaps); |
765 Surf:= LoadDataImage(ptCurrTheme, Trim(Copy(s, 1, Pred(i))), ifColorKey or ifIgnoreCaps); |
766 Width:= Surf^.w; |
766 Width:= Surf^.w; |
767 Height:= Surf^.h; |
767 Height:= Surf^.h; |
768 Delete(s, 1, i); |
768 Delete(s, 1, i); |
769 Maxcnt:= StrToInt(Trim(s)); |
769 Maxcnt:= StrToInt(Trim(s)); |
770 end; |
770 end; |