[perl-win32-gui-users] Remove Textfield

[Manuel Schmitt <ManuelSchmitt@gm...>]

Hi,

perhaps I'm just being stupid, but I want to remove a Textfield after I
added it, so:

my $main=Win32::GUI::Window->new(-name => 'Main');
my $textField=$main->AddTextfield(-name => "textfield",);

and then I want to remove the Textfield again.

is that possible?

Thanks
Manuel

[perl-win32-gui-users] Adding newlines to TextFields

[Dagan <apthuman@ho...>]

Does anyone happen to know how do I go about adding a newline to a standard text field without the square non alpha numeric character showing up? It's probably simple, here is the code i'm using currently:

$Main->tfOutput->Append($msg." \n");

This code DOES create newlines, but it contains a square at the end.
\r\n does the same thing and \r does nothing

Thanks =D
 		 	   		  
_________________________________________________________________
The New Busy think 9 to 5 is a cute idea. Combine multiple calendars with Hotmail. 
http://www.windowslive.com/campaign/thenewbusy?tile=multicalendar&ocid=PID28326::T:WLMTAGL:ON:WL:en-US:WM_HMP:042010_5

Re: [perl-win32-gui-users] How to Access Values in ListView Control Embedded inside System Tab Control

[Kevin Marshall <kejohm88@ho...>]

Prasad,

Did you create this ListView control yourself in a Perl Win32::GUI 
script? If so, you can use the object returned when creating the control 
to access methods for that control, like so:

my $listview = Win32::GUI::ListView->new(...);
# or
my $listview = $parent->AddListView(...);

Here is some code that can be used to iterate each item in a ListView 
control:

for my $i (0 .. $listview->GetItemCount()-1){
     my %item = $listview->GetItem($i);
}

To get at any of the items in a ListView control, you need to know the 
index of the item that you wish to query.

Kevin.
>
> Hello,
>
> I want to read values present inside ListView Control which is 
> embedded inside System Tab Control.
>
> Flow is like this
>
> Form  --------contains------------à Blank Dialog Class 
> --------contains-------------à System Tab Control ------------ one tab 
> contain --------à List view control.
>
> Can anyone please suggest how to read value inside this hierarchy?
>
> **Thanks & Regards**
>
> **Prasad V. Joshi**
>
>
> ------------------------------------------------------------------------------
> ThinkGeek and WIRED's GeekDad team up for the Ultimate
> GeekDad Father's Day Giveaway. ONE MASSIVE PRIZE to the
> lucky parental unit.  See the prize list and enter to win:
> http://p.sf.net/sfu/thinkgeek-promo
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/

[perl-win32-gui-users] How to Access Values in ListView Control Embedded inside System Tab Control

[Joshi, Prasad <pvjoshi@ti...>]

Hello,

I want to read values present inside ListView Control which is embedded inside System Tab Control.

Flow is like this

Form  --------contains--------------> Blank Dialog Class --------contains---------------> System Tab Control ------------ one tab contain ----------> List view control.


Can anyone please suggest how to read value inside this hierarchy?




Thanks & Regards
Prasad V. Joshi

Re: [perl-win32-gui-users] How to improve refreshing speed

[Jeremy White <jez_white@ho...>]

 
> Hello!
> 
> I have a question: How to improve refreshing speed?

As a first step, try a profiler to see where your code is spending most of its time:
try Devel-NYTProf:
http://search.cpan.org/~timb/Devel-NYTProf-3.11/http://blog.timbunce.org/2009/12/24/nytprof-v3-worth-the-wait/
(make sure you use the latest version from cpan)
This profiler works well with Win32::GUI. With a bit of luck you'll find a couple of simple hotspots that once fixed will give the speed increase you are after.
If that fails, then you you'll need to draw the labels and text in a graphic control (using an offscreen DC, then bitblting the result to the screen DC). This will give you a big leap in performance, but am not sure how it would fit into your existing code.
Cheers,
jez. 
> Problem is as follows: I refresh labels and textfields very offen in table 
> views. The refreshing consists of changing mainly background, but also  
> foreground, fontsize etc. The way I am doing it is using 
> $object->Change( @parameters )
> function which is encapsulated in my Refresh(...) function (this function is 
> copied later on). As you can see the Change method is the main part of the 
> Refresh function.
> 
> Because there is many such refreshings the user fills some slowness. Is it 
> possible in a relatively simple way to replace this Change function with some 
> other which would be closer (and therefore faster) to Windows system graphics?
> 
> Waldemar

 		 	   		  
_________________________________________________________________
http://clk.atdmt.com/UKM/go/197222280/direct/01/
We want to hear all your funny, exciting and crazy Hotmail stories. Tell us now

[perl-win32-gui-users] How to improve refreshing speed

[Waldemar Biernacki <wb@sa...>]

Hello!

I have a question: How to improve refreshing speed?

Problem is as follows: I refresh labels and textfields very offen in table 
views. The refreshing consists of changing mainly background, but also  
foreground, fontsize etc. The way I am doing it is using 
$object->Change( @parameters )
function which is encapsulated in my Refresh(...) function (this function is 
copied later on). As you can see the Change method is the main part of the 
Refresh function.

Because there is many such refreshings the user fills some slowness. Is it 
possible in a relatively simple way to replace this Change function with some 
other which would be closer (and therefore faster) to Windows system graphics?

Waldemar

==============================


