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

Disable hottracking in non-Vista mode, looks ugly in XP but nice in Vista. Fixes issue #1263 .

Browse Source
This commit is contained in:
Ansgar Becker
2009-07-25 12:40:25 +00:00
parent 6d338d515f
commit 3ffeb708c1
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
source/helpers.pas
View File

@@ -188,7 +188,7 @@ var
implementation
uses main;
uses main, uVistaFuncs;
type
CharacterSet = record
@@ -2790,6 +2790,11 @@ begin
VT.DefaultNodeHeight := ReadOnlyNodeHeight;
// The header needs slightly more height than the normal nodes
VT.Header.Height := Trunc(ReadOnlyNodeHeight * 1.2);
// Disable hottracking in non-Vista mode, looks ugly in XP, but nice in Vista
if (toUseExplorerTheme in VT.TreeOptions.PaintOptions) and IsWindowsVista then
VT.TreeOptions.PaintOptions := VT.TreeOptions.PaintOptions + [toHotTrack]
else
VT.TreeOptions.PaintOptions := VT.TreeOptions.PaintOptions - [toHotTrack];
end;