Explorar o código

Unused property

Source commit: 2318cbf5fe3038aaddb1fc33869b72c7c8d36dcc
Martin Prikryl %!s(int64=2) %!d(string=hai) anos
pai
achega
9c79158a22
Modificáronse 1 ficheiros con 0 adicións e 4 borrados
  1. 0 4
      source/packages/my/IEListView.pas

+ 0 - 4
source/packages/my/IEListView.pas

@@ -70,7 +70,6 @@ type
     FOnSecondaryColumnHeader: TListViewSecondaryColumnHeaderEvent;
 
     FDateTimeFormatStr: string;
-    FDateFormatStr: string;
     FDateTimeDisplay: TDateTimeDisplay;
     FDragImageList: TDragImageList;
 
@@ -105,7 +104,6 @@ type
     property ParentForm: TCustomForm read FParentForm;
     property DateTimeFormatStr: string
       read FDateTimeFormatStr write FDateTimeFormatStr stored False;
-    property DateFormatStr: string read FDateFormatStr;
     {Set the sort column of the listview}
     property SortColumn: Integer read FSortColumn write SetSortColumn;
     {Show the sorting symbol in the listview's header:}
@@ -627,8 +625,6 @@ begin
     FDateTimeFormatStr := FormatSettings.ShortDateFormat;
   end;
 
-  FDateFormatStr := FDateTimeFormatStr;
-
   if FDateTimeDisplay = dtdDateTimeSec then
       FDateTimeFormatStr := FDateTimeFormatStr + '  ' + FormatSettings.LongTimeFormat
     else