sub Refresh {
	my ( $screen, $object, $type ) = ( shift, shift, shift );

    $object = '' unless $object;
	return unless $screen->{$object};

	my %parameter;
	my @attributes = ();
	my @attributes_2;
	my ( $par, $val );
	my %new_font = Win32::GUI::Font::Info($screen->{$object}->GetFont());

	my $change_value      = 0;	my $value    = '';
	my $change_visible    = 0;	my $visible  = 0;
	my $change_readonly   = 0;	my $readonly = 0;
	my $change_font       = 0;

	while ( $par = shift ) {

		$val = shift;
#print "par/value  = $par / $value\n";

		if ( $par eq '-visible' ) {
            $change_visible = 1;
            $visible = $val;
            $visible = 0 unless $visible;

		} elsif ( $par eq '-readonly' ) {
            $change_readonly = 1;
            $readonly = 1 if $val;
            $readonly = 0 unless $readonly;

		} elsif ( $par eq '-background' ) {

			push   @attributes,   ( -background=>$val );
#			push   @attributes_2, ( -background=>$val );

		} elsif ( $par eq '-text' ) {
            $change_value = 1;
            $value        = $val; $value = '' unless defined $value;

		} else {
			push @attributes,   ( $par=>$val );
        }


		if ( $par =~ /-fontsize|-fontweight/ ) {

			$val  = 0 unless $val;
			$val += 0;

			if ( $par eq '-fontsize' && $val != $new_font{-height} ) {
				$change_font       = 1;
				$new_font{-height} = $val;
			} elsif ( $par eq '-fontweight' && $val != $new_font{-weight} ) 
{
				$change_font       = 1;
				$new_font{-weight} = $val;
			}
		} elsif ( $par =~ /-fontname/ && $val ne $new_font{-name} ) {
			$change_font     = 1;
			$new_font{-name} = $val;
		}
	}

	if ( $change_font ) {
		$screen->{$object.'font'} =  Win32::GUI::Font->new(
			-name  => $new_font{-name},
			-size  => $new_font{-height},
			-weight=> $new_font{-weight},
		);
		push @attributes, ( -font=>$screen->{$object.'font'} );
    }

	if ( $type =~ /checkbox|boolean/i ) {

		if ( $value ) {
			push @attributes,   ( -background=>0xccffcc )
		} elsif ( $value eq '0' ) {
			push @attributes,   ( -background=>0xccccff )
		} else {
			push @attributes,   ( -background=>0xffffff )
		}
	} elsif ( $type =~ /integer/i ) {

		my $val = $value;
		$val = 0 unless $val;
		$val =~ s/ //g;
		$val += 0;

	} elsif ( $type =~ /money/i ) {

		my $val = $value;
		$val = 0 unless $val;
		$val =~ s/ //g;
		$val += 0;

		if ( $val < 0  ) {
			push @attributes,   ( -foreground=>0x0000aa )
		} elsif ( $val > 0  ) {
			push @attributes,   ( -foreground=>0x000000 )
		} else {
			push @attributes,   ( -foreground=>0x333333 )
		}
	}

	if ( @attributes ) {

#print "object     = $object\n";
#print "attributes = @attributes\n";

		$screen->{$object}->Hide()				if $change_font;
		$screen->{$object}->Change(@attributes) if @attributes;
		$screen->{$object}->Show()				if $change_font;
    }

	$screen->{$object.'_2'}->Change(-text=>'',@attributes_2) if @attributes_2 
&& $screen->{$object.'_2'} && $object=~/VAR|FILL/i;
	$screen->{$object.'_3'}->Change(-text=>'',@attributes_2) if @attributes_2 
&& $screen->{$object.'_3'} && $object=~/VAR|FILL/i;

	if ( $change_visible ) {
		$screen->{$object}->Show(1)      if $visible;
		$screen->{$object.'_0'}->Show(1) if $visible 		&& $screen-
>{$object.'_0'};
		$screen->{$object.'_1'}->Show(1) if $visible 		&& $screen-
>{$object.'_1'};
		$screen->{$object.'_2'}->Show(1) if $visible 		&& $screen-
>{$object.'_2'};
		$screen->{$object.'_3'}->Show(1) if $visible 		&& $screen-
>{$object.'_3'};

		$screen->{$object}->Hide()       if $visible == 0;
		$screen->{$object.'_0'}->Hide()  if $visible == 0 	&& $screen-
>{$object.'_0'};
		$screen->{$object.'_1'}->Hide()  if $visible == 0 	&& $screen-
>{$object.'_1'};
		$screen->{$object.'_2'}->Hide()  if $visible == 0 	&& $screen-
>{$object.'_2'};
		$screen->{$object.'_3'}->Hide()  if $visible == 0 	&& $screen-
>{$object.'_3'};
    }

	if ( $change_readonly ) {
		$screen->{$object}->ReadOnly( $readonly );
		$screen->{$object.'_2'}->ReadOnly( $readonly ) if $screen-
>{$object.'_2'} && $object =~ /VAR/;;
		$screen->{$object.'_3'}->ReadOnly( $readonly ) if $screen-
>{$object.'_3'} && $object =~ /VAR/;;
	}

	if ( $change_value ) {

		if ( $type =~ /checkbox/i ) {

    		$value = 1 if     $value;
			$value = 0 unless $value;
			$screen->{$object}->SetCheck( $value )

		} elsif ( $type =~ /datetime/i ) {

			$value =~ /(\d{2})-(\d{2})-(\d{4})/;
			$screen->{$object}->SetDate( $1, $2, $3 );

		} else {

			if ( $type =~ /boolean/i ) {
    			$value = 1 if     $value;
				$value = 0 unless $value;
			}

			$value = '' unless defined $value;
			$screen->{$object}->Change( -text => $value );

		}
	}
}