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

Issue #1482: make height of tree nodes slightly higher for better readability, activate OnStart/OnEndOperation

Browse Source
This commit is contained in:
Ansgar Becker
2025-03-21 08:22:53 +01:00
parent d4bc6feec8
commit 875bb7e7ed
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/apphelpers.pas
View File

@ -1378,7 +1378,7 @@ begin
end;
VT.EndUpdate;
// Disable hottracking in non-Vista mode, looks ugly in XP, but nice in Vista
if toUseExplorerTheme in VT.TreeOptions.PaintOptions then
if (toUseExplorerTheme in VT.TreeOptions.PaintOptions) {$IfDef WINDOWS} and true {$EndIf} then
VT.TreeOptions.PaintOptions := VT.TreeOptions.PaintOptions + [toHotTrack]
else
VT.TreeOptions.PaintOptions := VT.TreeOptions.PaintOptions - [toHotTrack];
@ -1394,14 +1394,14 @@ begin
// Apply case insensitive incremental search event
if VT.IncrementalSearch <> laz.VirtualTrees.isNone then
VT.OnIncrementalSearch := Mainform.AnyGridIncrementalSearch;
//VT.OnStartOperation := Mainform.AnyGridStartOperation;
//VT.OnEndOperation := Mainform.AnyGridEndOperation;
VT.OnStartOperation := Mainform.AnyGridStartOperation;
VT.OnEndOperation := Mainform.AnyGridEndOperation;
end;
function GetTextHeight(Font: TFont): Integer;
begin
Result := Font.GetTextHeight('<27>y');
Result := MainForm.Canvas.TextHeight('<27>y');
end;