Changeset 136
- Timestamp:
- May 3, 2018, 11:18:29 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/CityScreen.pas
r103 r136 90 90 91 91 uses 92 Select, Messg, MessgEx, Help, Tribes, Directories, 93 94 Math; 92 Select, Messg, MessgEx, Help, Tribes, Directories, Math; 95 93 96 94 {$R *.lfm} … … 258 256 begin 259 257 AgePrepared := MainTextureAge; 258 259 // TODO: FillRect should not be needed as BitBlt is with SRCCOPY 260 Back.Canvas.FillRect(0, 0, ClientWidth, ClientHeight); 261 260 262 bitblt(Back.Canvas.Handle, 0, 0, ClientWidth, ClientHeight, 261 263 MainTexture.Image.Canvas.Handle, 0, 0, SRCCOPY); 262 264 ImageOp_B(Back, Template, 0, 0, 0, 0, ClientWidth, ClientHeight); 263 end 265 end; 264 266 end; 265 267 266 268 procedure TCityDlg.CloseBtnClick(Sender: TObject); 267 269 begin 268 Close 270 Close; 269 271 end; 270 272 … … 319 321 11 + 12 * (i mod 18 div 3))); 320 322 break; 321 end 323 end; 322 324 end; 323 325 i := 30; … … 345 347 3 + 12 * (i mod 18 div 3), 13 + 16 * (i mod 3) + 48 * (i div 18), 346 348 11 + 12 * (i mod 18 div 3))); 347 end 348 end 349 end; 350 end; 349 351 end; 350 352 brush.style := bsClear; 351 end 353 end; 352 354 end; 353 355 … … 370 372 wZoomEnvironment, hZoomMap); 371 373 end; 372 end 374 end; 373 375 end; 374 376 … … 431 433 Sprite(offscreen, HGrSystem, x + xxt - 5 + d * (2 * i + 1 - Total), 432 434 y + yyt - 5, 10, 10, xGr, yGr); 433 end 435 end; 434 436 end; 435 437 … … 492 494 16 * line, s); 493 495 inc(line) 494 end 496 end; 495 497 end; 496 498 … … 602 604 LoweredTextout(offscreen.Canvas, -1, MainTexture, xmOpt + 40, ymOpt - 1, 603 605 copy(s, j + 1, 255)); 604 end 605 end 606 end; 607 end; 606 608 end; 607 609 … … 999 1001 yView + 5 + 40)); 1000 1002 brush.style := bsClear; 1001 end 1003 end; 1002 1004 end 1003 1005 else if AllowChange and (c.Status and 7 <> 0) then … … 1303 1305 if WindowMode <> wmModal then 1304 1306 MainScreen.UpdateViews; 1305 end 1306 end 1307 end 1308 end 1309 end 1307 end; 1308 end; 1309 end; 1310 end; 1311 end; 1310 1312 end 1311 1313 else if (Mode = mSupp) and (x >= xZoomMap) and (x < xZoomMap + wZoomMap) and … … 1326 1328 Close; 1327 1329 MainScreen.CityClosed(imix[i], false, true); 1328 end 1330 end; 1329 1331 end 1330 1332 else if (x >= xmArea - 192) and (x < xmArea + 192) and (y >= ymArea - 96) … … 1375 1377 if WindowMode <> wmModal then 1376 1378 MainScreen.UpdateViews; 1377 end 1378 end 1379 end; 1380 end; 1379 1381 end 1380 1382 else if (ClientMode < scContact) and (cGov <> gAnarchy) and … … 1413 1415 if WindowMode <> wmModal then 1414 1416 MainScreen.UpdateViews; 1415 end 1416 end 1417 end; 1418 end; 1417 1419 end; 1418 1420 end; { FormMouseDown } … … 1508 1510 'MSG_DEFAULT') = mrOK 1509 1511 end; 1510 end 1512 end; 1511 1513 end; 1512 1514 if not QueryOk then … … 1581 1583 if WindowMode <> wmModal then 1582 1584 MainScreen.UpdateViews; 1583 end 1584 end 1585 end 1585 end; 1586 end; 1587 end; 1586 1588 end; 1587 1589 … … 1651 1653 ImpImage(Canvas, xView + 9, yView + 5, c.Project0 and cpIndex, 1652 1654 cGov, true); 1653 end 1654 end 1655 end; 1656 end; 1655 1657 end; 1656 1658 … … 1741 1743 ChangeCity(+1) 1742 1744 else 1743 inherited 1745 inherited; 1744 1746 end; 1745 1747 … … 1758 1760 dec(Page); 1759 1761 SmartUpdateContent 1760 end 1762 end; 1761 1763 end; 1762 1764 … … 1767 1769 inc(Page); 1768 1770 SmartUpdateContent 1769 end 1771 end; 1770 1772 end; 1771 1773 … … 1785 1787 if Advice.Tiles <> MyCity[cix].Tiles then 1786 1788 Server(sSetCityTiles, me, cix, Advice.Tiles); 1787 end 1789 end; 1788 1790 end; 1789 1791 … … 1798 1800 k := ImpSorted[i]; 1799 1801 ImpSorted[i] := ImpSorted[j]; 1800 ImpSorted[j] := k 1802 ImpSorted[j] := k; 1801 1803 end; 1802 1804
Note:
See TracChangeset
for help on using the changeset viewer.