It does not raise an OnShow event if the form is maximized and ... - since rev 63577 (changed from 62892)
Original Reporter info from Mantis: paweld @paweld_
-
Reporter name: Paweł Dmitruk
Original Reporter info from Mantis: paweld @paweld_
- Reporter name: Paweł Dmitruk
Description:
It does not raise an OnShow event if the form is maximized and Form:
top: -8
left: -8
width: Screen.Width
height: Screen.WorkAreaHeight-GetSystemMetrics(SM_CYCAPTION);
tested on Windows 10
exaple code:
procedure TForm1.FormCreate(Sender: TObject);
begin
Top := -8;
Left := -8;
Width := Screen.Width;
Height := Screen.WorkAreaHeight-GetSystemMetrics(SM_CYCAPTION);
Windowstate := wsMaximized;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
ShowMessage('OnShow');
end;
Mantis conversion info:
- Mantis ID: 37647
- Build: 63838
- Version: 2.1 (SVN)
- Fixed in revision: r63847 (#55d0c7bc)