testrtf.prg
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
then I not see the paper right the rtf and Cannot scroll it any suggestion?
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
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 nilthen I not see the paper right the rtf and Cannot scroll it any suggestion?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com