perl-win32-gui-users Mailing List for Win32::GUI

Hi All,
   i am trying to automate the GUI .
Gui has a small rectangle window which glows green if connected else it will
be gray.
i wanted to test this functionality using perl script.
Kindly help how to do this ....


Regards,
Sangeeta

Hi,
I'm not sure what you example code actually does:)? If I comment out all the code for SetLayeredWindowAttributes there is no change to the window? 
You'll probably want to set the background of the button to the same color as the window as any app with windows XP styles set will use rounded buttons.
To answer your questions, you shouldn't have any issue displaying bitmaps with transparancy, it's just a case of converting it to the correct object (I use icon's with 24 or 32 bit color). In most cases WS_CLIPCHILDREN will remove flicker on resize, but there is also a -noflicker option that works in some cases (it uses double buffering). Flicker free child windows with scroll bars are no problem as WS_CLIPCHILDREN will solve the flicker issue.   
Regards,
jez.
Date: Tue, 19 Oct 2010 23:44:55 -0600
From: rob...@gm...
To: per...@li...
Subject: [perl-win32-gui-users] Robust Windows








Hi all,



I'm trying to come up with the best approach for creating aesthetically
pleasing windows that:



- Have labels whose bitmap has transparency (.png files loaded by
DIBitmap)

- Don't exhibit any flicker

- Are layered windows (this seems to improve quality during
animation/transparency)

- Support child windows that can be scrolled and don't flicker



Below is the code I've come up with so far (without bitmap labels). Is
there anything else I should consider? Could I be doing something
better?





########## CODE BEGIN



use strict;

use Win32::GUI qw(WS_CLIPCHILDREN);

use Win32::API;



use constant WS_EX_LAYERED => 0x00080000;

use constant LWA_COLORKEY  => 0x00000001;

use constant LWA_ALPHA     => 0x00000002;

use constant GWL_EXSTYLE   => -20;



my $main = Win32::GUI::Window->new

(

    -background => [153,0,0],

    -pushstyle => WS_CLIPCHILDREN,

    -text      => 'Test',

    -size      => [500,500],

);



my $setLayeredWindowAttributes = Win32::API->new('user32',
'SetLayeredWindowAttributes', 'LLIN', 'I');

my $winstyle = $main->GetWindowLong(GWL_EXSTYLE);

$winstyle = $winstyle | WS_EX_LAYERED;

$main->SetWindowLong(GWL_EXSTYLE, $winstyle || WS_EX_LAYERED);

$setLayeredWindowAttributes->Call($main->{-handle}, 0, 255,
LWA_ALPHA);



my $OK = $main->AddButton

(

    -name => 'OK',

    -text => 'OK',

    -size => [80,25],

    -pos  => [10,10],

);



$main->Center();

$main->Show();

Win32::GUI::Dialog();



########## CODE
END





Thanks,

Rob




------------------------------------------------------------------------------
Download new Adobe(R) Flash(R) Builder(TM) 4
The new Adobe(R) Flex(R) 4 and Flash(R) Builder(TM) 4 (formerly 
Flex(R) Builder(TM)) enable the development of rich applications that run
across multiple browsers and platforms. Download your free trials today!
http://p.sf.net/sfu/adobe-dev2dev
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/ 		 	   		  

Rob,

You could try the Win32::GUI::Skin module on Sourceforge here 
<http://sourceforge.net/projects/win32-gui-skin/>.

Kevin.
> Hi,
>
> I'd like to create/skin my windows with custom shapes and/or images 
> (e.g. a PNG with transparency). I see that the SetWindowRgn() function 
> is available in Win32::GUI 1.06, but this is not the best approach 
> according to Microsoft (see this URL: 
> http://msdn.microsoft.com/en-us/library/ms997507.aspx). Instead they 
> recommend using the UpdateLayeredWindow() function, which doesn't seem 
> to be available in Win32::GUI by default. Before I to use 
> UpdateLayeredWindow() with help from Win32::API, does anyone have any 
> experience, recommendations, or code samples?
>
> Thanks,
> Rob Johansen
>
>
> ------------------------------------------------------------------------------
> Beautiful is writing same markup. Internet Explorer 9 supports
> standards for HTML5, CSS3, SVG 1.1,  ECMAScript5, and DOM L2&  L3.
> Spend less time writing and  rewriting code and more time creating great
> experiences on the web. Be a part of the beta today.
> http://p.sf.net/sfu/beautyoftheweb
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/

Hi,
If you do a search in this group you should find examples of skinning apps using UpdateLayeredWindow as a base. This function should be really added to the core at some point. Could you add an item on the tracker for this function (and related functions) once you've got your example working? That way it wont be lost for future updates.
http://sourceforge.net/tracker/?group_id=16572&atid=366572
Cheers,
jez.

Date: Fri, 8 Oct 2010 12:41:59 -0600
From: rob...@gm...
To: per...@li...
Subject: [perl-win32-gui-users] Custom window shapes








Hi,



I'd like to create/skin my windows with custom shapes and/or images
(e.g. a PNG with transparency). I see that the SetWindowRgn() function
is available in Win32::GUI 1.06, but this is not the best approach
according to Microsoft (see this URL:
http://msdn.microsoft.com/en-us/library/ms997507.aspx). Instead they
recommend using the UpdateLayeredWindow() function, which doesn't seem
to be available in Win32::GUI by default. Before I to use UpdateLayeredWindow() with help from Win32::API, does
anyone have any experience, recommendations, or code samples?



Thanks,

Rob Johansen






------------------------------------------------------------------------------
Beautiful is writing same markup. Internet Explorer 9 supports
standards for HTML5, CSS3, SVG 1.1,  ECMAScript5, and DOM L2 & L3.
Spend less time writing and  rewriting code and more time creating great
experiences on the web. Be a part of the beta today.
http://p.sf.net/sfu/beautyoftheweb
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/ 		 	   		  

Hello,
I was trying to use perl-Win32-gui "Label" in my project. I have a
requirement to change dynamically the text color and change the text(& text
size) of the label also. I can not use the text box instead of the label.

Keeping the label blank is not working as this reduces the size..




Thanks and Regards,
Shishir Srivastava

India-Bangalore

hi rob,

I wanted to use some peace of your code.
the main function is ok.
I want to use TextFields.
Is there a possibility to move all Labels, Textfields,... of an window?

When I try to work through the hash -> only the text field is moved but no prompt of it.

I've enclosed my testcode.

thx.
juergen

__CODE__

#!perl -w
use strict;
use warnings;

my %config = (
      config1           => 0,
      config2           => 0,
      config3           => "a"
);
use Win32::GUI 1.05 qw(
   SB_VERT SB_LINEUP SB_LINEDOWN SB_PAGEUP SB_PAGEDOWN
   SB_THUMBTRACK SB_THUMBPOSITION
);

my $window = Win32::GUI::DialogBox->new(
   -name => "scroll_test",
   -text => "Scroll Test",
   -size => [400, 400],
   -vscroll => 1,
   -onScroll => \&process_scroll,
);

  my $count = 0;
  foreach my $l (sort(keys %config))
  {
    $count = $count + 1;
    $window->AddTextfield(
      -name => "$l",
      -text => "$config{$l}",
      -tip  => "",
      -left => 35,
      -prompt => [ "$l:" , 150 ],
      -height => 20,
      -width => 200,
	    -top   => 25 + ($count * 20),
	    -width => 100,
	    -tabstop => 1,
    );
  }

$window->ScrollRange(SB_VERT, 0, 5 + (35 * 99) + $window->config1->Height());
$window->ScrollPage(SB_VERT, $window->ScaleHeight());

$window->Show();
Win32::GUI::Dialog();

sub process_scroll {
   my ( $self, $bar, $op, $pos ) = @_;

   my $prev_pos = $self->ScrollPos($bar);
   my $new_pos  = $prev_pos;

   if ( $op == SB_LINEUP ) {    # or SB_LINELEFT
       $new_pos -= 35;
   } elsif ( $op == SB_LINEDOWN ) {    # or SB_LINERIGHT
       $new_pos += 35;
   } elsif ( $op == SB_PAGEUP ) {      # or SB_PAGELEFT
       $new_pos -= $self->ScrollPage($bar);
   } elsif ( $op == SB_PAGEDOWN ) {    # or SB_PAGERIGHT
       $new_pos += $self->ScrollPage($bar);
   } elsif ( $op == SB_THUMBTRACK ) {
       $new_pos = $pos;
   } elsif ( $op == SB_THUMBPOSITION ) {
       $new_pos = $pos;
   }

   $new_pos = $self->ScrollPos( $bar, $new_pos );

   if ( $bar == SB_VERT ) {
        my $v_pos = 5;
           $v_pos += 35;

            foreach my $lab (sort(keys %config))
            {
              $self->{"$lab"}->Top($v_pos - $new_pos + 15);
            }
   }
   $self->Redraw(1);

   1;
}
__END__


-------- Original-Nachricht --------
> Datum: Thu, 1 May 2008 23:01:47 +0100
> Von: "Robert May" <ro...@th...>
> An: "Steven Vasilogianis" <ste...@gm...>
> CC: per...@li...
> Betreff: Re: [perl-win32-gui-users] Scrollbars

> 2008/4/30 Steven Vasilogianis <ste...@gm...>:
> > I have been having some trouble getting my scroll bars to work well. I
> >  have been modifying an example I found on Rob May's weblog
> >  (http://blog.robmay.me.uk/search/label/perl-win32-gui).
> >
> >  Sample code is included below. The problems I am having are:
> >
> >  1) The ScrollRange() call does not seem to be doing anything - I can
> >  scroll well beyond the range specified.
> 
> I don't think you can really.
> 
> >  2) SB_PAGE(UP|DOWN) events are not working at all
> 
> Because you never set the page size.
> 
> >  I am rather new to Win32::GUI and would appreciate any help.
> 
> Here's a minimally adapted version of your code that works for me.
> There are easier ways to do this, and you really need to see the next
> few examples in the series of scrollbar articles - I wrote the code at
> the same time as the first 7 articles, but haven't had time to turn
> them into full articles yet.  I will post to this list when I do.
> 
> Regards,
> Rob.
> 
> #!perl -w
> use strict;
> use warnings;
> 
> use Win32::GUI 1.05 qw(
>    SB_VERT SB_LINEUP SB_LINEDOWN SB_PAGEUP SB_PAGEDOWN
>    SB_THUMBTRACK SB_THUMBPOSITION
> );
> 
> my $window = Win32::GUI::DialogBox->new(
>    -name => "scroll_test",
>    -text => "Scroll Test",
>    -size => [400, 400],
>    -vscroll => 1,
>    -onScroll => \&process_scroll,
> );
> 
> my $v_pos = 5;
> for ( 1..100 ) {
>    $window->AddLabel(
>        -name => "label$_",
>        -text => "Label $_",
>        -pos => [5, $v_pos],
>        -size => [100, 30],
>    );
> 
>    $v_pos += 35;
> }
> 
> $window->ScrollRange(SB_VERT, 0, 5 + (35 * 99) +
> $window->label1->Height());
> $window->ScrollPage(SB_VERT, $window->ScaleHeight());
> 
> $window->Show();
> Win32::GUI::Dialog();
> 
> sub process_scroll {
>    my ( $self, $bar, $op, $pos ) = @_;
> 
>    my $prev_pos = $self->ScrollPos($bar);
>    my $new_pos  = $prev_pos;
> 
>    if ( $op == SB_LINEUP ) {    # or SB_LINELEFT
>        $new_pos -= 35;
>    } elsif ( $op == SB_LINEDOWN ) {    # or SB_LINERIGHT
>        $new_pos += 35;
>    } elsif ( $op == SB_PAGEUP ) {      # or SB_PAGELEFT
>        $new_pos -= $self->ScrollPage($bar);
>    } elsif ( $op == SB_PAGEDOWN ) {    # or SB_PAGERIGHT
>        $new_pos += $self->ScrollPage($bar);
>    } elsif ( $op == SB_THUMBTRACK ) {
>        $new_pos = $pos;
>    } elsif ( $op == SB_THUMBPOSITION ) {
>        $new_pos = $pos;
>    }
> 
>    $new_pos = $self->ScrollPos( $bar, $new_pos );
>    print "NP: $new_pos\n";
> 
>    if ( $bar == SB_VERT ) {
>         my $v_pos = 5;
>         for ( 1..100 ) {
>            $self->{"label$_"}->Top($v_pos - $new_pos);
> 
>            $v_pos += 35;
>         }
>    }
>    $self->Redraw(1);
> 
>    1;
> }
> __END__
> 
> -------------------------------------------------------------------------
> This SF.net email is sponsored by the 2008 JavaOne(SM) Conference 
> Don't miss this year's exciting event. There's still time to save $100. 
> Use priority code J8TL2D2. 
> http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
> 

-- 
Neu: GMX De-Mail - Einfach wie E-Mail, sicher wie ein Brief!  
Jetzt De-Mail-Adresse reservieren: http://portal.gmx.net/de/go/demail