[JVCL-Checkins] SF.net SVN: jvcl:[13122] trunk/jvcl/run/JvListView.pas

[<ah...@us...>]

Revision: 13122
          http://jvcl.svn.sourceforge.net/jvcl/?rev=13122&view=rev
Author:   ahuser
Date:     2011-09-27 16:11:52 +0000 (Tue, 27 Sep 2011)
Log Message:
-----------
Added OnCancelEdit event that is missing in the ComCtrls.TListView implementation.

Modified Paths:
--------------
    trunk/jvcl/run/JvListView.pas

Modified: trunk/jvcl/run/JvListView.pas
===================================================================
--- trunk/jvcl/run/JvListView.pas	2011-09-21 12:31:58 UTC (rev 13121)
+++ trunk/jvcl/run/JvListView.pas	2011-09-27 16:11:52 UTC (rev 13122)
@@ -80,6 +80,7 @@
   {$IFNDEF RTL200_UP}
   TJvListViewCompareGroupEvent = procedure(Sender: TObject; Group1, Group2: TJvListViewGroup; var Compare: Integer) of object;
   {$ENDIF !RTL200_UP}
+  TJvListViewCancelEditEvent = procedure(Sender: TObject; Item: TListItem) of object;
 
   TJvListItems = class(TListItems, IJvAppStorageHandler, IJvAppStoragePublishedProps)
   private
@@ -363,6 +364,7 @@
     FReturnKeyTriggersItemDblClick: Boolean;
     FOnItemClick: TListViewItemClickNotifyEvent;
     FOnItemDblClick: TListViewItemClickNotifyEvent;
+    FOnCancelEdit: TJvListViewCancelEditEvent;
     procedure DoPictureChange(Sender: TObject);
     procedure SetPicture(const Value: TPicture);
     {$IFNDEF RTL200_UP}
@@ -420,6 +422,8 @@
       Stage: TCustomDrawStage): Boolean; override;
     function CustomDrawSubItem(Item: TListItem; SubItem: Integer;
       State: TCustomDrawState; Stage: TCustomDrawStage): Boolean; override;
+
+    procedure EditCanceled(Item: TListItem); virtual;
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -471,6 +475,7 @@
     property ViewStyle: TJvViewStyle read FViewStyle write SetJvViewStyle default vsIcon;
 
     property OnAutoSort: TJvListViewColumnSortEvent read FOnAutoSort write FOnAutoSort;
+    property OnCancelEdit: TJvListViewCancelEditEvent read FOnCancelEdit write FOnCancelEdit;
     property OnHorizontalScroll: TNotifyEvent read FOnHorizontalScroll write FOnHorizontalScroll;
     property OnLoadProgress: TJvOnProgress read FOnLoadProgress write FOnLoadProgress;
     property OnSaveProgress: TJvOnProgress read FOnSaveProgress write FOnSaveProgress;
@@ -2201,6 +2206,11 @@
           end;
         end;
 
+      LVN_ENDLABELEDITA, LVN_ENDLABELEDITW:
+        with PLVDispInfo(Message.NMHdr)^ do
+          if (item.pszText = nil) and (item.iItem <> -1) then
+            EditCanceled(Items[item.iItem]);
+
       NM_CLICK, NM_DBLCLK:
         with PNMListView(NMHdr)^ do
         begin
@@ -2236,6 +2246,12 @@
     FOnItemDblClick(Self, AItem, SubItemIndex, X, Y);
 end;
 
+procedure TJvListView.EditCanceled(Item: TListItem);
+begin
+  if Assigned(FOnCancelEdit) then
+    FOnCancelEdit(Self, Item);
+end;
+
 function TJvListView.CustomDrawSubItem(Item: TListItem; SubItem: Integer;
   State: TCustomDrawState; Stage: TCustomDrawStage): Boolean;
 begin

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.