topic-17732

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

Atualizar FWH912 - Group box recurso
Posted: Wed Dec 30, 2009 07:33 PM

Sr. Antonio,

Ao atualizar o FIVEWIN da vs 8.12 para 9.12 esta ocorrendo de, aonde eu tenha uma DIALOG com group box explicitamente declarada como abaixo, os recursos dentro deste GROUP não aparececem, se eu passar o mouse por cima aparece. Outro detalhe, uma vez que passei o mouse e apareceu os recursos, se eu minimizar minha aplicação ao voltar ao normal os recursos dentro do GROUP não aparecem novamente, veja:

prg:

define dialog pemdlg resource "FILTRO" font ownd:ofont icon oicon
redefine get oegets[1] var nMesa id 100 of pemDlg picture "999999"
redefine group oegets[2] prompt " nº:" id 105 of pemDlg transparent

redefine buttonbmp id 4002 of pemdlg bitmap "TOUCH"
redefine buttonbmp id 4003 of pemdlg bitmap "B_REC"
pemdlg:lhelpicon:=.f.
activate dialog pemdlg center

Foi alterado alguma coisa na versao recente do FWH?
O que devo fazer para resolver esta situação, uma vez que afetou todo o meu sistema.

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

MGA

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

Re: Atualizar FWH912 - Group box recurso
Posted: Thu Dec 31, 2009 11:27 AM

Sr. Antonio,

Consegui simular o problema direto do FWH912\SAMPLES\TESTTRN2.PRG, verifique por favor!

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

MGA

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

Re: Atualizar FWH912 - Group box recurso
Posted: Thu Dec 31, 2009 01:36 PM

Sr. Antonio,

Resolvi temporariamente assim:

No PellesC troquei a ordem dos controles colocando o(s) grupo(s) como primeiro(s) e depois no fonte coloquei o group como say como no exemplo abaixo:

de

REDEFINE GROUP oGroup1 ID 800 color RGB(255, 0, 0), RGB(182,221,199) of odlg_0002 FONT oFont1 PROMPT "Contatos" TRANSPARENT

para

REDEFINE SAY oGroup1 ID 800 color RGB(255, 0, 0), RGB(182,221,199) of odlg_0002 FONT oFont1 PROMPT "Contatos" TRANSPARENT

Fonte:

http://www.fivewin.com.br/forum/topic.a ... C_ID=14384

Porém, esta solução vai me gerar um transtorno muito grande.

Aguardo uma solução

Obrigado

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Atualizar FWH912 - Group box recurso
Posted: Thu Dec 31, 2009 02:25 PM

SGS,

Esta es la forma correcta en que debe programarse FWH\samples\TestTrn2.prg

Code (fw): Select all Collapse

#include "FiveWin.ch"

function Main()

   local oBrush, oDlg, oRad, nVal := 1, oCbx, lVal := .T., oGrp

   DEFINE BRUSH oBrush FILENAME "..\bitmaps\rainbow.bmp" 

   DEFINE DIALOG oDlg RESOURCE "Test" BRUSH oBrush TRANSPARENT

   REDEFINE RADIO oRad VAR nVal ID 10 OF oDlg
   
   REDEFINE CHECKBOX oCbx VAR lVal ID 20 OF oDlg
   
   REDEFINE GROUP oGrp ID 30 OF oDlg
   
   REDEFINE BUTTON ID 1 OF oDlg ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED
   
   oBrush:End()

return nil

TestTrn2.rc

Code (fw): Select all Collapse

#ifdef __FLAT__ 
   1 24 "winxp\WindowsXP.Manifest" 
#endif 

test DIALOG 17, 36, 185, 147
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Test"
FONT 8, "MS Sans Serif"
{
 GROUPBOX "Group", 30, 18, 26, 145, 62, BS_GROUPBOX
 RADIOBUTTON "Radio", 10, 30, 54, 32, 12, BS_AUTORADIOBUTTON
 CHECKBOX "Checkbox", 20, 79, 54, 46, 12, BS_AUTOCHECKBOX | WS_TABSTOP
 DEFPUSHBUTTON "OK", 1, 67, 128, 50, 14
}

regards, saludos

Antonio Linares
www.fivetechsoft.com

MGA

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

Re: Atualizar FWH912 - Group box recurso
Posted: Sat Jan 02, 2010 10:14 AM

Sr. Antonio,
Eu só citei FWH\samples\TestTrn2.prg, como exemplo, eu não estou usando BRUSH. VEJA:

define font fonte_cf name 'Times New Roman' size -0,40 bold

define dialog pemdlg resource "FILTRO66" font ownd:ofont icon oicon

redefine group oegets[2] prompt "Mesa:" id 105 of pemDlg

redefine get oegets[1] var nMesa id 100 of pemDlg picture "999999"

redefine buttonbmp ...
redefine buttonbmp ...
redefine buttonbmp ...

pemdlg:lhelpicon:=.f.
activate dialog pemdlg center
fonte_cf:end()

PELLES, RC:

FILTRO66 DIALOG DISCARDABLE 78, 61, 247, 58
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Cancela SolicitaþÒo de Fechamento"
FONT 8, "MS Sans Serif"
{
CONTROL "", 100, "Edit", ES_RIGHT|ES_AUTOHSCROLL|WS_VSCROLL|WS_BORDER|WS_TABSTOP, 13, 15, 108, 29
CONTROL "&Cancelar ", 150, "Button", WS_TABSTOP, 130, 8, 69, 20
CONTROL "&Abandonar", 160, "Button", WS_TABSTOP, 130, 31, 69, 20
CONTROL "", 4002, "Button", WS_TABSTOP, 202, 8, 39, 43
CONTROL "N·mero:", 105, "Button", BS_GROUPBOX|WS_GROUP, 7, 4, 120, 46
}

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Atualizar FWH912 - Group box recurso
Posted: Sat Jan 02, 2010 10:44 PM

SGS,

Por favor sube esta línea para que sea el primer control del diálogo en el recurso:

CONTROL "N·mero:", 105, "Button", BS_GROUPBOX|WS_GROUP, 7, 4, 120, 46

regards, saludos

Antonio Linares
www.fivetechsoft.com

MGA

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM