From 60f580fe1af6f12fb1ffd2fdced184c5ec534ffb Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 14 Dec 2009 02:46:59 +0000
Subject: [PATCH] jcf: implementing showing of format option from the JCF menu

git-svn-id: trunk@23132 -
---
 .../jcf2/IdePlugin/lazarus/jcfidemain.pas     | 19 +++----------------
 1 file changed, 3 insertions(+), 16 deletions(-)

diff --git a/components/jcf2/IdePlugin/lazarus/jcfidemain.pas b/components/jcf2/IdePlugin/lazarus/jcfidemain.pas
index 543b9573f8..e2ccd53f57 100644
--- a/components/jcf2/IdePlugin/lazarus/jcfidemain.pas
+++ b/components/jcf2/IdePlugin/lazarus/jcfidemain.pas
@@ -81,7 +81,7 @@ uses
   { jcf }
   JcfStringUtils,
   { local }
-  fAbout{, fAllSettings, JcfRegistrySettings, fRegistrySettings};
+  fAbout, frFiles {, JcfRegistrySettings, fRegistrySettings};
 
 
 function FileIsAllowedType(const psFileName: string): boolean;
@@ -209,22 +209,9 @@ begin
 end;
 
 procedure TJcfIdeMain.DoFormatSettings(Sender: TObject);
-{var
-  lfAllSettings: TFormAllSettings;
-}
 begin
-  ShowMessage('unimplemented');
-{ TODO: convert JCF settings form (it contains some TJvXXX components atm)
-  if not GetRegSettings.HasRead then
-    GetRegSettings.ReadAll;
-
-  lfAllSettings := TFormAllSettings.Create(nil);
-  try
-    lfAllSettings.Execute;
-  finally
-    lfAllSettings.Release;
-  end;
-}
+  // open with the first frame
+  LazarusIDE.DoOpenIDEOptions(TfFiles);
 end;
 
 procedure TJcfIdeMain.DoAbout(Sender: TObject);