FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour PROBLEMA CON :oDataFont en XBROWSE FWH16.02
Posts: 182
Joined: Wed Nov 08, 2006 11:44 PM
PROBLEMA CON :oDataFont en XBROWSE FWH16.02
Posted: Fri Mar 04, 2016 08:55 AM
En el xbrowse seteo la font de una columna
DEFINE FONT oFont NAME 'ARIAL' SIZE 0,10 BOLD

la uso como letra de la columna 1
oBrw:aCols[1]:oDataFont := oFont

y pasa esto, las celdas se van pintando con la letra a medida que el cursor pasa por encima de ellas,
no las muestra al inicio

inicio


muevo el cursor hacia abajo


llego al final


Saludos
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: PROBLEMA CON :oDataFont en XBROWSE FWH16.02
Posted: Fri Mar 04, 2016 10:36 PM
I can not see the images.

Datafont is working correctly for us in all our tests and our own software running with out clients.

First please try this example:
Code (fw): Select all Collapse
#include "fivewin.ch"

function main()

   local oWnd,oFont,oBold, oBrw

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12
   DEFINE FONT oBold NAME "ARIAL"  SIZE 0,-18 BOLD

   USE \FWH\SAMPLES\CUSTOMER
   DEFINE WINDOW oWnd
   oWnd:SetFont( oFont )
   @ 0,0 XBROWSE oBrw OF oWnd ALIAS "CUSTOMER" ;
      COLUMNS "First", "City", "Salary" ;
      CELL LINES NOBORDER

   oBrw:aCols[ 1 ]:oDataFont := oBold
   oBrw:CreateFromCode()
   oWnd:oClient := oBrw

   ACTIVATE WINDOW oWnd CENTERED
   RELEASE FONT oFont,oBold

return nil

Build this sample with buildx.bat or buildh.bat


Please test if this sample works correctly.

Please post a self contained sample, which we can build and test at our end, to reproduce your problem.

Note: In case you make this assignment of oDataFont after the XBrowse is active, then you should also call oBrw:Refresh() after the assignment. The behavior is the same in all versions 10.01 or 16.02
Regards



G. N. Rao.

Hyderabad, India

Continue the discussion