David Hiltz wrote:
I just noticed that when I use '-align = right' with
'-foreground' the color is always black.
strange thing.
it seems that only left-aligned Labels can have foreground
and background colors.
I suppose it is a limitation of the Win32 SDK itself, but
is not documented
Chris,
I Question Answered.
To Change the Font .
#Set the Font..
$font = Win32::GUI::Font-new(
-name = "Comic Sans MS",
-size = 24,
);
$label = $m1-AddLabel
(
-name = 'PrintInput',
-text = "'',
-width = 600,
-height = 200,
-font
Hi all
I totally switched over to win32 gui rather than
perl/tk ...
The file which is present in the samples " pmx.pl
"
when I run it from command line "perl
pmx.pl"
I get the dialog box with title "PMX version
0.22" and a
tabstrip "c:\perl\lib" , "c:\perl\site\lib" and
"."
when I
have you tried this:
# change to red
$Textfield-Change( -background = [ 255, 0, 0 ] );
# repaint the control
$Textfield-InvalidateRect(1);
hope this helps.
It's not working for me. Not only that, but if I try change the background
color, it fails and the foreground color
Here's something else I couldn't find in the archives:
Is it possible to change the size in a font object? I've tried using the
Change method to change the size and then resetting the font using the
SetFont method, but it doesn't work. I don't want to create a whole bunch
of font objects
Below you will a small Win32::GUI program that displays a window with a
button labeled "Loop". When you click on the button it calls a
subroutine which should display another window with a number and an OK
button. I want the program to wait between each display of the second
Last year at some point I submitted a program I had
written. I have made some major overhauls in it and am pretty much leaving
it where it is unless I get more ideas for it. It includes a bunch of the
GUI objects in it.
Unfortunately due tote cablemodem upstream limitations of the owner
you did not call dialog() for the second window:
sub Loop_Click {
foreach $i (0 ... 3) {
Show_Win2($i);
sleep 1;
}
Win32::GUI::Dialog(); ##add this and it works
}
-rob
David Hiltz wrote:
Below you will a small Win32::GUI program that displays a window with a
And to go along with that..
Is there a way to change the properties of a window
after it has been created? I'd like to be able to
allow -topmost to be turned on and off. I can get it
to work if I re-create the window, but I'd like to
avoid doing that if possible.
Also is there a way to set
any idea as to why in the script below, in sub Button2_Click, TextField1
does not change to "Processing..." prior to running the process_file
sub? A similar call in the process_file sub changes the field to "Done!"
when it finishes, and that call works fine...
TIA
-rob
I can answer one of your questions Jeremy. You can set the checkmark and
unset it as well on a menu it after the menu has been created.
### menu definition:
my $MainMenu = new Win32::GUI::Menu(
"File" = "File",
" Update All Data" = "GetData",
" -" = 0,
" Exit" =
you did not call dialog() for the second window:
When I do that it still doesn't stop on each window. I'm running
Win32-gui 0.490.
If I move the Win32::GUI::Dialog() after this line:
$Win2-Update();
It does stop but it also does very strange things (like doesn't let
me
i am sorry for those of you who tried to log on
using perlmonks and couldn't get on ... that was my fault. I inadvertantly
added "perlmonk" instead of "perlmonks" to the user list ... but now it should
work fine with user "perlmonks" and password "win32!gui"
I am sorry again for any
I don't know why this doesn't work for some windows properties but it does
for others, but here is an idea of what you want to do:
$MainWindow-{-left} = 30;
This will move the window to the position 30 pixels from the left side of
the screen. i couldn't get this to work for a window using the
On Fri, 15 Dec 2000, Robert Sherman wrote:
any idea as to why in the script below, in sub Button2_Click, TextField1
does not change to "Processing..." prior to running the process_file
sub? A similar call in the process_file sub changes the field to "Done!"
when it finishes, and that call
oops...that's odd, because i was sure i had gotten it to work...oh,
well...how about this:
use Win32::GUI;
$i=0;
$Win = new Win32::GUI::Window(
-left = 341,
-top= 218,
-width = 300,
-height = 213,
-name
16 matches
Mail list logo