Browse Source

Replacing "stored" with "default" property attribute

Source commit: f4d795f9f58e348f07a987a6e9427e330630d793
Martin Prikryl 6 years ago
parent
commit
d955e51210
1 changed files with 1 additions and 7 deletions
  1. 1 7
      source/packages/my/HistoryComboBox.pas

+ 1 - 7
source/packages/my/HistoryComboBox.pas

@@ -28,7 +28,6 @@ type
     FOnSetData: THistoryComboBoxSetData;
 
     procedure SetMaxHistorySize(AMaxHistorySize: Integer);
-    function StoreSaveOn: Boolean;
     function GetMaxItemWidth: Integer;
   protected
     { Protected declarations }
@@ -42,7 +41,7 @@ type
     procedure SaveToHistory; virtual;
   published
     { Published declarations }
-    property SaveOn: THistorySaveOn read FSaveOn write FSaveOn stored StoreSaveOn;
+    property SaveOn: THistorySaveOn read FSaveOn write FSaveOn default DefaultHistorySaveOn;
     property MaxHistorySize: Integer read FMaxHistorySize write SetMaxHistorySize default DefaultMaxHistorySize;
     property OnGetData: THistoryComboBoxGetData read FOnGetData write FOnGetData;
     property OnSetData: THistoryComboBoxSetData read FOnSetData write FOnSetData;
@@ -153,11 +152,6 @@ begin
   end;
 end;
 
-function THistoryComboBox.StoreSaveOn: Boolean;
-begin
-  Result := (SaveOn <> DefaultHistorySaveOn);
-end;
-
 // taken from TIECustomComboBox:
 
 function THistoryComboBox.GetMaxItemWidth: Integer;