INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

Usefull Functions & Procedures

How to calculate twips to pixels by mgagnon
Posted: 21 Sep 03

Twips is a unit of measure sometimes used in calculating picture resolution.


#DEFINE TWIPS_IN_CM 567
#DEFINE HWND_DESKTOP 0
#DEFINE LOGPIXELSX 88
#DEFINE LOGPIXELSY 90

?TwipsToMM(5300)
?TwipsPerPixelX()
?TwipsPerPixelY()

FUNCTION TwipsToMM
 LPARAMETER tnTwips
 RETURN INT(((tnTwips + 0.0005) / TWIPS_IN_CM) * 10)
ENDFUNC

FUNCTION TwipsPerPixelX
 LOCAL lnDC, lnTwipsPerpixelX
 DECLARE LONG GetDC IN "user32" LONG hwnd
 DECLARE LONG ReleaseDC IN "user32" LONG hwnd, LONG hdc
 DECLARE LONG GetDeviceCaps IN "gdi32" LONG hdc, LONG nIndex
 lnDC = GetDC(HWND_DESKTOP)
 lnTwipsPerpixelX = 1440 / GetDeviceCaps(lnDC, LOGPIXELSX)
 ReleaseDC(HWND_DESKTOP, lnDC)
 RETURN lnTwipsPerpixelX
ENDFUNC

FUNCTION TwipsPerPixelY
 LOCAL lnDC
 DECLARE LONG GetDC IN "user32" LONG hwnd
 DECLARE LONG ReleaseDC IN "user32" LONG hwnd, LONG hdc
 DECLARE LONG GetDeviceCaps IN "gdi32" LONG hdc, LONG nIndex
 lnDC = GetDC(HWND_DESKTOP)
 lnTwipsInPixelY = 1440 / GetDeviceCaps(lnDC, LOGPIXELSY)
 ReleaseDC(HWND_DESKTOP, lnDC)
 RETURN lnTwipsInPixelY
ENDFUNC

Mike Gagnon

Back to Microsoft: Visual FoxPro FAQ Index
Back to Microsoft: Visual FoxPro Forum

My Archive

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close