paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 21:58:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TTreeView: editing when scrolled

Browse Source 
git-svn-id: trunk@18356 -
This commit is contained in:
mattias 2009-01-20 14:17:49 +00:00
parent d0c44e6ff9
commit fbdb916c8c
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/treeview.inc
View File

@ -2874,7 +2874,8 @@ begin
Node:=Selected;
if (tvsIsEditing in FStates) or (Node=nil) then exit;
if not CanEdit(Node) then exit;
Node.EditText;
// make node visible (this will cancel editing, so call this first)
EnsureNodeIsVisible(Node);
Include(FStates,tvsIsEditing);
if FEditor=nil then begin
@ -2882,8 +2883,8 @@ begin
FEditor.OnEditingDone:=@EditorEditingDone;
FEditor.OnKeyDown:=@EditorKeyDown;
end;
Node.GetAbsoluteIndex;
ARect:=Rect(Node.DisplayTextLeft,Node.Top,ClientWidth-BorderWidth,Node.Bottom);
ARect:=Rect(Node.DisplayTextLeft,Node.Top-ScrolledTop,
ClientWidth-BorderWidth,Node.Bottom-ScrolledTop);
FEditor.BoundsRect:=ARect;
FEditor.Visible:=true;
FEditor.Parent:=Self;
@ -4952,8 +4953,13 @@ end;
{ CustomDraw support }
procedure TCustomTreeView.EditorEditingDone(Sender: TObject);
var
WasFocused: Boolean;
begin
WasFocused:=(FEditor<>nil) and FEditor.Focused;
EndEditing;
if WasFocused then
SetFocus;
end;
procedure TCustomTreeView.EditorKeyDown(Sender: TObject; var Key: Word;