64bit Font original code be changed-Solved

[richard-service]

Dear Antonio, Mr.Rao

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



Look 2206 build Application screen shot
Win10 and Win11 problem.


Same as full source code。
I use it below:

Code: Select all | Expand

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

[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.)
 

[Antonio Linares]

Dear Richard,

Have you solved it ?

[richard-service]

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