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

Hi, My name is guillermo.i am new in perl, who know show all user of active directory from server windows 2008?
i think use:
use Win32::OLE;$ou=win32::OLE->GetObjet("LDAP://DC=mydomain,DC=com");print "$ou->{"?????\n}";
But i dont know
thanks you 		 	   		  

On Mon, April 1, 2013 11:24 am, Soren Hein wrote:
> I'm drawing stuff in a window, then minimizing the window to the bottom
> part of the screen using the Windows underscore symbol.  When my mouse
> hovers over the minimized icon, the content is still there.  When I click
>  on the icon to reopen the window, the content is gone.

that's how it is supposed to work. paint operations in a window are
non-persistent. what you want is a custom "Paint" event. eg. instead of
make_example, add this sub in your program:

sub win_Paint {
    my($dc) = @_;
    # your drawing code from make_example
    $dc->Validate();
}

cheers,
Aldo

Hello,

I'm drawing stuff in a window, then minimizing the window to the bottom
part of the screen using the Windows underscore symbol.  When my mouse
hovers over the minimized icon, the content is still there.  When I click
on the icon to reopen the window, the content is gone.

Simple example included below, where the top half of the window is painted
green, the bottom part red.

I assume it's some magic to do with dc, onEvent, save, restore etc., but I
can't figure it out.

In case my setup matters:

Windows 7 SP1
CYGWIN_NT-6.1-WOW64 1.7.17(0.262/5/3) 2012-10-19 14:39
perl 5.14
Win32::GUI v1.06 (GUI.pm 1.69)

Thanks,
Soren

#!perl
use strict;
use warnings;
use Win32::GUI();

my $WIDTH  = 400;
my $HEIGHT = 600;

my $win = Win32::GUI::Window->new(
    -name => 'win', -width => $WIDTH, -height => $HEIGHT );

$win->Show();
&make_example();
Win32::GUI::Dialog();
exit;

sub make_example
{
  my $dc    = $win->GetDC;
  my $brush = new Win32::GUI::Brush( [32, 128, 32] );
  my $old_brush = $dc->SelectObject($brush);
  $dc->Rectangle(0, 0, $WIDTH, $HEIGHT/2);
  $brush = new Win32::GUI::Brush( [178, 63, 63] );
  $dc->SelectObject($brush);
  $dc->Rectangle(0, $HEIGHT/2, $WIDTH, $HEIGHT);
  $dc->SelectObject($old_brush) if defined ($old_brush);
}

sub win_Terminate { -1; }