Changeset 97 for trunk/gui/printer/manager/PRINTOOL.VRX

Timestamp:

Feb 19, 2023, 2:33:51 AM (3 years ago)

Author:

Alex Taylor

Message:

Various updates and refactoring of font scaling logic; documentation and WIS updates.

File:

• trunk/gui/printer/manager/PRINTOOL.VRX (modified) (3 diffs)

trunk/gui/printer/manager/PRINTOOL.VRX

@@ -524 +524 @@
 RETURN _count
 
-/*:VRX         GetScalingFactor
-*/
-/* Return the UI scaling factor based on the difference between the specified 
- * font size and the design-default font size.
- */
-GetScalingFactor: PROCEDURE EXPOSE globals.
-    PARSE ARG newSize, orgSize
-
-    IF orgSize == '' THEN
-        orgSize = globals.!defaultSize
-
-    IF newSize < globals.!defaultSize THEN
-        newSize = globals.!defaultSize
-
-    scaleFactor = newSize / orgSize
-
-RETURN scaleFactor
-
 /*:VRX         GetShippedDrivers
 */
@@ -1359 +1341 @@
 
 RETURN ok
-
-/*:VRX         ParseFontSize
-*/
-ParseFontSize: PROCEDURE EXPOSE globals.
-    PARSE ARG font
-    IF font == '' | font == '<default>' THEN 
-        RETURN globals.!defaultSize
-
-    PARSE VAR font _pts'.'.
-    IF _pts < globals.!defaultSize THEN
-        _pts = globals.!defaultSize
-
-RETURN _pts
 
 /*:VRX         PB_ABOUT_OK_Click
@@ -2281 +2250 @@
 RETURN
 
-/*:VRX         RescaleObject
-*/
-RescaleObject: PROCEDURE
-    PARSE ARG object, factor, move
-
-    x = VRGet( object, 'Left')
-    y = VRGet( object, 'Top')
-    w = VRGet( object, 'Width')
-    h = VRGet( object, 'Height')
-    nx = TRUNC( x * factor )
-    ny = TRUNC( y * factor  )
-    nw = TRUNC( w * factor )
-    nh = TRUNC( h * factor  )
-
-    /* SAY object ': ('||x','y','w','h') --> ('nx','ny','nw','nh')' */
-
-    IF move <> 0 THEN DO
-        ok = VRSet( object, 'Left', nx )
-        ok = VRSet( object, 'Top', ny )
-    END
-    ok = VRSet( object, 'Width', nw )
-    ok = VRSet( object, 'Height', nh )
-
-RETURN
-
 /*:VRX         SetDriverList
 */