paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 17:30:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

DockedFormEditor: Join Msg LM_TIMER into a case construct in TDesignForm.WndMethod.

Browse Source
This commit is contained in:
Juha 2023-07-17 22:56:02 +03:00
parent a236313f5f
commit d14ccface0
1 changed files with 21 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
components/dockedformeditor/source/dockeddesignform.pas
View File

@ -113,29 +113,28 @@ procedure TDesignForm.WndMethod(var Msg: TLMessage);
var
Timer: TLMTimer;
begin
if Msg.msg = LM_TIMER then
begin
Timer := TLMTimer(Msg);
case Timer.TimerID of
WM_SETNOFRAME:
begin
KillTimer(Form.Handle, WM_SETNOFRAME);
LCLIntf.ShowWindow(Form.Handle, SW_HIDE);
FHiding := False;
FixF12_ActiveEditor;
Exit;
end;
WM_BOUNDTODESIGNTABSHEET:
begin
KillTimer(Form.Handle, WM_BOUNDTODESIGNTABSHEET);
if Assigned(FOnAdjustPageNeeded) then
FOnAdjustPageNeeded(Self);
Exit;
end;
end;
end;
case Msg.msg of
LM_TIMER:
begin
Timer := TLMTimer(Msg);
case Timer.TimerID of
WM_SETNOFRAME:
begin
KillTimer(Form.Handle, WM_SETNOFRAME);
LCLIntf.ShowWindow(Form.Handle, SW_HIDE);
FHiding := False;
FixF12_ActiveEditor;
Exit;
end;
WM_BOUNDTODESIGNTABSHEET:
begin
KillTimer(Form.Handle, WM_BOUNDTODESIGNTABSHEET);
if Assigned(FOnAdjustPageNeeded) then
FOnAdjustPageNeeded(Self);
Exit;
end;
end;
end;
{$IFDEF LCLWin32}
// we need to correct ActiveEditor to right form
// this code works correctly on Windows platform