paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 22:16:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

ValEdit: Remove unneeded overridden SetTextStr.

Browse Source 
git-svn-id: trunk@40299 -
This commit is contained in:
bart 2013-02-13 15:19:02 +00:00
parent f074778ce7
commit db4e29e1d9
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/valedit.pas
View File

@ -78,7 +78,6 @@ type
function GetItemProp(const AKeyOrIndex: Variant): TItemProp;
procedure QuickSortStringsAndItemProps(L, R: Integer; CompareFn: TStringListSortCompare);
protected
procedure SetTextStr(const Value: string); override;
procedure InsertItem(Index: Integer; const S: string; AObject: TObject); override;
procedure InsertItem(Index: Integer; const S: string); override;
procedure Put(Index: Integer; const S: String); override;
@ -429,11 +428,6 @@ end;
{ TValueListStrings }
procedure TValueListStrings.SetTextStr(const Value: string);
begin
// ToDo: Assign also ItemProps ???
inherited SetTextStr(Value);
end;
procedure TValueListStrings.InsertItem(Index: Integer; const S: string; AObject: TObject);
var