Changeset 40 for trunk/LocalPlayer


Ignore:
Timestamp:
Jan 9, 2017, 8:28:51 PM (8 years ago)
Author:
chronos
Message:
  • Fixed: More bitmaps to solve black background problem.
  • Fixed: Bad drawing of gradient lines.
Location:
trunk/LocalPlayer
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • trunk/LocalPlayer/BaseWin.pas

    r38 r40  
    476476  else
    477477    Offscreen.Height := Screen.Height - yUnused;
     478  Offscreen.Canvas.FillRect(0, 0, Offscreen.Width, OffScreen.Height);
    478479  Offscreen.Canvas.Brush.Style := bsClear;
    479480end;
  • trunk/LocalPlayer/Draft.pas

    r38 r40  
    8888  Back := TBitmap.Create;
    8989  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);
    9292  Template := TBitmap.Create;
    9393  LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'MiliRes', gfNoGamma);
  • trunk/LocalPlayer/Help.pas

    r39 r40  
    231231  TerrIcon := TBitmap.Create;
    232232  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);
    235235  SearchContent := '';
    236236  nHist := -1;
  • trunk/LocalPlayer/IsoEngine.pas

    r38 r40  
    399399  Borders := TBitmap.Create;
    400400  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);
    403403  BordersOK := 0;
    404404end;
  • trunk/LocalPlayer/NatStat.pas

    r38 r40  
    8989  Back := TBitmap.Create;
    9090  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);
    9393  Template := TBitmap.Create;
    9494  LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'Nation', gfNoGamma);
  • trunk/LocalPlayer/Select.pas

    r38 r40  
    108108  ScienceNationDot := TBitmap.Create;
    109109  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);
    112112end;
    113113
  • trunk/LocalPlayer/UnitStat.lfm

    r9 r40  
    11object UnitStatDlg: TUnitStatDlg
    22  Left = 344
     3  Height = 326
    34  Top = 213
     5  Width = 208
    46  BorderStyle = bsNone
    57  ClientHeight = 326
    68  ClientWidth = 208
    79  Color = clBtnFace
    8   Font.Charset = DEFAULT_CHARSET
    910  Font.Color = clWindowText
    1011  Font.Height = -13
    1112  Font.Name = 'MS Sans Serif'
    12   Font.Style = []
    1313  FormStyle = fsStayOnTop
    1414  OnClose = FormClose
     
    1616  OnDestroy = FormDestroy
    1717  OnShow = FormShow
    18   PixelsPerInch = 96
     18  LCLVersion = '1.6.2.0'
    1919  object SwitchBtn: TButtonB
    2020    Left = 12
     21    Height = 25
    2122    Top = 29
    2223    Width = 25
    23     Height = 25
    2424    Down = False
    2525    Permanent = False
     
    2929  object CloseBtn: TButtonB
    3030    Left = 177
     31    Height = 25
    3132    Top = 6
    3233    Width = 25
    33     Height = 25
    3434    Down = False
    3535    Permanent = False
     
    3939  object ConscriptsBtn: TButtonB
    4040    Left = 43
     41    Height = 25
    4142    Top = 29
    4243    Width = 25
    43     Height = 25
    4444    Down = False
    4545    Permanent = False
     
    4949  object HelpBtn: TButtonC
    5050    Left = 178
     51    Height = 12
    5152    Top = 145
    5253    Width = 12
    53     Height = 12
    5454    Down = False
    5555    Permanent = False
  • trunk/LocalPlayer/UnitStat.pas

    r38 r40  
    8080  Back := TBitmap.Create;
    8181  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);
    8484  Template := TBitmap.Create;
    8585  LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'Unit', gfNoGamma);
Note: See TracChangeset for help on using the changeset viewer.