Code : Tout sélectionner
e.POINT
Procedure test(*i)
Debug *i
EndProcedure
test(e)
test(@e)hélas ça ne marche pas, je n'ai plus aucune marge, ni en hauteur, ni en largeurG-Rom a écrit :Salut Blendman , perso j'aurais passé l'adresse de r en paramètre :
qu'est ce que ca donne ?
Code : Tout sélectionner
Procedure RichEdit_SetRightMargin(*this.RichEditClassTemplate, pixel.w, PageW, PageH, LeftM, TopM, RightM, BottomM)
r.RECT
r\left = LeftM
r\top = TopM
r\right = PageW - RightM
r\bottom = PageH - BottomM
width = r\right - r\left
height = r\bottom - r\top
SendMessage_(*this\hWnd, #EM_SETRECTNP, 0, @r)
;SendMessage_(*this\hWnd, #EM_SETMARGINS, #EC_RIGHTMARGIN, $FFFF * pixel)
EndProcedureCode : Tout sélectionner
; si une variable est typée avec une Structure et si on utilise son nom, ça renvoie l'adresse.comme @var
e.POINT
Procedure test(*i)
Debug *i
EndProcedure
test(e)
test(@e)
Debug e
Debug @e