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

My change in r2327 found its way to VirtualTree's official branch. My nice comment not...

Browse Source
This commit is contained in:
Ansgar Becker
2009-03-14 07:22:00 +00:00
parent bcf44ff376
commit c1e24cdcc9
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/virtualtreeview/Source/VirtualTrees.pas
View File

@ -1,6 +1,6 @@
unit VirtualTrees;
// Version 4.8.4
// Version 4.8.5
//
// The contents of this file are subject to the Mozilla Public License
// Version 1.1 (the "License"); you may not use this file except in compliance
@ -25,6 +25,11 @@ unit VirtualTrees;
//----------------------------------------------------------------------------------------------------------------------
//
// March 2009
// - Bug fix: fixed an issue in TVirtualTreeColumns.HandleClick that could lead to a case where no header click event
// is triggered
// - Bug fix: fixed an issue in TBaseVirtualTree.HandleHotTrack that could lead to an endless loop under certain
// conditions
// - Improvement: removed unused variables in TVirtualTreeColumn.ComputeHeaderLayout
// - Bug fix: corrected TBaseVirtualTree.GetVisibleParent
// - Improvement: extended hot node tracking to track the hot column too
// - Improvement: new THitPosition hiOnItemButtonExact used to draw hot buttons when using Windows Vista's Explorer
@ -314,7 +319,7 @@ type
{$endif COMPILER_12_UP}
const
VTVersion = '4.8.4';
VTVersion = '4.8.5';
VTTreeStreamVersion = 2;
VTHeaderStreamVersion = 6; // The header needs an own stream version to indicate changes only relevant to the header.
@ -8821,9 +8826,6 @@ var
TextSpacing: Integer;
UseText: Boolean;
R: TRect;
CaptionText: UnicodeString;
H1,
H2: Integer;
begin
UseText := Length(FText) > 0;
@ -21352,7 +21354,6 @@ procedure TBaseVirtualTree.DoHeaderImageClick(Column: TColumnIndex; Button: TMou
X, Y: Integer);
begin
// In case we have an image click event, execute it, otherwise invoke the normal header click as fallback
if Assigned(FOnHeaderImageClick) then
FOnHeaderImageClick(FHeader, Column, Button, Shift, X, Y)
else if Assigned(FOnHeaderClick) then
@ -22976,7 +22977,7 @@ begin
FCurrentHotColumn := HitInfo.HitColumn;
end;
ButtonIsHit := hiOnItemButtonExact in HitInfo.HitPositions;
ButtonIsHit := (hiOnItemButtonExact in HitInfo.HitPositions) and (toHotTrack in FOptions.FPaintOptions);
if Assigned(FCurrentHotNode) and ((FHotNodeButtonHit <> ButtonIsHit) or DoInvalidate) then
begin
FHotNodeButtonHit := ButtonIsHit and (toHotTrack in FOptions.FPaintOptions);