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

Remember window dimensions of session manager for the next call.

Browse Source
This commit is contained in:
Ansgar Becker
2009-08-10 20:53:55 +00:00
parent 3010c9e4ea
commit 57d9d76bd5
3 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/heidisql/include/const.inc
View File

@ -167,6 +167,8 @@ const
REGNAME_USERMNGR_WINHEIGHT = 'Usermanager_WindowHeight'; REGNAME_USERMNGR_WINHEIGHT = 'Usermanager_WindowHeight';
REGNAME_SELECTDBO_WINWIDTH = 'SelectDBO_WindowWidth'; REGNAME_SELECTDBO_WINWIDTH = 'SelectDBO_WindowWidth';
REGNAME_SELECTDBO_WINHEIGHT = 'SelectDBO_WindowHeight'; REGNAME_SELECTDBO_WINHEIGHT = 'SelectDBO_WindowHeight';
REGNAME_SESSMNGR_WINWIDTH = 'SessionManager_WindowWidth';
REGNAME_SESSMNGR_WINHEIGHT = 'SessionManager_WindowHeight';
REGNAME_COPYTABLE_STRUCDATA = 'CopyTable_Option_StructureData'; REGNAME_COPYTABLE_STRUCDATA = 'CopyTable_Option_StructureData';
REGVAL_COPYTABLE_STRUCTURE = 0; REGVAL_COPYTABLE_STRUCTURE = 0;
REGVAL_COPYTABLE_STRUCTURE_AND_DATA = 1; REGVAL_COPYTABLE_STRUCTURE_AND_DATA = 1;

1
source/connections.dfm
View File

@ -19,6 +19,7 @@ object connform: Tconnform
ShowHint = True ShowHint = True
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
DesignSize = ( DesignSize = (
494 494

12
source/connections.pas
View File

@ -69,6 +69,7 @@ type
NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex; NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex;
var Allowed: Boolean); var Allowed: Boolean);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormDestroy(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FLoaded: Boolean; FLoaded: Boolean;
@ -110,6 +111,8 @@ begin
// Fix GUI stuff // Fix GUI stuff
InheritFont(Font); InheritFont(Font);
SetWindowSizeGrip(Handle, True); SetWindowSizeGrip(Handle, True);
Width := GetRegValue(REGNAME_SESSMNGR_WINWIDTH, Width);
Height := GetRegValue(REGNAME_SESSMNGR_WINHEIGHT, Height);
FixVT(ListSessions); FixVT(ListSessions);
ListSessions.OnGetHint := Mainform.vstGetHint; ListSessions.OnGetHint := Mainform.vstGetHint;
FLoaded := False; FLoaded := False;
@ -123,6 +126,15 @@ begin
end; end;
procedure Tconnform.FormDestroy(Sender: TObject);
begin
// Save GUI stuff
OpenRegistry;
MainReg.WriteInteger(REGNAME_SESSMNGR_WINWIDTH, Width);
MainReg.WriteInteger(REGNAME_SESSMNGR_WINHEIGHT, Height);
end;
procedure Tconnform.FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure Tconnform.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin begin
// Modifications? Ask if they should be saved. // Modifications? Ask if they should be saved.