There are a number of methods to identify a form by name when the form
is in use. Easiest is R:Base's built-in Ctrl+Alt+I. The method I use
displays the form name and version number as a hint when hovering over
an invisible speed button. It's based upon responses to my recent
question about form version numbers.
I put the speed button in the upper left corner of all my forms on top
of any banners or title text. It's 30x30 and has component ID
"cidFormName". Properties are Show Hint, Transparent and Flat.
This code runs in the form's On After Start EEP. It gets the form name
and version number and makes them a hint for the speed button:
--FormOAS
--Generic OnAfterStart EEP, form name + version #
SET VAR +
fvVersion INTEGER = 0, +
fvFormName TEXT = .RBTI_FORM_FORMNAME
SELECT SYS_FORM_VERSION INTO fvVersion INDICATOR iv1 +
FROM Sys_Forms3 WHERE Sys_Form_Name = .RBTI_FORM_FORMNAME
SET VAR fvFormName = (.fvFormName & 'V' + (CTXT(.fvVersion)))
PROPERTY cidFormName HINT .fvFormName
CLEAR VAR fvFormName,fvVersion
RETURN
Since it's common code for all my forms, I actually store it in my
"Internal Code" table so in the On After Start form EEP, I only need to:
RUN SELECT CmdCode FROM InternalCode WHERE CmdName = 'FormOAS'
You could also read the DateTime modified from column SYS_FORM_MOD_TS in
the SYS_FORMS3 table and include it in the hint.
It's helpful for a user to easily check the current version, especially
when a form is being developed and used in several databases.
Enjoy.
Doug
RB X.5
---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus
--
For group guidelines, visit
http://www.rbase.com/support/usersgroup_guidelines.php
---
You received this message because you are subscribed to the Google Groups "RBASE-L" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/rbase-l/83df7fdb-8ac4-e43e-f775-c0c3003ad87c%40wi.rr.com.
For more options, visit https://groups.google.com/d/optout.
