FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour How to get win10 setup display value
Posts: 866
Joined: Tue Oct 16, 2007 08:57 AM
How to get win10 setup display value
Posted: Mon Oct 25, 2021 09:19 AM
Hi

Win10->Setup->Display
(Change the size of text, apps, and other items)

How to get this value?

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
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: How to get win10 setup display value
Posted: Mon Oct 25, 2021 08:26 PM
Code (fw): Select all Collapse
#include "fivewin.ch"

procedure main()
    ?fw_fscale(), fw_fscale()*100
return

#pragma BEGINDUMP

#include "hbapi.h"
#include <windows.h>

/*-----------------------------------------------------------------------------*/

HB_FUNC( FW_FSCALE )
{
   HWND hWnd = GetActiveWindow();
   HDC hdc = GetDC( hWnd );
   float fScale = GetDeviceCaps( hdc, LOGPIXELSX ) / 96.0f;
   ReleaseDC( hWnd, hdc );

   hb_retnd( (double) fScale );
}

/*-----------------------------------------------------------------------------*/

#pragma ENDDUMP
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: How to get win10 setup display value
Posted: Tue Oct 26, 2021 08:33 AM
carlos vargas wrote:
Code (fw): Select all Collapse
#include "fivewin.ch"

procedure main()
    ?fw_fscale(), fw_fscale()*100
return

#pragma BEGINDUMP

#include "hbapi.h"
#include <windows.h>

/*-----------------------------------------------------------------------------*/

HB_FUNC( FW_FSCALE )
{
   HWND hWnd = GetActiveWindow();
   HDC hdc = GetDC( hWnd );
   float fScale = GetDeviceCaps( hdc, LOGPIXELSX ) / 96.0f;
   ReleaseDC( hWnd, hdc );

   hb_retnd( (double) fScale );
}

/*-----------------------------------------------------------------------------*/

#pragma ENDDUMP


nice!!
do U have another sample features ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 866
Joined: Tue Oct 16, 2007 08:57 AM
Re: How to get win10 setup display value
Posted: Tue Oct 26, 2021 09:00 AM
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
Posts: 866
Joined: Tue Oct 16, 2007 08:57 AM
Re: How to get win10 setup display value
Posted: Tue Oct 26, 2021 09:02 AM
carlos vargas wrote:
Code (fw): Select all Collapse
#include "fivewin.ch"

procedure main()
    ?fw_fscale(), fw_fscale()*100
return

#pragma BEGINDUMP

#include "hbapi.h"
#include <windows.h>

/*-----------------------------------------------------------------------------*/

HB_FUNC( FW_FSCALE )
{
   HWND hWnd = GetActiveWindow();
   HDC hdc = GetDC( hWnd );
   float fScale = GetDeviceCaps( hdc, LOGPIXELSX ) / 96.0f;
   ReleaseDC( hWnd, hdc );

   hb_retnd( (double) fScale );
}

/*-----------------------------------------------------------------------------*/

#pragma ENDDUMP


Thank you. I will try it.
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

Continue the discussion