From 713c417a73686b8fa44f69f8a12cfd347167214e Mon Sep 17 00:00:00 2001 From: mattias Date: Wed, 2 Nov 2005 07:46:46 +0000 Subject: [PATCH] added missing resourcestrings for propedits memochanged git-svn-id: trunk@8030 - --- ideintf/objinspstrconsts.pas | 1 + ideintf/propedits.pp | 8 ++++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ideintf/objinspstrconsts.pas b/ideintf/objinspstrconsts.pas index 5315249c3d..e5ec5cff63 100644 --- a/ideintf/objinspstrconsts.pas +++ b/ideintf/objinspstrconsts.pas @@ -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'; diff --git a/ideintf/propedits.pp b/ideintf/propedits.pp index 7b47c0d422..badb842c98 100644 --- a/ideintf/propedits.pp +++ b/ideintf/propedits.pp @@ -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 }