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

IDEIntf: made TListPropertyEditor.GetValue ouptut i18n-friendly

Browse Source
This commit is contained in:
Maxim Ganetsky 2025-07-01 18:03:37 +03:00
parent 068397b12e
commit ad97c29f1f
2 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/ideintf/objinspstrconsts.pas
View File

@ -16,8 +16,7 @@ resourcestring
oisObjectInspector = 'Object Inspector'; oisObjectInspector = 'Object Inspector';
oisError = 'Error'; oisError = 'Error';
oisMixed = '(Mixed)'; oisMixed = '(Mixed)';
oisItems = '%s items'; oisItems = 'items: %s';
ois1Item = '1 item';
oisItemsSelected = '%u items selected'; oisItemsSelected = '%u items selected';
//oiscAdd = '&Add'; //oiscAdd = '&Add';
oiscDelete = 'Delete?'; oiscDelete = 'Delete?';

8
components/ideintf/propedits.pp
View File

@ -5257,14 +5257,8 @@ begin
end; end;
function TListPropertyEditor.GetValue: AnsiString; function TListPropertyEditor.GetValue: AnsiString;
var
ElementCount: integer;
begin begin
ElementCount:=GetElementCount; Result:=Format(oisItems, [IntToStr(GetElementCount)])
if ElementCount<>1 then
Result:=Format(oisItems, [IntToStr(GetElementCount)])
else
Result:=ois1Item;
end; end;
procedure TListPropertyEditor.Initialize; procedure TListPropertyEditor.Initialize;