Visual LANSA Forum

Posted: **Wed Jul 28, 2021 7:33 am**

Hi, I have some problems to change the color and font of the Logon Validation?
Using VLF-ONE.
I attach the example images.

Thanks.

Posted: **Fri Aug 06, 2021 10:17 am**

I had been able to change the color using a theme with orange details (lets called it #J29THE) defined in VL in the theme reusable part:

which looks like this:

and this code for the theme reusable part for VLF-ONE:

Code: Select all

Begin_Com Role(*EXTENDS #VF_AC033O)

Mthroutine Name(Customize) Options(*REDEFINE)
For Each(#theme) In(#Themes)
If (#theme.SymbolicName = "MATERIALBLUE")

#Theme.UseCustomApplicationTheme <= #J29THE

Else
* disable all other themes
#theme.Enabled := False
Endif
Endfor

Endroutine
End_Com

Posted: **Fri Aug 06, 2021 10:41 am**

And you can change the font in use, with the property facename in the theme reusable part, this are some :

Code: Select all

Begin_Com Role(*EXTENDS #VF_AC033O)
Mthroutine Name(Customize) Options(*REDEFINE)
For Each(#theme) In(#Themes)
If (#theme.SymbolicName = "MATERIALBLUE")

#Theme.UseCustomApplicationTheme <= #J29THE

* This change the login, title bar,
#theme.BaseFormBackgroundandFont.FaceName := 'Brush Script MT'
* This change the font for the Instance List Titles
#theme.NavigationMenu_FontStyle.FaceName := 'Brush Script MT'
* This change the font for the Menu/Options with Applications/Objects
#theme.PopUpMenu_FontStyle.Facename := 'Brush Script MT'

Else
* disable all other themes
* #theme.Enabled := False
Endif
Endfor
Endroutine
End_Com

You don't have to go all the crazy way to "Brush Script MT", but this are the safe to use fonts for the web:

Arial (sans-serif)

Verdana (sans-serif)

Helvetica (sans-serif)

Tahoma (sans-serif)

Trebuchet MS (sans-serif)

Times New Roman (serif)

Georgia (serif)

Garamond (serif)

Courier New (monospace)

Brush Script MT (cursive)

Posted: **Fri Aug 06, 2021 11:17 pm**

By the way, the font can be changed too in the theme component, code for my #J29THE theme component for example is this now:

Code: Select all

Begin_Com Role(*EXTENDS #PRIM_THM) Style(#ThemeStyle) Themetextcolor(82:82:82) Basetheme(2015DeepOrange) Themeaccentdarkcolor('#d32f2f') Themeaccentlightcolor('#e57373') Themeaccentmediumcolor('#f44336')

* Theme style
Define_Com Class(#PRIM_VS.Style) Name(#ThemeStyle) Fontsize(11) Facename('Courier New')

* OVERWRITE: Edit
Define_Com Class(#PRIM_THM.DrawStyle) Name(#Edit) Style(#EditStyle)
Define_Com Class(#PRIM_VS.Style) Name(#EditStyle) Cornerbottomleft(5) Cornerbottomright(5) Cornertopleft(5) Cornertopright(5) Facename('Courier New')

* OVERWRITE: ListColumn
Define_Com Class(#PRIM_THM.DrawStyle) Name(#ListColumn) Style(#ListColumnStyle)
Define_Com Class(#PRIM_VS.Style) Name(#ListColumnStyle) Normbackcolor(Theme100) Fontsize(12) Borderright(2) Borderbottom(1) Facename('Courier New')

* Heading1
Define_Com Class(#PRIM_THM.DrawStyle) Name(#Heading1) Style(#Heading1Style)
Define_Com Class(#PRIM_VS.Style) Name(#Heading1Style) Fontsize(20) Facename('Courier New')

* Heading2
Define_Com Class(#PRIM_THM.DrawStyle) Name(#Heading2) Style(#Heading2Style)
Define_Com Class(#PRIM_VS.Style) Name(#Heading2Style) Fontsize(15) Facename('Courier New')

* Heading2 as Link
Define_Com Class(#PRIM_THM.DrawStyle) Name(#Heading2AsLink) Style(#Heading2AsLinkStyle) Mouseoverstyle(#Heading2AsLinkMouseOverStyle)
Define_Com Class(#PRIM_VS.Style) Name(#Heading2AsLinkStyle) Fontsize(15) Cursor(Hand) Facename('Courier New')
Define_Com Class(#PRIM_VS.Style) Name(#Heading2AsLinkMouseOverStyle) Underline(True)

* Login/Logout
Define_Com Class(#PRIM_THM.DrawStyle) Name(#Login) Style(#LoginStyle)
Define_Com Class(#PRIM_VS.Style) Name(#LoginStyle) Underline(True) Fontsize(14) Cursor(Hand) Facename('Courier New')

* Background Picture
Define_Com Class(#PRIM_THM.DrawStyle) Name(#Background) Style(#BackgroundStyle)
Define_Com Class(#Prim_vs.Style) Name(#BackgroundStyle) Backgroundbrush(#BackgroundBrush)
Define_Com Class(#prim_vs.ImageBrush) Name(#BackgroundBrush) Image(#XBNIMG01) Sizing(BestFit)

* LoginButton
Define_Com Class(#PRIM_THM.DrawStyle) Name(#LoginButton) Style(#LoginButtonStyle)
Define_Com Class(#PRIM_VS.Style) Name(#LoginButtonStyle) Borderbottom(1) Borderleft(1) Borderright(1) Bordertop(1) Cornerbottomleft(12) Cornerbottomright(12) Cornertopleft(12) Cornertopright(12) Cursor(Hand) Bordercolor(Theme700) Normbackcolor(Theme200) Facename('Courier New')

End_Com

Visual LANSA Forum

Change Logon Validation

Change Logon Validation

Re: Change Logon Validation

Re: Change Logon Validation

Re: Change Logon Validation