VLF-ONE LOGIN (RESOLVED)

[adrian.bustillo]

Hi!

I just want to ask if it's possible to change the background of VLF-ONE log-in page? Something like a login screen of windows 10? What I saw from the documentation was only to change the header and the footer of login dialog box. Would it be possible to change the background (behind the dialog box)?

Thanks!

Adrian Bustillo

[MarkD]

That should be possible. I'll try and post a little example later today.

[MarkD]

Using this reusable part with identifier MJDLOGON as my logon panel:

Code: Select all

Begin_Com Role(*EXTENDS #vf_ac026O)
Define_Com Class(#PRIM_IMAG) Name(#ChosenImage) Parent(#COM_OWNER) Displayposition(5) Tabposition(5) Imagesizing(BestFit) Visible(False) Marginleft(4) Marginright(4) Marginbottom(4) Margintop(4)
Define_Com Class(#Prim_Timr) Name(#ShowImageonDelay) Interval(0)
* ----------------------------------------------------------------------------
Mthroutine Name(uInitialize) Options(*REDEFINE)
#COM_ANCESTOR.uInitialize
#ShowImageonDelay.Interval := 100
Endroutine
* ----------------------------------------------------------------------------
Mthroutine Name(uTerminate) Options(*REDEFINE)
#ShowImageonDelay.Interval := 0
#COM_ANCESTOR.uTerminate
Endroutine
* ----------------------------------------------------------------------------
Evtroutine Handling(#COM_OWNER.SizeChanged)
#ShowImageonDelay.Interval := 100
Endroutine
* ----------------------------------------------------------------------------
Evtroutine Handling(#ShowImageonDelay.Tick)
#ShowImageonDelay.Interval := 0
Set Com(#ChosenImage) Visible(True) Displayposition(999) Top(0) Left(0) Width(#Com_Owner.Width) Height(#COM_OWNER.Height) Filename("https://www.lansa.com/img/lansa-logo.svg?v=2.1") Opacity(30)
Endroutine
End_Com

and changing my entry point form to use it instead of the default VF_AC026O ......... #VLF_ONE.uInitialize Logonhandlerid(MJDLOGON)
I see this behind the logon panel. Is that what you had in mind?

CaptureImage.PNG (16.44 KiB) Viewed 36327 times

[adrian.bustillo]

Hi MarkD,

Thank you for your help. But what I was trying to achieve is like this image below. I was able to do it by changing the property of VLF_ONE component. I made a copy of UF_OEXEC so I can custom VLF_ONE component. But this shows to all the page of VLF-ONE.

Are there an event routine for the successful log in so I can change the Image property again of VLF_ONE component? and Can we set the opacity of the login component to see the background and form only?

Capture.PNG (1.03 MiB) Viewed 36315 times

[MarkD]

Can you post your version of UF_OEXEC?

[adrian.bustillo]

How can I find UF_OEXEC version? are you asking for LANSA IDE Version? I'm using V14 SP2. Repository Details doesn't tell about version.

[MarkD]

Sorry the way I worded that was quite unclear.
You said "I made a copy of UF_OEXEC so I can custom VLF_ONE component".
Can you post the code of your copy of UF_OEXEC?

[adrian.bustillo]

Hi MarkD, sorry I didn't get what you mean. Below is the code. Thanks!

Code: Select all

Begin_Com Role(*EXTENDS #PRIM_WEB) Layoutmanager(#WebFormLayoutManager)

Define_Com Class(#PRIM_ATLM) Name(#WebFormLayoutManager)
Define_Com Class(#PRIM_ATLI) Name(#VLF_One_AttachItem) Parent(#WebFormLayoutManager) Attachment(Center) Manage(#VLF_ONE)
Define_Com Class(#VF_AC006O) Name(#VLF_ONE) Parent(#COM_OWNER) Height(800) Width(1200) Image(#BGSAMPLE) Imagealignment(Stretch)

* -------------------------------------------------------------------------------------
Evtroutine Handling(#COM_OWNER.CreateInstance)

* For more details of the all options available here see - http://%lansadocs%/lansa048/index.htm#lansa/lansa048_8285.htm
* To see the link, press the Ctrl key, then mouse over the URL and click to open the information in a browser.

#VLF_ONE.uInitialize Frameworkidentifer("") Logonhandlerid(VF_AC026O) Passwordchangerid("") Mtxtloaderid(UF_OMULTI) Themecustomizerid("") Logonexpiry(90) Logonheaderpanelid(UF_OHEADP) Logontrailerpanelid(UF_OTRALP) Showrestartbutton(True) Usebadges(True) Materialdesigndefault(True) Usepaneltransitions(False)

Endroutine


* -------------------------------------------------------------------------------------
Evtroutine Handling(#SYS_WEB.CloseQuery)

If (#VLF_ONE *IsNot *null)
* Cancellation is not possible from here so always use possibletocancel(False)
#VLF_ONE.uTerminate Possibletocancel(False) Browserisclosing(True)
Endif

Endroutine

End_Com

[MarkD]

In your code globally declare a standard reference to the VLF-ONE system manager like this:

Define_Com Class(#VF_SY001O) Name(#uSystem) Scope(*APPLICATION)

then add this event handler:

Evtroutine Handling(#uSystem.SystemReadyforBusiness)
#VLF_ONE.Image <= *Null
Endroutine

The background image should disappear after logging on.

[MarkD]

You could play around with the logon panel, maybe something like this:

Code: Select all

Begin_Com Role(*EXTENDS #vf_ac026O)

Define_Com Class(#Prim_vs.Style) Name(#NoBorder) Borderbottom(0) Bordertop(0) Borderleft(0) Borderright(0)
Define_Com Class(#Prim_vs.Style) Name(#TransparentBackground) Normbackcolor(Transparent)
Define_Com Class(#Prim_vs.Style) Name(#ColoredBackground) Normbackcolor(White)

Mthroutine Name(uInitialize) Options(*REDEFINE)

#COM_ANCESTOR.uInitialize

#COM_OWNER.Styles.Add Style(#NOBORDERS)
#COM_OWNER.Styles.Add Style(#TransparentBackground)
#Panel_Logon.Styles.add Style(#ColoredBackground)
#PANEL_LOGON.Opacity := 50

Endroutine

End_Com