64bit Font original code be changed-Solved

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

64bit Font original code be changed-Solved
Posted: Wed Aug 03, 2022 09:45 AM

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 (fw): Select all Collapse

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

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: 64bit Font original code be changed-Solved
Posted: Mon Aug 08, 2022 01:02 AM

Tgraph Need to Redeclare the variable When use FWH2206
But FWH170x NO Redeclare the variable and work fine.

Code (fw): Select all Collapse

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

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: 64bit Font original code be changed-Solved
Posted: Mon Aug 08, 2022 07:21 AM

Dear Richard,

Have you solved it ? :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: 64bit Font original code be changed-Solved
Posted: Tue Aug 09, 2022 04:11 AM

Antonio Linares wrote:Dear Richard,

Have you solved it ?

Dear Antonio,

Look it below:

Code (fw): Select all Collapse

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

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

FiveTech Support Forums

Continue the discussion