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 ????
