Code orphaned by 1bd51d52

Source commit: 246946e7420c67f56ccb66dc4ba9bfacd071b84c

source/packages/my/PasTools.pas

@@ -34,8 +34,6 @@ function HasSystemParametersInfoForPixelsPerInch: Boolean;
 function SystemParametersInfoForPixelsPerInch(
   uiAction, uiParam: UINT; pvParam: Pointer; fWinIni: UINT; dpi: UINT): BOOL;
 
-procedure GetFormScaleRatio(Form: TForm; var M, D: Integer);
-
 function GetMonitorFromControl(Control: TControl): TMonitor;
 function GetMonitorPixelsPerInch(Monitor: TMonitor): Integer;
 function GetControlPixelsPerInch(Control: TControl): Integer;
@@ -471,12 +469,6 @@ begin
   end;
 end;
 
-procedure GetFormScaleRatio(Form: TForm; var M, D: Integer);
-begin
-  M := CalculateTextHeight(Form.Canvas);
-  D := Form.RetrieveTextHeight;
-end;
-
 // this differs from ScaleByTextHeight only by enforcing
 // constant design-time text height
 function ScaleByTextHeightRunTime(Control: TControl; Dimension: Integer): Integer;