Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Conditionally moving / aligning form objects
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows 10
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01646942
Message ID:
01646974
Views:
96
Exactly what i was looking for. Thanks a bunch.


>This is the code I use for those situations:
>
>LOCAL ARRAY laControls(1,2)
>
>LOCAL lnCounter
>lnCounter = 0
>
>LOCAL loCheckbox AS Checkbox
>FOR EACH loCheckbox IN THIS.Controls
>	IF loCheckbox.Class = "Checkbox" ;
>			AND loCheckbox.Visible = .T.
>		lnCounter = lnCounter + 1
>		DIMENSION laControls(lnCounter,2)
>		laControls(lnCounter,1) = loCheckbox.Top
>		laControls(lnCounter,2) = loCheckbox.Name
>	ENDIF
>ENDFOR
>
>=ASORT(laControls)
>
>LOCAL lnPosition, lnOffset
>lnPosition = 0
>lnOffset = 3
>
>LOCAL lnID
>FOR lnID = 1 TO lnCounter
>	loCheckbox = EVALUATE("THIS." + laControls(lnID,2))
>	loCheckbox.Top = lnPosition
>	lnPosition = lnPosition + loCheckbox.Height + lnOffset
>ENDFOR
>
>RETURN .T.
>
Previous
Reply
Map
View

Click here to load this message in the networking platform