Description

Converts a mpt measurement value into unit, specified in selected personal preferences of the Pages main tab in Fred, At

Syntax

value

mpt measurement value to convert to a unit

sType

type string: FH-Fred Pages horizontal, FV-Fred Pages vertical, TH-Ted Articles hor., TV-Ted Articles ver

EH-Editions hor., EV-Editions ver, EM-Editions modules.

Code

  Public Overridable Function SetMeasStr(ByVal value As Double, ByVal type As String) As String

    'v1 on 30/Oct/14 (BS): converts the mpt value into the default unit as specified in the application preferences (modules)

    'see below for types F=Fred Pages, T=Ted Articles, E=Fred Editions, H=horizontal, V=vertical, M=modules

    Select Case UCase(type)

      Case "FH" : Return WinUI.Controls.PanelCtrl.ToMeasure(Common.EdUnits.Get(), value, FredApp.GetConf.ViewMisX.ToString().ToLower())

      Case "FV" : Return WinUI.Controls.PanelCtrl.ToMeasure(Common.EdUnits.Get(), value, FredApp.GetConf.ViewMisY.ToString().ToLower())

      Case "TH" : Return WinUI.Controls.PanelCtrl.ToMeasure(Common.EdUnits.Get(), value, FredApp.GetTedConf.ViewMisX.ToString().ToLower())

      Case "TV" : Return WinUI.Controls.PanelCtrl.ToMeasure(Common.EdUnits.Get(), value, FredApp.GetTedConf.ViewMisY.ToString().ToLower())

      Case "EH" : Return WinUI.Controls.PanelCtrl.ToMeasure(Common.EdUnits.Get(), value, FredApp.GetEdtConf.ViewMisX.ToString().ToLower())

      Case "EV" : Return WinUI.Controls.PanelCtrl.ToMeasure(Common.EdUnits.Get(), value, FredApp.GetEdtConf.ViewMisY.ToString().ToLower())

      Case "EM" : Return WinUI.Controls.PanelCtrl.ToMeasure(Common.EdUnits.Get(), value, FredApp.GetEdtConf.ViewMisY2.ToString().ToLower())

      Case Else

    End Select

    Dim misToUse As String = FredApp.GetEdtConf.ViewMisY2

    Return WinUI.Controls.PanelCtrl.ToMeasure(Common.EdUnits.Get(), value, misToUse.ToString().ToLower())

  End Function

Examples

s &= My.Resources.IDS_Height & vbtab & SetMeasStr(Page.GetPageHeight, "FV") & vbCr & vbCr

See also

SetTextStyleMsg