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

added missing resourcestrings for propedits memochanged

Browse Source 
git-svn-id: trunk@8030 -
This commit is contained in:
mattias 2005-11-02 07:46:46 +00:00
parent 8df57b3d65
commit 713c417a73
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ideintf/objinspstrconsts.pas
View File

@ -210,6 +210,7 @@ resourcestring
// property editors
oisSort = 'Sort';
oisDLinesDChars = '%d lines, %d chars';
ois1LineDChars = '1 line, %d chars';
oisStringsEditorDialog = 'Strings Editor Dialog';
ois0Lines0Chars = '0 lines, 0 chars';
oisInvalidPropertyValue = 'Invalid property value';

8
ideintf/propedits.pp
View File

@ -4652,8 +4652,12 @@ end;
procedure TStringsPropEditorDlg.MemoChanged(Sender : TObject);
begin
StatusLabel.Text:= Format(oisDLinesDChars, [Memo.Lines.Count,
(Length(Memo.Lines.Text) - Memo.Lines.Count * Length(LineEnding))]);
if Memo.Lines.Count=1 then
StatusLabel.Text:= Format(ois1LineDChars, [Memo.Lines.Count,
(Length(Memo.Lines.Text) - Memo.Lines.Count * Length(LineEnding))])
else
StatusLabel.Text:= Format(oisDLinesDChars, [
(Length(Memo.Lines.Text) - Memo.Lines.Count * Length(LineEnding))]);
end;
{ TStringsPropertyEditor }