ameedoo3000
IS-IT--Management
hi all friends
I have a question
Is there in Visual Fox Pro property format Painter
I have a question
Is there in Visual Fox Pro property format Painter
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
* Place this code in the MouseDown event of your button!
LPARAMETERS nButton, nShift, nXCoord, nYCoord
Local i, n, laObjects[50], UU
n = aselobj(laObjects)
IF n > 0
For i=1 to n
DO CASE
CASE UPPER(laObjects[i].Class) = "COMMANDBUTTON"
With laObjects[i]
DO CASE
CASE nShift=0
.picture = This.picture
.picturePosition = 12
.fontBold = .F.
.FontItalic = .F.
CASE nShift=1
.picture = ""
.picturePosition = 13
.fontBold = .F.
.FontItalic = .F.
CASE nShift=2
.picture = ""
.picturePosition = 13
.fontBold = .T.
.FontItalic = .T.
CASE nShift=4
.Width = This.Width
.Height = This.Height
IF i>1
lao2 = laObjects[i-1]
.top = lao2.top+lao2.height+4
.left = lao2.left
ENDIF
CASE nShift=5
IF i>1
lao2 = laObjects[i-1]
.Width = lao2.Width
.Height = lao2.Height
.top = lao2.top+lao2.height+4
.left = lao2.left
ENDIF
CASE nShift=6
IF i>1
lao2 = laObjects[i-1]
*.Width = lao2.Width
*.Height = lao2.Height
.top = lao2.top+lao2.height+4
.left = lao2.left
ENDIF
ENDCASE
ENDWITH
CASE UPPER(laObjects[i].Class) = "TEXTBOX"
With laObjects[i]
IF i>1
lao2 = laObjects[i-1]
.top = lao2.top+lao2.height+4
.left = lao2.left
ENDIF
ENDWITH
OTHERWISE
fn.sound("huhugh1")
ENDCASE
NEXT
ENDIF
ThisForm.Refresh
Olaf said:today we have flat designs and while it's a step back in my eyes,