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

IDE: added resourcestrings

Browse Source 
git-svn-id: trunk@14976 -
This commit is contained in:
mattias 2008-04-25 18:47:10 +00:00
parent bb13c13e0d
commit 4d30122bfd
3 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/messagecomposer/messagecomposer.pas
View File

@ -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);

19
ide/emptymethodsdlg.pas
View File

@ -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);

8
ide/lazarusidestrconsts.pas
View File

@ -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';