From: Erik B. <eb...@us...> - 2007-03-23 09:03:35
|
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] |