jose.robertoteixeira

Srs, eu compilei a classe TActiveX. Porém , quando efetuei a chamada. a Msg foi exbida: Exceção ocorrida: o construtor da classe TACTIVEX:NEW deve inicializar a classe ancestral TCONTROL Qual o construtor Default do TControl? detalhe: a chamada está assim: local oWnd, oActiveX DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support" oActiveX = TActiveX():New( oWnd, "Word.Application.8" ) oWnd:oClient = oActiveX // To fill the entire window surface ACTIVATE WINDOW oWnd Grato

Srs, eu compilei a classe TActiveX. Porém , quando efetuei a chamada. a Msg foi exbida: Exceção ocorrida: o construtor da classe TACTIVEX:NEW deve inicializar a classe ancestral TCONTROL Qual o construtor Default do TControl? detalhe: a chamada está assim: local oWnd, oActiveX DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support" oActiveX = TActiveX():New( oWnd, "Word.Application.8" ) oWnd:oClient = oActiveX // To fill the entire window surface ACTIVATE WINDOW oWnd Grato

Valew Anderdon !

Srs. bom dia. Para que serve o INLINE em um método no FiveWin? ex na TActiveX : METHOD Do() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0 compilei mas dah erro nessa linha. grato

Srs. bom dia. Para que serve o INLINE em um método no FiveWin? ex na TActiveX : METHOD Do() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0 compilei mas dah erro nessa linha. grato

Pessoal, boa noite..jah procurei aqui no forum mas não encontrei como deixae uma coluna X editável no TCBrowse... onde trabalho, recebi essa sintaxe do TCBrowse, e assim fiz: If (aDados == Nil ) .Or. Len(aDados) = 0 AADD(aDados,{" "," "," "," "," ","",.f.,""}) EndIf oBrw := TCBROWSE():New(__TOP,__LEFT, __INF ,__RIGHT,,,,,,,,,,,,,,,,.T.,,.T.,,.T.,,) oBrw:SetArray(aDADOS) oBrw:nAt := 1 oBrw:bLdblClick := { || Alert('Teste') } __TC_KEY := Inkey(0) oBrw:bChange := { || __SET_TEXTS(aDados,oBrw) } oBrw:AddColumn(TCColumn():New("Produto", {|| aDADOS[oBrw] } ,,,{ || CLR_JRAT } ,"LEFT",60,.F.,.T.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Desc.Produto", {|| aDADOS[oBrw] } ,,,,"LEFT",70 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Quantidade", {|| aDADOS[oBrw] },,,,"LEFT",45 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Valor", {|| aDADOS[oBrw] } ,,,,"LEFT",60 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Quant.Recebida", {|| aDADOS[oBrw] } ,,,,"LEFT",60 ,.F.,.F.,,,,.F.,)) Agora, como deixar a coluna editável ?

Pessoal, boa noite..jah procurei aqui no forum mas não encontrei como deixae uma coluna X editável no TCBrowse... onde trabalho, recebi essa sintaxe do TCBrowse, e assim fiz: If (aDados == Nil ) .Or. Len(aDados) = 0 AADD(aDados,{" "," "," "," "," ","",.f.,""}) EndIf oBrw := TCBROWSE():New(__TOP,__LEFT, __INF ,__RIGHT,,,,,,,,,,,,,,,,.T.,,.T.,,.T.,,) oBrw:SetArray(aDADOS) oBrw:nAt := 1 oBrw:bLdblClick := { || Alert('Teste') } __TC_KEY := Inkey(0) oBrw:bChange := { || __SET_TEXTS(aDados,oBrw) } oBrw:AddColumn(TCColumn():New("Produto", {|| aDADOS[oBrw] } ,,,{ || CLR_JRAT } ,"LEFT",60,.F.,.T.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Desc.Produto", {|| aDADOS[oBrw] } ,,,,"LEFT",70 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Quantidade", {|| aDADOS[oBrw] },,,,"LEFT",45 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Valor", {|| aDADOS[oBrw] } ,,,,"LEFT",60 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Quant.Recebida", {|| aDADOS[oBrw] } ,,,,"LEFT",60 ,.F.,.F.,,,,.F.,)) Agora, como deixar a coluna editável ?

