Solução para Checkbox e Radio Button que somem

[Pablo.Softgraf]

Apenas coloquei na compilação um .RC que serve para o windows XP..

criem um arquivo nome do sistema.RC e depois verão que o sistema foi solucionado.. e os que não estão dispostos a ajudar e fazer piadas por favor menos..

1 24 LOADONCALL MOVEABLE

{

'3C 3F 78 6D 6C 20 76 65 72 73 69 6F 6E 3D 22 31'

'2E 30 22 20 65 6E 63 6F 64 69 6E 67 3D 22 55 54'

'46 2D 38 22 20 73 74 61 6E 64 61 6C 6F 6E 65 3D'

'22 79 65 73 22 3F 3E 0D 0A 3C 61 73 73 65 6D 62'

'6C 79 20 78 6D 6C 6E 73 3D 22 75 72 6E 3A 73 63'

'68 65 6D 61 73 2D 6D 69 63 72 6F 73 6F 66 74 2D'

'63 6F 6D 3A 61 73 6D 2E 76 31 22 20 6D 61 6E 69'

'66 65 73 74 56 65 72 73 69 6F 6E 3D 22 31 2E 30'

'22 3E 0D 0A 3C 61 73 73 65 6D 62 6C 79 49 64 65'

'6E 74 69 74 79 0D 0A 20 20 20 20 74 79 70 65 3D'

'22 77 69 6E 33 32 22 0D 0A 20 20 20 20 6E 61 6D'

'65 3D 22 4D 79 4F 72 67 61 6E 69 7A 61 74 69 6F'

'6E 2E 4D 79 44 69 76 69 73 69 6F 6E 2E 4D 79 41'

'70 70 22 0D 0A 20 20 20 20 76 65 72 73 69 6F 6E'

'3D 22 31 2E 30 2E 30 2E 30 22 0D 0A 20 20 20 20'

'70 72 6F 63 65 73 73 6F 72 41 72 63 68 69 74 65'

'63 74 75 72 65 3D 22 58 38 36 22 0D 0A 20 20 20'

'20 2F 3E 0D 0A 20 20 20 20 3C 64 65 73 63 72 69'

'70 74 69 6F 6E 3E 56 65 72 62 61 6C 20 64 65 73'

'63 72 69 70 74 69 6F 6E 20 6F 66 20 4D 79 41 70'

'70 2E 3C 2F 64 65 73 63 72 69 70 74 69 6F 6E 3E'

'0D 0A 20 20 20 20 3C 64 65 70 65 6E 64 65 6E 63'

'79 3E 0D 0A 20 20 20 20 3C 64 65 70 65 6E 64 65'

'6E 74 41 73 73 65 6D 62 6C 79 3E 0D 0A 20 20 20'

'20 3C 61 73 73 65 6D 62 6C 79 49 64 65 6E 74 69'

'74 79 0D 0A 20 20 20 20 20 20 20 20 74 79 70 65'

'3D 22 77 69 6E 33 32 22 0D 0A 20 20 20 20 20 20'

'20 20 6E 61 6D 65 3D 22 4D 69 63 72 6F 73 6F 66'

'74 2E 57 69 6E 64 6F 77 73 2E 43 6F 6D 6D 6F 6E'

'2D 43 6F 6E 74 72 6F 6C 73 22 0D 0A 20 20 20 20'

'20 20 20 20 76 65 72 73 69 6F 6E 3D 22 36 2E 30'

'2E 30 2E 30 22 0D 0A 20 20 20 20 20 20 20 20 70'

'72 6F 63 65 73 73 6F 72 41 72 63 68 69 74 65 63'

'74 75 72 65 3D 22 58 38 36 22 0D 0A 20 20 20 20'

'20 20 20 20 70 75 62 6C 69 63 4B 65 79 54 6F 6B'

'65 6E 3D 22 36 35 39 35 62 36 34 31 34 34 63 63'

'66 31 64 66 22 0D 0A 20 20 20 20 20 20 20 20 6C'

'61 6E 67 75 61 67 65 3D 22 2A 22 0D 0A 20 20 20'

'20 2F 3E 0D 0A 20 20 20 20 3C 2F 64 65 70 65 6E'

'64 65 6E 74 41 73 73 65 6D 62 6C 79 3E 0D 0A 20'

'20 20 20 3C 2F 64 65 70 65 6E 64 65 6E 63 79 3E'

'0D 0A 3C 2F 61 73 73 65 6D 62 6C 79 3E 0D 0A 0D'

'0A'

}

