Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Showing a System Toolbar in the application.
Message
From
02/03/2000 10:19:28
 
 
To
02/03/2000 09:59:01
Walter Meester
HoogkarspelNetherlands
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00340482
Message ID:
00340528
Views:
22
Also relating to the report designer question:

Another programmer wrote this code:
Which always brings up the report designer tool bar:

PUSH MENU _MSYSMENU

SET SYSMENU TO _MSM_FILE, _MSM_EDIT

ThisForm.CheckResource()

MODIFY REPORT filename

SET STATUS BAR OFF

POP MENU _MSYSMENU


Where: Check resource looks like:

**********************start check resource**********************************************
LOCAL cOAlias, lOk, cCurrentRFile

cOAlias = ALIAS()

cCurrentRFile = SYS(2005)
SET RESOURCE OFF

lOk = .T.
ON ERROR lOk = .F.
USE &cCurrentRFile EXCLUSIVE IN 0
=SetOnError()

IF lOk
SELECT FoxUser
GO TOP
LOCATE FOR TYPE = "PREFW" AND ID = "REPORTTOOLS"
IF FOUND()
REPLACE CKVal WITH 60721, ;
Updated WITH DATE()
ELSE
INSERT INTO FoxUser (Type, Id, Name, Readonly, CKVal, Data, Updated) ;
VALUES ("PREFW", "REPORTTOOLS", "", .F., 60721, "", DATE())
ENDIF
USE IN FOXUSER
ENDIF

SET RESOURCE ON
SET RESOURCE TO &cCurrentRFile

IF NOT EMPTY(cOAlias)
SELECT (cOAlias)
ENDIF

**********************End check resource**********************************************


Question:I need a version for the form designer but can't seem the figure out what to put in this check resource function.

I tried:
IF lOk
SELECT FoxUser
GO TOP
LOCATE FOR TYPE = "PREFW" AND ID = "FORMTOOLS"
IF FOUND()
REPLACE CKVal WITH 30445, ;
Updated WITH DATE()
ELSE
INSERT INTO FoxUser (Type, Id, Name, Readonly, CKVal, Data, Updated) ;
VALUES ("PREFW", "FORMTOOLS", "", .F., 30445, "", DATE())
ENDIF
USE IN FOXUSER
ENDIF

But no luck??!?!?

Any ideas. The biggest question is where is this documented and what should.
ckval be?
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform