Desktop Resolution x,y,c - GameCreators Forum

Author

Message

Andy Igoe

22

Years of Service

User Offline

Joined: 6th Oct 2002

Location: United Kingdom

Posted: 10th Jun 2003 01:14

Link

This has almost been seen before but i've added support for 16 and 32 bit colour depths:

+ Code Snippet

   load dll "user32.dll",1 
      x=call dll(1,"GetSystemMetrics",0) 
      y=call dll(1,"GetSystemMetrics",1) 
      c=call dll(1,"GetSysColor",0) 
      if c=13160664 then c=16 
      if c=13160660 then c=32 
   delete dll 1 

   set display mode x,y,c

Pneumatic Dryll
http://www.users.globalnet.co.uk/~thane/char01.jpg[/img]

Back to top

Profile PM Email Website

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 10th Jun 2003 02:58

Link

I don't mean to be critical, but your colour check *only* works if you are using certain windows styles.

You need a little more to get the depth under all circumstances - but not a lot more.

+ Code Snippet

hdc as dword

load dll "user32.dll",1
load dll "gdi32.dll", 2

x=call dll(1,"GetSystemMetrics",0)
y=call dll(1,"GetSystemMetrics",1)

` Get the device context for the entire display
hdc=call dll(1, "GetDC", 0)

` Get the 'bits per pixel' setting
c=call dll(2, "GetDeviceCaps", hdc, 12)

` Release the device context
call dll 1, "ReleaseDC", 0, hdc

print x
print y
print c

delete dll 1
delete dll 2
wait key

Back to top

Profile PM Email Website

Andy Igoe

22

Years of Service

User Offline

Joined: 6th Oct 2002

Location: United Kingdom

Posted: 10th Jun 2003 13:45

Link

Thankyou for the correction Ian, my first foray into learning about Windows .dll commands - and I get it wrong, unsuprisingly.