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

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

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

Modified Files:
	GX_CompRename.dfm GX_CompRename.pas 
Log Message:
Enforce the error label Y position, remove an IFDEF

Index: GX_CompRename.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CompRename.pas,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- GX_CompRename.pas	28 Jul 2006 02:54:32 -0000	1.29
+++ GX_CompRename.pas	23 Mar 2007 09:03:34 -0000	1.30
@@ -820,16 +820,13 @@
 function TCompRenameExpert.IsDefaultActive: Boolean;
 begin
   // IDE Bug: This expert does not work under Delphi 8
-  {$IFNDEF VER160}
-  Result := True;
-  {$ELSE VER160}
-  Result := False;
-  {$ENDIF VER160}
+  Result := not RunningDelphi8;
 end;
 
 procedure TfmCompRename.FormCreate(Sender: TObject);
 begin
   SetModalFormPopupMode(Self);
+  lblReason.Top := btnOK.Top + Round((btnOK.Height / 2) - (lblReason.Height / 2));
 end;
 
 procedure TfmCompRename.btnSettingsClick(Sender: TObject);

Index: GX_CompRename.dfm
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CompRename.dfm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- GX_CompRename.dfm	28 Jul 2006 02:54:32 -0000	1.10
+++ GX_CompRename.dfm	23 Mar 2007 09:03:34 -0000	1.11
@@ -4,8 +4,8 @@
   ActiveControl = edtNewName
   BorderStyle = bsDialog
   Caption = 'GExperts Rename Component'
-  ClientHeight = 95
-  ClientWidth = 334
+  ClientHeight = 97
+  ClientWidth = 355
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -17,8 +17,8 @@
   Scaled = False
   OnCreate = FormCreate
   DesignSize = (
-    334
-    95)
+    355
+    97)
   PixelsPerInch = 96
   TextHeight = 13
   object lblOldName: TLabel
@@ -39,7 +39,7 @@
   end
   object lblReason: TLabel
     Left = 10
-    Top = 68
+    Top = 70
     Width = 73
     Height = 13
     Anchors = [akLeft, akBottom]
@@ -57,7 +57,7 @@
   object edtOldName: TEdit
     Left = 91
     Top = 8
-    Width = 235
+    Width = 256
     Height = 21
     TabStop = False
     Anchors = [akLeft, akTop, akRight]
@@ -68,7 +68,7 @@
   object edtNewName: TEdit
     Left = 91
     Top = 32
-    Width = 235
+    Width = 256
     Height = 21
     Anchors = [akLeft, akTop, akRight]
     AutoSelect = False
@@ -76,8 +76,8 @@
     OnChange = edtNewNameChange
   end
   object btnCancel: TButton
-    Left = 171
-    Top = 63
+    Left = 192
+    Top = 65
     Width = 75
     Height = 25
     Anchors = [akRight, akBottom]
@@ -87,8 +87,8 @@
     TabOrder = 3
   end
   object btnOK: TButton
-    Left = 91
-    Top = 63
+    Left = 112
+    Top = 65
     Width = 75
     Height = 25
     Anchors = [akRight, akBottom]
@@ -98,8 +98,8 @@
     TabOrder = 2
   end
   object btnSettings: TButton
-    Left = 251
-    Top = 63
+    Left = 272
+    Top = 65
     Width = 75
     Height = 25
     Anchors = [akRight, akBottom]