I am looking for some help.
R:Base 2000 Win v.6.5 ++ (1.842xRT03)
Currently development is on a stand-alone machine. Window 98 - Intel
Celeron
My Control Panel Windows Display Settings are 800 600.
Problem 1
How do I get CENTER CENTER to work as I presume it should.
Whenever I enter PAUSE or DIALOG 'xxxxx' AT CENTER CENTER, the box always
appears in the upper left quadrant of the window. Never anything like
center center.
Recently upgraded from 6.0A and hoped this would be one of the issues the
upgrade would resolve, but it hasn't.
Have tried SET RBGSIZE CENTER CENTER 800 600 - no difference.
Have tried Windows Display set at 1024 768 and SET RBGSIZE - no difference
I have to instruct AT 15 30 or whatever, which means testing each command
before including it within the command file.
I tired of that over 2 years ago and created the command file below which
solved the problem.
The idea came from two unlinked postings, which appeared around that time.
One for creating forms for displaying text, the other using the '|'
character to create 'new lines'.
I simply combined the two. My thanks once again to the list - 'Taught me
all I know"
But it all came about because CENTER CENTER would not do it for me
I first created MESS.CMD - called by... RUN mess.cmd USI 'Hello young
lovers',1,1
This worked just fine - centered single line text - but meant running an
additional command file.
I then extended this using multiple forms and included '|' to force text
onto new lines.
Each form has a single variable 'vmessage' drawn as a centralised
rectangular box.
The width and height of a box is your choice.
The form variable is set to black text on yellow background and set to WRAP.
The form determines the font to be used.
A PushButton beneath the variable is set to the predefined EXIT
The variable must be defined before the form is called.
If you exceed the maximum variable length, RUN another form
I have several forms each have varying sized centralised boxes.
So - RUN mess.cmd USI '|Hello|Young|||Lovers',8,1
Calls a form which gives 8 lines of text and the form is centered on the
screen.
It places 'Hello' on line 2, 'Young' 1 line below , 'Lovers', appears 3
lines below that.
-- ****************************************************************
-- Mess.rmd - Displays vmessage text on a form
-- RUN mess.cmd USI 'Hello young lovers',1,1
-- %1 (vmessage) 'Text to be displayed'
-- %2 (vbox) Which form size to use
-- %3 (vcls) IF '1' Clear screen
-- ****************************************************************
--
SET V vmessage = .%1, vbox = .%2, vcls = .%3
IF vmessage FAILS THEN
GOTO Lfin
ENDIF
SET V vmessage TEXT = (SRPL(.vmessage,'|',(CHAR(13) + CHAR(10)),0))
IF vcls = 1 THEN
CLS
ENDIF
SWITCH (.vbox)
CASE '1'
EDI USI messOK1 AT 0,0,800,580
BREAK
CASE '2'
EDI USI messOK2 AT 0,0,800,580
BREAK
CASE '4'
EDI USI messOK4 AT 0,0,800,580
BREAK
CASE '6'
EDI USI messOK6 AT 0,0,800,580
BREAK
and so on...
DEFAULT
BREAK
ENDSW
--
LABEL Lfin
CLE V vmessage,vbox,vcls,__-%
RETURN
I have a similar routine for Dialog
-- ****************************************************************
-- DIALOG.CMD - Determine central position for DIALOG boxes
-- %1 (vdia) = 'Question'
-- %2 (vdyn) = 'Y' or 'N'
-- %3 (vdline) = line number
-- %4 (vdcls) = IF 1 - Clears screen
-- Example: RUN dialog.cmd USI 'OK to continue ?',Y,13,1
-- ****************************************************************
--
SET V via TEXT= .%1, vdyn TEXT= .%2, vdline INT= .%3, vdcls INT= .%4
IF via FAILS THEN
RETURN
ENDIF
IF vdyn CONT 'Y' THEN
SET V vyn = 'YES'
ELSE
SET V vyn = 'NO'
ENDIF
SET V vdlen INT = (SLEN(.via))
SET V vdpos INT = (((80 - .vdlen)/2) + 5)
IF vdcls = 1 THEN
CLS
ENDIF
DIA .via vdyn ve .vyn AT .vdline .vdpos
CLE V %__-%,vdline,vdpos,vdcls,vdyn,via,vdlen
RETURN
My CENTER CENTER workarounds
Problem 2
This morning - a strange event.
The top menu option 'Tools' was replaced with '1.R:Base R>Prompt',
This caused no problems.
When clicked, all the usual 'Database Designer', 'View Designer',
'Report...' dropped down
I exited, rebooted but despite all my attempts, have been unable to
duplicate it.
I presume something is corrupt.
Any considerations before I delete and re-load the R:Base files ?
Finally, OH NO!!
When displaying a 'Help' message in a form...
Can the colour of that helpline be changed for more visual impact ?
Thanks in advance - You probably don't realise just what a help you all are.
David Atkinson
skidbusters.co.uk
[EMAIL PROTECTED]
