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

IDE: showing custom scanner eit dlg

Browse Source 
git-svn-id: trunk@15012 -
This commit is contained in:
mattias 2008-04-29 13:06:29 +00:00
parent 47eae27a96
commit 5f24488ebf
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/editmsgscannersdlg.pas
View File

@ -27,7 +27,7 @@ unit EditMsgScannersDlg;
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
Classes, SysUtils, LCLProc, LResources, Forms, Controls, Graphics, Dialogs,
ButtonPanel, StdCtrls, ExtCtrls, Buttons,
IDEMsgIntf;
@ -69,7 +69,7 @@ begin
EditMsgScannersDialog:=TEditMsgScannersDialog.Create(nil);
try
EditMsgScannersDialog.Scanners:=Scanners;
Result:=EditMsgScannersDialog.ModalResult;
Result:=EditMsgScannersDialog.ShowModal;
if Result=mrOk then
Scanners.Assign(EditMsgScannersDialog.Scanners);
finally

2
ide/exttooleditdlg.pas
View File

@ -43,7 +43,7 @@ uses
MemCheck,
{$ENDIF}
Classes, SysUtils, LCLType, Controls, Forms, Buttons, StdCtrls, ComCtrls,
Dialogs, LResources, ExtCtrls,
Dialogs, LResources, ExtCtrls, LCLProc,
IDEMsgIntf, IDEExternToolIntf,
KeyMapping, TransferMacros, LazarusIDEStrConsts, EditMsgScannersDlg;

8
ide/projectopts.pp
View File

@ -56,10 +56,10 @@ type
PoOutDirLabel: TLabel;
Notebook: TNotebook;
ApplicationPage: TPage;
FormsPage: TPage;
MiscPage: TPage;
LazDocPage: TPage;
ApplicationPage: TPage;
FormsPage: TPage;
MiscPage: TPage;
LazDocPage: TPage;
i18nPage: TPage;
POOutDirButton: TButton;
POOutDirEdit: TEdit;