opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Save/Restore the DELIMITER list on Registry.

Browse Source
This commit is contained in:
Francisco Ernesto Teixeira
2007-10-10 18:33:51 +00:00
parent b7b652da67
commit 96002807d8
1 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
source/childwin.pas
View File

@@ -923,6 +923,7 @@ end;
procedure TMDIChild.ReadWindowOptions;
var
ws : String;
delimiters : String;
i : Integer;
menuitem : Tmenuitem;
reg : TRegistry;
@@ -1067,6 +1068,14 @@ begin
// Set last used database, select it later in Init
lastUsedDB := reg.ReadString( 'lastUsedDB' );
// Read the delimiters
delimiters := Trim( reg.ReadString( 'delimiters' ) );
if ( delimiters <> EmptyStr ) then
begin
ComboBoxQueryDelimiter.Items.Text := delimiters;
ComboBoxQueryDelimiter.ItemIndex := reg.ReadInteger( 'delimiterselected' );
end;
end;
reg.CloseKey;
reg.Free;
@@ -1143,6 +1152,10 @@ begin
// relative from already opened folder!
OpenKey( 'Servers\' + FConn.Description, true );
WriteString( 'lastUsedDB', ActiveDatabase );
// Save the delimiters
WriteString( 'delimiters', ComboBoxQueryDelimiter.Items.Text );
WriteInteger( 'delimiterselected', ComboBoxQueryDelimiter.ItemIndex );
end;
end;
FreeAndNil(reg);