Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to move and resize a browse window programmatically
Message
From
27/08/2010 02:27:05
 
 
To
26/08/2010 23:25:04
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01478737
Message ID:
01478758
Views:
49
Hi Alejandro,

will I see you in Phoenix this year?

This code was cut-and-pasted directly from one of my apps. You must change it a little bit, but you will get the picture. The trick is the TWO browse lines working together. The first browse creates the grid with a name without activating it, then you change the grid as needed, and activate it with the second browse. I use this technique a lot, it's really cool and there are a few things which is very much faster this way than using a regular grid.
Define Window curDummyWindow From 10,10 Size 1,1 Name curDummyWindow
curDummyWindow.Top=50
curDummyWindow.Left=50
curDummyWindow.Width=230
curDummyWindow.Height=70 +(Reccount()*18)

curDummyWindow.Caption='Test'
Browse In Window curDummyWindow Save Name curDummy Nowait Fields sokenavn:r,kilde:r
curDummy.Left=0
curDummy.Top=0
curDummy.deletemark=.T.
curDummy.Width=curDummyWindow.Width
curDummy.Height=curDummyWindow.Height
curDummy.SetAll('dynamicbackcolor','iif(Empty(curDummy1.endres),Rgb(255,255,255),Rgb(255,192,192))','column')

curDummy.column1.Width=150
curDummy.column1.Header1.Caption='Alternativ'
curDummy.column2.Width=50
curDummy.column2.Header1.Caption='Kilde'

Activate Window curDummyWindow 
Inkey(0.2)
Browse Last 
Release Windows curDummyWindow
>I want to programmatically show several cursors in cascaded browse windows of given sizes. Does anyone know how can this be accomplished?
>
>TIA,
>
>Alex
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform