Dan,
I did a presentation at last year's conference on dynamic objects. Here's
my sequence for a speed button:
SET VAR vcompid TEXT = 'exitbutton'
SET VAR vleft INTEGER = 625
SET VAR vtop INTEGER = 490
SET VAR vwidth INTEGER = 100
SET VAR vheight INTEGER = 23
SET VAR vcaption TEXT = 'Exit'
PROPERTY RBASE_FORM_ACTION makespeed ' '
-- now assign the action
SET VAR vaction TEXT = 'CLOSEWINDOW;RETURN'
PROPERTY exitbutton 'Custom_EEP->OnClickEEP' .vaction
Note the variable vaction has a semicolon between the CLOSEWINDOW and the
RETURN, no (CHAR(13)) required.
Note that the "makespeed" form action is called; here is that form action
(note also that the INIT immediately follows the CREATEOBJECT):
SET VAR vcmd TEXT = (CTXT('CREATEOBJECT
EnhancedSpeedButton')&CHAR(39)+CTXT(.vcompid)+
+CHAR(39)&CTXT('RBASE_FORM')&CTXT(.vleft)&CTXT(.vtop)&CTXT(.vwidth)&CTXT(.vh
eight))
&vcmd
SET VAR vcmd = (CTXT('PROPERTY')&CTXT(.vcompid)&CTXT('INIT')&CHAR(39)+
+CTXT('TRUE')+CHAR(39))
&vcmd
SET VAR vcmd = (CTXT('PROPERTY')&CTXT(.vcompid)&CTXT('FLAT')&CHAR(39)+
+CTXT('FALSE')+CHAR(39))
&vcmd
SET VAR vcmd = (CTXT('PROPERTY')&CTXT(.vcompid)&CTXT('CAPTION')&CHAR(39)+
+CTXT(.vcaption)+CHAR(39))
&vcmd
SET VAR vcmd =
(CTXT('PROPERTY')&CTXT(.vcompid)&CTXT('FONT_COLOR')&CHAR(39)+
+CTXT('PURPLE')+CHAR(39))
&vcmd
SET VAR vcmd =
(CTXT('PROPERTY')&CTXT(.vcompid)&CTXT('FONT_NAME')&CHAR(39)+
+CTXT('ARIAL')+CHAR(39))
&vcmd
SET VAR vcmd = (CTXT('PROPERTY')&CTXT(.vcompid)&CTXT('FONT_SIZE 9'))
&vcmd
SET VAR vcmd =
(CTXT('PROPERTY')&CTXT(.vcompid)&CTXT('FONT_BOLD')&CHAR(39)+
+CTXT('TRUE')+CHAR(39))
&vcmd
SET VAR vcmd = (CTXT('PROPERTY')&CTXT(.vcompid)&CTXT('ALIGNMENT CENTER'))
&vcmd
SET VAR vcmd = (CTXT('PROPERTY')&CTXT(.vcompid)&CTXT('STYLE')&CHAR(39)+
+CTXT('NORMAL')+CHAR(39))
&vcmd
SET VAR vcmd =
(CTXT('PROPERTY')&CTXT(.vcompid)&CTXT('SHADOW_COLOR')&CHAR(39)+
+CTXT('BLACK')+CHAR(39))
&vcmd
The neat thing about this custom form action is that I can call it to create
any speed button, passing the component ID, location, size and caption for
the button. I do this with other objects as well. Then the code that wants
to create an object gets real simple . just set up the parameters and call
the CFA.
Emmitt Dove
Manager, Converting Applications Development
Evergreen Packaging, Inc.
[email protected]
(203) 214-5683 m
(203) 643-8022 o
(203) 643-8086 f
[email protected]
From: [email protected] [mailto:[email protected]] On Behalf Of Dan Goldberg
Sent: Tuesday, April 28, 2009 1:01 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - createobject followup
I have figured out the custom eep problem. The help file is incorrect.
The semi-colon needs to be replaced with a carriage return. I use
(CHAR(013)) for the carriage return.
One problem solved, one to go!!
Dan Goldberg
_____
From: [email protected] [mailto:[email protected]] On Behalf Of Dan Goldberg
Sent: Tuesday, April 28, 2009 9:22 AM
To: RBASE-L Mailing List
Subject: [RBASE-L] - FW: [RBASE-L] - RE: createobject
I do initialize the button and can see it but the eep does not fire.
I noticed that the cut and paste did not do any justice on my code.
Here it is reformatted.
CREATEOBJECT bitbtn 'ceditunitbtn' 'RBASE_FORM' 345 525 96 41
SET VAR vquote = (CVAL('QUOTES'))
SET VAR vcommand1 TEXT = +
('PROPERTY rbase_form_action editviewunit '&vquote&' '&vquote&';RETURN')
PROPERTY ceditunitbtn 'Custom_EEP->OnClickEEP' .vcommand1
PROPERTY ceditunitbtn init true
PROPERTY ceditunitbtn caption 'Edit/View a Unit'
Dan Goldberg
