paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 12:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: New event OnFileAdded for TShellListView. Issue #27422, patch from theo.

Browse Source 
git-svn-id: trunk@47836 -
This commit is contained in:
juha 2015-02-16 21:49:23 +00:00
parent dd8f801514
commit 7110836ddc
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/shellctrls.pas
View File

@ -170,12 +170,15 @@ type
{ TCustomShellListView }
TCSLVFileAddedEvent = procedure(Sender: TObject; Item: TListItem) of object;
TCustomShellListView = class(TCustomListView)
private
FMask: string;
FObjectTypes: TObjectTypes;
FRoot: string;
FShellTreeView: TCustomShellTreeView;
FOnFileAdded: TCSLVFileAddedEvent;
{ Setters and getters }
procedure SetMask(const AValue: string);
procedure SetShellTreeView(const Value: TCustomShellTreeView);
@ -184,6 +187,7 @@ type
{ Methods specific to Lazarus }
procedure PopulateWithRoot();
procedure Resize; override;
property OnFileAdded: TCSLVFileAddedEvent read FOnFileAdded write FOnFileAdded;
public
{ Basic methods }
constructor Create(AOwner: TComponent); override;
@ -282,6 +286,7 @@ type
property OnSelectItem;
property OnStartDrag;
property OnUTF8KeyPress;
property OnFileAdded;
{ TCustomShellListView properties }
property ObjectTypes;
property Root;
@ -1220,6 +1225,7 @@ begin
NewItem.SubItems.Add(IntToStr(CurFileSize div (1024 * 1024)) + ' MB');
// Third column - Type
NewItem.SubItems.Add(ExtractFileExt(CurFileName));
if Assigned(FOnFileAdded) then FOnFileAdded(Self,NewItem);
end;
Sort;
finally