Page 1 of 1

64bit Font original code be changed-Solved

Posted: Wed Aug 03, 2022 9:45 am
by richard-service
Dear Antonio, Mr.Rao

Look 2017 build Application screen shot。
Win10 and Win11 no problem。

Image

Look 2206 build Application screen shot
Win10 and Win11 problem.
Image

Same as full source code。
I use it below:

Code: Select all | Expand


DEFINE FONT oFontGraph NAME "MS Sans Serif" SIZE 0,-10
 

Re: 64bit Font original code be changed-Solved

Posted: Mon Aug 08, 2022 1:02 am
by richard-service
Tgraph Need to Redeclare the variable When use FWH2206
But FWH170x NO Redeclare the variable and work fine.

Code: Select all | Expand


oGraph:aFont[x] := TFont():New("MS Sans Serif",0,-12,.F.,.f.,0,0,,.F.,.F.,.F.)
 

Re: 64bit Font original code be changed-Solved

Posted: Mon Aug 08, 2022 7:21 am
by Antonio Linares
Dear Richard,

Have you solved it ? :-)

Re: 64bit Font original code be changed-Solved

Posted: Tue Aug 09, 2022 4:11 am
by richard-service
Antonio Linares wrote:Dear Richard,

Have you solved it ? :-)


Dear Antonio,

Look it below:

Code: Select all | Expand


oGraph:aFont[1] := TFont():New("Arial Unicode MS",0,-12,.f.,.f.,0,0,,.f.,.f.,.f.) // Title
oGraph:aFont[2] := TFont():New("Arial Unicode MS",0,-12,.F.,.f.,0,0,,.F.,.F.,.F.) // xFont
oGraph:aFont[3] := TFont():New("Arial Unicode MS",0,-12,.F.,.f.,0,0,,.F.,.F.,.F.) // yFont
oGraph:aFont[4] := TFont():New("Arial Unicode MS",0,-10,.F.,.f.,0,0,,.F.,.F.,.F.) // Legends
oGraph:aFont[5] := TFont():New("Arial Unicode MS",0,-12,.F.,.f.,0,0,,.F.,.F.,.F.) // Subtitle
oGraph:aFont[6] := TFont():New("Arial Unicode MS",0,-12,.F.,.f.,0,0,,.F.,.F.,.F.) // xTitle
oGraph:aFont[7] := TFont():New("Arial Unicode MS",0,-12,.F.,.f.,0,0,,.F.,.F.,.F.) // yTitle
oGraph:aFont[8] := TFont():New("Arial Unicode MS",0,-12,.F.,.f.,0,0,,.F.,.F.,.F.) // Values