on testrtf.prg there is another big error
1. Open 2 window child and on each write the word "HOME"
2. then select the word home on a window child and press the size of the font
3. you 'll see also the get ( size of font) of the other window child is moved and the word not change the size
4. then you close the first window child created and try to change size on word home selected ... not run
5. then you must close also the second window child and reopen a new window child
6. write "home" and selected it and then you can change the size ....
why happen this ? because the rtf is called ortf to all window child
we must change it from ortf to oWndMain:oWndActive:TMdiChild:oControl to have the current rtf
sample :
Function WndChild()
LOCAL oWnd
oWnd := oWndMain:oWndActive:TMdiChild:oControl
RETURN oWnd
then
@ .38, 74.2 GET oSize VAR nSize OF oWnd:oBar ;
FONT oFont SIZE 20, 19 PICTURE "99" ;
SPINNER MIN 6 MAX 99 ;
[b:2s7dj6xd] ON CHANGE ( WndChild():SetFontSize( oSize:VarGet() ), WndChild():SetFocus() )[/b:2s7dj6xd]
↧