From: <aka...@us...> - 2024-07-07 20:22:55
|
Revision: 4285 http://sourceforge.net/p/gexperts/code/4285 Author: akalwahome Date: 2024-07-07 20:22:52 +0000 (Sun, 07 Jul 2024) Log Message: ----------- FIX: RenameComponent scaling issues Modified Paths: -------------- trunk/Source/RenameComponents/GX_CompRename.dfm trunk/Source/RenameComponents/GX_CompRename.pas Modified: trunk/Source/RenameComponents/GX_CompRename.dfm =================================================================== --- trunk/Source/RenameComponents/GX_CompRename.dfm 2024-07-07 11:40:46 UTC (rev 4284) +++ trunk/Source/RenameComponents/GX_CompRename.dfm 2024-07-07 20:22:52 UTC (rev 4285) @@ -16,6 +16,7 @@ Position = poScreenCenter Scaled = False PixelsPerInch = 96 + OnShow = FormShow TextHeight = 14 object lblOldName: TLabel Left = 8 @@ -317,7 +318,7 @@ end object edtOldName: TEdit Left = 8 - Top = 24 + Top = 25 Width = 305 Height = 22 Color = clBtnFace @@ -326,7 +327,7 @@ end object edtNewName: TEdit Left = 8 - Top = 72 + Top = 73 Width = 305 Height = 22 AutoSelect = False Modified: trunk/Source/RenameComponents/GX_CompRename.pas =================================================================== --- trunk/Source/RenameComponents/GX_CompRename.pas 2024-07-07 11:40:46 UTC (rev 4284) +++ trunk/Source/RenameComponents/GX_CompRename.pas 2024-07-07 20:22:52 UTC (rev 4285) @@ -71,6 +71,7 @@ procedure b_Margins3Click(Sender: TObject); procedure b_Margins6Click(Sender: TObject); procedure b_Margins8Click(Sender: TObject); + procedure FormShow(Sender: TObject); private FIsValidComponentName: TIsValidComponentName; FProperties: TObjectList; @@ -199,10 +200,20 @@ begin ActiveControl := edtNewName; // lblReason.Top := btnOK.Top + Round((btnOK.Height / 2) - (lblReason.Height / 2)); - InitDpiScaler; Result := ShowModal; end; +procedure TfmCompRename.FormShow(Sender: TObject); +begin + inherited; + // Adjust some button positons and size after scaling + // DisableAlign; + b_AlignRight.Left := b_AlignTop.Left + b_AlignTop.Width - b_AlignRight.Width; + b_AlignClient.Left := b_AlignLeft.Left + b_AlignLeft.Width + 1; + b_AlignClient.Width := b_AlignRight.Left - b_AlignClient.Left - 2; + // EnableAlign; +end; + function TfmCompRename.GetNewName: WideString; begin Result := Trim(edtNewName.Text); @@ -447,6 +458,8 @@ constructor TfmCompRename.Create(Owner: TComponent); begin inherited; + TControl_SetMinConstraints(Self); + FProperties := TObjectList.Create(False); FAlignButtons[alTop] := TdzSpeedBitBtn.Create(b_AlignTop); @@ -850,6 +863,7 @@ frm.OldName := CompName; frm.SetComponent(Component); + frm.InitDpiScaler; Index := RenameRuleList.IndexOfName(Component.GetComponentType); if Index <> -1 then This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |