paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 03:46:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: add OnEditingEnd event for TTreeView by mmvisual (feature #0017313)

Browse Source 
git-svn-id: trunk@28561 -
This commit is contained in:
paul 2010-11-30 05:58:15 +00:00
parent 70fdb2d0ee
commit ab77d54fec
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/comctrls.pp
View File

@ -1982,6 +1982,8 @@ type
TTVChangedEvent = procedure(Sender: TObject; Node: TTreeNode) of object; TTVChangedEvent = procedure(Sender: TObject; Node: TTreeNode) of object;
TTVEditingEvent = procedure(Sender: TObject; Node: TTreeNode; TTVEditingEvent = procedure(Sender: TObject; Node: TTreeNode;
var AllowEdit: Boolean) of object; var AllowEdit: Boolean) of object;
TTVEditingEndEvent = procedure(Sender: TObject; Node: TTreeNode;
Cancel: Boolean) of object;
TTVEditedEvent = procedure(Sender: TObject; Node: TTreeNode; TTVEditedEvent = procedure(Sender: TObject; Node: TTreeNode;
var S: string) of object; var S: string) of object;
TTVExpandingEvent = procedure(Sender: TObject; Node: TTreeNode; TTVExpandingEvent = procedure(Sender: TObject; Node: TTreeNode;
@ -2420,6 +2422,7 @@ type
FOnCustomDrawItem: TTVCustomDrawItemEvent; FOnCustomDrawItem: TTVCustomDrawItemEvent;
FOnDeletion: TTVExpandedEvent; FOnDeletion: TTVExpandedEvent;
FOnEditing: TTVEditingEvent; FOnEditing: TTVEditingEvent;
FOnEditingEnd: TTVEditingEndEvent;
FOnEdited: TTVEditedEvent; FOnEdited: TTVEditedEvent;
FOnExpanded: TTVExpandedEvent; FOnExpanded: TTVExpandedEvent;
FOnExpanding: TTVExpandingEvent; FOnExpanding: TTVExpandingEvent;
@ -2612,6 +2615,7 @@ type
property OnDeletion: TTVExpandedEvent read FOnDeletion write FOnDeletion; property OnDeletion: TTVExpandedEvent read FOnDeletion write FOnDeletion;
property OnEdited: TTVEditedEvent read FOnEdited write FOnEdited; property OnEdited: TTVEditedEvent read FOnEdited write FOnEdited;
property OnEditing: TTVEditingEvent read FOnEditing write FOnEditing; property OnEditing: TTVEditingEvent read FOnEditing write FOnEditing;
property OnEditingEnd: TTVEditingEndEvent read FOnEditingEnd write FOnEditingEnd;
property OnExpanded: TTVExpandedEvent read FOnExpanded write FOnExpanded; property OnExpanded: TTVExpandedEvent read FOnExpanded write FOnExpanded;
property OnExpanding: TTVExpandingEvent read FOnExpanding write FOnExpanding; property OnExpanding: TTVExpandingEvent read FOnExpanding write FOnExpanding;
property OnGetImageIndex: TTVExpandedEvent property OnGetImageIndex: TTVExpandedEvent
@ -2766,6 +2770,7 @@ type
property OnDragOver; property OnDragOver;
property OnEdited; property OnEdited;
property OnEditing; property OnEditing;
property OnEditingEnd;
//property OnEndDock; //property OnEndDock;
property OnEndDrag; property OnEndDrag;
property OnEnter; property OnEnter;

1
lcl/include/treeview.inc
View File

@ -4779,6 +4779,7 @@ begin
Node.Text:=NewText; Node.Text:=NewText;
end; end;
end; end;
if Assigned(FOnEditingEnd) then FOnEditingEnd(Self, FEditingItem, Cancel);
end; end;
FEditingItem := nil; FEditingItem := nil;
Invalidate; Invalidate;