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

Fix unresponsive updownPort + editPort when modifying its value. Broken in r3972.

Browse Source
This commit is contained in:
Ansgar Becker
2011-11-20 06:40:47 +00:00
parent 23fd559c38
commit e2bcf0d723
2 changed files with 21 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/connections.dfm
View File

@ -305,7 +305,7 @@ object connform: Tconnform
ItemIndex = 0 ItemIndex = 0
TabOrder = 0 TabOrder = 0
Text = 'TCP/IP' Text = 'TCP/IP'
OnChange = Modification OnChange = comboNetTypeChange
Items.Strings = ( Items.Strings = (
'TCP/IP' 'TCP/IP'
'Named pipe' 'Named pipe'

26
source/connections.pas
View File

@ -116,6 +116,7 @@ type
Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates); Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
procedure ListSessionsGetNodeDataSize(Sender: TBaseVirtualTree; procedure ListSessionsGetNodeDataSize(Sender: TBaseVirtualTree;
var NodeDataSize: Integer); var NodeDataSize: Integer);
procedure comboNetTypeChange(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FLoaded: Boolean; FLoaded: Boolean;
@ -691,6 +692,25 @@ begin
end; end;
procedure Tconnform.comboNetTypeChange(Sender: TObject);
var
Params: TConnectionParameters;
begin
// Autoset default port number as long as that was not modified by user
if (not editPort.Modified) and (FLoaded) then begin
Params := CurrentParams;
case Params.NetTypeGroup of
ngMySQL:
updownPort.Position := DEFAULT_PORT;
ngMSSQL:
updownPort.Position := 1433;
end;
FreeAndNil(Params);
end;
Modification(Sender);
end;
procedure Tconnform.Modification(Sender: TObject); procedure Tconnform.Modification(Sender: TObject);
var var
PasswordModified: Boolean; PasswordModified: Boolean;
@ -790,12 +810,6 @@ begin
updownPort.Enabled := lblPort.Enabled; updownPort.Enabled := lblPort.Enabled;
tabSSLoptions.TabVisible := Params.NetType = ntMySQL_TCPIP; tabSSLoptions.TabVisible := Params.NetType = ntMySQL_TCPIP;
tabSSHtunnel.TabVisible := Params.NetType = ntMySQL_SSHtunnel; tabSSHtunnel.TabVisible := Params.NetType = ntMySQL_SSHtunnel;
if not editPort.Modified then case Params.NetTypeGroup of
ngMySQL:
updownPort.Position := DEFAULT_PORT;
ngMSSQL:
updownPort.Position := 1433;
end;
FreeAndNil(Params); FreeAndNil(Params);
end; end;
end; end;