opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 03:01:07 +08:00
Code Issues Packages Projects Releases Wiki Activity

Turn the query progress window not to be "always on top". It is already modal as set by the callers so that ensures no internal windows can cover this window.

Browse Source 
I see no obvious reason why this status window should cover windows of other applications. And it can be annoying if you have a slow query running and want to work with other applications in the meantime. I asked the original developer for the initial reason for that change, but got no reply yet. Likely I won't get an answer ever.
This commit is contained in:
Ansgar Becker
2007-08-06 20:18:46 +00:00
parent d7058a76f0
commit edb7fb0da8
1 changed files with 0 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
source/queryprogress.pas
View File

@ -12,8 +12,6 @@ type
lblStatusMsg: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure btnAbortClick(Sender: TObject);
protected
procedure CreateParams(var Params: TCreateParams); override;
private
procedure HandleQueryNotificationMsg(var AMessage : TMessage); message WM_MYSQL_THREAD_NOTIFY;
public
@ -37,11 +35,6 @@ begin
// todo: implement connection killing !!
end;
procedure TfrmQueryProgress.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST;
end;
procedure TfrmQueryProgress.FormClose(Sender: TObject;
var Action: TCloseAction);