From 4d30122bfd8cdd06801e1913d54a82039d291247 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 25 Apr 2008 18:47:10 +0000
Subject: [PATCH] IDE: added resourcestrings

git-svn-id: trunk@14976 -
---
 .../messagecomposer/messagecomposer.pas       |  2 ++
 ide/emptymethodsdlg.pas                       | 19 ++++++++++---------
 ide/lazarusidestrconsts.pas                   |  8 ++++++++
 3 files changed, 20 insertions(+), 9 deletions(-)

diff --git a/components/messagecomposer/messagecomposer.pas b/components/messagecomposer/messagecomposer.pas
index 537ded81be..579edcc76f 100644
--- a/components/messagecomposer/messagecomposer.pas
+++ b/components/messagecomposer/messagecomposer.pas
@@ -794,6 +794,8 @@ begin
   Prompt := PromptEdit.Text;
   MsgDefault := DefaultEdit.Text;
   Value := ValueEdit.Text;
+  HelpFileName:='';
+  MsgHelpKeyword:='';
   case KindMessageComboBox.ItemIndex of
     0: MessageDlg(Msg, DlgType, MsgButtons, HelpCtx);
     1: MessageDlg(MsgCaption, Msg, DlgType, MsgButtons, HelpCtx);
diff --git a/ide/emptymethodsdlg.pas b/ide/emptymethodsdlg.pas
index 3f5ef47374..108011efbb 100644
--- a/ide/emptymethodsdlg.pas
+++ b/ide/emptymethodsdlg.pas
@@ -141,18 +141,19 @@ end;
 
 procedure TEmptyMethodsDialog.FormCreate(Sender: TObject);
 begin
-  Caption:='Emtpy Methods';
-  SectionsGroupBox.Caption:='Search in these class sections:';
-  PrivateCheckBox.Caption:='Private';
-  ProtectedCheckBox.Caption:='Protected';
-  PublicCheckBox.Caption:='Public';
-  PublishedButton.Caption:='Published';
-  AllButton.Caption:='All';
-  PublishedButton.Caption:='Only published';
-  MethodsGroupBox.Caption:='Found empty methods:';
+  Caption:=lisEMDEmtpyMethods;
+  SectionsGroupBox.Caption:=lisEMDSearchInTheseClassSections;
+  PrivateCheckBox.Caption:=lisPrivate;
+  ProtectedCheckBox.Caption:=lisProtected;
+  PublicCheckBox.Caption:=lisEMDPublic;
+  PublishedButton.Caption:=lisEMDPublished;
+  AllButton.Caption:=lisEMDAll;
+  PublishedButton.Caption:=lisEMDOnlyPublished;
+  MethodsGroupBox.Caption:=lisEMDFoundEmptyMethods;
   Sections:=AllPascalClassSections;
   
   ButtonPanel1.OKButton.OnClick:=@OKButtonClick;
+  ButtonPanel1.OKButton.Caption:=lisEMDRemoveMethods;
 end;
 
 procedure TEmptyMethodsDialog.OKButtonClick(Sender: TObject);
diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index be0b93cded..c840df95cd 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -1356,6 +1356,8 @@ resourcestring
   dlgCCOTestMissingPPU = 'Test: Checking missing fpc ppu ...';
   dlgCCOTestCompilerDate = 'Test: Checking compiler date ...';
   lisCCOErrorCaption = 'Error';
+  lisEMDEmtpyMethods = 'Emtpy Methods';
+  lisEMDSearchInTheseClassSections = 'Search in these class sections:';
   lisUnableToLoadPackage = 'Unable to load package %s%s%s';
   lisSAMThisMethodCanNotBeOverriddenBecauseItIsDefinedInTh = 'This method can '
     +'not be overridden because it is defined in the current class';
@@ -1494,6 +1496,12 @@ resourcestring
   lisFilter = 'Filter';
   lisPrivate = 'Private';
   lisProtected = 'Protected';
+  lisEMDPublic = 'Public';
+  lisEMDPublished = 'Published';
+  lisEMDAll = 'All';
+  lisEMDOnlyPublished = 'Only published';
+  lisEMDFoundEmptyMethods = 'Found empty methods:';
+  lisEMDRemoveMethods = 'Remove methods';
   lisExpandAllPackages = 'Expand all packages';
   lisCollapseAllPackages = 'Collapse all packages';
   lisExpandAllUnits = 'Expand all units';