Some radio após pressionar a tecla ALT(RESOLVIDO)

[Wellington Vieira]

Boa tarde

Na imagem abaixo a tela com os rádios estão normais.

rádio esta normal na imagem de tela

 

Depois de pressionar a tecla ALT a tela fica assim, sumindo a(s) rádio(s). Alguma idéia sobre como resolver isso.

Rádio sumiu da imagem

 

Obrigado

 

[CIACPD]

Amigo, testa esta tela em separado, se não conseguir posta como está fazendo para que possamos lhe ajudar. 

Daniel Segura

[Wellington Vieira]

Quando eu passo o mouse sobre o do(s) rádio(s), elas voltam e não somem mais.

O meu método colors na minha classe control.prg esta assim:
 

METHOD Colors( hDC ) CLASS TControl

   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 IsAppThemed() 
         if ! Empty( ::oBrush:hBitmap ) 
            SetBrushOrgEx( hDC, nBmpWidth( ::oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oBrush:hBitmap ) - ::nTop ) 
            FillRect( hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) 
         else            //  This condition is added by RAMESH BABU P on Nov. 06, 2006 
           if Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO" 
              DrawPBack( ::hWnd,  hDC ) 
           endif    
         endif 
      endif 
   else      
      if IsAppThemed() .and. Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO" 
         DrawPBack( ::hWnd,  hDC ) 
      endif    
   endif    

return ::oBrush:hBrush

Pode ser algo neste método...

[Wellington Vieira]

Resolvido,

No meu .rc, estava carregando um arquivo tema.lor e configurações para os get's e não se mostrassem como afundados na tela. foi só retirar estas linhas do rc e normalizou...

obrigado.