Changeset 470 for trunk


Ignore:
Timestamp:
Dec 3, 2023, 11:49:25 PM (12 months ago)
Author:
chronos
Message:
  • Fixed: Windows .lfm files corrected for width and height information.
Location:
trunk
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • trunk/LocalPlayer/Diagram.lfm

    r232 r470  
    11object DiaDlg: TDiaDlg
    22  Left = 649
     3  Width = 418
    34  Top = 187
     5  Height = 387
    46  BorderIcons = []
    57  BorderStyle = bsNone

  • trunk/LocalPlayer/Help.lfm

    r458 r470  
    11object HelpDlg: THelpDlg
    22  Left = 394
     3  Width = 560
    34  Top = 180
     5  Height = 479
    46  BorderIcons = []
    57  BorderStyle = bsNone

  • trunk/LocalPlayer/NatStat.lfm

    r232 r470  
    11object NatStatDlg: TNatStatDlg
    22  Left = 192
     3  Width = 400
    34  Top = 119
     5  Height = 480
    46  BorderStyle = bsNone
    57  ClientHeight = 480

  • trunk/LocalPlayer/NatStat.pas

    r468 r470  
    109109  if MainTexture.Age <> AgePrepared then begin
    110110    AgePrepared := MainTexture.Age;
    111     BitBltCanvas(Back.Canvas, 0, 0, ClientWidth, ClientHeight,
    112       MainTexture.Image.Canvas, (MainTexture.Width - ClientWidth) div 2,
    113       (MainTexture.Height - ClientHeight) div 2);
    114     ImageOp_B(Back, Template, 0, 0, 0, 0, ClientWidth, ClientHeight);
     111    BitBltCanvas(Back.Canvas, 0, 0, Width, Height,
     112      MainTexture.Image.Canvas, (MainTexture.Width - Width) div 2,
     113      (MainTexture.Height - Height) div 2);
     114    ImageOp_B(Back, Template, 0, 0, 0, 0, Width, Height);
    115115  end;
    116116end;

  • trunk/LocalPlayer/Rates.lfm

    • Property svn:mime-type deleted

  • trunk/LocalPlayer/TechTree.lfm

    • Property svn:mime-type deleted

  • trunk/LocalPlayer/Term.pas

    r468 r470  
    29622962        begin
    29632963          if ((ClientMode < scDipStart) or (ClientMode > scDipBreak)) and
    2964             NegoDlg.Visible then
     2964            Assigned(FNegoDlg) and NegoDlg.Visible then
    29652965            NegoDlg.Close;
    29662966          Skipped := False; // always show my moves during my turn

  • trunk/LocalPlayer/UnitStat.lfm

    r40 r470  
    1717  OnShow = FormShow
    1818  LCLVersion = '1.6.2.0'
     19  PixelsPerInch = 96
     20  Scaled = False
    1921  object SwitchBtn: TButtonB
    2022    Left = 12

  • trunk/LocalPlayer/Wonders.lfm

    r232 r470  
    11object WondersDlg: TWondersDlg
    22  Left = 208
     3  Width = 480
    34  Top = 232
     5  Height = 416
    46  BorderStyle = bsNone
    57  ClientHeight = 416

  • trunk/Start.pas

    r469 r470  
    229229  end;
    230230  LoadConfig;
    231   //LoadAssets;
     231  LoadAssets;
    232232  LoadLanguages;
    233233
    … …  
    16221622    for I := 0 to ControlCount - 1 do
    16231623      Controls[I].Visible := Controls[I].Tag and (256 shl Integer(Page)) <> 0;
    1624     SmartInvalidate(328, Up1Btn.top - 12, ClientWidth, Up2Btn.top + 35);
     1624    SmartInvalidate(328, Up1Btn.Top - 12, ClientWidth, Up2Btn.Top + 35);
    16251625  end;
    16261626  if Page = pgLoad then
Note: See TracChangeset for help on using the changeset viewer.