topic-26302

Board index FiveWin para Harbour/xHarbour Error en Botones desde recursos

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

Error en Botones desde recursos
Posted: Mon May 13, 2013 10:39 AM

He usado el el ejemplo TestDlgr.prg , cambiando el codigo para que quede asi :
Defino una fuente y le asigno el fuente en los botones para que su texto sea mas grande , pero no funciona.
Saludos a todos

Code (fw): Select all Collapse

// A dialog box from resources

#include "FiveWin.ch"

function Main()

   local oDlg, cTest := "Hello world     "
   local oFont 
   
   DEFINE FONT ofont NAME "verdana" SIZE 0,-16
   
   DEFINE DIALOG oDlg RESOURCE "Test" 
   
   REDEFINE GET cTest ID 100 OF oDlg
   
   REDEFINE BUTTON ID 1 OF oDlg ACTION oDlg:End() FONT oFont

   REDEFINE BUTTON ID 2 OF oDlg ACTION oDlg:End() FONT oFont
   
   ACTIVATE DIALOG oDlg CENTERED
   
return nil

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Error en Botones desde recursos
Posted: Mon May 13, 2013 12:42 PM

Code (fw): Select all Collapse

// A dialog box from resources

#include "FiveWin.ch"

function Main()

   local oDlg, cTest := "Hello world     "
   local oFont

   DEFINE FONT ofont NAME "verdana" SIZE 0,-16
   
   DEFINE DIALOG oDlg RESOURCE "Test" FONT oFont
   
   REDEFINE GET cTest ID 100 OF oDlg
   
   REDEFINE BUTTON ID 1 OF oDlg ACTION oDlg:End()

   REDEFINE BUTTON ID 2 OF oDlg ACTION oDlg:End()
   
   ACTIVATE DIALOG oDlg CENTERED

   oFont:End()
   
return nil


// Ó
/*
function Main()

   local oDlg, cTest := "Hello world     "
   local oFont, oBtn1, oBtn2

   DEFINE FONT ofont NAME "verdana" SIZE 0,-16
   
   DEFINE DIALOG oDlg RESOURCE "Test" // FONT oFont
   
   REDEFINE GET cTest ID 100 OF oDlg
   
   REDEFINE BUTTON oBtn1 ID 1 OF oDlg ACTION oDlg:End()

   REDEFINE BUTTON oBtn2 ID 2 OF oDlg ACTION oDlg:End()

   SET FONT OF oBtn1      TO oFont
   SET FONT OF oBtn2      TO oFont

   // Ó
   //SET FONT OF oDlg       TO oFont  // Font en todo el dialogo
   
   ACTIVATE DIALOG oDlg CENTERED

   oFont:End()
   
return nil
*/

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

mastintin

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

Re: Error en Botones desde recursos
Posted: Mon May 13, 2013 02:26 PM

Esa solución la tenía ya como "rodeo al problema" , pero no es la forma correcta (creo yo ) de como debe funcionar .
He usado este ejmplo por simplificar el problema , en el dialogo original existe aproximadamente 30 controles mas que deben ir con otra tipografía ,asi que lo correcto seria asignar la tipografia mayoritaria al dialogo y el funete especial a los botones .
Supongamos este otro codigo :

Code (fw): Select all Collapse

function Main()

   local oDlg, cTest := "Hello world     "
   local oFont
  DEFINE FONT ofont1 NAME "verdana" SIZE 0,-12
  DEFINE FONT ofont2 NAME "verdana" SIZE 0,-16
   DEFINE FONT ofont3 NAME "verdana" SIZE 0,-14

    
   DEFINE DIALOG oDlg RESOURCE "Test" FONT oFont3
   
   REDEFINE GET cTest ID 100 OF oDlg
   
   REDEFINE BUTTON ID 1 OF oDlg ACTION oDlg:End() FONT oFont1

   REDEFINE BUTTON ID 2 OF oDlg ACTION oDlg:End() FONT oFont2
   
   ACTIVATE DIALOG oDlg CENTERED

   oFont:End()
   
return nil

FiveTech Support Forums

Continue the discussion