Change Logon Validation

This Q&A forum allows users to post and respond to "How Do I Do ....." questions. Please do not use to report (suspected) errors - you must use your regional help desk for this. The information contained in this forum has not been validated by LANSA and, as such, LANSA cannot guarantee the accuracy of the information.
Post Reply
wramirezch
Posts: 4
Joined: Tue May 18, 2021 11:35 pm

Change Logon Validation

Post by wramirezch » 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.
Attachments
Problem 01.JPG
Problem 01.JPG (27.28 KiB) Viewed 2985 times

User avatar
Dino
Posts: 165
Joined: Fri Jul 19, 2019 7:49 am
Location: Robbinsville, NC
Contact:

Re: Change Logon Validation

Post by Dino » 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:

Image

which looks like this:

Image

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

User avatar
Dino
Posts: 165
Joined: Fri Jul 19, 2019 7:49 am
Location: Robbinsville, NC
Contact:

Re: Change Logon Validation

Post by Dino » 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 :

Image

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)

User avatar
Dino
Posts: 165
Joined: Fri Jul 19, 2019 7:49 am
Location: Robbinsville, NC
Contact:

Re: Change Logon Validation

Post by Dino » 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

Post Reply