13 Ago 2017 15:56
25 Jan 2018 13:55
31 Jan 2018 20:19
luiz antonio da silva escreveu:espero que seja de valia para outros.
31 Jan 2018 21:28
For EACH cType, cName, nNumber IN _HMG_SYSDATA[ 1 ], _HMG_SYSDATA[ 2 ], _HMG_SYSDATA[ 4 ]
k := cType:__EnumIndex
IF nNumber = NWIND
If cName<>"Message" .AND. cType <> "STATUSBAR" .AND. LEN(cName) > 0 .AND. ;
!Empty( cName ) .And. !( cType $ "MENU,HOTKEY,TOOLBAR,MESSAGEBAR,ITEMMESSAGE,TIMER" )
_ctrl:= nNumber
IF getproperty(hwnd,cName,"FONTsize")=0
_fnt:=(100/hd_ini)*10
ELSE
_fnt:=(100/hd_ini)*getproperty(hwnd,cName,"FONTsize")
ENDIF
_row:=(100/hd_ini)*getproperty(hwnd,cName,"row")
_col:=(100/wd_ini)*getproperty(hwnd,cName,"col")
_wid:=(100/wd_ini)*getproperty(hwnd,cName,"width")
_hei:=(100/hd_ini)*getproperty(hwnd,cName,"height")
RT:=AScan(_metrics, { |x| x[2] == k })
if rt==0
AADD(_METRICS,{ hwnd,k,_fnt,_row,_col,_wid,_hei,_ctrl,cName})
endif
ENDIF
Endif
Next
31 Jan 2018 21:43
IF hwnd,_HMG_SYSDATA[4][K] > 0
IF 5, 4 > 3
? "os dois são maiores"
ENDIF
01 Fev 2018 19:31
13 Fev 2018 20:48
21 Fev 2018 08:17
21 Fev 2018 11:05
IF 5, 4 = .T.
? "Estranho"
ENDIF
21 Fev 2018 11:08
21 Fev 2018 11:19
21 Fev 2018 11:21
PROCEDURE Main
IF 3, 4 = 5
? "= 5"
ENDIF
IF 3, 4 != 5
? "!= 5"
ENDIF
IF 3, 4 > 2
? "> 2"
ENDIF
IF 3, 4 > 5
? "> 5"
ENDIF
IF 5, 4 > 3
? "teste"
ENDIF
RETURN
-w0 -es0
d:\temp>test
!= 5
> 2
-w3 -es2
Compiling 'test.prg'...
test.prg(3) Warning W0027 Meaningless use of expression 'Numeric'
test.prg(6) Warning W0027 Meaningless use of expression 'Numeric'
test.prg(9) Warning W0027 Meaningless use of expression 'Numeric'
test.prg(12) Warning W0027 Meaningless use of expression 'Numeric'
test.prg(15) Warning W0027 Meaningless use of expression 'Numeric'
11 Jul 2018 23:07