By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
454,252 Members | 1,346 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 454,252 IT Pros & Developers. It's quick & easy.

GUI Window Icon

P: 57
Hello all,
I have created a GUI box using Win32::GUI::Window and all i want to do is add a question mark icon in the window on the left, but i'm having trouble figuring that out. i know that using Win32::GUI::MessageBox has options that you can use such as MB_ICONQUESTION, MB_ICONEXCLAMATION, etc, but i don't see anything for Win32::GUI::Window. Any suggestions?

Here is part of my code. the second window is the one that i want to put an icon similar to that of the first window except to use a question mark icon:

Expand|Select|Wrap|Line Numbers
  1. #!/usr/bin/perl
  2.  
  3. # $Id: notepad.pl,v 1.2 2004/03/21 08:05:06 ctrondlp Exp $
  4. #
  5.  
  6. #use strict;
  7.  
  8. use Win32::GuiTest qw(:ALL);
  9.  
  10. use Win32::GUI();
  11.  
  12.  
  13.           Win32::GUI::MessageBox(0, "Test Complete!", "JWARN Message");
  14.  
  15.         $W1 = new Win32::GUI::Window(
  16.                 -name  => "W1",
  17.                 -title => "Results Report",
  18.                 -pos   => [ 500, 400 ],
  19.                 -size  => [ 275, 150 ],
  20.                 -resizable => '0',
  21.                 -dialogui => '1',
  22.  
  23.  
  24.         );
  25.  
  26.  
  27.         $W1->AddLabel(
  28.                 -name => "Label1",
  29.                 -text => "What Would You Like To Do?",
  30.                 -pos  => [ 45, 10 ],
  31.                 -font => '16',
  32.         );
  33.  
  34.         $W1->AddButton(
  35.                 -name => "Button1",
  36.                 -text => "Review Results Report",
  37.                 -pos  => [ 72, 40 ],
  38.                 -height => '25',
  39.                 -tabstop => '1',
  40.         );
  41.  
  42.         $W1->AddButton(
  43.                 -name => "Button5",
  44.                 -text => "Return to JATT",
  45.                 -pos  => [ 72, 80 ],
  46.                 -height => '25',
  47.                 -width => '125',
  48.                 -tabstop => '1',
  49.         );
  50.  
  51.         $W1->Show();
  52.         Win32::GUI::Dialog();
Mar 21 '08 #1
Share this Question
Share on Google+
1 Reply


numberwhun
Expert Mod 2.5K+
P: 3,503
Hello all,
I have created a GUI box using Win32::GUI::Window and all i want to do is add a question mark icon in the window on the left, but i'm having trouble figuring that out. i know that using Win32::GUI::MessageBox has options that you can use such as MB_ICONQUESTION, MB_ICONEXCLAMATION, etc, but i don't see anything for Win32::GUI::Window. Any suggestions?

Here is part of my code. the second window is the one that i want to put an icon similar to that of the first window except to use a question mark icon:

Expand|Select|Wrap|Line Numbers
  1. #!/usr/bin/perl
  2.  
  3. # $Id: notepad.pl,v 1.2 2004/03/21 08:05:06 ctrondlp Exp $
  4. #
  5.  
  6. #use strict;
  7.  
  8. use Win32::GuiTest qw(:ALL);
  9.  
  10. use Win32::GUI();
  11.  
  12.  
  13.           Win32::GUI::MessageBox(0, "Test Complete!", "JWARN Message");
  14.  
  15.         $W1 = new Win32::GUI::Window(
  16.                 -name  => "W1",
  17.                 -title => "Results Report",
  18.                 -pos   => [ 500, 400 ],
  19.                 -size  => [ 275, 150 ],
  20.                 -resizable => '0',
  21.                 -dialogui => '1',
  22.  
  23.  
  24.         );
  25.  
  26.  
  27.         $W1->AddLabel(
  28.                 -name => "Label1",
  29.                 -text => "What Would You Like To Do?",
  30.                 -pos  => [ 45, 10 ],
  31.                 -font => '16',
  32.         );
  33.  
  34.         $W1->AddButton(
  35.                 -name => "Button1",
  36.                 -text => "Review Results Report",
  37.                 -pos  => [ 72, 40 ],
  38.                 -height => '25',
  39.                 -tabstop => '1',
  40.         );
  41.  
  42.         $W1->AddButton(
  43.                 -name => "Button5",
  44.                 -text => "Return to JATT",
  45.                 -pos  => [ 72, 80 ],
  46.                 -height => '25',
  47.                 -width => '125',
  48.                 -tabstop => '1',
  49.         );
  50.  
  51.         $W1->Show();
  52.         Win32::GUI::Dialog();

Sorry, I don't know the answer but hopefully one of our experts will be able to assist you.

My appologies for the delay in getting an answer to your question.

Regards,

Jeff
Apr 17 '08 #2

Post your reply

Sign in to post your reply or Sign up for a free account.