paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 18:36:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: TTreeView fixes by Anton Kavalenka

Browse Source 
- call OnGetImageIndex, OnGetSelectedIndex when we need them,
  - don't start text editing when we click on icon
(issue #0013325)

git-svn-id: trunk@18990 -
This commit is contained in:
paul 2009-03-14 16:01:51 +00:00
parent 918eaf1a50
commit af8f77fb82
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/include/treeview.inc
View File

@ -10,7 +10,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -4446,13 +4446,19 @@ begin
// draw icon
if (Images<>nil) and PaintImages then
begin
if FSelectedNode<>Node then
ImgIndex:=Node.ImageIndex
if FSelectedNode <> Node then
begin
GetImageIndex(Node);
ImgIndex := Node.ImageIndex
end
else
ImgIndex:=Node.SelectedIndex;
if (ImgIndex>=0) and (ImgIndex<Images.Count) then
Images.Draw(Canvas,x+1,NodeRect.Top,ImgIndex,true);
inc(x,Images.Width+2);
begin
GetSelectedIndex(Node);
ImgIndex := Node.SelectedIndex;
end;
if (ImgIndex >= 0) and (ImgIndex < Images.Count) then
Images.Draw(Canvas, x + 1, NodeRect.Top, ImgIndex, True);
inc(x, Images.Width + 2);
end;
// draw state icon
@ -4661,7 +4667,7 @@ begin
and (LogicalX<CursorNode.DisplayExpandSignRight) then begin
// mousedown occured on expand sign -> expand/collapse
CursorNode.Expanded:=not CursorNode.Expanded;
end else if LogicalX>=CursorNode.DisplayIconLeft then begin
end else if LogicalX>=CursorNode.DisplayTextLeft then begin
// mousedown occured in text or icon
// -> select node and begin drag operation
{$IFDEF VerboseDrag}