Pessoal, como eu coloco cores em linha ou coluna no TCBrowse ??? Grato Function T_TCBrowse() Local oBrw Local oDlg Local aFiles := Directory("\BIN\*.*") DEFINE MSDIALOG oDlg FROM 0,0 TO 300,400 TITLE "Teste da TCBrowse" PIXEL oBrw := TCBROWSE():New(5,5, ((oDlg:nRight/2)-51) ,63,,,,,,,,,,,,,,,,.F.,,.T.,,.F.,,) oBrw:SetArray(aFiles) // Seta os dados do Browse oBrw:bLdblClick := { || MsgInfo("DBLClick") } oBrw:bChange := { || MsgAlert("BCHANGE") } oBrw:nAt := 1 oBrw:AddColumn(TCColumn():New("Coluna 1", {|| aFiles[oBrw] } ,,,,"LEFT",100,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 2", {|| DTOC(aFiles[oBrw]) } ,,,,"LEFT",70 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 3", {|| Substr(aFiles[oBrw],1,5) },,,,"LEFT",45 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 4", {|| Str(aFiles[oBrw],8,0) } ,,,,"LEFT",60 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 5", {|| Str(aFiles[oBrw],8,0) } ,,,,"LEFT",60 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 6", {|| aFiles[oBrw] } ,,,,"LEFT",20 ,.F.,.F.,,,,.F.,)) @ 070, 010 BUTTON "GetBrwOrder" SIZE 40,10 OF oDlg PIXEL ACTION GetOrd( oBrw ) ACTIVATE MSDIALOG oDlg Return Nil //---------------------------------------------------------- Static Function GetOrd( oBrw ) Local aTitles := oBrw:GetBrwOrder() Local nI Local cLinha := "" For nI := 1 to Len(aTitles) cLinha += "Caption: " + aTitles[nI,1] + " --- Width: " + Str(aTitles[nI,2]) + Chr(10) + Chr(13) Next nI MsgInfo(cLinha) Return Nil

Pessoal, como eu coloco cores em linha ou coluna no TCBrowse ??? Grato Function T_TCBrowse() Local oBrw Local oDlg Local aFiles := Directory("\BIN\*.*") DEFINE MSDIALOG oDlg FROM 0,0 TO 300,400 TITLE "Teste da TCBrowse" PIXEL oBrw := TCBROWSE():New(5,5, ((oDlg:nRight/2)-51) ,63,,,,,,,,,,,,,,,,.F.,,.T.,,.F.,,) oBrw:SetArray(aFiles) // Seta os dados do Browse oBrw:bLdblClick := { || MsgInfo("DBLClick") } oBrw:bChange := { || MsgAlert("BCHANGE") } oBrw:nAt := 1 oBrw:AddColumn(TCColumn():New("Coluna 1", {|| aFiles[oBrw] } ,,,,"LEFT",100,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 2", {|| DTOC(aFiles[oBrw]) } ,,,,"LEFT",70 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 3", {|| Substr(aFiles[oBrw],1,5) },,,,"LEFT",45 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 4", {|| Str(aFiles[oBrw],8,0) } ,,,,"LEFT",60 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 5", {|| Str(aFiles[oBrw],8,0) } ,,,,"LEFT",60 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 6", {|| aFiles[oBrw] } ,,,,"LEFT",20 ,.F.,.F.,,,,.F.,)) @ 070, 010 BUTTON "GetBrwOrder" SIZE 40,10 OF oDlg PIXEL ACTION GetOrd( oBrw ) ACTIVATE MSDIALOG oDlg Return Nil //---------------------------------------------------------- Static Function GetOrd( oBrw ) Local aTitles := oBrw:GetBrwOrder() Local nI Local cLinha := "" For nI := 1 to Len(aTitles) cLinha += "Caption: " + aTitles[nI,1] + " --- Width: " + Str(aTitles[nI,2]) + Chr(10) + Chr(13) Next nI MsgInfo(cLinha) Return Nil

