create a visual object from roundrectangle

[Mathieu Gendron]

Thanks Philip, it works nicely... If I have to use that object about 5 times
on each window, do you still think the dw solution is easier?

--
Mathieu Gendron, ia
http://www.siq.gouv.qc.ca/

<Philip_Salgannik> a écrit dans le message de news:
3DB07D06339A66DB00604D3585256D5D.005779FC85256D5D@webforums...
> roundrectangle is a drawobject, not a dragobject, that's why it does not
> show up in the list of objects from which you can inherit a "standard
> visual" PB Object.
> What you need to do (unless you want to revise your drawing design and go
> to doing it in a datawindow control, which makes it much easier) is create
> a "Custom Visual" object, place a roundrectangle on it and manipulate
> everything thru the Custom Visual...

[Mathieu Gendron]

Hi,

 

I'm trying to create a visual user object from roundrectangle, I've tried to do the same as the PFC does with u_st for example.

 

Once done (see below), I am not able to chagne most properties or open the userobject (THIS.OpenUserObject(u_rr, 111, 1)): Type of actual parameter cannot be ancestor of formal reference parameter type.

 

 

 

forward
global type u_rr from roundrectangle
end type
end forward

 

global type u_rr from roundrectangle
long linecolor = 67108864
long fillcolor = 67108864
integer width = 1170
integer height = 512
integer cornerheight = 14
integer cornerwidth = 4
end type
global u_rr u_rr

 

on u_rr.create
end on

 

on u_rr.destroy
end on

 

THANKS!

[Mathieu Gendron]

Well, I need a dw indicator. I plan using a slim vertical roundrectangle (or
rectangle) outside of dws on the left. When a dw has the focus, it will be a
certain color, then other dws will have another color and it will flip
depending which one has the focus. Seems like the rowfocus indicator was not
enough for our users, they couldn't figure out that there was a dw when it's
empty and they don't wanna have a blank line neither.

I don't want everyone to modify their dws to put a roundrectangle object,
that's why I figured out that a dynamic UserObject could do the job.

Thank you,

--
Mathieu Gendron, ia
http://www.siq.gouv.qc.ca/

<Philip_Salgannik> a écrit dans le message de news:

2BB21BF673AF23C70069467285256D5D.00667DEB85256D5D@webforums...
> Unfortunately "use that object about 5 times on each window" is not enough
> for me to answer your question :-)
>
> What is it that you are doing?

[Mathieu Gendron]

Sure that was an idea but if the current dw is lowered for example, the user
would not notice where are the others. A mix of lowered/raised could do the
job but we use many groupboxes (sometimes inside the dw, sometimes directly
on the window or tabpage). I tried it and it really looks ugly... It could
be okay but we would need to redesign about 1000 windows :)

--
Mathieu Gendron, ia
http://www.siq.gouv.qc.ca/

<Philip_Salgannik> a écrit dans le message de news:

09871E92FF03B57A00757BFF85256D5D.006F019F85256D5D@webforums...
> Well, you could manipulate the border of the datawindow control in
> getfocus/loosefocus events...