pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Fixed crash when showing a hint without a associated node, e.g., Header hints

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@970 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-10-04 10:15:32 +00:00
parent 20abbe612a
commit 1d9351d20e
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/virtualtreeview-new/VirtualTrees.pas
View File

@ -1084,7 +1084,7 @@ type
LineBreakStyle: TVTToolTipLineBreakStyle; LineBreakStyle: TVTToolTipLineBreakStyle;
end; end;
// The trees need an own hint window class because of adjusted font. // The trees need an own hint window class because of Unicode output and adjusted font.
{ TVirtualTreeHintWindow } { TVirtualTreeHintWindow }
@ -15911,7 +15911,8 @@ begin
else else
HintStr := DoGetNodeHint(HitInfo.HitNode, HitInfo.HitColumn, FHintData.LineBreakStyle); HintStr := DoGetNodeHint(HitInfo.HitNode, HitInfo.HitColumn, FHintData.LineBreakStyle);
// Determine actual line break style depending on what was returned by the methods and what's in the node. // Determine actual line break style depending on what was returned by the methods and what's in the node.
if (FHintData.LineBreakStyle = hlbDefault) and (vsMultiline in HitInfo.HitNode.States) then if (FHintData.LineBreakStyle = hlbDefault) and Assigned(HitInfo.HitNode)
and (vsMultiline in HitInfo.HitNode.States) then
FHintData.LineBreakStyle := hlbForceMultiLine; FHintData.LineBreakStyle := hlbForceMultiLine;
if FHintData.LineBreakStyle = hlbForceMultiLine then if FHintData.LineBreakStyle = hlbForceMultiLine then
begin begin