paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 11:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TFilterComboBox: freenotification for ShellListView

Browse Source 
git-svn-id: trunk@41453 -
This commit is contained in:
mattias 2013-05-30 06:52:22 +00:00
parent 1d2d0b6a26
commit 4a703f67f5
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/filectrl.pp
View File

@ -145,6 +145,8 @@ Type
procedure SetShellListView(const AValue: TShellListView);
protected
procedure Select; override;
procedure Notification(AComponent: TComponent; Operation: TOperation);
override;
public
{ Base methods }
constructor Create(TheOwner: TComponent); override;
@ -514,18 +516,31 @@ begin
FShellListView:=AValue;
if FShellListView <> nil then
FShellListView.Mask := Mask;
if FShellListView <> nil then begin
FShellListView.Mask := Mask;
FreeNotification(FShellListView);
end;
end;
procedure TCustomFilterComboBox.Select;
begin
if FShellListView <> nil then
FShellListView.Mask := Mask;
FShellListView.Mask := Mask;
inherited Select;
end;
procedure TCustomFilterComboBox.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if Operation=opRemove then
begin
if FShellListView=AComponent then
FShellListView:=nil;
end;
end;
{------------------------------------------------------------------------------
This is a parser that converts LCL filter strings to a TStringList