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

Try to fix some randomly occurring access violation in TMainForm.StatusBarDrawPanel, when accessing the current connection. Fixes issue #2304. Instead of the lock/computer icon, draw a vendor specific icon instead.

Browse Source
This commit is contained in:
Ansgar Becker
2011-03-31 21:37:59 +00:00
parent e3661efd58
commit 705393a36c
3 changed files with 43 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/main.pas
View File

@ -1075,15 +1075,17 @@ procedure TMainForm.StatusBarDrawPanel(StatusBar: TStatusBar; Panel: TStatusPane
var
TextRect: TRect;
ImageIndex: Integer;
Conn: TDBConnection;
begin
ImageIndex := -1;
case Panel.Index of
2: ImageIndex := 149;
3: if ActiveConnection <> nil then begin
if opSSL in ActiveConnection.Parameters.Options then
ImageIndex := 144 // Lock
else
ImageIndex := 1;
3: begin
Conn := ActiveConnection;
if Conn <> nil then case Conn.Parameters.NetType of
ntTCPIP, ntNamedPipe, ntSSHTunnel: ImageIndex := 164;
ntMSSQL: ImageIndex := 123;
end;
end;
6: begin
if Panel.Text = SIdle then