Changeset 40 for trunk/LocalPlayer
- Timestamp:
- Jan 9, 2017, 8:28:51 PM (8 years ago)
- Location:
- trunk/LocalPlayer
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/BaseWin.pas
r38 r40 476 476 else 477 477 Offscreen.Height := Screen.Height - yUnused; 478 Offscreen.Canvas.FillRect(0, 0, Offscreen.Width, OffScreen.Height); 478 479 Offscreen.Canvas.Brush.Style := bsClear; 479 480 end; -
trunk/LocalPlayer/Draft.pas
r38 r40 88 88 Back := TBitmap.Create; 89 89 Back.PixelFormat := pf24bit; 90 Back. Width := ClientWidth;91 Back. Height := ClientHeight;90 Back.SetSize(ClientWidth, ClientHeight); 91 Back.Canvas.FillRect(0, 0, Back.Width, Back.Height); 92 92 Template := TBitmap.Create; 93 93 LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'MiliRes', gfNoGamma); -
trunk/LocalPlayer/Help.pas
r39 r40 231 231 TerrIcon := TBitmap.Create; 232 232 TerrIcon.PixelFormat := pf24bit; 233 TerrIcon. Width := xSizeBig;234 TerrIcon. Height := ySizeBig;233 TerrIcon.SetSize(xSizeBig, ySizeBig); 234 TerrIcon.Canvas.FillRect(0, 0, TerrIcon.Width, TerrIcon.Height); 235 235 SearchContent := ''; 236 236 nHist := -1; -
trunk/LocalPlayer/IsoEngine.pas
r38 r40 399 399 Borders := TBitmap.Create; 400 400 Borders.PixelFormat := pf24bit; 401 Borders. Width := xxt * 2;402 Borders. Height := (yyt * 2) * nPl;401 Borders.SetSize(xxt * 2,(yyt * 2) * nPl); 402 Borders.Canvas.FillRect(0, 0, Borders.Width, Borders.Height); 403 403 BordersOK := 0; 404 404 end; -
trunk/LocalPlayer/NatStat.pas
r38 r40 89 89 Back := TBitmap.Create; 90 90 Back.PixelFormat := pf24bit; 91 Back. Width := ClientWidth;92 Back. Height := ClientHeight;91 Back.SetSize(ClientWidth, ClientHeight); 92 Back.Canvas.FillRect(0, 0, Back.Width, Back.Height); 93 93 Template := TBitmap.Create; 94 94 LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'Nation', gfNoGamma); -
trunk/LocalPlayer/Select.pas
r38 r40 108 108 ScienceNationDot := TBitmap.Create; 109 109 ScienceNationDot.PixelFormat := pf24bit; 110 ScienceNationDot. Width := 17;111 ScienceNationDot. Height := 17;110 ScienceNationDot.SetSize(17, 17); 111 ScienceNationDot.Canvas.FillRect(0, 0, ScienceNationDot.Width, ScienceNationDot.Height); 112 112 end; 113 113 -
trunk/LocalPlayer/UnitStat.lfm
r9 r40 1 1 object UnitStatDlg: TUnitStatDlg 2 2 Left = 344 3 Height = 326 3 4 Top = 213 5 Width = 208 4 6 BorderStyle = bsNone 5 7 ClientHeight = 326 6 8 ClientWidth = 208 7 9 Color = clBtnFace 8 Font.Charset = DEFAULT_CHARSET9 10 Font.Color = clWindowText 10 11 Font.Height = -13 11 12 Font.Name = 'MS Sans Serif' 12 Font.Style = []13 13 FormStyle = fsStayOnTop 14 14 OnClose = FormClose … … 16 16 OnDestroy = FormDestroy 17 17 OnShow = FormShow 18 PixelsPerInch = 9618 LCLVersion = '1.6.2.0' 19 19 object SwitchBtn: TButtonB 20 20 Left = 12 21 Height = 25 21 22 Top = 29 22 23 Width = 25 23 Height = 2524 24 Down = False 25 25 Permanent = False … … 29 29 object CloseBtn: TButtonB 30 30 Left = 177 31 Height = 25 31 32 Top = 6 32 33 Width = 25 33 Height = 2534 34 Down = False 35 35 Permanent = False … … 39 39 object ConscriptsBtn: TButtonB 40 40 Left = 43 41 Height = 25 41 42 Top = 29 42 43 Width = 25 43 Height = 2544 44 Down = False 45 45 Permanent = False … … 49 49 object HelpBtn: TButtonC 50 50 Left = 178 51 Height = 12 51 52 Top = 145 52 53 Width = 12 53 Height = 1254 54 Down = False 55 55 Permanent = False -
trunk/LocalPlayer/UnitStat.pas
r38 r40 80 80 Back := TBitmap.Create; 81 81 Back.PixelFormat := pf24bit; 82 Back. Width := 5 * wCommon;83 Back. Height := hMax;82 Back.SetSize(5 * wCommon, hMax); 83 Back.Canvas.FillRect(0, 0, Back.Width,Back.Height); 84 84 Template := TBitmap.Create; 85 85 LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'Unit', gfNoGamma);
Note:
See TracChangeset
for help on using the changeset viewer.