>Hi Everybody
>First of all I must say I'm completely new to the Win32::GUI module
>programming
> (and Win32 in general) - I just installed (on Win'98 and latest version
>of ActiveState Perl) binary version fetched from sourceforge. Getting to
>the point - to get the length and
>width of some font text I tried to use GetTextExtentPoint32 t but I failed
>to find the
>way to specify font to be affected in return value.
>I tried:
>
>1)
>$Window->GetTextExtentPoint32($font, "some text");
>
>2)
>$Window->SelectObject($Window->{DC}, $font);
>$Window->GetTextExtentPoint32("some text");
>
>3)
>$Window->SetFont($font);
>$Window->GetTextExtentPoint32("some text");
>
>In both cases $font was created by new WIN32::GUI::Font method and
>successfully aplied to Paint method (TextOut). No matter the -size and
>-name was the return value was the same.
($width,$height) = $Window->GetTextExtentPoint32($text,$FontObject);
_________________________________________________________________
Send and receive Hotmail on your mobile device: http://mobile.msn.com
|
