Move a text

[Silvio.Falconi]

How I can make to move a text ) say ?

I wish move a say when I change a combobox



test sample

Code: Select all  Expand view

#include "constant.ch"


Function test()
       local oDlg,oFont,oBold
       local nBottom   := 22
       local nRight    := 102
       local nWidth :=  Max( nRight * DLG_CHARPIX_W, 180 )
       local nHeight := nBottom * DLG_CHARPIX_H
       local oCbx
       local nVar:= 2
       local aType:={"UP","Down"}
       local oSay[10]
       local nRow:= 80
     
      DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
      DEFINE FONT oBold NAME "TAHOMA" SIZE 0,-14 BOLD
     
   DEFINE DIALOG oDlg        ;
   TITLE "Riga modulo"     ;
   SIZE nWidth, nHeight   PIXEL  FONT oFont    ;
   STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_CAPTION,  4 ) ;
   COLOR CLR_BLACK,  nRgb( 245,244,234)
     
     
      @ 10,10 COMBOBOX oCbx VAR nVar Items aType Size 50,40 PIXEL of oDlg ;
           on CHANGE ( IIF( nVar=1,  (oSay[1]:Hide(),msginfo(),nRow-=12,oSay[1]:show(),oSay[1]:refresh()),;
                                     (oSay[1]:Hide(),msginfo(),nRow+=12,oSay[1]:show(),oSay[1]:refresh()) ) )


      @ nRow,10 SAY oSay[1] Prompt "position"+str(nRow) Size 80,12 PIXEL of oDlg UPDATE  TRANSPARENT

 ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

 

even if the value of nRow changes the say is always in the same position
How is it possible ????

[ukoenig]

Silvio,

just try :

@ 10,10 COMBOBOX oCbx VAR nVar Items aType Size 50,40 PIXEL of oDlg ;
on CHANGE ( IIF( nVar=1, nRow-=12, nRow+=12 ), ;
oSay[1]:Move( nRow ) , oSay[1]:refresh() )



best regards
Uwe