Changeset 188 for trunk/LocalPlayer/Wonders.pas
- Timestamp:
- May 6, 2020, 11:21:12 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Wonders.pas
r170 r188 238 238 begin 239 239 case MyRO.Wonder[I].CityID of 240 - 240 -1: // not built yet 241 241 begin 242 242 Fill(Offscreen.Canvas, Center.X - xSizeBig div 2 + RingPosition[I].X - 3, … … 249 249 begin 250 250 HaveWonder := True; 251 BitBlt (Offscreen.Canvas.Handle,251 BitBltCanvas(Offscreen.Canvas, 252 252 Center.X - xSizeBig div 2 + RingPosition[I].X, 253 253 Center.Y - ySizeBig div 2 + RingPosition[I].Y, xSizeBig, 254 ySizeBig, BigImp.Canvas .Handle, 0, (SystemIconLines + 3) *255 ySizeBig , SRCCOPY);254 ySizeBig, BigImp.Canvas, 0, (SystemIconLines + 3) * 255 ySizeBig); 256 256 end; 257 257 else 258 258 begin 259 259 HaveWonder := True; 260 BitBlt (Offscreen.Canvas.Handle,260 BitBltCanvas(Offscreen.Canvas, 261 261 Center.X - xSizeBig div 2 + RingPosition[I].X, 262 262 Center.Y - ySizeBig div 2 + RingPosition[I].Y, xSizeBig, ySizeBig, 263 BigImp.Canvas .Handle, (I mod 7) * xSizeBig,264 (I div 7 + SystemIconLines) * ySizeBig , SRCCOPY);263 BigImp.Canvas, (I mod 7) * xSizeBig, 264 (I div 7 + SystemIconLines) * ySizeBig); 265 265 end; 266 266 end;
Note:
See TracChangeset
for help on using the changeset viewer.