' multiplication of two values
'
byte val1
byte val2
int result
macro myMul(val1,val2)
val1=5
val2=10
! mov eax,val1
''! mov eax,val2
! mul val2
! mov result,wax
end macro
'print "the result of val1*val2 is " + str(myMul(val1,val2))
'print "the result of val1*val2 is " + str(result)
ASE WM_CTLCOLOREDIT
'by Pierre Bellisle..
select GetDlgCtrlID(lparam)
case ed1ID
if theme = 4 : SetBkColor(wparam, RGB(43,42,54)): end if
SetTextColor(wparam,RGB(240,230,230))
return darkBrush 'darkColor
case else
darkBrush = CreateSolidBrush(RGB(255,255,255))
SetBkColor( wparam, RGB(255,255,255))
if theme <> 4 : SetTextColor( wparam,RGB(0,0,0)) : end if
return darkBrush
end select
Page created in 0.149 seconds with 14 queries.