Move a text
Posted: Wed Oct 28, 2020 12:10 pm
How I can make to move a text ) say ?
I wish move a say when I change a combobox
test sample
even if the value of nRow changes the say is always in the same position
How is it possible ????
I wish move a say when I change a combobox
test sample
Code: Select all
#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 NILeven if the value of nRow changes the say is always in the same position
How is it possible ????
