Changeset 684 for trunk/LocalPlayer


Ignore:
Timestamp:
Jul 26, 2025, 10:38:53 PM (5 days ago)
Author:
chronos
Message:
  • Modified: Improved forms painting if resized to bigger dimensions.
Location:
trunk/LocalPlayer
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • trunk/LocalPlayer/CityType.lfm

    • Property svn:mime-type deleted

  • trunk/LocalPlayer/CityType.pas

    r558 r684  
    1010
    1111type
     12
     13  { TCityTypeDlg }
     14
    1215  TCityTypeDlg = class(TFramedDlg)
    1316    CloseBtn: TButtonB;
    … …  
    2528  protected
    2629    procedure OffscreenPaint; override;
     30    procedure DoOnResize; override;
    2731  private
    2832    nPool, dragiix, ctype: Integer;
    … …  
    190194end;
    191195
     196procedure TCityTypeDlg.DoOnResize;
     197begin
     198  inherited;
     199  CloseBtn.Left := Width - 36;
     200end;
     201
    192202procedure TCityTypeDlg.LoadType(NewType: Integer);
    193203var

  • trunk/LocalPlayer/Diagram.pas

    r622 r684  
    1111type
    1212  TDiagramKind = (dkChart, dkShip);
     13
     14  { TDiaDlg }
    1315
    1416  TDiaDlg = class(TFramedDlg)
    … …  
    2325    procedure PlayerClick(Sender: TObject);
    2426    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     27  private
     28    Kind: TDiagramKind;
     29    Player: Integer;
     30    Mode: Integer;
     31  protected
     32    procedure DoOnResize; override;
    2533  public
    2634    procedure OffscreenPaint; override;
    2735    procedure ShowNewContent_Charts(NewMode: TWindowMode);
    2836    procedure ShowNewContent_Ship(NewMode: TWindowMode; P: Integer = -1);
    29   private
    30     Kind: TDiagramKind;
    31     Player: Integer;
    32     Mode: Integer;
    3337  end;
    3438
    … …  
    369373end;
    370374
     375procedure TDiaDlg.DoOnResize;
     376begin
     377  inherited;
     378  CloseBtn.Left := Width - 38;
     379end;
     380
    371381end.

  • trunk/LocalPlayer/Draft.pas

    r673 r684  
    1212
    1313type
     14
     15  { TDraftDlg }
     16
    1417  TDraftDlg = class(TBufferedDrawDlg)
    1518    OKBtn: TButtonA;
    … …  
    3639  protected
    3740    procedure OffscreenPaint; override;
     41    procedure DoOnResize; override;
    3842  public
    3943    procedure ShowNewContent(NewMode: TWindowMode);
    … …  
    403407end;
    404408
     409procedure TDraftDlg.DoOnResize;
     410begin
     411  inherited;
     412  CloseBtn.Left := Width - 31;
     413end;
     414
    405415procedure TDraftDlg.SetDomain(D: Integer);
    406416

  • trunk/LocalPlayer/Enhance.pas

    r622 r684  
    4242    Page: Integer;
    4343    procedure OffscreenPaint; override;
     44    procedure DoOnResize; override;
    4445  public
    4546    procedure ShowNewContent(NewMode: TWindowMode; TerrType: Integer = -1);
    … …  
    299300end;
    300301
     302procedure TEnhanceDlg.DoOnResize;
     303begin
     304  inherited;
     305  CloseBtn.Left := Width - 38;
     306end;
     307
    301308procedure TEnhanceDlg.CloseBtnClick(Sender: TObject);
    302309begin

  • trunk/LocalPlayer/Help.pas

    r658 r684  
    141141  protected
    142142    procedure OffscreenPaint; override;
     143    procedure DoOnResize; override;
    143144  public
    144145    HistItems: THistItems;
    … …  
    867868  end;
    868869  MarkUsedOffscreen(InnerWidth, InnerHeight + 13 + 48);
     870end;
     871
     872procedure THelpDlg.DoOnResize;
     873begin
     874  inherited;
     875  SearchBtn.Left := Width - 67;
     876  CloseBtn.Left := Width - 38;
    869877end;
    870878

  • trunk/LocalPlayer/Rates.pas

    r622 r684  
    1111
    1212type
     13
     14  { TRatesDlg }
     15
    1316  TRatesDlg = class(TBufferedDrawDlg)
    1417    CloseBtn: TButtonB;
    … …  
    2326  protected
    2427    procedure OffscreenPaint; override;
     28    procedure DoOnResize; override;
    2529  public
    2630    procedure ShowNewContent(NewMode: TWindowMode);
    … …  
    153157end;
    154158
     159procedure TRatesDlg.DoOnResize;
     160begin
     161  inherited;
     162  CloseBtn.Left := Width - 38;
     163end;
     164
    155165procedure TRatesDlg.ShowNewContent(NewMode: TWindowMode);
    156166begin

  • trunk/LocalPlayer/Select.pas

    r675 r684  
    9595    procedure OnMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
    9696    procedure SetSelectionIndex(Index: Integer);
     97  protected
     98    procedure DoOnResize; override;
    9799  public
    98100    Result: Integer;
    … …  
    19171919end;
    19181920
     1921procedure TListDlg.DoOnResize;
     1922begin
     1923  inherited;
     1924  CloseBtn.Left := Width - 38;
     1925end;
     1926
    19191927procedure TListDlg.FormKeyDown(Sender: TObject; var Key: Word;
    19201928  Shift: TShiftState);

  • trunk/LocalPlayer/TechTree.pas

    r648 r684  
    3030    procedure CloseBtnClick(Sender: TObject);
    3131    procedure TimerKeyPressedTimer(Sender: TObject);
     32  protected
     33    procedure DoOnResize; override;
    3234  private
    3335    Offset: TPoint;
    … …  
    273275end;
    274276
     277procedure TTechTreeDlg.DoOnResize;
     278begin
     279  inherited;
     280  CloseBtn.Left := Width - 43;
     281end;
     282
    275283procedure TTechTreeDlg.Move(Diff: TPoint);
    276284begin

  • trunk/LocalPlayer/Wonders.pas

    r565 r684  
    2929  protected
    3030    procedure OffscreenPaint; override;
     31    procedure DoOnResize; override;
    3132  public
    3233    procedure ShowNewContent(NewMode: TWindowMode);
    … …  
    278279
    279280  MarkUsedOffscreen(ClientWidth, ClientHeight);
     281end;
     282
     283procedure TWondersDlg.DoOnResize;
     284begin
     285  inherited;
     286  CloseBtn.Left := Width - 38;
    280287end;
    281288
Note: See TracChangeset for help on using the changeset viewer.