Pablo Andrés Reyes Rivera

FWH 10.12 , xHarbour Compiler build 1.2.1 (rev. 6717 )

(SimpLex) - PellesC

[Pablo.Softgraf]

Apenas coloquei na compilação um .RC que serve para o windows XP..

criem um arquivo nome do sistema.RC e depois verão que o sistema foi solucionado.. e os que não estão dispostos a ajudar e fazer piadas por favor menos..

1 24 LOADONCALL MOVEABLE

{

'3C 3F 78 6D 6C 20 76 65 72 73 69 6F 6E 3D 22 31'

'2E 30 22 20 65 6E 63 6F 64 69 6E 67 3D 22 55 54'

'46 2D 38 22 20 73 74 61 6E 64 61 6C 6F 6E 65 3D'

'22 79 65 73 22 3F 3E 0D 0A 3C 61 73 73 65 6D 62'

'6C 79 20 78 6D 6C 6E 73 3D 22 75 72 6E 3A 73 63'

'68 65 6D 61 73 2D 6D 69 63 72 6F 73 6F 66 74 2D'

'63 6F 6D 3A 61 73 6D 2E 76 31 22 20 6D 61 6E 69'

'66 65 73 74 56 65 72 73 69 6F 6E 3D 22 31 2E 30'

'22 3E 0D 0A 3C 61 73 73 65 6D 62 6C 79 49 64 65'

'6E 74 69 74 79 0D 0A 20 20 20 20 74 79 70 65 3D'

'22 77 69 6E 33 32 22 0D 0A 20 20 20 20 6E 61 6D'

'65 3D 22 4D 79 4F 72 67 61 6E 69 7A 61 74 69 6F'

'6E 2E 4D 79 44 69 76 69 73 69 6F 6E 2E 4D 79 41'

'70 70 22 0D 0A 20 20 20 20 76 65 72 73 69 6F 6E'

'3D 22 31 2E 30 2E 30 2E 30 22 0D 0A 20 20 20 20'

'70 72 6F 63 65 73 73 6F 72 41 72 63 68 69 74 65'

'63 74 75 72 65 3D 22 58 38 36 22 0D 0A 20 20 20'

'20 2F 3E 0D 0A 20 20 20 20 3C 64 65 73 63 72 69'

'70 74 69 6F 6E 3E 56 65 72 62 61 6C 20 64 65 73'

'63 72 69 70 74 69 6F 6E 20 6F 66 20 4D 79 41 70'

'70 2E 3C 2F 64 65 73 63 72 69 70 74 69 6F 6E 3E'

'0D 0A 20 20 20 20 3C 64 65 70 65 6E 64 65 6E 63'

'79 3E 0D 0A 20 20 20 20 3C 64 65 70 65 6E 64 65'

'6E 74 41 73 73 65 6D 62 6C 79 3E 0D 0A 20 20 20'

'20 3C 61 73 73 65 6D 62 6C 79 49 64 65 6E 74 69'

'74 79 0D 0A 20 20 20 20 20 20 20 20 74 79 70 65'

'3D 22 77 69 6E 33 32 22 0D 0A 20 20 20 20 20 20'

'20 20 6E 61 6D 65 3D 22 4D 69 63 72 6F 73 6F 66'

'74 2E 57 69 6E 64 6F 77 73 2E 43 6F 6D 6D 6F 6E'

'2D 43 6F 6E 74 72 6F 6C 73 22 0D 0A 20 20 20 20'

'20 20 20 20 76 65 72 73 69 6F 6E 3D 22 36 2E 30'

'2E 30 2E 30 22 0D 0A 20 20 20 20 20 20 20 20 70'

'72 6F 63 65 73 73 6F 72 41 72 63 68 69 74 65 63'

'74 75 72 65 3D 22 58 38 36 22 0D 0A 20 20 20 20'

'20 20 20 20 70 75 62 6C 69 63 4B 65 79 54 6F 6B'

'65 6E 3D 22 36 35 39 35 62 36 34 31 34 34 63 63'

'66 31 64 66 22 0D 0A 20 20 20 20 20 20 20 20 6C'

'61 6E 67 75 61 67 65 3D 22 2A 22 0D 0A 20 20 20'

'20 2F 3E 0D 0A 20 20 20 20 3C 2F 64 65 70 65 6E'

'64 65 6E 74 41 73 73 65 6D 62 6C 79 3E 0D 0A 20'

'20 20 20 3C 2F 64 65 70 65 6E 64 65 6E 63 79 3E'

'0D 0A 3C 2F 61 73 73 65 6D 62 6C 79 3E 0D 0A 0D'

'0A'

}

