m javad
کاربر متخصص
این دو مورد رو به کد اول اضافه کنید
X1 = ObjectX(Object$)
Y2 = ObjectY(Object$)
و این رو به کد دوم:
MoveObject("Object$","X1,Y2")
نهایتا این میشه کدهاتون
برای کد open
برای کد close
من به بیلدر دسترسی نداشتم که کدهارو تست کنم.ولی فکر کنم مشکل حل بشه
تست کنید اگه مورد داشت بگید تا فردا با بیلدر چک کنم
موفق باشید
X1 = ObjectX(Object$)
Y2 = ObjectY(Object$)
و این رو به کد دوم:
MoveObject("Object$","X1,Y2")
نهایتا این میشه کدهاتون
برای کد open
کد:
[LEFT]WLimit = 777
HLimit = 420
Object$ = 'Bitmap'
X1 = ObjectX(Object$)
Y2 = ObjectY(Object$)
Show("Object$")
For i=1 To Infinity
Step = Step + i*2
X = ObjectX(Object$)- Step
Y = ObjectY(Object$)- Step
W = ObjectWidth(Object$)+(2*Step)
H = ObjectHeight(Object$)+(2*Step)
If (W > WLimit) Then
W = WLimit
X = ObjectX(Object$)
WEnd = TRUE
End
If (H > HLimit) Then
H = HLimit
Y = ObjectY(Object$)
HEnd = TRUE
End
MoveObject("Object$","X,Y,W,H")
**Refresh("")
If (WEnd = TRUE & HEnd = TRUE) Then
Break()
End
Next i
Step = 0
WEnd = HEnd = FALSE
[/LEFT]
کد:
[LEFT]WLimit = 0
HLimit = 0
Object$ = 'Bitmap'
For i=1 To Infinity
Step = Step + i
X = ObjectX(Object$)+ Step
Y = ObjectY(Object$)+ Step
W = ObjectWidth(Object$)-(2*Step)
H = ObjectHeight(Object$)-(2*Step)
If (W < WLimit) Then
W = WLimit
X = ObjectX(Object$)
WEnd = TRUE
End
If (H < HLimit) Then
H = HLimit
Y = ObjectY(Object$)
HEnd = TRUE
End
MoveObject("Object$","X,Y,W,H")
**Refresh("")
If (WEnd = TRUE & HEnd = TRUE) Then
MoveObject("Object$","InitX,InitY,0,0")
Hide("Object$")
Break()
End
Next i
Step = 0
WEnd = HEnd = FALSE
MoveObject("Object$","X1,Y1")
[/LEFT]تست کنید اگه مورد داشت بگید تا فردا با بیلدر چک کنم
موفق باشید
