Browse Source

Unused field

Source commit: f5afbb304533a92553473b068018258a200a1062
Martin Prikryl 1 year ago
parent
commit
8d6a279891
1 changed files with 0 additions and 11 deletions
  1. 0 11
      source/packages/filemng/DirView.pas

+ 0 - 11
source/packages/filemng/DirView.pas

@@ -116,9 +116,6 @@ type
 
 
     property Index: Integer read FIndex write SetIndex;
     property Index: Integer read FIndex write SetIndex;
     property MaxIndex: Integer read FMaxIndex write SetMaxIndex;
     property MaxIndex: Integer read FMaxIndex write SetMaxIndex;
-
-  public
-    procedure Terminate; override;
   end;
   end;
 
 
   { TDirView }
   { TDirView }
@@ -130,7 +127,6 @@ type
     FChangeTimer: TTimer;
     FChangeTimer: TTimer;
     FChangeInterval: Cardinal;
     FChangeInterval: Cardinal;
     FUseIconUpdateThread: Boolean;
     FUseIconUpdateThread: Boolean;
-    FIUThreadFinished: Boolean;
     FDriveType: Integer;
     FDriveType: Integer;
     FParentFolder: IShellFolder;
     FParentFolder: IShellFolder;
     FDesktopFolder: IShellFolder;
     FDesktopFolder: IShellFolder;
@@ -627,7 +623,6 @@ begin
   if (FOwner.ViewStyle = vsReport) or (FOwner.ViewStyle = vsList) then
   if (FOwner.ViewStyle = vsReport) or (FOwner.ViewStyle = vsList) then
     FMaxIndex := FOwner.VisibleRowCount
     FMaxIndex := FOwner.VisibleRowCount
       else FMaxIndex := 0;
       else FMaxIndex := 0;
-  FOwner.FIUThreadFinished := False;
 end; {TIconUpdateThread.Create}
 end; {TIconUpdateThread.Create}
 
 
 procedure TIconUpdateThread.SetMaxIndex(Value: Integer);
 procedure TIconUpdateThread.SetMaxIndex(Value: Integer);
@@ -763,12 +758,6 @@ begin
     end;
     end;
 end; {TIconUpdateThread.DoUpdateIcon}
 end; {TIconUpdateThread.DoUpdateIcon}
 
 
-procedure TIconUpdateThread.Terminate;
-begin
-  FOwner.FIUThreadFinished := True;
-  inherited;
-end; {TIconUpdateThread.Terminate}
-
 { TDirView }
 { TDirView }
 
 
 constructor TDirView.Create(AOwner: TComponent);
 constructor TDirView.Create(AOwner: TComponent);