Mr Rao
I have several xbrowse that do not show the font they were supposed to show. They are all used from resources.
With fwh 13.02 (my previous version) this is not happening,
All my xbrowse use the same font retreived from a function , i have put msginfo and the font is correct so i think something wrong has been introduced as per fonts.
Anyone has noticed this ?
Richard
Richard,
How are you assigning the font to the xbrowse ?
Does that function that returns a font, simply return a static variable ? Please show that code, thanks
DEFINE FONT aFONT NAME "Segoe UI Light" SIZE 0,-14
REDEFINE XBROWSE oBrw ID 201 OF ODLG ;
COLUMNS 02,34,4,22,31,23,6,7,8,24,21 ;
HEADERS "Date" + CRLF + "Création","Style", "N°" + CRLF + "Devis","Client","Date" + CRLF + "Impression","Téléphone","Total" + CRLF + "HT","Total" + CRLF + "TTC","Total" + CRLF + "Acomptes",;
"Référence","Taux" + CRLF + "Tva";
FOOTERS ;
FONT aFont ;
COLORS {|| { CLR_BLUE, CLR_WHITE } } ;
COLSIZES asize ;
array TVISU lines AUTOSORT#include "FiveWin.ch"
#include "XBrowse.ch"
function Main()
local oDlg, oFld, oBrw1, oBrw2
local aDat1, aDat2, aFont
aDat1:={{"Row1-Col1","Row1-Col2","Row1-Col3"},;
{"Row2-Col1","Row2-Col2","Row2-Col3"},;
{"Row3-Col1","Row3-Col2","Row3-Col3"},;
{"Row4-Col1","Row4-Col2","Row4-Col3"}}
aDat2:={{"ROW1-COL1","ROW1-COL2","ROW1-COL3"},;
{"ROW2-COL1","ROW2-COL2","ROW2-COL3"},;
{"ROW3-COL1","ROW3-COL2","ROW3-COL3"},;
{"ROW4-COL1","ROW4-COL2","ROW4-COL3"}}
DEFINE FONT aFONT NAME "Segoe UI Light" SIZE 0,-16
DEFINE DIALOG oDlg RESOURCE "Test"
REDEFINE FOLDER oFld ;
PROMPTS "One", "Two" ;
DIALOGS "One", "Two" ;
ID 100 OF oDlg
REDEFINE XBROWSE oBrw1 ID 10 OF oFld:aDialogs[ 1 ] ARRAY aDat1 AUTOCOLS FONT aFont
REDEFINE XBROWSE oBrw2 ID 10 OF oFld:aDialogs[ 2 ] ARRAY aDat2 AUTOCOLS FONT aFont
oBrw1:aCols[ 2 ]:nEdittype := EDIT_BUTTON
oBrw1:aCols[ 2 ]:bEditBlock := { || MsgYesNo( "Please select" ) }
oBrw2:aCols[ 2 ]:nEdittype := EDIT_GET
ACTIVATE DIALOG oDlg CENTERED
return nilAntonio
I added xbrowse.prg from fwh 13.02 to my project and now again all my browses look as they should.
I think there is a problem, let us wait for other users.
I am trying to find what has changed between 13.02 (my previous version) and 13.05 on the font part in xbrowse.prg.
Richard
Richard,
Would you mind to test foldxbrw.prg modified as I have commented ?
As soon as I am able to reproduce the behavior, then I can see whats wrong
Antonio
There is no test.rc in the samples , is it supposed to be from test.dll ?
Richard
Mr Chidiak
I am testing. Please give us a little time.
Mr Chidiak
The problem is experienced when source is Array and AUTOSORT clause is used. We agree this is bug introduced in FWH 13.05. While we are preparing fix, I shall be very glad if you can remove "AUTOSORT" and confirm that the fonts are properly displayed.
Mr Rao
Thank you for your efforts, i appreciate your help
Richard
Mr Rao
You pointed in the correct direction
the problem comes from array and autosort , removing the autosort makes the font display as it should.
Richard
::oBrw:Refresh() if ::oBrw:lAdjusted // 2013-06-11
::oBrw:Refresh()
endifMr Rao
The change is OK , problem solved
Thank you
Richard
Mr Rao
The font issue is fixed but there is a bad side effect , the cursor now is focused on the end of the array (last row) instead of the first one
Richard
[Browse]
MVIndicator=1
MVSeparatorH=2
MVSeparatorV=1
MVRidimension=2
MVMove=2
MVPijama=2
MVEffectWin7=1
MVColor1=7031871
MVColor2=204
MVBackGrid=1
MVBrwFont=Tahoma:12:Normal;Tahoma:12:Normal;Tahoma:12:Normal;
MVState=XS1:{{"_nCreationOrders",{1,2,3,4,5,6,7,8,9,10,11}},{"_nRowHeight",28},{"_nWidths",{100,30,70,80,90,80,100,100,100,100,100}},{"_lHides",{.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.}},{"_cGrpHdrs",{,,,,,,,,,,}},{"_cHeaders",{"Attività","Tipo","Data","Numero","Causale","Conto