PessoALL, como eu coloco cores nas linhas no TCBrowse? tem como eu colocar por coluna tb? Por favor? Grato. Function T_TCBrowse() Local oBrw Local oDlg Local aFiles := Directory("\BIN\*.*") DEFINE MSDIALOG oDlg FROM 0,0 TO 300,400 TITLE "Teste da TCBrowse" PIXEL oBrw := TCBROWSE():New(5,5, ((oDlg:nRight/2)-51) ,63,,,,,,,,,,,,,,,,.F.,,.T.,,.F.,,) oBrw:SetArray(aFiles) // Seta os dados do Browse oBrw:bLdblClick := { || MsgInfo("DBLClick") } oBrw:bChange := { || MsgAlert("BCHANGE") } oBrw:nAt := 1 oBrw:AddColumn(TCColumn():New("Coluna 1", {|| aFiles[oBrw] } ,,,,"LEFT",100,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 2", {|| DTOC(aFiles[oBrw]) } ,,,,"LEFT",70 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 3", {|| Substr(aFiles[oBrw],1,5) },,,,"LEFT",45 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 4", {|| Str(aFiles[oBrw],8,0) } ,,,,"LEFT",60 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 5", {|| Str(aFiles[oBrw],8,0) } ,,,,"LEFT",60 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 6", {|| aFiles[oBrw] } ,,,,"LEFT",20 ,.F.,.F.,,,,.F.,)) @ 070, 010 BUTTON "GetBrwOrder" SIZE 40,10 OF oDlg PIXEL ACTION GetOrd( oBrw ) ACTIVATE MSDIALOG oDlg Return Nil //---------------------------------------------------------- Static Function GetOrd( oBrw ) Local aTitles := oBrw:GetBrwOrder() Local nI Local cLinha := "" For nI := 1 to Len(aTitles) cLinha += "Caption: " + aTitles[nI,1] + " --- Width: " + Str(aTitles[nI,2]) + Chr(10) + Chr(13) Next nI MsgInfo(cLinha) Return Nil

PessoALL, como eu coloco cores nas linhas no TCBrowse? tem como eu colocar por coluna tb? Por favor? Grato. Function T_TCBrowse() Local oBrw Local oDlg Local aFiles := Directory("\BIN\*.*") DEFINE MSDIALOG oDlg FROM 0,0 TO 300,400 TITLE "Teste da TCBrowse" PIXEL oBrw := TCBROWSE():New(5,5, ((oDlg:nRight/2)-51) ,63,,,,,,,,,,,,,,,,.F.,,.T.,,.F.,,) oBrw:SetArray(aFiles) // Seta os dados do Browse oBrw:bLdblClick := { || MsgInfo("DBLClick") } oBrw:bChange := { || MsgAlert("BCHANGE") } oBrw:nAt := 1 oBrw:AddColumn(TCColumn():New("Coluna 1", {|| aFiles[oBrw] } ,,,,"LEFT",100,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 2", {|| DTOC(aFiles[oBrw]) } ,,,,"LEFT",70 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 3", {|| Substr(aFiles[oBrw],1,5) },,,,"LEFT",45 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 4", {|| Str(aFiles[oBrw],8,0) } ,,,,"LEFT",60 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 5", {|| Str(aFiles[oBrw],8,0) } ,,,,"LEFT",60 ,.F.,.F.,,,,.F.,)) oBrw:AddColumn(TCColumn():New("Coluna 6", {|| aFiles[oBrw] } ,,,,"LEFT",20 ,.F.,.F.,,,,.F.,)) @ 070, 010 BUTTON "GetBrwOrder" SIZE 40,10 OF oDlg PIXEL ACTION GetOrd( oBrw ) ACTIVATE MSDIALOG oDlg Return Nil //---------------------------------------------------------- Static Function GetOrd( oBrw ) Local aTitles := oBrw:GetBrwOrder() Local nI Local cLinha := "" For nI := 1 to Len(aTitles) cLinha += "Caption: " + aTitles[nI,1] + " --- Width: " + Str(aTitles[nI,2]) + Chr(10) + Chr(13) Next nI MsgInfo(cLinha) Return Nil