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
|
