From 7797fc8141715d609013f5114e647e9f06c37492 Mon Sep 17 00:00:00 2001 From: juha Date: Tue, 3 Jan 2012 15:41:33 +0000 Subject: [PATCH] PoChecker: cleanup git-svn-id: trunk@34558 - --- components/pochecker/Proj/pocheckermain.pp | 24 ++-------------------- components/pochecker/pocheckermain.pp | 2 +- 2 files changed, 3 insertions(+), 23 deletions(-) diff --git a/components/pochecker/Proj/pocheckermain.pp b/components/pochecker/Proj/pocheckermain.pp index d293443a3f..27a041e1f9 100644 --- a/components/pochecker/Proj/pocheckermain.pp +++ b/components/pochecker/Proj/pocheckermain.pp @@ -24,8 +24,8 @@ unit pocheckermain; interface uses - Classes, SysUtils, FileUtil, SynEdit, Forms, Controls, Graphics, Dialogs, - StdCtrls, LCLProc, CheckLst, Buttons, ExtCtrls, IDEIntf, MenuIntf, + Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, + StdCtrls, LCLProc, CheckLst, Buttons, ExtCtrls, SimplePoFiles, PoFamilies, ResultDlg; type @@ -83,20 +83,10 @@ resourcestring var PoCheckerForm: TPoCheckerForm; -procedure Register; - implementation {$R *.lfm} -procedure ShowPoCheckerForm(); -begin - if not Assigned(PoCheckerForm) then - PoCheckerForm := TPoCheckerForm.Create(Application); - PoCheckerForm.Show; -end; - - { TPoCheckerForm } procedure TPoCheckerForm.FormCreate(Sender: TObject); @@ -322,15 +312,5 @@ begin (Item1.Translation = Item2.Translation); end; -procedure IDEMenuClicked(Sender: TObject); -begin - ShowPoCheckerForm; -end; - -procedure Register; -begin - RegisterIDEMenuCommand(itmSecondaryTools, 'mnuPoChecker', rsPoChecker, nil, @IDEMenuClicked); -end; - end. diff --git a/components/pochecker/pocheckermain.pp b/components/pochecker/pocheckermain.pp index d293443a3f..a25e428541 100644 --- a/components/pochecker/pocheckermain.pp +++ b/components/pochecker/pocheckermain.pp @@ -24,7 +24,7 @@ unit pocheckermain; interface uses - Classes, SysUtils, FileUtil, SynEdit, Forms, Controls, Graphics, Dialogs, + Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, LCLProc, CheckLst, Buttons, ExtCtrls, IDEIntf, MenuIntf, SimplePoFiles, PoFamilies, ResultDlg;