[GExperts-CVS] gexperts/unstable/Src GX_CompRename.dfm, 1.9, 1.10 GX_CompRename.pas, 1.28, 1.29

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

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

Modified Files:
	GX_CompRename.dfm GX_CompRename.pas 
Log Message:
Add settings button to rename dialog

Index: GX_CompRename.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CompRename.pas,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- GX_CompRename.pas	5 Jul 2006 13:54:30 -0000	1.28
+++ GX_CompRename.pas	28 Jul 2006 02:54:32 -0000	1.29
@@ -28,8 +28,10 @@
     btnCancel: TButton;
     btnOK: TButton;
     lblReason: TLabel;
+    btnSettings: TButton;
     procedure FormCreate(Sender: TObject);
     procedure edtNewNameChange(Sender: TObject);
+    procedure btnSettingsClick(Sender: TObject);
   private
     FIsValidComponentName: TIsValidComponentName;
     FProperties: TObjectList;
@@ -120,6 +122,9 @@
 resourcestring
   SPropertyNotFound = 'Property not found';
 
+var
+  PrivateCompRenameExpert: TCompRenameExpert;
+
 { TfmCompRename }
 
 function TfmCompRename.Execute: TModalResult;
@@ -391,6 +396,7 @@
 constructor TCompRenameExpert.Create;
 begin
   inherited Create;
+  PrivateCompRenameExpert := Self;
   FComponentNames := TStringList.Create;
   FFormNames := TStringList.Create;
   FRenameRuleList := TStringList.Create;
@@ -406,6 +412,7 @@
 var
   i: Integer;
 begin
+  PrivateCompRenameExpert := nil;
   RemoveNotifier;
   FreeAndNil(FTimer);
   if Assigned(FRenameRuleList) then
@@ -825,6 +832,12 @@
   SetModalFormPopupMode(Self);
 end;
 
+procedure TfmCompRename.btnSettingsClick(Sender: TObject);
+begin
+  Assert(Assigned(PrivateCompRenameExpert));
+  PrivateCompRenameExpert.Configure;
+end;
+
 initialization
   RegisterGX_Expert(TCompRenameExpert);
 

Index: GX_CompRename.dfm
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CompRename.dfm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- GX_CompRename.dfm	5 Jul 2006 13:56:57 -0000	1.9
+++ GX_CompRename.dfm	28 Jul 2006 02:54:32 -0000	1.10
@@ -5,7 +5,7 @@
   BorderStyle = bsDialog
   Caption = 'GExperts Rename Component'
   ClientHeight = 95
-  ClientWidth = 297
+  ClientWidth = 334
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -17,7 +17,7 @@
   Scaled = False
   OnCreate = FormCreate
   DesignSize = (
-    297
+    334
     95)
   PixelsPerInch = 96
   TextHeight = 13
@@ -57,7 +57,7 @@
   object edtOldName: TEdit
     Left = 91
     Top = 8
-    Width = 198
+    Width = 235
     Height = 21
     TabStop = False
     Anchors = [akLeft, akTop, akRight]
@@ -68,7 +68,7 @@
   object edtNewName: TEdit
     Left = 91
     Top = 32
-    Width = 198
+    Width = 235
     Height = 21
     Anchors = [akLeft, akTop, akRight]
     AutoSelect = False
@@ -76,7 +76,7 @@
     OnChange = edtNewNameChange
   end
   object btnCancel: TButton
-    Left = 214
+    Left = 171
     Top = 63
     Width = 75
     Height = 25
@@ -87,7 +87,7 @@
     TabOrder = 3
   end
   object btnOK: TButton
-    Left = 134
+    Left = 91
     Top = 63
     Width = 75
     Height = 25
@@ -97,4 +97,14 @@
     ModalResult = 1
     TabOrder = 2
   end
+  object btnSettings: TButton
+    Left = 251
+    Top = 63
+    Width = 75
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Caption = '&Settings...'
+    TabOrder = 4
+    OnClick = btnSettingsClick
+  end
 end