FiveTech Software tech support forums

... dStart to dEnd nEle++ nId++ lVar := FALSE oChk := nil If dDay >= dFrom .AND. dDay <= dTo Redefine CheckBox oChk Var lVar Id nId of oDlg oChk:SetText( PadL( Day(dDay),2,"0" ) ) oChk:cargo := dDay oChk:SetCheck( FALSE ) Else Redefine CheckBox oChk Var lVar Id nId of oDlg oChk:Hide() ...

... IIF(aFont[LF_WEIGHT]=700,.t.,.f.) ,; lItalic:= aFont[LF_ITALIC],; lUnderline:=aFont[LF_UNDERLINE],; lStrikeout:=aFont[ LF_STRIKEOUT ],; aGet[15]:settext(cFontName),; aGet[16]:settext(str(nFontSize)),; aGet[15]:refresh(),; aGet[16]:refresh()) First run ok then On modify the choosefont not take ...

... in the window method ::handleEvent() describing the processing of a unique event. For example: if valtype(nMsg)="C" oDlg:AControls[1]:SetText(msg) return endif ::Super... From the application with the button we find the handle of the window with TSAY hWn:=FindWindow() and send him ...

hi,

Natter wrote:oMsgBar:SetText("mytext")
oMsgBar:Refresh()

ah, i need :Refresh()
thx for help

oMsgBar:SetText("mytext")
oMsgBar:Refresh()

Hola, estoy pasanto una variable al richedit ACTIVATE WINDOW oWndR on init oRTF:SetText( crtf )
Funciona perfecto, una ves que termine de modificar el texto como hago para recuperarlo en la variable.

Saludos
Jorge

... clausula ON INIT del dialogo, ya lo hacía cuando usaba la clase RICHEDIT y funcionaba bien con todas estas condiciones: oRtf:LoadAsRTF(cRtf) oRtf:SetText(cRtf) oRtf:SetFontName("Ms Sans Serif") oRtf:SetFontSize(10) oRtf:bChange:={ || IF( oRtf:IsModify(), cRtf:=oRtf:SaveAsRTF(), ) } Eval( ...

... same meter (oProgress) for procedure 1 local nPos := 1 local bprogress := { || (oProgress:Set( npos++ ),; //oProgress:SetPos( npos++ ),; oSay[3]:SetText(ltrim(str(npos))),; oSay[3]:refresh(),; SysRefresh() ) } ... oProgress:ntotal:= len(aData) nMeter:=0 oProgress:set(nMeter) oStorico:FW_ArrayToDbf( ...

Asignale el nuevo valor con el métod SetText() *** FUNCTION PARA ASIGNAR DATOS A LAS VARIABLES                    Nom_Pacien4:=Trim(Nom_Pac)+Spac(3)+Trim(Ape_Pac)                                Rut_Pac4:=Rut_Pac      ...

Asignale el nuevo valor con el métod SetText() *** FUNCTION PARA ASIGNAR DATOS A LAS VARIABLES                    Nom_Pacien4:=Trim(Nom_Pac)+Spac(3)+Trim(Ape_Pac)  ...

Prueba esto:

oModi:setText( "Modificar" )

A mi en MDICHILD me funciona.

... you'll see the progress at right the text on the msgitem Do While !::oDbf:Eof() .... ::oBarProgress:SetPos( ::oBarProgress:nPos + 1 ) ::oTabItem1:SetText( tran(::oBarProgress:nPos,'999999')+" di "+; tran(::oDbf:KeyCount(),'999999')) ::oWinTabellone:oMsgBar:Refresh() ::oDbf:Skip(-1) Enddo ...

Antonio Linares wrote:Prueba con oTot:Assign( Tot ) en vez de oTot:SetText( Tot )

Maestro Antonio

Muy buen dia.

Muchas gracias por responder.

Aplique su sugerencia " Assign ", pero aplica, no genera ningun cambio.

Muchas gracias y muchos saludos.

Anotnio

Prueba con oTot:Assign( Tot ) en vez de oTot:SetText( Tot )

Dear Silvio, Use a timer and change the icon I tried but I not Know How make it If lOld oMsgItem2:SetText("Archivio non aggiornato!" ) DEFINE TIMER oTimer OF oMsgItem2 ; INTERVAL 400 ; ACTION oMsgItem2:SetBitmap( MSG_ALERT, MSG_ALERT ) )) //??? ACTIVATE TIMER ...