>My question is - is there a way to alter default font styles used in:
>
>1. Label style (Arial, 9)
>
>2. Browser (Arial, 8)
>
>If there are no programmatic solution - where does MapInfo keep these
>values? I could not find them in Registry.
Sorry, they are not in the Registry. It is possible, but not pretty,
to devise programmatic solutions. This is how I did it for the browser
font when we changed the default (in 5.0 was it?) and no one liked it.
It is possible to use similar technology to do the same for the label
font.
Include "mapbasic.def"
Declare Sub Main
Declare Sub WinFocusChangedHandler
Declare Sub WinChangedHandler
Sub Main
Set Window Info Font ("MS Sans Serif",0,9,0)
Set Window Ruler Font ("MS Sans Serif",0,9,0)
Set Window Message Font ("MS Sans Serif",0,9,0)
Set Window Statistics Font ("MS Sans Serif",0,9,0)
End Sub
Sub WinFocusChangedHandler
If WindowInfo(CommandInfo(CMD_INFO_WIN),WIN_INFO_TYPE) = WIN_BROWSER Then
Set Window FrontWindow() Font("MS Sans Serif",0,9,0)
End If
End Sub
Sub WinChangedHandler
Dim iLayer, iLayers As Integer
If WindowInfo(CommandInfo(CMD_INFO_WIN),WIN_INFO_TYPE) = WIN_MAPPER Then
Set Handler WinChangedHandler Off
iLayers = MapperInfo(FrontWindow(), MAPPER_INFO_LAYERS)
For iLayer = 1 To iLayers
Set Map Window FrontWindow()
Layer iLayer
Label Font("MS Sans Serif",0,9,0)
Next
Set Handler WinChangedHandler On
End If
End Sub
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
