rounded forms? how?

[md3]

hey i forgot the site where it teaches u how to make a rounded form.i just forgot what site was that. u guys have an idea of this. how do i make the forms round.

 

[Mike Gagnon]

Take a look at FAQ184-1766

 

[DEDMOD]

Nice, though I found two small problems. First the line with =sendmessage is broken into two lines in the FAQ which creates an error though it's easy enough for anyone who copies the program to find. Second, the form doesn't appear round until you click on it. I tried putting THIS.click in the activate procedure but that didn't help. What do you suggest? Dave Dardinger

 

[wgcs]

I tried the example with neither problem. What version of Windows are you using? I'm on Win2k.

 

[DEDMOD]

Well, the first problem is in this line:

= SendMessage (GetFocus(), WM_SYSCOMMAND,
                         MOUSE_MOVE, WM_NULL)

This should be all one line, but the formatting of the Forum breaks it up. Perhaps you just automatically corrected it while importing it (after a while such corrections seem second nature), or perhaps it depends on the screen res or something, but I doubt it.

The second thing maybe depends on how the form is instantiated. I was just trying it out as a prg called from the Command Window, so maybe it's not a aproblem if you call if from another form or something. Dave Dardinger

 

[FattyKat]

I have tried the code as a prg from the command window and nothing happened.Eeeh, actually my system hanged in the first instance. Now which is the correct step by step procedure in obtaining this round form?
Can i put the code in the Initialize event of an ordinary form?

 

[Mike Gagnon]

I'm running Win98 and I selected the code in the FAQ and pasted it in a prg. and ran it and I get a round form.

 

[FattyKat]

Hi Mgagnon,
Am running vfp 6.0 Are you using the same?

 

[Mike Gagnon]

At first it was vfp7.0 and I just tried it in VFp6.0 and I get a round form also.

 

[Mike Gagnon]

What happens when you create a prg and you put the following code in, save it and run it?

LOCAL lhWnd
LOCAL lhRgn
DECLARE LONG FindWindowA IN WIN32API STRING class, STRING title
DECLARE LONG CreateEllipticRgn in WIN32API INTEGER left, INTEGER top, INTEGER right, INTEGER bottom
DECLARE INTEGER SetWindowRgn in WIN32API LONG hWnd, LONG hRgn, INTEGER redraw
DECLARE INTEGER DeleteObject in WIN32API LONG hObject

lhWnd = FindWindowA(0, _VFP.Caption)
lhRgn = CreateEllipticRgn(1, 1, _VFP.Width, _VFP.Height)

? SetWindowRgn(lhWnd, lhRgn, 1)
? DeleteObject(lhRgn)

 

[FattyKat]

Hi mgagnon
Am running Win95 with VFP 6.0 could that be a reason?
Please send your working prg to me: <svmajoratyahoodotcom>

 

[Mike Gagnon]

Could be Win95 the problem.

 

[FattyKat]

mgagnon,
pls send me the running prg code:svmajoratyahoodotcom
Am using vfp6 on win95.