- Timestamp:
- Jan 9, 2017, 8:28:51 PM (8 years ago)
- Location:
- trunk
- Files:
-
- 10 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); -
trunk/ScreenTools.pas
r39 r40 983 983 yOffset: integer); 984 984 begin 985 assert((Left + xOffset >= 0) and (Left + xOffset + Width <= wMainTexture) and985 Assert((Left + xOffset >= 0) and (Left + xOffset + Width <= wMainTexture) and 986 986 (Top + yOffset >= 0) and (Top + yOffset + Height <= hMainTexture)); 987 987 BitBlt(ca.Handle, Left, Top, Width, Height, MainTexture.Image.Canvas.Handle, … … 1056 1056 Texture.Height - y0cut - y1cut, Texture.Canvas.Handle, x0cut, 1057 1057 y0cut, SRCCOPY); 1058 end 1058 end; 1059 1059 end; 1060 1060 end; … … 1199 1199 i, r, g, b: integer; 1200 1200 begin 1201 with ca do1202 1201 begin 1203 1202 for i := 0 to 15 do … … 1218 1217 else if b >= 256 then 1219 1218 b := 255; 1220 Pen.Color := r + g shl 8 + b shl 16;1221 MoveTo(x + dx * i, y + dy * i);1222 LineTo(x + dx * i + Width, y + dy * i + Height);1219 ca.Pen.Color := r + g shl 8 + b shl 16; 1220 ca.MoveTo(x + dx * i, y + dy * i); 1221 ca.LineTo(x + dx * i + Width, y + dy * i + Height); 1223 1222 end; 1224 Pen.Color := $000000;1225 MoveTo(x + 1, y + 16 * dy + Height);1226 LineTo(x + 16 * dx + Width, y + 16 * dy + Height);1227 LineTo(x + 16 * dx + Width, y);1223 ca.Pen.Color := $000000; 1224 ca.MoveTo(x + 1, y + 16 * dy + Height); 1225 ca.LineTo(x + 16 * dx + Width, y + 16 * dy + Height); 1226 ca.LineTo(x + 16 * dx + Width, y); 1228 1227 end 1229 1228 end; -
trunk/Start.pas
r38 r40 374 374 EmptyPicture := TBitmap.Create; 375 375 EmptyPicture.PixelFormat := pf24bit; 376 EmptyPicture. width := 64;377 EmptyPicture. height := 64;376 EmptyPicture.SetSize(64, 64); 377 EmptyPicture.Canvas.FillRect(0, 0, EmptyPicture.Width, EmptyPicture.Height); 378 378 LogoBuffer := TBitmap.Create; 379 379 LogoBuffer.PixelFormat := pf24bit; 380 LogoBuffer. width := wBuffer;381 LogoBuffer. height := 56;380 LogoBuffer.SetSize(wBuffer, 56); 381 LogoBuffer.Canvas.FillRect(0, 0, LogoBuffer.Width, LogoBuffer.Height); 382 382 383 383 Mini := TBitmap.Create;
Note:
See TracChangeset
for help on using the changeset viewer.