how make to have the richedit control on the middle of the window child as winword ?
and have the scrolls into windows child and not on richedit control ?
I tried to insert this function
define window oWnd HSCROLL VSCROLL
- Code: Select all Expand view
function adjustRtf()
local nTop, nLeft, nHorRes, aRect, nHeight, nWidth
nTop := 100
nLeft := 100
nHorRes := GetSysMetrics( 0 )
aRect := GetClientRect(oWnd:hWnd)
nHeight := aRect[3] - nTop - 200
nWidth := aRect[4] - aRect[2] - 200
oRtf:move(nTop, nLeft, nWidth, nHeight , .t. )
return nil
then I not see the paper right the rtf and Cannot scroll it any suggestion?