Pablo Andrés Reyes Rivera

FWH 10.12 , xHarbour Compiler build 1.2.1 (rev. 6717 )

(SimpLex) - PellesC

[Luiz Arruda (ICO)]

Mais isso é o manifest..

Tira-se o efeito 3D dos controles e todos ficam igual ao estilo XP.

Abraços..

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

FiveWin 9.04

[x]Harbour

PellesC

Bcc

Ws

Retorne avisando se a dica funcionouid=red>

Para saber o que vem pela frente, fale com quem está voltando

[Pablo.Softgraf]

Eu sei disto , mas isso me resolveu o problema !!!

Pablo Andrés Reyes Rivera

FWH 10.12 , xHarbour Compiler build 1.2.1 (rev. 6717 )

(SimpLex) - PellesC

[neto_23]

estou com esse problema de sumir os chekbox

mais ainda nao encontrei a solução os rc feito no pelles

pablo mais não entendi como solucionar esse problema ok

fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles

programadorcp80@hotmail.com.br ;

[SAOliveira]

Pablo, em nhenhum momento quiz fazer piadas.

Passo por este problema e não consegui resolver.

Postei no forum do Linhares, mas pelo visto ninguem tem este problema.

Abaixo, o problema que eu vejo.

Um Radio desta forma. (Pelles)

id=code>

id=code>

Quando carregado na consulta do código desta maneira.

IF(COP->a_fl1cop=="D") ; _stacop:=2 ; Ostacop:aItems[2]:SetFont(oPub:fUCour13) ; Ostacop:aItems[1]:SetFont(oPub:fNorm11) ; Ostacop:aItems[3]:SetFont(oPub:fNorm11) ; Ostacop:aItems[4]:SetFont(oPub:fNorm11) ; ENDIF

IF(COP->a_fl1cop=="A") ; _stacop:=3 ; Ostacop:aItems[3]:SetFont(oPub:fUCour13) ; Ostacop:aItems[1]:SetFont(oPub:fNorm11) ; Ostacop:aItems[2]:SetFont(oPub:fNorm11) ; Ostacop:aItems[4]:SetFont(oPub:fNorm11) ; ENDIF

IF(COP->a_fl1cop=="I") ; _stacop:=4 ; Ostacop:aItems[4]:SetFont(oPub:fUCour13) ; Ostacop:aItems[1]:SetFont(oPub:fNorm11) ; Ostacop:aItems[2]:SetFont(oPub:fNorm11) ; Ostacop:aItems[3]:SetFont(oPub:fNorm11) ; ENDIF

Ostacop:Refresh() ; SysRefresh()

id=code>id=code>Quero com isto, deixar com outra fonte de letra, o item marcado.

Até aí normal.

Mas se eu fizer uma consulta,em que o resultado seja o 1º item do radio.

Observem que a fonte de letra do primeiro item não alterou.

Agora se eu passar o mouse por cima do 1º item.

Isto numa dialog simples, sem transparencia, sem nada demais.

Isto estou passando hoje.

Anteriormente passei problemas de simplesmente eles desaparecerem da tela.

