paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 01:21:03 +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 interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, LCLProc, LResources, Forms, Controls, Graphics, Dialogs,
ButtonPanel, StdCtrls, ExtCtrls, Buttons, ButtonPanel, StdCtrls, ExtCtrls, Buttons,
IDEMsgIntf; IDEMsgIntf;
@ -69,7 +69,7 @@ begin
EditMsgScannersDialog:=TEditMsgScannersDialog.Create(nil); EditMsgScannersDialog:=TEditMsgScannersDialog.Create(nil);
try try
EditMsgScannersDialog.Scanners:=Scanners; EditMsgScannersDialog.Scanners:=Scanners;
Result:=EditMsgScannersDialog.ModalResult; Result:=EditMsgScannersDialog.ShowModal;
if Result=mrOk then if Result=mrOk then
Scanners.Assign(EditMsgScannersDialog.Scanners); Scanners.Assign(EditMsgScannersDialog.Scanners);
finally finally

2
ide/exttooleditdlg.pas
View File

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