SAOliveira Posted October 14, 2010 Report Share Posted October 14, 2010 1º não é um group. 2º ja tinha feito o que voce falou. E agora, tá sem nada. E... igual qui neim qui antes. "Não seja um clicador, torne-se um programador." Eu estou tentando. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 14, 2010 Report Share Posted October 14, 2010 citação:1º não é um group. 2º ja tinha feito o que voce falou. E agora, tá sem nada. E... igual qui neim qui antes. "Não seja um clicador, torne-se um programador." Eu estou tentando. id=quote>id=quote>Sérgio, qual é o seu emai João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luisão Posted October 14, 2010 Report Share Posted October 14, 2010 Xiii, então desconheço o que pode ser. Poste o código aqui, quem sabe alguém não "bate o olho" e acha o problema. Sobre o que o Kapi disse na control.prg, não tem nada de errado ? Luis Fernando Jr. (Luisão) Leme/SP -- FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY juninho.luisao@gmail.com juninho_luisao@hotmail.com Skype luis.fernando.jr Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 14, 2010 Report Share Posted October 14, 2010 citação:Xiii, então desconheço o que pode ser. Poste o código aqui, quem sabe alguém não "bate o olho" e acha o problema. Sobre o que o Kapi disse na control.prg, não tem nada de errado ? Luis Fernando Jr. (Luisão) Leme/SP -- FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY juninho.luisao@gmail.com juninho_luisao@hotmail.com Skype luis.fernando.jr id=quote>id=quote>Luisão, o problema está na "PINTAGEM" do Checkbox, groupBox e Radios Button, na CONTROL.PRG Pelo menos, foi comigo... Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted October 14, 2010 Report Share Posted October 14, 2010 sergio@oho.com.br REDEFINE RADIO oTipCfop VAR _tipcfop ID 105,106,107,108 OF oDlg UPDATE REDEFINE Checkbox oCtbCfop VAR _ctbcfop ID 110 OF oDlg UPDATE REDEFINE Checkbox oBasCfop VAR _bascfop ID 111 OF oDlg UPDATE REDEFINE Checkbox oImpCfop VAR _impcfop ID 112 OF oDlg UPDATE REDEFINE Checkbox oIseCfop VAR _isecfop ID 113 OF oDlg UPDATE REDEFINE Checkbox oOutCfop VAR _outcfop ID 114 OF oDlg UPDATE REDEFINE Checkbox oValCfop VAR _valcfop ID 115 OF oDlg UPDATEid=code>id=code> "Não seja um clicador, torne-se um programador." Eu estou tentando. Quote Link to comment Share on other sites More sharing options...
Luisão Posted October 14, 2010 Report Share Posted October 14, 2010 Só por curiosidade, este UPDATE é necessário ? Já tentou sem ? Ultima tentativa minha Luis Fernando Jr. (Luisão) Leme/SP -- FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY juninho.luisao@gmail.com juninho_luisao@hotmail.com Skype luis.fernando.jr Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 14, 2010 Report Share Posted October 14, 2010 citação:Só por curiosidade, este UPDATE é necessário ? Já tentou sem ? Ultima tentativa minha Luis Fernando Jr. (Luisão) Leme/SP -- FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY juninho.luisao@gmail.com juninho_luisao@hotmail.com Skype luis.fernando.jr id=quote>id=quote>Luisão, o UPDATE apenas atualiza um evento, não vejo problemas. Sérgio, veja email e reporte. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kleyber Posted October 14, 2010 Report Share Posted October 14, 2010 citação:sergio@oho.com.br REDEFINE RADIO oTipCfop VAR _tipcfop ID 105,106,107,108 OF oDlg UPDATE REDEFINE Checkbox oCtbCfop VAR _ctbcfop ID 110 OF oDlg UPDATE REDEFINE Checkbox oBasCfop VAR _bascfop ID 111 OF oDlg UPDATE REDEFINE Checkbox oImpCfop VAR _impcfop ID 112 OF oDlg UPDATE REDEFINE Checkbox oIseCfop VAR _isecfop ID 113 OF oDlg UPDATE REDEFINE Checkbox oOutCfop VAR _outcfop ID 114 OF oDlg UPDATE REDEFINE Checkbox oValCfop VAR _valcfop ID 115 OF oDlg UPDATEid=code>id=code> "Não seja um clicador, torne-se um programador." Eu estou tentando. id=quote>id=quote>Sérgio, Como estão definidos o group e os checkboxes no teu RC/RES? Kleyber Derick xHarbour 1.1.0 + FWH 8.02 (BMW Zerada!!!) + xDevStudio + SQLLIB (98) 8162-1301 / (98) 2107-9150 Visite São LuÃs - MA A Ilha dos Amores Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted October 15, 2010 Report Share Posted October 15, 2010 "Não seja um clicador, torne-se um programador." Eu estou tentando. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 15, 2010 Report Share Posted October 15, 2010 Eu acho, que vocês teem que mostrar estas telas ao Linares o mais rápido possivel. Também acho que se se usar DIALOGOS TRANSPARENTES, isto não ocorrerá, mas não tenho certeza, somente testando. Fiquei assustado... Quando formos trocar a versão aki, eu acho que FOO... DELLLLL!!! kkkkkkkkkkkkkkkkk Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted October 15, 2010 Report Share Posted October 15, 2010 Kapi, se colocar a dialog como TRANSPARENT, realmente funciona. Agora que é BUG (se pode ser chamado assim) isto é. Como com os demais controles isto nao acontece. To quase voltando pro @Say, que saudades. "Não seja um clicador, torne-se um programador." Eu estou tentando. Editado por - S.A.Oliveira on 15/10/2010 09:33:58 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 15, 2010 Report Share Posted October 15, 2010 citação:Kapi, se colocar a dialog como TRANSPARENT, realmente funciona. Agora que é BUG (se pode ser chamado assim) isto é. Como com os demais controles isto nao acontece. To quase voltando pro @Say, que saudades. "Não seja um clicador, torne-se um programador." Eu estou tentando. Editado por - S.A.Oliveira on 15/10/2010 09:33:58 id=quote>id=quote>OPA!! OLHA AI A LUZ NO FIM DO TUNEL, ENTÃO, PARE A CLASSE, E VEJA ONDE ELA ESTA ENTRANDO NA AREA DAS CORES NA CONTROL.PRG, E VEJA O QUE ESTA FALTANDO. O CAMINHO É POR AI..., PENA QUE NÃO TENHO SUA VERSÃO. Abraços, eu sei que você vai conseguir, veja com quem tem a sua versão e peça para ajudart-te. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted October 15, 2010 Report Share Posted October 15, 2010 Kapi, este problema vem de longa data, não só desta versao. Já postei algumas vezes no forum INTER, e nao tive solução. Alias varias pessoas reportaram o problema. Quanto a solução, para meu caso resolvi assim. DEFAULT ::nClrText := GetTextColor( hDC ),; ::nClrPane := GetBkColor( hDC ),; ::oBrush := TBrush():New( , ::nClrPane ),; ::lTransparent := .F. SetTextColor( hDC, ::nClrText ) SetBkColor( hDC, ::nClrPane ) /* if ::lTransparent SetBkMode( hDC, 1 ) // TRANSPARENT if ! Empty( ::oBrush:hBitmap ) SetBrushOrgEx( hDC, nBmpWidth( ::oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oBrush:hBitmap ) - ::nTop ) FillRect( hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) endif else //->Aqui, Controle do Fundo do CheckBox e Radio, Assume a Cor do Dialogo if IsAppThemed() .and. Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP" DrawPBack( ::hWnd, hDC ) endif endif */ return ::oBrush:hBrush id=code>id=code> "Não seja um clicador, torne-se um programador." Eu estou tentando. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 15, 2010 Report Share Posted October 15, 2010 //-> Sérgio teste assim, para ver o que ocorre IF .NOT. ::lTransparent // nada a fazer Elseif ::lTransparent SetBkMode( hDC, 1 ) // TRANSPARENT if ! Empty( ::oBrush:hBitmap ) SetBrushOrgEx( hDC, nBmpWidth( ::oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oBrush:hBitmap ) - ::nTop ) FillRect( hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) endif else //->Aqui, Controle do Fundo do CheckBox e Radio, Assume a Cor do Dialogo if IsAppThemed() .and. Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP" DrawPBack( ::hWnd, hDC ) endif endif ENDIF id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.