Passaou o mouse sobre eles, olha a mágica de novo.

"Não seja um clicador, torne-se um programador." Eu estou tentando.

[Anthony Ormond]

Não sei se seria útil mas encontrei esse tópico no forum da Fivetech:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=19491&p=102729&hilit=fwh+10+06+radio#p102729

Também estou com esse problema

Itaocara - RJ

Clipper 5.3b - Fw 2.6 - DBFCDX

xHb 1.1.0 - FwxH 8.02 - DBFCDX

[SAOliveira]

Realmente o bug que apresentava quando pressionava ALT e os controles sumiam, comforme mostrado na penultima/ultima imagem, foram sanados.

Mas os que mostrei no inicio, nem pensar

"Não seja um clicador, torne-se um programador." Eu estou tentando.

[ricardomouramarques]

Colegas,

quanto a sumir os objetos:

Não sei se esse é o caso aqui, mas quando o GROUP é usado de maneira incorreta isso acontece.

Vejam, se está usando um GROUP, os objetos dentro dele devem "pertencer" a ele e não a janela.. tipo:

define dialog oDlg...

@ 10,10 GROUP oGrp...of oDlg // o GROUP ele pertence a oDlg

@ 10,10 Radio oRad.... of oGrp // o Radio pertence a oGrp

Lembrando que a linha 10 do Radio, no exemplo acima, é a linha 10 do GROUP e não da DIALOG.

Caso coloquem o "Radio" como "of oDlg", ou seja, pertencendo a Janela, correrão o risco do GROUP sobrepor o "Radio" e isso irá parecer que ele sumiu, quanto na verdade ele está por baixo do GROUP.

[ricardomouramarques]

citação:Mas se eu fizer uma consulta,em que o resultado seja o 1º item do radio.

id=quote>id=quote>

Oliveira,

Segue um exemplo que, acredito, vai resolver o seu problema:

*********************************************************************************

#Include "Fivewin.ch"

//-----------------------------------------------------------------------

Function Main()

Private oRad1, oBut1, nRad1 := 1

DEFINE FONT oFONT1 NAME "Ms Sans Serif" SIZE 0, -12

DEFINE FONT oFONT2 NAME "MS Sans Serif" SIZE 0, -13 BOLD

Define DIALOG oForm2 TITLE "oForm2" ;

FROM 0, 0 to 215, 517 PIXEL COLOR 0, 15790320

ACTIVATE DIALOG oForm2 ON INIT Inicio()

Return NIL

//----------------------------------------------------------------------------

Function Inicio()

@ 50, 42 RADIO oRad1 VAR nRad1 Prompt "Item 1",;

"Item 2",;

"Item 3";

SIZE 100, 20 PIXEL OF oForm2

@ 154, 231 BUTTON oBut1 Prompt "Button 1" SIZE 70, 24 PIXEL;

OF oForm2 ACTION NIL FONT oFont1

oRad1:aItems[1]:Move( 50, 42, 100, 20, .T. )

oRad1:aItems[1]:SetColor( 0, 15790320 )

oRad1:aItems[1]:SetFont( oFont1 )

oRad1:aItems[2]:Move( 50, 142, 100, 20, .T. )

oRad1:aItems[2]:SetColor( 0, 15790320 )

oRad1:aItems[2]:SetFont( oFont1 )

oRad1:aItems[3]:Move( 50, 242, 100, 20, .T. )

oRad1:aItems[3]:SetColor( 0, 15790320 )

oRad1:aItems[3]:SetFont( oFont1 )

oRad1:bChange := {||SetFontes( oRad1 )} //<- aqui tá a "parada"

SetFontes( oRad1 ) //<- faça isso também pra começar

Return NIL

//-----------------------------------------------------------------------------

Function SetFontes( oRad ) //função que define a fonte

for i := 1 to len(oRad:aItems)

oRad:aItems:SetFont( if( oRad:nOption = i, oFont2, oFont1 ) )

oRad:aItems:Hide()

oRad:aItems:Show()

next

Return NIL

*********************************************************************************

id=code>id=code>