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