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

Try to fix bug #317 "Interface won't restore" by calling ActivateMainform() at startup

Browse Source
This commit is contained in:
Ansgar Becker
2008-06-14 10:24:05 +00:00
parent 8fa3bdf787
commit a2f3c7fcbf
2 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
packages/delphi11/heidisql.dpr
View File

@ -60,6 +60,7 @@ begin
); );
debug('perf: Running.'); debug('perf: Running.');
Application.Run; Application.Run;
ActivateMainform(Mainform.Handle);
finally finally
DeInitializeSync; DeInitializeSync;
end; end;

2
source/helpers.pas
View File

@ -74,6 +74,8 @@ type
procedure setLocales; procedure setLocales;
function maskSql(sql_version: integer; str: String) : String; function maskSql(sql_version: integer; str: String) : String;
procedure ActivateWindow(Window : HWnd); procedure ActivateWindow(Window : HWnd);
function GetApplication(MainForm: HWnd): HWnd;
procedure ActivateMainForm(MainForm: HWnd);
procedure ShellExec( cmd: String; path: String = '' ); procedure ShellExec( cmd: String; path: String = '' );
function getFirstWord( text: String ): String; function getFirstWord( text: String ): String;
function ConvertWindowsCodepageToMysqlCharacterSet(codepage: Cardinal): string; function ConvertWindowsCodepageToMysqlCharacterSet(codepage: Cardinal): string;