Geo_sts Posted May 27, 2009 Report Share Posted May 27, 2009 Bom dia.. Alguem ja fez: @01,01 radio oRadio... na Horizontal? to apanhando aqui e não achei nada!. Obrigado.. Abraços a Todos Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted May 27, 2009 Author Report Share Posted May 27, 2009 Bom dia.. Alguem ja fez: @01,01 radio oRadio... na Horizontal? to apanhando aqui e não achei nada!. Obrigado.. Abraços a Todos Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Quote Link to comment Share on other sites More sharing options...
agp.ds Posted May 27, 2009 Report Share Posted May 27, 2009 Bom dia Geovanni... Com @01,01 radio não sei se tem como, mas com editor de recurso fica bem fácil, tipo Pelles ou Resouce Workshop... Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3 Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted May 27, 2009 Report Share Posted May 27, 2009 Veja se ajuda. http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=15245 Quote Link to comment Share on other sites More sharing options...
agp.ds Posted May 27, 2009 Report Share Posted May 27, 2009 Opa tem sim Geovanni, Tenta ai esse exemplo: //----------------------------------------------------------------------- #Include "Fivewin.ch" //----------------------------------------------------------------------- Function main() Private oRad1 nRad1 := 1 DEFINE FONT oFONT1 NAME "Ms Sans Serif" SIZE 0, -12 Define WINDOW oWnd TITLE "Teste Radio" ; FROM 118, 266 to 290, 617 PIXEL COLOR 0, 13160660 ACTIVATE WINDOW oWnd ON INIT Ini_oWnd() Return NIL //---------------------------------------------------------------------------- Function Ini_oWnd() @ 32, 20 RADIO oRad1 VAR nRad1 Prompt "Um",; "Dois",; "Três"; SIZE 48, 20 PIXEL OF oWnd oRad1:aItems[1]:Move( 32, 20, 48, 20, .T. ) oRad1:aItems[1]:SetColor( 0, 13160660 ) oRad1:aItems[1]:SetFont( oFont1 ) oRad1:aItems[2]:Move( 32, 92, 54, 20, .T. ) oRad1:aItems[2]:SetColor( 0, 13160660 ) oRad1:aItems[2]:SetFont( oFont1 ) oRad1:aItems[3]:Move( 32, 177, 52, 20, .T. ) oRad1:aItems[3]:SetColor( 0, 13160660 ) oRad1:aItems[3]:SetFont( oFont1 ) @ 93, 135 BUTTON oBut1 Prompt "&Fechar" SIZE 70, 24 PIXEL; OF oWnd ACTION oWnd:END() FONT oFont1 Return NIL Agnaldo FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3 Quote Link to comment Share on other sites More sharing options...
aferra Posted May 27, 2009 Report Share Posted May 27, 2009 Olá Geovani, na versão que vc usa pode ser feito desta forma. @ 182,005 RADIO oKeyCli1 VAR nKeyCli1 PROMPT "Código","&Razão" PIXEL SIZE 30,8 OF oDlgCli1 @ 183,040 RADIOITEM "&Fantasia" RADIOMENU oKeyCli1 OF oDlgCli1 SIZE 30,06 PIXEL @ 191,040 RADIOITEM "&CNPJ/CPF" RADIOMENU oKeyCli1 OF oDlgCli1 SIZE 30,06 PIXEL @ 183,080 RADIOITEM "&Atividade" RADIOMENU oKeyCli1 OF oDlgCli1 SIZE 35,06 PIXEL @ 191,080 RADIOITEM "&MunicÃpio" RADIOMENU oKeyCli1 OF oDlgCli1 SIZE 30,06 PIXEL @ 183,120 RADIOITEM "&Telefone" RADIOMENU oKeyCli1 OF oDlgCli1 SIZE 30,06 PIXEL @ 191,120 RADIOITEM "&Dt.Cadastro" RADIOMENU oKeyCli1 OF oDlgCli1 SIZE 40,06 PIXEL Esse pessoal de recursos, acha que quem usa @SAY não faz igual, kkkkkkkkkkkkkkkkkkk, "nóis fais tumbem", heheheheeh Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX FW9.02+xHb110+@Say+CDX "O fracasso jamais me surpreenderá, se minha vontade de vencer for suficientemente forte..."id=red> Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted May 27, 2009 Report Share Posted May 27, 2009 a # é qui nóis faizi cumenas linhas Luiz Arruda - Corumba(MS) FiveWin 9.01 / 9.02 /9.03 / 9.04 [x]Harbour xDev WS Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
aferra Posted May 27, 2009 Report Share Posted May 27, 2009 mas que fica igual fica vlw Ico Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX FW9.02+xHb110+@Say+CDX "O fracasso jamais me surpreenderá, se minha vontade de vencer for suficientemente forte..."id=red> Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted May 27, 2009 Author Report Share Posted May 27, 2009 Aferra coloquei isso mais deu o seguinte erro: Application =========== Path and name: C:\sistema\programa.EXE (32 bits) Size: 2,340,864 bytes Time from start: 0 horas 0 mins 9 secs Error occurred at: 27/05/2009, 18:12:02 Error description: Error BASE/1004 Class: 'NUMERIC' has no exported method: NCLRPANE Args: [ 1] = N 0 Stack Calls =========== Called from: => NCLRPANE(0) Called from: .\source\classes\RADMENU.PRG => TRADMENU:NEW(88) Called from: C:\sistema\CADAPRO.PRG => INCLPRO(291) abraços.. Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Quote Link to comment Share on other sites More sharing options...
gilmer Posted May 28, 2009 Report Share Posted May 28, 2009 Giovani, Mostre o código que vc fez no seu prg, para declarar o radio citação: Olá Geovani, na versão que vc usa pode ser feito desta forma. @ 182,005 RADIO oKeyCli1 VAR nKeyCli1 PROMPT "Código","&Razão" PIXEL SIZE 30,8 OF oDlgCli1 @ 183,040 RADIOITEM "&Fantasia" RADIOMENU oKeyCli1 OF oDlgCli1 SIZE 30,06 PIXEL @ 191,040 RADIOITEM "&CNPJ/CPF" RADIOMENU oKeyCli1 OF oDlgCli1 SIZE 30,06 PIXEL @ 183,080 RADIOITEM "&Atividade" RADIOMENU oKeyCli1 OF oDlgCli1 SIZE 35,06 PIXEL @ 191,080 RADIOITEM "&MunicÃpio" RADIOMENU oKeyCli1 OF oDlgCli1 SIZE 30,06 PIXEL @ 183,120 RADIOITEM "&Telefone" RADIOMENU oKeyCli1 OF oDlgCli1 SIZE 30,06 PIXEL @ 191,120 RADIOITEM "&Dt.Cadastro" RADIOMENU oKeyCli1 OF oDlgCli1 SIZE 40,06 PIXEL Esse pessoal de recursos, acha que quem usa @SAY não faz igual, kkkkkkkkkkkkkkkkkkk, "nóis fais tumbem", heheheheeh Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX FW9.02+xHb110+@Say+CDX "O fracasso jamais me surpreenderá, se minha vontade de vencer for suficientemente forte..."id=red> id=quote>id=quote>e-mail: gilmer@fivewin.com.br msn: fivewinbrasil@hotmail.com Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted May 28, 2009 Author Report Share Posted May 28, 2009 Resolvido.. detalhe que esqueci de mudar.. hj pela manha mais calmo.(rsrs) percebi que não tinha mudado oF oDlgcli1 para oF oDlg Funcionou Belezinha.. Ficou Show de Bola.. agradeço a Todos pela colaboração e paciencia.. ainda tenhu muito. mais muito que conhecer.. Obrigado pela Força. Temos q nos Reunir pra uma cervejada! hehe VLW Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.4 skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" 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.