Check for screen size. Is possible?

[xVar]

Hi everybody!

I make my "first aplication", and probe run on PC device.
All work.

But my device have screen lager than device emulator, and some controls like smaller.
For example browse control have white area on bottom of screen.
Can I test my device for screen size in any way?

Regards.
Andrej.

[Antonio Linares]

Andrej,

Please try these values:

GetSysMetrics( 0 )
GetSysMetrics( 1 )

[xVar]

Thanks!

I wil try this.

Regards.

Andrej.

[xVar]

It's work.

But system tray in WinCE 5 is smaller than system tray in lastest versions of WinCE.
Can I check for OS version ?

Regards.
Andrej

[Antonio Linares]

Andrej,

Code: Select all

#include "FWCE.ch"

function Main()

   local oWnd
   
   DEFINE WINDOW oWnd TITLE "Version"
   
   @ 9, 2 BUTTON "Version" ;
      SIZE 210, 30 ACTION ShowVersion()

   ACTIVATE WINDOW oWnd
   
return nil   

function ShowVersion()

   local aVersion := GetVersion()
   
   MsgInfo( Str( aVersion[ 1 ] ) )
   MsgInfo( Str( aVersion[ 2 ] ) )
   MsgInfo( Str( aVersion[ 3 ] ) )
   MsgInfo( Str( aVersion[ 4 ] ) )
   
return nil            
 

[xVar]

Thanks Antonio!
Saludos
Andrej.