I've successfully used DCs in both 98 and 2k. I found that the Arc function
fails in 98, but lines and multilines work fine. I'm guessing you have to
define pens and brushes first.

        $pen = new Win32::GUI::Pen
        (
                -style => 0,
                -width => 1,
                -color => 0x0000FF,
        );
        $dc = $Main->GetDC ();
        $dc->SelectObject ($pen);
        $dc->MoveTo (...
        $dc->LineTo (...
[...]
        $blue  = [ 51, 102, 255];
        $Pb5   = new Win32::GUI::Pen   (-color => 0x000000, -width => 5);
        $Bblu  = new Win32::GUI::Brush ($blue);
        @_ = (180, 200, 100, $pitch + $roll, 180 - 2 * $pitch);
        $dc->BeginPath();
        $dc->Arc (@_[0..3], 0);
        $dc->AbortPath();                       # just to position pen on
arc
        $dc->SelectObject($Pb5);        # thick black line
        $dc->SelectObject($Bblu);       # blue background
        $dc->BeginPath();
        $dc->Arc (@_);                  # this fails on windows 9x
        $dc->CloseFigure();             # but works fine under 2k
        $dc->EndPath();
        $dc->StrokeAndFillPath();


> -----Original Message-----
> From: Chris Ingrassia [mailto:[EMAIL PROTECTED]
> Sent: Friday, June 14, 2002 06:31
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: [perl-win32-gui-users] Win2k/DeviceContext Problems?
> 
> 
> 
>       Related to my last message - has anyone experienced any 
> problems using
> DeviceContexts
> on Windows 2000?  I tried using my DrawIcon and simple LineTo 
> code at home
> using the same version of ActivePerl and the PPM distribution 
> v556 and v650,
> and both worked great.  I got back here and ran the same code, only to
> discover it still doesn't work.  I suspect this means that 
> for whatever
> reason drawing to the Device Context in windows 2000 is 
> broken?  Can anyone
> fill me in on this?
> 
> thanks,
> 
> chris
> 
> 
> _______________________________________________________________
> 
> Don't miss the 2002 Sprint PCS Application Developer's Conference
> August 25-28 in Las Vegas - 
http://devcon.sprintpcs.com/adp/index.cfm?source=osdntextlink

_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

Reply via email to