|
Home > Archive > Programming with dBASE > December 2006 > Popup conflicts with root menu
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
Popup conflicts with root menu
|
|
| Dan Goldberg 2006-12-07, 7:12 pm |
| Greetings
Using version 2.61 I am trying to add popups to my forms and have got them to work fine when I run the form alone. When I start my application which has a main root menu and I open the form with the popup the onclick of the popup calls a root menu onclic
k instead of the popup onclick.
I am using this code in genericmdiapp.cc with the following
c = 'this.rootMenu = new '+this. MenuClassName+'(_app
.framewin,"Root")'
&c.
Any suggestions would be greatly appreciated.
Dan
| |
| Jan Hoelterling 2006-12-07, 7:12 pm |
| This is a well-known bug...
Jan
| |
| Dan Goldberg 2006-12-07, 7:12 pm |
| Thanks Jan
Has anyone come up with a workaround?
Dan
Jan Hoelterling Wrote:
> This is a well-known bug...
>
> Jan
>
>
| |
| Rick Gearardo 2006-12-07, 7:12 pm |
| dBase Plus 2.5 :-)
"Dan Goldberg" < dgoldberg@fastlimite
d.com> wrote in message
news:cF4weIjGHHA.1140@news-server...
> Thanks Jan
> Has anyone come up with a workaround?
> Dan
>
> Jan Hoelterling Wrote:
>
>
| |
| Jan Hoelterling 2006-12-07, 7:12 pm |
| Nope, still happening, even in 2.6.1 or whatever the most recent is...
Jan
| |
| Dan Goldberg 2006-12-07, 7:12 pm |
| That means we have to choose between using popups and a root menu? That being the case if I want to use popups I would need an alternative to the root menu system. Any suggestions on a main menu system that could be used instead of the root menu.
Dan
Jan Hoelterling Wrote:
> Nope, still happening, even in 2.6.1 or whatever the most recent is...
>
> Jan
>
>
| |
| Robert Bravery 2006-12-07, 7:12 pm |
| Yes: Create a blank main menu item, with a couple of blank submenues under
that. There is a direct correlation to the amount of blank menus pop-up
menues and other menu items.
On mine I have 20 blank sub menus. Then when the app starts up, you can
hide/deactivate those blank menu items
So part of my main menu looks like this
***************
parameter formObj
_app.mainmenu = new TESTMENUMENU(formObj
, "root")
_app.mainmenu.mnuempty.release()
return
** END HEADER -- do not remove this line
//
// Generated on 21/09/2006
//
parameter formObj
new TESTMENUMENU(formObj
, "root")
class TESTMENUMENU(formObj
, name) of MENUBAR(formObj, name)
this.MNUEMPTY = new MENU(this)
with (this.MNUEMPTY)
text = ""
endwith
this.MNUEMPTY.MNUEMPTY1 = new MENU(this.MNUEMPTY)
with (this.MNUEMPTY.MNUEMPTY1)
text = ""
endwith
this.MNUEMPTY.MNUEMPTY2 = new MENU(this.MNUEMPTY)
with (this.MNUEMPTY.MNUEMPTY2)
text = ""
endwith
this.MNUEMPTY.MNUEMPTY3 = new MENU(this.MNUEMPTY)
with (this.MNUEMPTY.MNUEMPTY3)
text = ""
endwith
this.MNUEMPTY.MNUEMPTY4 = new MENU(this.MNUEMPTY)
with (this.MNUEMPTY.MNUEMPTY4)
text = ""
endwith
this.MNUEMPTY.MNUEMPTY5 = new MENU(this.MNUEMPTY)
with (this.MNUEMPTY.MNUEMPTY5)
text = ""
endwith
this.MNUEMPTY.MNUEMPTY6 = new MENU(this.MNUEMPTY)
with (this.MNUEMPTY.MNUEMPTY6)
text = ""
endwith
this.MNUEMPTY.MNUEMPTY7 = new MENU(this.MNUEMPTY)
with (this.MNUEMPTY.MNUEMPTY7)
text = ""
endwith
this.MNUEMPTY.MNUEMPTY8 = new MENU(this.MNUEMPTY)
with (this.MNUEMPTY.MNUEMPTY8)
text = ""
endwith
this.MNUEMPTY.MNUEMPTY9 = new MENU(this.MNUEMPTY)
with (this.MNUEMPTY.MNUEMPTY9)
text = ""
endwith
this.MNUEMPTY.MNUEMPTY10 = new MENU(this.MNUEMPTY)
with (this.MNUEMPTY.MNUEMPTY10)
text = ""
endwith
following this is all the main actual menu's
Robert
"Dan Goldberg" < dgoldberg@fastlimite
d.com> wrote in message
news:cF4weIjGHHA.1140@news-server...
> Thanks Jan
> Has anyone come up with a workaround?
> Dan
>
> Jan Hoelterling Wrote:
>
>
| |
| Rick Gearardo 2006-12-07, 7:12 pm |
| It's been working for me in Plus. Maybe I've just been lucky, I assumed it
was fixed.
Rick
"Jan Hoelterling" <jan@hoelterling.com> wrote in message
news:O6wo8TjGHHA.1332@news-server...
> Nope, still happening, even in 2.6.1 or whatever the most recent is...
>
> Jan
>
| |
| Robert Bravery 2006-12-07, 7:13 pm |
| What I have taken to doing is converting all my popups to works as subforms.
Robert
"Dan Goldberg" < dgoldberg@fastlimite
d.com> wrote in message
news:BTVpwDkGHHA.1140@news-server...
> That means we have to choose between using popups and a root menu? That
being the case if I want to use popups I would need an alternative to the
root menu system. Any suggestions on a main menu system that could be used
instead of the root menu.
> Dan
>
>
> Jan Hoelterling Wrote:
>
>
| |
| Dan Goldberg 2006-12-07, 7:13 pm |
| Good news
After reviewing some previous posts I tried attaching my rootmenu file to the form with the popups and so far everything works perfectly.
Dan
Dan Goldberg Wrote:
> That means we have to choose between using popups and a root menu? That being the case if I want to use popups I would need an alternative to the root menu system. Any suggestions on a main menu system that could be used instead of the root menu.
> Dan
>
>
> Jan Hoelterling Wrote:
>
>
| |
| Dan Goldberg 2006-12-07, 7:13 pm |
| Robert
Even though I got the popup to work it seems you can only have one popup on a form. I have 2 grids and would like 1 popup for each grid. Subforms would probably be the solution. I have never worked with subforms. Can you suggest some documentaion to ge
t started with them?
Dan
Robert Bravery Wrote:
> What I have taken to doing is converting all my popups to works as subforms.
>
> Robert
>
> "Dan Goldberg" < dgoldberg@fastlimite
d.com> wrote in message
> news:BTVpwDkGHHA.1140@news-server...
> being the case if I want to use popups I would need an alternative to the
> root menu system. Any suggestions on a main menu system that could be used
> instead of the root menu.
>
>
| |
| Robert Bravery 2006-12-08, 5:17 am |
| Hi,
Yep this is one workaround. But if you have a thousand forms that ustilise
the same menu, you have to attached the menu to each form that uses popups
Robert
"Dan Goldberg" < dgoldberg@fastlimite
d.com> wrote in message
news:Yktvt0kGHHA.1524@news-server...
> Good news
> After reviewing some previous posts I tried attaching my rootmenu file to
> the form with the popups and so far everything works perfectly.
> Dan
>
>
> Dan Goldberg Wrote:
>
>
| |
| Robert Bravery 2006-12-08, 7:13 pm |
| Well you can theoretically use more than one popup.
If you can determine which object is recieving the right mouse click, you
can disable the current forms pupup, and re-assign it a different one.
You would need to load all the popup files when the form opens.
Using a subform is a little more complex, but works on the same principe as
above. THe differnce is you can use graphics and other form objects.
For a subform popup you could do something like this. It has a dependent on
miscapi.cc, found in the duflp
You would obviously pretty it up according to your liking
********************
*******************
** END HEADER -- do not remove this line
//
// Generated on 08/12/2006
//
parameter bModal
local f
f = new subformpopuptestForm
()
if (bModal)
f.mdi = false // ensure not MDI
f.readModal()
else
f.open()
endif
class subformpopuptestForm
of FORM
with (this)
onOpen = class::FORM_ONOPEN
height = 10.5909
width = 58.7143
endwith
this.GRID1 = new GRID(this)
with (this.GRID1)
onRightMouseDown = class::GRID1_ONRIGHT
MOUSEDOWN
onRightMouseUp = class::GRID1_ONRIGHT
MOUSEUP
height = 8.2727
left = 3.4286
top = 0.8182
width = 24.2857
endwith
this.ENTRYFIELD1 = new ENTRYFIELD(this)
with (this.ENTRYFIELD1)
onRightMouseUp = class::ENTRYFIELD1_O
NRIGHTMOUSEUP
height = 1.0
left = 31.8571
top = 1.0909
width = 24.7143
value = "Right Click Me"
endwith
this.ENTRYFIELD2 = new ENTRYFIELD(this)
with (this.ENTRYFIELD2)
onRightMouseUp = class::ENTRYFIELD1_O
NRIGHTMOUSEUP
height = 1.0
left = 32.0
top = 2.7273
width = 23.1429
value = "Right Click Me"
endwith
this.ENTRYFIELD3 = new ENTRYFIELD(this)
with (this.ENTRYFIELD3)
onRightMouseUp = class::ENTRYFIELD1_O
NRIGHTMOUSEUP
height = 1.0
left = 32.0
top = 4.1818
width = 25.2857
value = "Right Click Me"
endwith
function ENTRYFIELD1_onRightM
ouseUp(flags, col, row)
form.showpop(this)
return
function ENTRYFIELD2_onRightM
ouseUp(flags, col, row)
form.showpop(this)
return
function ENTRYFIELD2_onRightM
ouseUp(flags, col, row)
form.showpop(this)
return
function GRID1_onRightMouseDo
wn(flags, col, row)
this.setfocus()
return
function GRID1_onRightMouseUp
(flags, col, row)
form.showpop(this)
return
function form_onOpen
set proc to :duflp:miscapi.cc addi
form.api = new api()
form.api.parent = form
return
Function showpop(obj)
obj.setfocus()
xy = form.api.GetPositionInForm()
x = val(xy)
y = val(stuff(xy,1,at(",",xy),""))
form.ac = obj
if type("form.popup")="U"
form.popup = new testpopform(form)
endif
form.popup.top = y-5
form.popup.left = x-40
if type("form.popup.container1.titletext") = "U"
form.popup.container1.titletext = new text(form.popup.container1)
endif
with ( form.popup.container1.titletext )
height = 20.0
left = 0.0
top = 110
width = 89.0
anchor = 2 // Top
pageno = 0
endwith
form.popup.open()
return
endclass
class testpopForm( oParent, cTitle ) of SUBFORM( oParent, cTitle )
with (this)
onLostFocus = class::FORM_ONLOSTFO
CUS
onOpen = class::Form_onOpen
metric = 6 // Pixels
height = 130.0
top = 190.0
width = 129.0
mdi = false
showTaskBarButton = false
smallTitle = true
sizeable = false
moveable = false
sysMenu = false
escExit = false
maximize = false
minimize = false
allowDrop = false
endwith
this.CONTAINER2 = new CONTAINER(this)
with (this.CONTAINER2)
left = 0.0
top = 0.0
width = 35.0
height = 115.0
colorNormal = "silver"
borderStyle = 8 // Modal
anchor = 3 // Left
endwith
this.CONTAINER2.IMAGE1 = new IMAGE(this.CONTAINER2)
with (this.CONTAINER2.IMAGE1)
height = 19.0
left = 0.0
top = -1.0
width = 29.0
dataSource = "RESOURCE TL_APPEND"
alignment = 2 // Center
pageno = 0
borderStyle = 3 // None
endwith
this.CONTAINER2.IMAGE2 = new IMAGE(this.CONTAINER2)
with (this.CONTAINER2.IMAGE2)
height = 19.0
left = 0.0
top = 21.0
width = 29.0
dataSource = "RESOURCE TL_EDIT"
alignment = 2 // Center
pageno = 0
borderStyle = 3 // None
endwith
this.CONTAINER2.IMAGE3 = new IMAGE(this.CONTAINER2)
with (this.CONTAINER2.IMAGE3)
height = 19.0
left = 0.0
top = 41.0
width = 29.0
dataSource = "RESOURCE TL_ABANDON"
alignment = 2 // Center
pageno = 0
borderStyle = 3 // None
endwith
this.CONTAINER2.IMAGE4 = new IMAGE(this.CONTAINER2)
with (this.CONTAINER2.IMAGE4)
height = 19.0
left = 0.0
top = 61.0
width = 29.0
dataSource = "RESOURCE TL_SAVE"
alignment = 2 // Center
pageno = 0
borderStyle = 3 // None
endwith
this.CONTAINER2.IMAGE5 = new IMAGE(this.CONTAINER2)
with (this.CONTAINER2.IMAGE5)
height = 19.0
left = 0.0
top = 85.0
width = 29.0
dataSource = "RESOURCE TL_DELETE"
alignment = 2 // Center
pageno = 0
borderStyle = 3 // None
endwith
this.CONTAINER1 = new CONTAINER(this)
with (this.CONTAINER1)
left = 35.0
top = 0.0
width = 95.0
height = 115.0
borderStyle = 8 // Modal
anchor = 3 // Left
endwith
this.CONTAINER1.ADD = new TEXT(this.CONTAINER1)
with (this.CONTAINER1.ADD)
onLeftMouseUp = {;this.parent.parent.close();msgbox("You Clicked:
"+this.text)}
onMouseOver = class::TEXT1_ONMOUSE
OVER
onMouseOut = class::TEXT1_ONMOUSE
OUT
height = 20.0
left = 0.0
top = 0.0
width = 89.0
anchor = 2 // Top
alignVertical = 1 // Middle
text = "Add"
pageno = 0
endwith
this.CONTAINER1.EDIT = new TEXT(this.CONTAINER1)
with (this.CONTAINER1.EDIT)
onLeftMouseUp = {;this.parent.parent.close();msgbox("You Clicked:
"+this.text)}
onMouseOver = class::TEXT1_ONMOUSE
OVER
onMouseOut = class::TEXT1_ONMOUSE
OUT
height = 20.0
left = 0.0
top = 20.0
width = 89.0
anchor = 2 // Top
text = "Edit"
pageno = 0
endwith
this.CONTAINER1.ABANDON = new TEXT(this.CONTAINER1)
with (this.CONTAINER1.ABANDON)
onLeftMouseUp ={;this.parent.parent.close();msgbox("You Clicked:
"+this.text)}
onMouseOver = class::TEXT1_ONMOUSE
OVER
onMouseOut = class::TEXT1_ONMOUSE
OUT
height = 20.0
left = 0.0
top = 40.0
width = 89.0
anchor = 2 // Top
text = "Abandon"
pageno = 0
endwith
this.CONTAINER1.SAVE = new TEXT(this.CONTAINER1)
with (this.CONTAINER1.SAVE)
onLeftMouseUp = {;this.parent.parent.close();msgbox("You Clicked:
"+this.text)}
onMouseOver = class::TEXT1_ONMOUSE
OVER
onMouseOut = class::TEXT1_ONMOUSE
OUT
height = 20.0
left = 0.0
top = 60.0
width = 89.0
anchor = 2 // Top
text = "Save"
pageno = 0
endwith
this.CONTAINER1.TEXT5 = new TEXT(this.CONTAINER1)
with (this.CONTAINER1.TEXT5)
height = 4.0
left = 0.0
top = 80.0
width = 89.0
anchor = 2 // Top
text = ""
borderStyle = 9 // Etched In
pageno = 0
//visible = false
endwith
this.CONTAINER1.DELETE = new TEXT(this.CONTAINER1)
with (this.CONTAINER1.DELETE)
onLeftMouseUp = {;this.parent.parent.close();msgbox("You Clicked:
"+this.text)}
onMouseOver = class::TEXT1_ONMOUSE
OVER
onMouseOut = class::TEXT1_ONMOUSE
OUT
height = 20.0
left = 0.0
top = 84.0
width = 89.0
anchor = 2 // Top
text = "Delete"
pageno = 0
endwith
Function form_onOpen
set proc to :rasclass:miscapi.cc addi
form.api = new api()
Return
function TEXT1_onMouseOut(fla
gs, col, row)
this.colornormal = "BtnText/BtnFace"
return
function TEXT1_onMouseOver(fl
ags, col, row)
this.colornormal = "yellow/maroon"
return
function form_onLostFocus
form.close()
return
endclass
********************
************
Robert
"Dan Goldberg" < dgoldberg@fastlimite
d.com> wrote in message
news:ZoflrclGHHA.1212@news-server...
> Robert
> Even though I got the popup to work it seems you can only have one popup
on a form. I have 2 grids and would like 1 popup for each grid. Subforms
would probably be the solution. I have never worked with subforms. Can you
suggest some documentaion to get started with them?
> Dan
>
>
> Robert Bravery Wrote:
>
subforms.[color=darkred]
That[color=darkred]
the[color=darkred]
used[color=darkred]
is...[color=darkred]
>
| |
| Ken Mayer [dBVIPS] 2006-12-08, 7:13 pm |
| Robert Bravery wrote:
> Well you can theoretically use more than one popup.
> If you can determine which object is recieving the right mouse click, you
> can disable the current forms pupup, and re-assign it a different one.
> You would need to load all the popup files when the form opens.
Use the onGotFocus() event of the individual controls to set the form's
popup to the correct popup, and the onLostFocus() event to set the
form's popup to null or to one specifically for the form ...
Ken
--
/(Opinions expressed are purely my own, not those of dataBased
Intelligence, Inc.)/
*Ken Mayer* [dBVIPS]
/Golden Stag Productions/
dBASE at goldenstag dot net
http://www.goldenstag.net/dbase/dBASEBook.htm
http://www.goldenstag.net/GSP
http://www.goldenstag.net/dbase
| |
| Jan Hoelterling 2006-12-08, 7:13 pm |
| Hi Robert,
I can not find miscapi.cc in the DUFLP - only miscapi.PRG, which does not
seem to be compatible with your program?!?
Thanks,
Jan
| |
| Ivar B. Jessen 2006-12-08, 7:13 pm |
| On Fri, 8 Dec 2006 15:20:59 +0200, in dbase.programming,
Subject: Re: Popup conflicts with root menu,
Message-ID: <TmyjX0sGHHA.1904@news-server>,
"Robert Bravery" <me@u.com> wrote:
>For a subform popup you could do something like this. It has a dependent on
>miscapi.cc, found in the duflp
>You would obviously pretty it up according to your liking
The is a miscapi.prg in the duflp, but I can't find a miscapi.cc. Where did you get it from?
Ivar B. Jessen
| |
| Dan Goldberg 2006-12-08, 7:13 pm |
| I really appreciate all the suggestions. They give me lots of options. This group is fantastic. Thanks
Dan
| |
| Dan Goldberg 2006-12-08, 7:13 pm |
| Robert
I am trying to test this but cannot find miscapi.cc in the duflp can you post it or let us know where to find it
thanks
Dan
Robert Bravery Wrote:
> Well you can theoretically use more than one popup.
> If you can determine which object is recieving the right mouse click, you
> can disable the current forms pupup, and re-assign it a different one.
> You would need to load all the popup files when the form opens.
>
> Using a subform is a little more complex, but works on the same principe as
> above. THe differnce is you can use graphics and other form objects.
>
> For a subform popup you could do something like this. It has a dependent on
> miscapi.cc, found in the duflp
> You would obviously pretty it up according to your liking
>
> ********************
*******************
> ** END HEADER -- do not remove this line
> //
> // Generated on 08/12/2006
> //
> parameter bModal
> local f
> f = new subformpopuptestForm
()
> if (bModal)
> f.mdi = false // ensure not MDI
> f.readModal()
> else
> f.open()
> endif
>
> class subformpopuptestForm
of FORM
> with (this)
> onOpen = class::FORM_ONOPEN
> height = 10.5909
> width = 58.7143
> endwith
>
> this.GRID1 = new GRID(this)
> with (this.GRID1)
> onRightMouseDown = class::GRID1_ONRIGHT
MOUSEDOWN
> onRightMouseUp = class::GRID1_ONRIGHT
MOUSEUP
> height = 8.2727
> left = 3.4286
> top = 0.8182
> width = 24.2857
> endwith
>
> this.ENTRYFIELD1 = new ENTRYFIELD(this)
> with (this.ENTRYFIELD1)
> onRightMouseUp = class::ENTRYFIELD1_O
NRIGHTMOUSEUP
> height = 1.0
> left = 31.8571
> top = 1.0909
> width = 24.7143
> value = "Right Click Me"
> endwith
>
> this.ENTRYFIELD2 = new ENTRYFIELD(this)
> with (this.ENTRYFIELD2)
> onRightMouseUp = class::ENTRYFIELD1_O
NRIGHTMOUSEUP
> height = 1.0
> left = 32.0
> top = 2.7273
> width = 23.1429
> value = "Right Click Me"
> endwith
>
> this.ENTRYFIELD3 = new ENTRYFIELD(this)
> with (this.ENTRYFIELD3)
> onRightMouseUp = class::ENTRYFIELD1_O
NRIGHTMOUSEUP
> height = 1.0
> left = 32.0
> top = 4.1818
> width = 25.2857
> value = "Right Click Me"
> endwith
>
>
> function ENTRYFIELD1_onRightM
ouseUp(flags, col, row)
> form.showpop(this)
> return
>
> function ENTRYFIELD2_onRightM
ouseUp(flags, col, row)
> form.showpop(this)
> return
>
> function ENTRYFIELD2_onRightM
ouseUp(flags, col, row)
> form.showpop(this)
> return
>
> function GRID1_onRightMouseDo
wn(flags, col, row)
> this.setfocus()
> return
>
> function GRID1_onRightMouseUp
(flags, col, row)
> form.showpop(this)
> return
>
> function form_onOpen
> set proc to :duflp:miscapi.cc addi
> form.api = new api()
> form.api.parent = form
>
> return
>
> Function showpop(obj)
> obj.setfocus()
> xy = form.api.GetPositionInForm()
> x = val(xy)
> y = val(stuff(xy,1,at(",",xy),""))
> form.ac = obj
> if type("form.popup")="U"
>
> form.popup = new testpopform(form)
> endif
> form.popup.top = y-5
> form.popup.left = x-40
> if type("form.popup.container1.titletext") = "U"
> form.popup.container1.titletext = new text(form.popup.container1)
> endif
> with ( form.popup.container1.titletext )
> height = 20.0
> left = 0.0
> top = 110
> width = 89.0
> anchor = 2 // Top
> pageno = 0
> endwith
>
> form.popup.open()
>
> return
>
> endclass
>
> class testpopForm( oParent, cTitle ) of SUBFORM( oParent, cTitle )
> with (this)
> onLostFocus = class::FORM_ONLOSTFO
CUS
> onOpen = class::Form_onOpen
> metric = 6 // Pixels
> height = 130.0
> top = 190.0
> width = 129.0
> mdi = false
> showTaskBarButton = false
> smallTitle = true
> sizeable = false
> moveable = false
> sysMenu = false
> escExit = false
> maximize = false
> minimize = false
> allowDrop = false
> endwith
>
> this.CONTAINER2 = new CONTAINER(this)
> with (this.CONTAINER2)
> left = 0.0
> top = 0.0
> width = 35.0
> height = 115.0
> colorNormal = "silver"
> borderStyle = 8 // Modal
> anchor = 3 // Left
> endwith
>
> this.CONTAINER2.IMAGE1 = new IMAGE(this.CONTAINER2)
> with (this.CONTAINER2.IMAGE1)
> height = 19.0
> left = 0.0
> top = -1.0
> width = 29.0
> dataSource = "RESOURCE TL_APPEND"
> alignment = 2 // Center
> pageno = 0
> borderStyle = 3 // None
> endwith
>
> this.CONTAINER2.IMAGE2 = new IMAGE(this.CONTAINER2)
> with (this.CONTAINER2.IMAGE2)
> height = 19.0
> left = 0.0
> top = 21.0
> width = 29.0
> dataSource = "RESOURCE TL_EDIT"
> alignment = 2 // Center
> pageno = 0
> borderStyle = 3 // None
> endwith
>
> this.CONTAINER2.IMAGE3 = new IMAGE(this.CONTAINER2)
> with (this.CONTAINER2.IMAGE3)
> height = 19.0
> left = 0.0
> top = 41.0
> width = 29.0
> dataSource = "RESOURCE TL_ABANDON"
> alignment = 2 // Center
> pageno = 0
> borderStyle = 3 // None
> endwith
>
> this.CONTAINER2.IMAGE4 = new IMAGE(this.CONTAINER2)
> with (this.CONTAINER2.IMAGE4)
> height = 19.0
> left = 0.0
> top = 61.0
> width = 29.0
> dataSource = "RESOURCE TL_SAVE"
> alignment = 2 // Center
> pageno = 0
> borderStyle = 3 // None
> endwith
>
> this.CONTAINER2.IMAGE5 = new IMAGE(this.CONTAINER2)
> with (this.CONTAINER2.IMAGE5)
> height = 19.0
> left = 0.0
> top = 85.0
> width = 29.0
> dataSource = "RESOURCE TL_DELETE"
> alignment = 2 // Center
> pageno = 0
> borderStyle = 3 // None
> endwith
>
> this.CONTAINER1 = new CONTAINER(this)
> with (this.CONTAINER1)
> left = 35.0
> top = 0.0
> width = 95.0
> height = 115.0
> borderStyle = 8 // Modal
> anchor = 3 // Left
> endwith
>
> this.CONTAINER1.ADD = new TEXT(this.CONTAINER1)
> with (this.CONTAINER1.ADD)
> onLeftMouseUp = {;this.parent.parent.close();msgbox("You Clicked:
> "+this.text)}
> onMouseOver = class::TEXT1_ONMOUSE
OVER
> onMouseOut = class::TEXT1_ONMOUSE
OUT
> height = 20.0
> left = 0.0
> top = 0.0
> width = 89.0
> anchor = 2 // Top
> alignVertical = 1 // Middle
> text = "Add"
> pageno = 0
> endwith
>
> this.CONTAINER1.EDIT = new TEXT(this.CONTAINER1)
> with (this.CONTAINER1.EDIT)
> onLeftMouseUp = {;this.parent.parent.close();msgbox("You Clicked:
> "+this.text)}
> onMouseOver = class::TEXT1_ONMOUSE
OVER
> onMouseOut = class::TEXT1_ONMOUSE
OUT
> height = 20.0
> left = 0.0
> top = 20.0
> width = 89.0
> anchor = 2 // Top
> text = "Edit"
> pageno = 0
> endwith
>
> this.CONTAINER1.ABANDON = new TEXT(this.CONTAINER1)
> with (this.CONTAINER1.ABANDON)
> onLeftMouseUp ={;this.parent.parent.close();msgbox("You Clicked:
> "+this.text)}
> onMouseOver = class::TEXT1_ONMOUSE
OVER
> onMouseOut = class::TEXT1_ONMOUSE
OUT
> height = 20.0
> left = 0.0
> top = 40.0
> width = 89.0
> anchor = 2 // Top
> text = "Abandon"
> pageno = 0
> endwith
>
> this.CONTAINER1.SAVE = new TEXT(this.CONTAINER1)
> with (this.CONTAINER1.SAVE)
> onLeftMouseUp = {;this.parent.parent.close();msgbox("You Clicked:
> "+this.text)}
> onMouseOver = class::TEXT1_ONMOUSE
OVER
> onMouseOut = class::TEXT1_ONMOUSE
OUT
> height = 20.0
> left = 0.0
> top = 60.0
> width = 89.0
> anchor = 2 // Top
> text = "Save"
> pageno = 0
> endwith
>
> this.CONTAINER1.TEXT5 = new TEXT(this.CONTAINER1)
> with (this.CONTAINER1.TEXT5)
> height = 4.0
> left = 0.0
> top = 80.0
> width = 89.0
> anchor = 2 // Top
> text = ""
> borderStyle = 9 // Etched In
> pageno = 0
> //visible = false
> endwith
>
> this.CONTAINER1.DELETE = new TEXT(this.CONTAINER1)
> with (this.CONTAINER1.DELETE)
> onLeftMouseUp = {;this.parent.parent.close();msgbox("You Clicked:
> "+this.text)}
> onMouseOver = class::TEXT1_ONMOUSE
OVER
> onMouseOut = class::TEXT1_ONMOUSE
OUT
> height = 20.0
> left = 0.0
> top = 84.0
> width = 89.0
> anchor = 2 // Top
> text = "Delete"
> pageno = 0
> endwith
>
> Function form_onOpen
> set proc to :rasclass:miscapi.cc addi
> form.api = new api()
>
> Return
>
>
> function TEXT1_onMouseOut(fla
gs, col, row)
> this.colornormal = "BtnText/BtnFace"
> return
>
> function TEXT1_onMouseOver(fl
ags, col, row)
> this.colornormal = "yellow/maroon"
> return
>
> function form_onLostFocus
> form.close()
> return
>
> endclass
>
> ********************
************
>
> Robert
>
> "Dan Goldberg" < dgoldberg@fastlimite
d.com> wrote in message
> news:ZoflrclGHHA.1212@news-server...
> on a form. I have 2 grids and would like 1 popup for each grid. Subforms
> would probably be the solution. I have never worked with subforms. Can you
> suggest some documentaion to get started with them?
> subforms.
> That
> the
> used
> is...
>
>
| |
| David Stone 2006-12-08, 7:13 pm |
| Dan Goldberg wrote:
> Robert
> Even though I got the popup to work it seems you can only have one popup on a form. I have 2 grids and would like 1 popup for each grid.
Take a look here: http://www.dbase.com/Knowledgebase/dbulletin/bu16_f.htm
David
| |
| Dan Goldberg 2006-12-08, 7:13 pm |
| Thanks Robert
Thats a nice substiture for standard popup. btw I got everything working great with 2 popups. Thanks again for all the help
Dan
Robert Bravery Wrote:
> Hi ALL,
>
> Sorry all,
> I believe it is the same thing. I just wrapped the whole thing into a class
> But in any case, here it is:
>
>
> Robert
>
| |
| Jeannie 2006-12-11, 7:14 pm |
| I resolved this by declaring a menufile in _every_ form. I have a couple of cfm forms from which all other forms are derived. As long as I "redeclare" the master menufile in each inherited form, all works fine. If I forget to do this, I get the crossov
er you described.
-jeannie
Dan Goldberg wrote:
> Greetings
> Using version 2.61 I am trying to add popups to my forms and have got them to work fine when I run the form alone. When I start my application which has a main root menu and I open the form with the popup the onclick of the popup calls a root menu oncl
ick instead of the popup onclick.
> I am using this code in genericmdiapp.cc with the following
> c = 'this.rootMenu = new '+this. MenuClassName+'(_app
.framewin,"Root")'
> &c.
> Any suggestions would be greatly appreciated.
>
> Dan
|
|
|
|
|