[perl-win32-gui-users] Maintaining text size across different Windows Operating Systems

[John W. <jo...@jo...>]

Hello:

My Win32::GUI app has text in the window, and when run on Windows 7, versus
98 or XP, the size of the text in pixels changes.  Is there a way to keep
the text size consistant, pixel wise, across the different operating
systems?  Here is an image showing how it differs, Windows 7 vs Win98...

   http://www.johnwhitney.com/tmp/tmp.jpg

Here is my code for my test program...

#!perl -w
#  Perl text size test 1

use strict ; use warnings ; use Win32::GUI 1.05 qw () ; use constant
G_VERSION => 'Ver 1.1' ;

# Define fonts
my $font1 = new Win32::GUI::Font ( -name => 'Arial'         , -size => 10 )
;
my $font2 = new Win32::GUI::Font ( -name => 'Verdana'       , -size => 10 )
;
my $font3 = new Win32::GUI::Font ( -name => 'Courier New'   , -size => 10 )
;

my $window_main = Win32::GUI::Window -> new ( -title => "Perl text size
tests: " . G_VERSION , -pos => [ 300 , 300 ] , -size => [ 500 , 300 ]
, -background => 0xffffff ) ;

my $window_main_t1 = new Win32::GUI::Label ( $window_main , -text => "Text
1" , -name => 'window_main_t1' , -font => $font1 , -size => [ 100 , 18 ]
, -background => 0xd0d0d0 , -pos => [ 17 , 38 ] ) ;
my $window_main_t2 = new Win32::GUI::Label ( $window_main , -text => "Text
2" , -name => 'window_main_t2' , -font => $font2 , -size => [ 100 , 18 ]
, -background => 0xd0d0d0 , -pos => [ 17 , 58 ] ) ;
my $window_main_t3 = new Win32::GUI::Label ( $window_main , -text => "Text
3" , -name => 'window_main_t3' , -font => $font3 , -size => [ 100 , 18 ]
, -background => 0xd0d0d0 , -pos => [ 17 , 78 ] ) ;

# Add m1...
my $window_main_m1 = new Win32::GUI::Label ( $window_main , -text => ' '
, -name => 'window_main_m1' , -font => $font1 , -size => [ 50 , 18 ]
, -background => 0x808080 , -pos => [  17 , 18 ] ) ;
my $window_main_m2 = new Win32::GUI::Label ( $window_main , -text => ' '
, -name => 'window_main_m2' , -font => $font1 , -size => [ 50 , 18 ]
, -background => 0x909090 , -pos => [  67 , 18 ] ) ;
my $window_main_m3 = new Win32::GUI::Label ( $window_main , -text => ' '
, -name => 'window_main_m3' , -font => $font1 , -size => [ 50 , 18 ]
, -background => 0xA0A0A0 , -pos => [ 117 , 18 ] ) ;
my $window_main_m4 = new Win32::GUI::Label ( $window_main , -text => ' '
, -name => 'window_main_m4' , -font => $font1 , -size => [ 50 , 18 ]
, -background => 0xB0B0B0 , -pos => [ 167 , 18 ] ) ;
my $window_main_m5 = new Win32::GUI::Label ( $window_main , -text => ' '
, -name => 'window_main_m5' , -font => $font1 , -size => [ 50 , 18 ]
, -background => 0xC0C0C0 , -pos => [ 217 , 18 ] ) ;
my $window_main_m6 = new Win32::GUI::Label ( $window_main , -text => ' '
, -name => 'window_main_m6' , -font => $font1 , -size => [ 50 , 18 ]
, -background => 0xD0D0D0 , -pos => [ 267 , 18 ] ) ;

$window_main -> Show () ;

Win32::GUI::Dialog () ;
$window_main -> Hide () ;
exit ( 0 ) ;

John :-)
jo...@jo...
801 815 9265