Atualização fivewin e classe tFolder

[AnaCatacombs]

Bom dia caros colegas. Atualizei minha versão do fivewin(da versão 8.01 para 13.03) e do xharbour (da versão 1.0.0 para 1.2.3), e notei que após a atualização, os Folders (classe tFolder) estão com uma fonte diferente da dialog. Crio minhas dialogs no PELLES, e o Style da dialog do folder está como CHILD, e o Style da dialog está como Overlapped. Tentei alterar a fonte no Pelles ou na propriedade oFont do componente, mas não resolveu. Alguém tem alguma dica?

[]'s

Ana

[kapiaba]

Como você controla as fontes do dialogo?

[AnaCatacombs]

Oi Kapi, tudo bom?

Não controlo, crio a dialog no pelles e não altero a fonte em lugar nenhum.

[kapiaba]

Em fivewin, voce controla as fontes diretamente no módulo.

Podes usar o SET FONT ou FONT oFont direto no dialogo.

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=24099&p=129835&hilit=font+en+folder#p129835

Olha que Show()

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=20894&p=110977&hilit=font+en+folder#p110977

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=19650&p=103643&hilit=font+en+folder#p103643

abs,

[AnaCatacombs]

Kapiaba, nenhuma dessas alternativas funcionou.

[kapiaba]

Mostre uma imagem do que está ocorrendo porfa...

[kapiaba]

// aqui funcionou normal, salve no \samples e teste.

#include "FiveWin.ch"

#include "folder.ch"


static oWnd


FUNCTION Main()


   DEFINE WINDOW oWnd FROM 5,5 TO 25, 75 ;

          TITLE "Folders Test" ;

          MENU BuildMenu()


ACTIVATE WINDOW oWnd


RETURN(NIL)

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

FUNCTION BuildMenu()


   LOCAL oMenu


   MENU oMenu


      MENUITEM "Test Folders"


      MENU

         MENUITEM "Test Single Line Folder" ACTION SnglFold()

         MENUITEM "Test MULTILINE Folder"  ACTION MultiFold()

         MENUITEM "Close Window" ACTION oWnd:End()

      ENDMENU


   ENDMENU


RETURN(oMenu)

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

FUNCTION MultiFold()


   local oDlg, oFld  

   local oGet1, cGet1 := "This is a Test!", oGet2, cGet2, oGet3, cGet3

   local oGet4, cGet4, oGet5, cGet5, oGet6, cGet6, oGet7, cGet7, oget8, cGet8

   LOCAL oFnt, oFont


   //DEFINE FONT oFont NAME GetSysFont()     SIZE 0, -9

   DEFINE FONT oFnt   NAME "Ms Sans Serif" SIZE 0,  14 BOLD //UnderLine

   DEFINE FONT oFont  NAME "Ms Sans Serif" SIZE 0, -14 BOLD //UnderLine


   DEFINE DIALOG oDlg RESOURCE "Shel_ent" of oWnd FONT oFont


   REDEFINE FOLDER oFld ID 11 of oDlg ;

            PROMPT  "Identification","Composition", "Phys. Properties","Fire, Explosion", "Reactivity", "HazardEval", "Chronic Hazards", "Other Info" ;

            DIALOGS "create_1",      "create_2",    "create_3",        "create_4",        "create_5",   "create_6",   "create_7",        "create_8"


   REDEFINE GET oGet1 VAR cGet1 ID 101 of oFld:aDialogs[1] UPDATE

   REDEFINE GET oGet2 VAR cGet2 ID 101 of oFld:aDialogs[2] UPDATE

   REDEFINE GET oGet3 VAR cGet3 ID 101 of oFld:aDialogs[3] UPDATE

   REDEFINE GET oGet4 VAR cGet4 ID 101 of oFld:aDialogs[4] UPDATE

   REDEFINE GET oGet5 VAR cGet5 ID 101 of oFld:aDialogs[5] UPDATE

   REDEFINE GET oGet6 VAR cGet6 ID 101 of oFld:aDialogs[6]

   REDEFINE GET oGet7 VAR cGet7 ID 101 of oFld:aDialogs[7]

   REDEFINE GET oGet8 VAR cGet8 ID 101 of oFld:aDialogs[8]


   REDEFINE BUTTON ID 10 of oDlg ACTION MsgInfo("OK Action is Here!")


   REDEFINE BUTTON ID 2 of oDlg ACTION oDlg:End()


   REDEFINE BUTTON ID 998 OF oDlg ACTION MsgInfo("Help Will be here")


   ACTIVATE DIALOG oDlg CENTERED RESIZE16 ;

      ON INIT oFld:AdjustRect() // only if using RESIZE16


RETURN(NIL)


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


FUNCTION SnglFold()


   LOCAL oDlg, oFld, oGet1, cGet1, oFnt, oFont



   //DEFINE FONT oFont NAME GetSysFont()     SIZE 0, -9

   DEFINE FONT oFnt   NAME "Ms Sans Serif" SIZE 0,  14 BOLD //UnderLine

   DEFINE FONT oFont  NAME "Ms Sans Serif" SIZE 0, -14 BOLD //UnderLine


   DEFINE DIALOG oDlg RESOURCE "shel_ent" OF oWnd ;

          TITLE "Single Line Folder" FONT oFont


    REDEFINE FOLDER oFld ID 11 OF oDlg  ;

             PROMPT "Identification","PELs, RQs", "TOX Ratings","Chronic Hazards", "HMIS ", "International Lists"  ;

             DIALOGS "dialog_1", "dialog_2", "dialog_3", "dialog_4", "dialog_5", "Dialog_6", "Dialog_7"


   REDEFINE GET oGet1 VAR cGet1 ID 101 of oFld:aDialogs[1] UPDATE

   REDEFINE GET oGet1 VAR cGet1 ID 101 of oFld:aDialogs[2] UPDATE

   REDEFINE GET oGet1 VAR cGet1 ID 101 of oFld:aDialogs[3] UPDATE

   REDEFINE GET oGet1 VAR cGet1 ID 101 of oFld:aDialogs[4] UPDATE

   REDEFINE GET oGet1 VAR cGet1 ID 101 of oFld:aDialogs[5] UPDATE

   REDEFINE GET oGet1 VAR cGet1 ID 101 of oFld:aDialogs[6]

   REDEFINE GET oGet1 VAR cGet1 ID 101 of oFld:aDialogs[7]


   REDEFINE BUTTON ID 10 of oDlg ACTION MsgInfo("OK Action is Here!")


   REDEFINE BUTTON ID 2 of oDlg ACTION oDlg:End()


   REDEFINE BUTTON ID 998 OF oDlg ACTION MsgInfo("Help Will be here")


   ACTIVATE DIALOG oDlg CENTERED RESIZE16


RETURN(NIL)


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

[kapiaba]

Você fez todas as atualizações do FIVEWIN e XHARBOUR até a versão 13.06 igual a minha?

Iniciei com a 13.03, veio a 13.04, 13.05 e 13.06 - Enviada pelo Gilmer, inclusive com a última versão do XHARBOUR.

abs.

[kapiaba]

o Style da dialog está como Overlapped?? É a folder principal?? Se sim, tem que ser POPUP.

abs,

[kapiaba]

Inclusive, tem um erro na TGET.PRG da nossa versão que deve ser corrigido, veja:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=27088

Minha TGET.PRG e minha WINDOW.PRG Tá toda "redonda". kkkkkkkkkkkkkkk

abs,