Просмотр исходного кода

Unused property

Source commit: 2318cbf5fe3038aaddb1fc33869b72c7c8d36dcc
Martin Prikryl 2 лет назад
Родитель
Сommit
9c79158a22
1 измененных файлов с 0 добавлено и 4 удалено
  1. 0 4
      source/packages/my/IEListView.pas

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

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