opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 18:12:05 +08:00
Code Issues Packages Projects Releases Wiki Activity

Do not flag clicks on system menu items other than our own "Check for updates" and "About" items as *handled* . Broken in r2580. Fixes issue #1309

Browse Source
This commit is contained in:
Ansgar Becker
2009-08-19 18:07:58 +00:00
parent 8e57faf265
commit b264ab16f3
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
source/main.pas
View File

@ -9446,11 +9446,12 @@ procedure TMainForm.OnMessageHandler(var Msg: TMsg; var Handled: Boolean);
begin begin
// Clicks on system window menu get handled here // Clicks on system window menu get handled here
if Msg.message = WM_SYSCOMMAND then begin if Msg.message = WM_SYSCOMMAND then begin
Handled := True;
case Msg.wParam of case Msg.wParam of
MSG_UPDATECHECK: Mainform.actUpdateCheck.Execute; MSG_UPDATECHECK: Mainform.actUpdateCheck.Execute;
MSG_ABOUT: Mainform.actAboutBox.Execute; MSG_ABOUT: Mainform.actAboutBox.Execute;
else Handled := False;
end; end;
Handled := True;
end; end;
end; end;