Changeset 331


Ignore:
Timestamp:
Jul 20, 2024, 2:16:51 PM (5 months ago)
Author:
chronos
Message:
  • Fixed: Workaround for incorrect client form drawing area size on Windows.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/FormMain.lfm

    r317 r331  
    1414  OnDestroy = FormDestroy
    1515  OnKeyUp = FormKeyUp
     16  OnResize = FormResize
    1617  OnShow = FormShow
    1718  LCLVersion = '3.4.0.0'
  • trunk/Forms/FormMain.pas

    r329 r331  
    8181    procedure FormActivate(Sender: TObject);
    8282    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     83    procedure FormResize(Sender: TObject);
    8384    procedure FormShow(Sender: TObject);
    8485    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     
    236237end;
    237238
     239procedure TFormMain.FormResize(Sender: TObject);
     240begin
     241  {$IFDEF WINDOWS}
     242  // TODO: Workaround for smaller docked client form drawing area than expected
     243  FormClient.Hide;
     244  FormClient.Show;
     245  {$ENDIF}
     246end;
     247
    238248procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
    239249begin
Note: See TracChangeset for help on using the changeset viewer.