Skip to content
Lock Screen Stack
xBase
Branch: master
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Type Name Latest commit message Commit time
Failed to load latest commit information.
.gitattributes
.gitignore
lockscreenstack.PRG
readme.md Oprava Aug 5, 2019
test.PRG

readme.md

LockScreen Stack

You can use this class for managing value of property LockScreen. The class has only two method. Push() and Pop() Method Push() register form or toolbar and set LockScreen=.T. Next calling increase internal counter. Method Pop() decrease internal counter. If is zero, then will set LockScreen to value which was at first calling method Push().

VFP Compatibility

VFP 6 SP3, VFP 7, VFP 8, VFP 9, VFP Advanced, VFP Advanced 64 bit

Files

  • lockscreenstack.PRG - main program
  • test.PRG - a little example

Examples

Example 1

LOCAL m.lcPath

m.lcPath=SYS(16)
m.lcPath=IIF(RAT("\", m.lcPath)>0, LEFT(m.lcPath, RAT("\", m.lcPath)), m.lcPath)

SET PROCEDURE TO (m.lcPath+"lockscreenstack") ADDITIVE

PRIVATE m.loForm
m.loo=CREATEOBJECT("_LockScreenStack")
m.loo.Push(_Screen)
m.loo.Push(_Screen)

m.loForm=CREATEOBJECT("FORM")
m.loo.Push(m.loForm)

m.loo.Pop(_Screen)
m.loo.Pop(_Screen)

m.loo.Pop(m.loForm)
You can’t perform that action at this time.