paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 04:58:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: localized 'Use a unit from this project' dialog. Based on patch by Marcelo B Paula, bug #18673

Browse Source 
git-svn-id: trunk@29362 -
This commit is contained in:
maxim 2011-02-03 21:57:06 +00:00
parent 1687922e06
commit 426a7e3efd
3 changed files with 46 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/lazarusidestrconsts.pas
View File

@ -5170,6 +5170,13 @@ resourcestring
+'set (macro LCLWidgetType)';
lisCircleInMacros = 'Circle in macros';
// Uses Unit dialog
dlgNoUnusedItem = 'No unused items are available in this project.';
dlgUseUnitCaption = 'Use a unit from this project';
dlgInsertSection = 'Insert into Uses section of';
dlgInsertInterface = 'Interface';
dlgInsertImplementation = 'Implementation';
implementation
end.

1
ide/useprojunitdlg.lfm
View File

@ -8,6 +8,7 @@ object UseProjUnitDialog: TUseProjUnitDialog
ClientWidth = 318
Constraints.MinHeight = 150
Constraints.MinWidth = 200
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.31'
object ButtonPanel1: TButtonPanel

39
ide/useprojunitdlg.pas
View File

@ -1,3 +1,26 @@
{ Copyright (C) 2011,
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
Last change: 02.02.2010 by Marcelo B Paula
}
unit UseProjUnitDlg;
{$mode objfpc}{$H+}
@ -18,6 +41,7 @@ type
ButtonPanel1: TButtonPanel;
UnitsListBox: TListBox;
SectionRadioGroup: TRadioGroup;
procedure FormCreate(Sender: TObject);
private
procedure AddItems(AItems: TStrings);
procedure SelectFirst;
@ -92,7 +116,7 @@ begin
end;
end
else
ShowMessage('No unused items are available in this project.');
ShowMessage(dlgNoUnusedItem);
finally
CodeToolBoss.SourceCache.ClearAllSourceLogEntries;
UseProjUnitDlg.Free;
@ -104,6 +128,19 @@ end;
{ TUseProjUnitDialog }
procedure TUseProjUnitDialog.FormCreate(Sender: TObject);
begin
// Internationalization
Caption := dlgUseUnitCaption;
SectionRadioGroup.Caption := dlgInsertSection;
SectionRadioGroup.Items.Clear;
SectionRadioGroup.Items.Add(dlgInsertInterface);
SectionRadioGroup.Items.Add(dlgInsertImplementation);
SectionRadioGroup.ItemIndex:=1;
ButtonPanel1.OKButton.Caption:=lisOk;
ButtonPanel1.CancelButton.Caption:=dlgCancel;
end;
procedure TUseProjUnitDialog.AddItems(AItems: TStrings);
begin
UnitsListBox.Items.Assign(AItems);