[GExperts-CVS] gexperts/unstable/Src GX_Configure.dfm, 1.31, 1.32 GX_Configure.pas, 1.43, 1.44

[Erik B. <eb...@us...>]

Update of /cvsroot/gexperts/gexperts/unstable/Src
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv31630/Src

Modified Files:
	GX_Configure.dfm GX_Configure.pas 
Log Message:
Add debug ability to dump application window contents/details

Index: GX_Configure.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_Configure.pas,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -d -r1.43 -r1.44
--- GX_Configure.pas	16 May 2006 02:06:13 -0000	1.43
+++ GX_Configure.pas	30 Jun 2006 07:07:11 -0000	1.44
@@ -83,6 +83,7 @@
     udMinutes: TUpDown;
     btnEumerateActions: TButton;
     btnGetFonts: TButton;
+    btnAppBuilder: TButton;
     procedure btnEnumerateModulesClick(Sender: TObject);
     procedure chkEditorKeyTracingClick(Sender: TObject);
     procedure sbVCLDirClick(Sender: TObject);
@@ -118,6 +119,7 @@
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure btnEumerateActionsClick(Sender: TObject);
     procedure btnGetFontsClick(Sender: TObject);
+    procedure btnAppBuilderClick(Sender: TObject);
   private
     FOIFont: TFont;
     FCPFont: TFont;
@@ -977,5 +979,10 @@
   ShowMessage(Fonts);
 end;
 
+procedure TfmConfiguration.btnAppBuilderClick(Sender: TObject);
+begin
+  OutputComponentList(GetIdeMainForm, False);
+end;
+
 end.
 

Index: GX_Configure.dfm
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_Configure.dfm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- GX_Configure.dfm	16 May 2006 02:06:13 -0000	1.31
+++ GX_Configure.dfm	30 Jun 2006 07:07:11 -0000	1.32
@@ -613,6 +613,15 @@
           TabOrder = 3
           OnClick = btnGetFontsClick
         end
+        object btnAppBuilder: TButton
+          Left = 16
+          Top = 135
+          Width = 137
+          Height = 25
+          Caption = 'Application Window'
+          TabOrder = 4
+          OnClick = btnAppBuilderClick
+        end
       end
     end
   end