offset prompts (AREV Specific) [Revelation On-Line Wiki]

AREV Specific

Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community

At 13 JAN 2005 07:10:35PM Stacy Berger wrote:

I have some prompts on a screen, lets call them status and date. When I paint the screen, the data is right below the label. When a user tries to use the screen, the data is below the label, but offset 10 or so spaces. Once the data is entered, it appears in the correct space.

Any thougts?

At 13 JAN 2005 07:48PM Warren Auyong wrote:

Stacy:

I think that's due to the hidden label glitch in Paint / Windows.

It usually happens when you cut and paste or drag a field/prompt with a hidden label.

There should be a utility program somewhere on the system that unhides all the labels in a WINDOWS template, if not Aaron Kaplan posted the code for it on this message board sometime ago and then you can move them around and rehide them.

To avoid this in the future unhide the labels before moving or pasting.

At 13 JAN 2005 11:05PM Stacy Berger wrote:

that sounds familiar. Thanks.

At 14 JAN 2005 02:55AM Warren Auyong wrote:

No problem. If you use the code straight from the message board, check it because I think it does all the templates in the WINDOWS file.

Be sure to make a copy of the WINDOWS record before running the fix too.

At 14 JAN 2005 03:50AM The Sprezzatura Group wrote:

What a memory…

The code was posted here] but it's a little corrupted.

Here's another go…

Subroutine Update_Hidden_Labels

/*

   This program loops through all windows records and removes the code

   for the hidden labels

*/

$Insert SysInclude, LCPOSITIONS

Open 'WINDOWS' to hWindows Else

   Call FSMSG( 'WINDOWS' )

&nbsp;&nbsp;&nbsp;Return

End

Open 'LISTS' to hLists Else

&nbsp;&nbsp;&nbsp;Call FSMSG( 'LISTS' )

&nbsp;&nbsp;&nbsp;Return

End

Perform "SELECT WINDOWS USING SYSWINDOWS WITH LC_HIDDENLABEL"

Done       = 0

ChangedWins= ''

Loop

&nbsp;&nbsp;&nbsp;ReadNext WinID Else

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Done=1

&nbsp;&nbsp;&nbsp;End

Until Done&nbsp;&nbsp;&nbsp;Read WinRec from hWindows, WinID Then

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PromptCount= WinRec

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;oWinRec    = WinRec

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Num( PromptCount ) Then

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PromptEndVal  = PromptCount + 1

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For PromptNbr=2 to PromptEndVal

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Len( WinRec ) Then

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WinRec = ''

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next PromptNbr

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If WinRec  = oWinRec Else

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ChangedWins=WinID

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Write WinRec on hWindows, WinID Else

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Call FSMSG( WinID )

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End

&nbsp;&nbsp;&nbsp;End Else

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Call FSMSG( WinID )

&nbsp;&nbsp;&nbsp;End

Repeat

Write ChangedWins on hLists, 'HIDDEN_LABELS_CHANGED' else

&nbsp;&nbsp;&nbsp;Call FSMSG( WinID )

End

The Sprezzatura Group

World Leaders in all things RevSoft

View this thread on the forum...