FiveTech Software tech support forums

... "+oP:Nombreusuario+; "...........Muchas Gracias , Sistema Recolecta" correoencargado() RETURN function correoencargado() local oMsg := CreateObject( "CDO.Message" ) local oConf := CreateObject( "CDO.Configuration" ) local cSchema := "http://schemas.microsoft.com/cdo/configuration/" ...

... function Main() STATIC isOn := .F. STATIC oDlgWt, nWidth, oFont14 Local oMsg, nHeight, nMsgWidth, nDlgWidth DEFAULT cCaption := "Please wait..." DEFINE FONT oFont14 NAME "Arial" SIZE 6,-12 ITALIC cCaption ...

... function Main() STATIC isOn := .F. STATIC oDlgWt, nWidth, oFont14 Local oMsg, nHeight, nMsgWidth, nDlgWidth DEFAULT cCaption := "Please wait..." DEFINE FONT oFont14 NAME "Arial" SIZE 6,-12 ITALIC cCaption ...

oMsg:refresh() doesn't change background color Please build a reduced and self-contained sample that I can compile and run here. EMG I work on xbrdbu ( fivewin contributions xbrdbu.zop 29/8/2011) , also in samples from fwh ...

Franklin Demont wrote:oMsg:refresh() doesn't change background color

Please build a reduced and self-contained sample that I can compile and run here.

EMG

Enrico Maria Giordano wrote:

Franklin Demont wrote:Thanks for the sugestion , but tMsgBar has no method setcolor.

Ops, right, TMsgItem class has no SetColor() method (TMsgBar has it as it inherits from TControl). Try to add

Code: Select all  Expand view

oMsg:Refresh()

It works for me.

EMG

oMsg:refresh() doesn't change background color

... oMeter, nCount, nRefresh ) lFTPError :=( .not. lFTPOk ) bMsg :={ || MsgAlert( 'Fallo el envío del archivo '+aFileADW[ nItem, 1 ]+'!!!',; oMsg():cAtencion ) } ++nItem enddo ; Hasta aqui todo funciona... los archivos son subidos al servidor FTP ; Ahora viene la parte que me tiene trancado... ...

... sample #include "FiveWin.ch" #include "Constant.ch" #include "WColors.ch" #include "RichEdit.ch" STATIC oMsg, oLen, oRow, oCol //----------------------------------------------------------------------------// function Main() local oDlg, oRich local hRichDLL ...

... Function fSendMail( cTo, cBCC, cSubject, cBody, cAttach ) Local oCfg, oMsg, oError, nEle, cToken, ; aAttach := {}, ; lAuth := IIF(! Empty( cUser ) .and. ! Empty( cPass ), .T., .F.) ,; nSendOpt := 2 // send using: 1 = pickup ...

... ):Value := Trim( cUser ) :Item( cdoSendPassword ):Value := Trim( cPass ) :Item( cdoSMTPUseSSL ):Value := 1 EndIf :Update() End With oMsg := CreateObject( "CDO.Message" ) With Object oMsg :Configuration := oCfg /////////////// aqui manda el mensaje de error ********************************************************************************************* ...

... ):Value := Trim( cUser ) :Item( cdoSendPassword ):Value := Trim( cPass ) :Item( cdoSMTPUseSSL ):Value := 1 EndIf :Update() End With oMsg := CreateObject( "CDO.Message" ) With Object oMsg :Configuration := oCfg /////////////// aqui manda el mensaje de error ********************************************************************************************* ...

... // Funcion creada por Manuel Mercado en Febrero del 2009 Local oCfg, oMsg, oError, nEle, cToken, ; aAttach := {}, ; lAuth := ! Empty( cUser ) .and. ! Empty( cPass ), ; nSendOpt := 2 // send using: 1 = pickup folder 2 ...

... sample #include "FiveWin.ch" #include "Constant.ch" #include "WColors.ch" #include "RichEdit.ch" STATIC oMsg, oLen, oRow, oCol //----------------------------------------------------------------------------// function Main() local oDlg, oRich local hRichDLL ...

... "mc1000.prg" FUNCTION Main() PRIVATE oWnd PRIVATE cLog := "" PRIVATE nCant := 1 , oCant PRIVATE nExist := 0 PRIVATE oInvPC , oMsg , oMarca, oPrecio , oDes , oMsg2 PRIVATE cBarCode := space(15) , oBarCode PRIVATE files_dir := "\\caja1\c\" PRIVATE nContador := 0 , ...

Daniel not run on buttonbar

@ 7, 285 SAY ::oMsg PROMPT "RIVAMANIA PRO 1.00" ;
SIZE 150, 15 PIXEL OF ::oBar FONT ::oFont TRANSPARENT