Pascal Scripting: ScaleX

Prototype:

function ScaleX(X: Integer): Integer;

Description:

Takes an X coordinate or width and returns it scaled to fit the size of the current dialog font. If the dialog font is 8-point MS Sans Serif and the user is running Windows in Small Fonts (96 dpi), then X is returned unchanged.