Home / Browse / Win32::GUI / Mail / Archive

Win32::GUI

Email Archive: perl-win32-gui-users (read-only)

Re: [perl-win32-gui-users] Grid questions

From: Brian Millham <bmillham@hu...> - 2006-10-13 00:07

Here=92s a working example of your code. It only took minor changes to =
get it
working. I've added comments where I made changes.

=3Dcut
use Win32::GUI;                 # Binding to Win32 GUI
use Win32::GUI::Grid;           # Binding to Win32 GUI Grid
#use Win32::GUI::Constants;      # Windows constants
use integer;
=20
my $TopWindow =3D new Win32::GUI::Window(       # Create Main Window
        -name         =3D> 'TopWindow',
        -helpbox      =3D> 1,
        -left         =3D> 30,
        -hashelp      =3D> 1,
        -height       =3D> 450,
        -maxwidth     =3D> 565,
        -minheight    =3D> 380,
        -minwidth     =3D> 565,
        -title        =3D> 'GUI Editor',
        -top          =3D> 20,
        -width        =3D> 570,
   );
=20
my $Grid =3D $TopWindow->AddGrid(   # Create Grid object
        -columns           =3D>  2,
        -doublebuffer      =3D>  1,
        -editable          =3D>  1,
#       -enable            =3D>  Enable
        -fixedcolumns      =3D>  1,
        -fixedrows         =3D>  1,
#       -height            =3D>  Heigth
        -hscroll           =3D>  0,
#       -left              =3D>  Left position
        -name              =3D>  "Property Grid",
#       -parent            =3D>  $Editor::Win::TopWindow,
#       -popstyle          =3D>  Pop style

# The original example had the grid way off to the right. This was =
causing
use Win32::GUI;                 # Binding to Win32 GUI
use Win32::GUI::Grid;           # Binding to Win32 GUI Grid
#use Win32::GUI::Constants;      # Windows constants
use integer;
=20
my $TopWindow =3D new Win32::GUI::Window(       # Create Main Window
        -name         =3D> 'TopWindow',
        -helpbox      =3D> 1,
        -left         =3D> 30,
        -hashelp      =3D> 1,
        -height       =3D> 450,
        -maxwidth     =3D> 565,
        -minheight    =3D> 380,
        -minwidth     =3D> 565,
        -title        =3D> 'GUI Editor',
        -top          =3D> 20,
        -width        =3D> 570,
   );
=20
my $Grid =3D $TopWindow->AddGrid(   # Create Grid object
        -columns           =3D>  2,
        -doublebuffer      =3D>  1,
        -editable          =3D>  1,
#       -enable            =3D>  Enable
        -fixedcolumns      =3D>  1,
        -fixedrows         =3D>  1,
#       -height            =3D>  Heigth
        -hscroll           =3D>  0,
#       -left              =3D>  Left position
        -name              =3D>  "Property Grid",
#       -parent            =3D>  $Editor::Win::TopWindow,
#       -popstyle          =3D>  Pop style
        -pos               =3D>  [0, 0 ],
#       -pushstyle         =3D>  Push style
        -rows              =3D>  9,
#        -size              =3D>  [ 140, $TopWindow->Height()-43 ],
#       -style             =3D>  Default style
#       -top               =3D>  Top  position
        -visible           =3D>  1,
        -vscroll           =3D>  0,
#       -width             =3D>  140,
  );
=20
  $Grid->SetCellText(0, 0, "Property" );
  $Grid->SetCellText(0, 1, "Value" );
=20
  for my $row (1..$Grid->GetRows()) {
    $Grid->SetCellText($row, 0, "Property $row " );
  }
=20
  for my $row (1..4) {

 # I removed the loop, since it wasn't needed for this example
 #   for my $col (0..$Grid->GetColumns()) {
      $Grid->SetCellText($row, 1, "Cell : <$row, 1>");
  #  }
  }
=20
  my $row =3D 1;

  for my $CellType (GVIT_NUMERIC, GVIT_DATE, GVIT_DATECAL, GVIT_TIME,
GVIT_CHECK, GVIT_COMBO, GVIT_LIST, GVIT_URL) {

# Changed the column from 2 to 1, since the column is 0 indexed
     $Grid->SetCellType($row++, 1, $CellType);
  }

# Changed the column from 2 to 1
  $Grid->SetCellOptions( 5, 1, 1 );  # button?
  $Grid->SetCellOptions( 6, 1, [ "Combo", "Box" ]);
  $Grid->SetCellOptions( 7, 1, [ "List", "Box" ]);

# Moved the AutoSize method to TopWindow_Resize
#  $Grid->AutoSize();
  $TopWindow->Show();                             # makes TopWindow =
visible
  Win32::GUI::Dialog();                           # Windows control loop

# Added TopWindow_Resize so that the grid would be resized when
# the window is resized.
sub TopWindow_Resize {
  my ($width, $height) =3D ($TopWindow->GetClientRect)[2..3];
  $Grid->Resize ($width, $height);
  $Grid->AutoSize(GVS_BOTH);
  $Grid->ExpandLastColumn;
}# the grid to be cut off, not showing the dropdown arrow for the =
list/combo
# boxes
        -pos               =3D>  [0, 0 ],
#       -pushstyle         =3D>  Push style
        -rows              =3D>  9,
#        -size              =3D>  [ 140, $TopWindow->Height()-43 ],
#       -style             =3D>  Default style
#       -top               =3D>  Top  position
        -visible           =3D>  1,
        -vscroll           =3D>  0,
#       -width             =3D>  140,
  );
=20
  $Grid->SetCellText(0, 0, "Property" );
  $Grid->SetCellText(0, 1, "Value" );
=20
  for my $row (1..$Grid->GetRows()) {
    $Grid->SetCellText($row, 0, "Property $row " );
  }
=20
  for my $row (1..4) {
 #   for my $col (0..$Grid->GetColumns()) {
      $Grid->SetCellText($row, 1, "Cell : <$row, 1>");
  #  }
  }
=20
  my $row =3D 1;

  for my $CellType (GVIT_NUMERIC, GVIT_DATE, GVIT_DATECAL, GVIT_TIME,
GVIT_CHECK, GVIT_COMBO, GVIT_LIST, GVIT_URL) {
     $Grid->SetCellType($row++, 1, $CellType);
  }
  $Grid->SetCellOptions( 5, 1, 1 );  # button?
  $Grid->SetCellOptions( 6, 1, [ "Combo", "Box" ]);
  $Grid->SetCellOptions( 7, 1, [ "List", "Box" ]);
#  $Grid->AutoSize();
  $TopWindow->Show();                             # makes TopWindow =
visible
  Win32::GUI::Dialog();                           # Windows control loop

sub TopWindow_Resize {
  my ($width, $height) =3D ($TopWindow->GetClientRect)[2..3];
  $Grid->Resize ($width, $height);
  $Grid->AutoSize(GVS_BOTH);
  $Grid->ExpandLastColumn;
}

=3Dend

Brian Millham
This message traveled at least 44,000 miles to reach you!
Creator of the DW6000 Monitor
http://www.millham.net/dw6000
bmillham@...
-----Original Message-----
From: perl-win32-gui-users-bounces@...
[mailto:perl-win32-gui-users-bounces@...] On Behalf Of
Arthur Schwarz
Sent: Thursday, October 12, 2006 12:35 PM
To: Brian Millham; perl-win32-gui-users@...
Subject: Re: [perl-win32-gui-users] Grid questions

Thanks. I tried it and was able to get a check box displayed and I am
working on getting the List and Combo box. Any suggestions on what, =
where ,
how, how much, or when would be a great help.
=A0
As a separate note to Robert May, it appears that the following =
constants
are missing from Win32::GUI::Constants (or I am missing the point):
=A0 GVIT_CHECK=A0=A0 =3D Check Box
=A0 GVIT_DATE=A0=A0=A0 =3D Date control
=A0 GVIT_DATECAL =3D Date control with calendar control
=A0 GVIT_DEFAULT =3D=20
=A0 GVIT_COMBO=A0=A0 =3D Combo Box
=A0 GVIT_LIST=A0=A0=A0 =3D List Box
=A0 GVIT_NUMERIC =3D Numeric control edit
=A0 GVIT_TIME=A0=A0=A0 =3D Time control
=A0 GVIT_URL=A0=A0=A0=A0 =3D Url control
=A0
=A0 GVL_BOTH Both vertical and horizontal grid lines
=A0 GVL_NONE No grid lines.
=A0 GVL_HORZ Horizontal grid lines only.
=A0 GVL_VERT Vertical grid lines only.
=A0
=A0 GVNI_ABOVE=A0=A0=A0=A0=A0=A0 =3D Search above initial cell
=A0 GVNI_ALL=A0=A0=A0=A0=A0=A0=A0=A0 =3D Search all cells in the =
grid=A0starting from the given
cell
=A0 GVNI_AREA=A0=A0=A0=A0=A0=A0=A0 =3D Search all cells below and to =
the=A0right of the given
cell
=A0 GVNI_BELOW=A0=A0=A0=A0=A0=A0 =3D Search below initial cell
=A0 GVNI_DROPHILITED =3D Search for drop highlighted cells
=A0 GVNI_FIXED=A0=A0=A0=A0=A0=A0 =3D Search for fixed cells
=A0 GVNI_FOCUSED=A0=A0=A0=A0 =3D Search for focus cell
=A0 GVNI_MODIFIED=A0=A0=A0 =3D Search for modified cells
=A0 GVNI_READONLY=A0=A0=A0 =3D Search for read-only cells
=A0 GVNI_SELECTED=A0=A0=A0 =3D Search for selected cells
=A0 GVNI_TOLEFT=A0=A0=A0=A0=A0 =3D Search to the left of the =
initial=A0cell
=A0 GVNI_TORIGHT=A0=A0=A0=A0 =3D Search to the right of the initial cell
=A0
=A0 GVS_BOTH Use fixed and non-fixed cells.
=A0 GVS_DATA Use only non-fixed cells.
=A0 GVS_DEFAULT Default.
=A0 GVS_HEADER Use only the fixed cells.


Brian Millham <bmillham@...> wrote:=20
Hi Art,
You have it right.=A0 You just got caught by the 0 index.=A0 You are =
trying to
set the contents of cell , but you should be setting cell 1.
=A0
=A0 for my $CellType (GVIT_NUMERIC, GVIT_DATE, GVIT_DATECAL, GVIT_TIME,
GVIT_CHECK, GVIT_COMBO, GVIT_LIST, GVIT_URL) {
=A0=A0=A0=A0 $Grid->SetCellType($row++, 1, $CellType);
=A0 }
=A0 $Grid->SetCellOptions( 5, 1, 1 );=A0 # button?
=A0 $Grid->SetCellOptions( 6, 1, [ "Combo", "Box" ]);
=A0 $Grid->SetCellOptions( 7, 1, [ "List", "Box" ]);
I changed the above lines, and your sample worked for me.
Brian Millham
This message traveled at least 44,000 miles to reach you!
Creator of the DW6000 Monitor
http://www.millham.net/dw6000
bmillham@...
---
avast! Antivirus: Inbound message clean.
Virus Database (VPS): 0641-3, 10/12/2006
Tested on: 10/12/2006 5:04:51 PM
avast! is copyright (c) 2000-2006 ALWIL Software.
http://www.avast.com

---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0641-3, 10/12/2006
Tested on: 10/12/2006 8:04:30 PM
avast! is copyright (c) 2000-2006 ALWIL Software.
http://www.avast.com

Thread View

Thread	Author	Date
[perl-win32-gui-users] Grid questions	Arthur Schwarz <aschwarz1309@ve...>

Re: [perl-win32-gui-users] [win32-gui] Grid questions

From: Robert May <rmay@po...> - 2006-10-11 21:11

Arthur Schwarz wrote:
> I'm trying to use 1.03_4 Grid and have the following questions:
>  
> 1. In GUI.html::SetCellFormat there is a listing of 'DT_*' formats. In 
> GUI::Constants but missing from this list are:
>   DT_CHARSTREAM
>   DT_DISPFILE
>   DTIDEPREFIX
>   DT_METAFILE
>   DT_NOFULLWIDTHCHARBREAK
>   DT_PLOTTER
>   DT_PREFIXONLY
>   DT_RASCAMERA
>   DT_RASDISPLAY
>   DT_RASPRINTER
>  
> Oversight or deliberate?

Not intentionally omitted from the docs - I simply ported the previous 
version to work with newer Win32::GUI releases.  I've made a note to add 
  them.

> 2. I'm experimenting with using List Boxes, Combo Boxes and Buttons in a 
> Grit but have somehow missed the point. My implementation is a no-go, 
> code below. What am I missing?

I'm afraid that it's a part of the codebase that I've never used, so I 
can't help - anyone else?

Regards,
Rob.

>  
> use Win32::GUI;                 # Binding to Win32 GUI
> use Win32::GUI::Grid;           # Binding to Win32 GUI Grid
> use Win32::GUI::Constants;      # Windows constants
> use integer;
>  
> my $TopWindow = new Win32::GUI::Window(       # Create Main Window
>         -name         => 'TopWindow',
>         -helpbox      => 1,
>         -left         => 30,
>         -hashelp      => 1,
>         -height       => 450,
>         -maxwidth     => 565,
>         -minheight    => 380,
>         -minwidth     => 565,
>         -title        => 'GUI Editor',
>         -top          => 20,
>         -width        => 570,
>    );
>  
> my $Grid = $TopWindow->AddGrid(   # Create Grid object
>         -columns           =>  2,
>         -doublebuffer      =>  1,
>         -editable          =>  0,
> #       -enable            =>  Enable
>         -fixedcolumns      =>  1,
>         -fixedrows         =>  1,
> #       -height            =>  Heigth
>         -hscroll           =>  0,
> #       -left              =>  Left position
>         -name              =>  "Property Grid",
> #       -parent            =>  $Editor::Win::TopWindow,
> #       -popstyle          =>  Pop style
>         -pos               =>  [ 425, 0 ],
> #       -pushstyle         =>  Push style
>         -rows              =>  10,
>         -size              =>  [ 140, $TopWindow->Height()-43 ],
> #       -style             =>  Default style
> #       -top               =>  Top  position
>         -visible           =>  1,
>         -vscroll           =>  0,
> #       -width             =>  Width
>   );
>  
>   $Grid->SetCellText(0, 0, "Property" );
>   $Grid->SetCellText(0, 1, "Value" );
>  
>   for my $row (1..$Grid->GetRows()) {
>     $Grid->SetCellText($row, 0, "Property $row " );
>   }
>  
>   for my $row (1..4) {
>     for my $col (1..$Grid->GetColumns()) {
>       $Grid->SetCellText($row, $col, "Cell : <$row, $col>");
>     }
>   }
>  
>   my $row = 1;
> 
>   for my $CellType (GVIT_NUMERIC, GVIT_DATE, GVIT_DATECAL, GVIT_TIME, 
> GVIT_CHECK, GVIT_COMBO, GVIT_LIST, GVIT_URL) {
>      $Grid->SetCellType($row++, 2, $CellType);
>   }
>   $Grid->SetCellOptions( 5, 2, 1 );  # button?
>   $Grid->SetCellOptions( 6, 2, [ "Combo", "Box" ]);
>   $Grid->SetCellOptions( 7, 2, [ "List", "Box" ]);
>   $Grid->AutoSize();
>   $TopWindow->Show();                             # makes TopWindow visible
>   Win32::GUI::Dialog();                           # Windows control loop
> art
>  
> (& thanks)
> 
> 
> ------------------------------------------------------------------------
> 
> -------------------------------------------------------------------------
> Using Tomcat but need to do more? Need to support web services, security?
> Get stuff done quickly with pre-integrated technology to make your job easier
> Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> 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/

Re: [perl-win32-gui-users] Grid questions

From: Brian Millham <bmillham@hu...> - 2006-10-12 00:18

Attachments: Message as HTML

Hi Art,

You have it right.  You just got caught by the 0 index.  You are trying to
set the contents of cell , but you should be setting cell 1.

 

  for my $CellType (GVIT_NUMERIC, GVIT_DATE, GVIT_DATECAL, GVIT_TIME,
GVIT_CHECK, GVIT_COMBO, GVIT_LIST, GVIT_URL) {
     $Grid->SetCellType($row++, 1, $CellType);
  }

  $Grid->SetCellOptions( 5, 1, 1 );  # button?
  $Grid->SetCellOptions( 6, 1, [ "Combo", "Box" ]);
  $Grid->SetCellOptions( 7, 1, [ "List", "Box" ]);



I changed the above lines, and your sample worked for me.

Brian Millham
This message traveled at least 44,000 miles to reach you!
Creator of the DW6000 Monitor
http://www.millham.net/dw6000
bmillham@... 

-----Original Message-----
From: perl-win32-gui-users-bounces@...
[mailto:perl-win32-gui-users-bounces@...] On Behalf Of
Arthur Schwarz
Sent: Wednesday, October 11, 2006 2:51 PM
To: perl-win32-gui-users@...
Subject: [perl-win32-gui-users] Grid questions

 

I'm trying to use 1.03_4 Grid and have the following questions:

 

1. In GUI.html::SetCellFormat there is a listing of 'DT_*' formats. In
GUI::Constants but missing from this list are:

  DT_CHARSTREAM
  DT_DISPFILE
  DTIDEPREFIX
  DT_METAFILE
  DT_NOFULLWIDTHCHARBREAK
  DT_PLOTTER
  DT_PREFIXONLY
  DT_RASCAMERA
  DT_RASDISPLAY
  DT_RASPRINTER

 

Oversight or deliberate?

 

2. I'm experimenting with using List Boxes, Combo Boxes and Buttons in a
Grit but have somehow missed the point. My implementation is a no-go, code
below. What am I missing?

 

use Win32::GUI;                 # Binding to Win32 GUI
use Win32::GUI::Grid;           # Binding to Win32 GUI Grid
use Win32::GUI::Constants;      # Windows constants
use integer;

 

my $TopWindow = new Win32::GUI::Window(       # Create Main Window
        -name         => 'TopWindow',
        -helpbox      => 1,
        -left         => 30,
        -hashelp      => 1,
        -height       => 450,
        -maxwidth     => 565,
        -minheight    => 380,
        -minwidth     => 565,
        -title        => 'GUI Editor',
        -top          => 20,
        -width        => 570,
   );

 

my $Grid = $TopWindow->AddGrid(   # Create Grid object
        -columns           =>  2,
        -doublebuffer      =>  1,
        -editable          =>  0,
#       -enable            =>  Enable
        -fixedcolumns      =>  1,
        -fixedrows         =>  1,
#       -height            =>  Heigth
        -hscroll           =>  0,
#       -left              =>  Left position
        -name              =>  "Property Grid",
#       -parent            =>  $Editor::Win::TopWindow,
#       -popstyle          =>  Pop style
        -pos               =>  [ 425, 0 ],
#       -pushstyle         =>  Push style
        -rows              =>  10,
        -size              =>  [ 140, $TopWindow->Height()-43 ],
#       -style             =>  Default style
#       -top               =>  Top  position
        -visible           =>  1,
        -vscroll           =>  0,
#       -width             =>  Width
  );

 

  $Grid->SetCellText(0, 0, "Property" );
  $Grid->SetCellText(0, 1, "Value" );

 

  for my $row (1..$Grid->GetRows()) {
    $Grid->SetCellText($row, 0, "Property $row " );
  }

 

  for my $row (1..4) {
    for my $col (1..$Grid->GetColumns()) {
      $Grid->SetCellText($row, $col, "Cell : <$row, $col>");
    }
  }

 

  my $row = 1;


  for my $CellType (GVIT_NUMERIC, GVIT_DATE, GVIT_DATECAL, GVIT_TIME,
GVIT_CHECK, GVIT_COMBO, GVIT_LIST, GVIT_URL) {
     $Grid->SetCellType($row++, 2, $CellType);
  }

  $Grid->SetCellOptions( 5, 2, 1 );  # button?
  $Grid->SetCellOptions( 6, 2, [ "Combo", "Box" ]);
  $Grid->SetCellOptions( 7, 2, [ "List", "Box" ]);
  $Grid->AutoSize();

  $TopWindow->Show();                             # makes TopWindow visible
  Win32::GUI::Dialog();                           # Windows control loop

art

 

(& thanks)

---
avast! Antivirus: Inbound message clean.
Virus Database (VPS): 0641-2, 10/10/2006
Tested on: 10/11/2006 5:04:44 PM
avast! is copyright (c) 2000-2006 ALWIL Software.
http://www.avast.com



---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0641-2, 10/10/2006
Tested on: 10/11/2006 8:13:48 PM
avast! is copyright (c) 2000-2006 ALWIL Software.
http://www.avast.com

Re: [perl-win32-gui-users] Grid questions

From: Arthur Schwarz <aschwarz1309@ve...> - 2006-10-12 16:35

Attachments: Message as HTML

Thanks. I tried it and was able to get a check box displayed and I am working on getting the List and Combo box. Any suggestions on what, where , how, how much, or when would be a great help.
   
  As a separate note to Robert May, it appears that the following constants are missing from Win32::GUI::Constants (or I am missing the point):
    GVIT_CHECK   = Check Box
  GVIT_DATE    = Date control
  GVIT_DATECAL = Date control with calendar control
  GVIT_DEFAULT = 
  GVIT_COMBO   = Combo Box
  GVIT_LIST    = List Box
  GVIT_NUMERIC = Numeric control edit
  GVIT_TIME    = Time control
  GVIT_URL     = Url control
   
    GVL_BOTH Both vertical and horizontal grid lines
  GVL_NONE No grid lines.
  GVL_HORZ Horizontal grid lines only.
  GVL_VERT Vertical grid lines only.
   
    GVNI_ABOVE       = Search above initial cell
  GVNI_ALL         = Search all cells in the grid starting from the given cell
  GVNI_AREA        = Search all cells below and to the right of the given cell
  GVNI_BELOW       = Search below initial cell
  GVNI_DROPHILITED = Search for drop highlighted cells
  GVNI_FIXED       = Search for fixed cells
  GVNI_FOCUSED     = Search for focus cell
  GVNI_MODIFIED    = Search for modified cells
  GVNI_READONLY    = Search for read-only cells
  GVNI_SELECTED    = Search for selected cells
  GVNI_TOLEFT      = Search to the left of the initial cell
  GVNI_TORIGHT     = Search to the right of the initial cell
   
    GVS_BOTH Use fixed and non-fixed cells.
  GVS_DATA Use only non-fixed cells.
  GVS_DEFAULT Default.
  GVS_HEADER Use only the fixed cells.


Brian Millham <bmillham@...> wrote: 
                Hi Art,
  You have it right.  You just got caught by the 0 index.  You are trying to set the contents of cell , but you should be setting cell 1.
   
    for my $CellType (GVIT_NUMERIC, GVIT_DATE, GVIT_DATECAL, GVIT_TIME, GVIT_CHECK, GVIT_COMBO, GVIT_LIST, GVIT_URL) {
     $Grid->SetCellType($row++, 1, $CellType);
  }
    $Grid->SetCellOptions( 5, 1, 1 );  # button?
  $Grid->SetCellOptions( 6, 1, [ "Combo", "Box" ]);
  $Grid->SetCellOptions( 7, 1, [ "List", "Box" ]);


  I changed the above lines, and your sample worked for me.
    Brian Millham
This message traveled at least 44,000 miles to reach you!
Creator of the DW6000 Monitor
http://www.millham.net/dw6000
bmillham@...

Re: [perl-win32-gui-users] [win32-gui] Re: Grid questions

From: Robert May <rmay@po...> - 2006-10-12 18:43

Arthur Schwarz wrote:
> As a separate note to Robert May, it appears that the following 
> constants are missing from Win32::GUI::Constants (or I am missing the 
> point):
>   GVIT_CHECK   = Check Box
>   GVIT_DATE    = Date control
>   GVIT_DATECAL = Date control with calendar control
>   GVIT_DEFAULT =
>   GVIT_COMBO   = Combo Box
>   GVIT_LIST    = List Box
>   GVIT_NUMERIC = Numeric control edit
>   GVIT_TIME    = Time control
>   GVIT_URL     = Url control
>  
>   GVL_BOTH Both vertical and horizontal grid lines
>   GVL_NONE No grid lines.
>   GVL_HORZ Horizontal grid lines only.
>   GVL_VERT Vertical grid lines only.
>  
>   GVNI_ABOVE       = Search above initial cell
>   GVNI_ALL         = Search all cells in the grid starting from the 
> given cell
>   GVNI_AREA        = Search all cells below and to the right of the 
> given cell
>   GVNI_BELOW       = Search below initial cell
>   GVNI_DROPHILITED = Search for drop highlighted cells
>   GVNI_FIXED       = Search for fixed cells
>   GVNI_FOCUSED     = Search for focus cell
>   GVNI_MODIFIED    = Search for modified cells
>   GVNI_READONLY    = Search for read-only cells
>   GVNI_SELECTED    = Search for selected cells
>   GVNI_TOLEFT      = Search to the left of the initial cell
>   GVNI_TORIGHT     = Search to the right of the initial cell
>  
>   GVS_BOTH Use fixed and non-fixed cells.
>   GVS_DATA Use only non-fixed cells.
>   GVS_DEFAULT Default.
>   GVS_HEADER Use only the fixed cells.

These are all exported by the Win32::GUI::Grid package if I remember 
correctly.

e.g.

C:\WINDOWS>perl -MWin32::GUI::Grid -e "print GVIT_URL"
7

Rob.

Re: [perl-win32-gui-users] [win32-gui] Re: Grid questions

From: Arthur Schwarz <aschwarz1309@ve...> - 2006-10-12 19:51

Attachments: Message as HTML

Thanks;

  On the topic of constants, in my humble way I thought that all constants were located in GUI::Constants. Is there a caveat to this?

  On several separate notes, I'm trying to use Grid and am having a bit of trouble. Let me try to explain by the numbers:

  1:  <nit> There seems to be some Windows stuff in the html file which may not make sense in a Perlish environment. 'lparam' (SetCellData) comes to mind but I believe there are other things.
  2.  I can specify a cell is (contains?) a List Box or Combo Box but can't seem to populate the cell. There is a SetCellCheck and a SetCellText but nothing comparable for the Boxes. In other GUI contexts there is an Add. What am I missing?

  I'd like to create a properties list for GUI objects (a la Loft). The properties have two components, <property name, property value>. The property value can be a single item, e.g., -height, or can be a list of values, e.g., -style = addstyle .... The single item case is well taken care of in Grid. The multiple item case can use an expandable interface of options in lieu of a single very, very long list. I would like to experiment with a List Box and Combo Box integrated within Grid for this latter purpose. Can't seem to get it off of ground floor and right now it seems that a hand-crafted solution is the only alternative. Am I missing a good bet?

  art

Robert May <rmay@...> wrote:
    Arthur Schwarz wrote:
> As a separate note to Robert May, it appears that the following 
> constants are missing from Win32::GUI::Constants (or I am missing the 
> point):
    <snip>
     o o o
    <snip>
    <snippet>
These are all exported by the Win32::GUI::Grid package if I remember 
correctly.

e.g.

C:\WINDOWS>perl -MWin32::GUI::Grid -e "print GVIT_URL"
7

Rob.

Re: [perl-win32-gui-users] Grid questions

From: Brian Millham <bmillham@hu...> - 2006-10-13 00:07

Here=92s a working example of your code. It only took minor changes to =
get it
working. I've added comments where I made changes.

=3Dcut
use Win32::GUI;                 # Binding to Win32 GUI
use Win32::GUI::Grid;           # Binding to Win32 GUI Grid
#use Win32::GUI::Constants;      # Windows constants
use integer;
=20
my $TopWindow =3D new Win32::GUI::Window(       # Create Main Window
        -name         =3D> 'TopWindow',
        -helpbox      =3D> 1,
        -left         =3D> 30,
        -hashelp      =3D> 1,
        -height       =3D> 450,
        -maxwidth     =3D> 565,
        -minheight    =3D> 380,
        -minwidth     =3D> 565,
        -title        =3D> 'GUI Editor',
        -top          =3D> 20,
        -width        =3D> 570,
   );
=20
my $Grid =3D $TopWindow->AddGrid(   # Create Grid object
        -columns           =3D>  2,
        -doublebuffer      =3D>  1,
        -editable          =3D>  1,
#       -enable            =3D>  Enable
        -fixedcolumns      =3D>  1,
        -fixedrows         =3D>  1,
#       -height            =3D>  Heigth
        -hscroll           =3D>  0,
#       -left              =3D>  Left position
        -name              =3D>  "Property Grid",
#       -parent            =3D>  $Editor::Win::TopWindow,
#       -popstyle          =3D>  Pop style

# The original example had the grid way off to the right. This was =
causing
use Win32::GUI;                 # Binding to Win32 GUI
use Win32::GUI::Grid;           # Binding to Win32 GUI Grid
#use Win32::GUI::Constants;      # Windows constants
use integer;
=20
my $TopWindow =3D new Win32::GUI::Window(       # Create Main Window
        -name         =3D> 'TopWindow',
        -helpbox      =3D> 1,
        -left         =3D> 30,
        -hashelp      =3D> 1,
        -height       =3D> 450,
        -maxwidth     =3D> 565,
        -minheight    =3D> 380,
        -minwidth     =3D> 565,
        -title        =3D> 'GUI Editor',
        -top          =3D> 20,
        -width        =3D> 570,
   );
=20
my $Grid =3D $TopWindow->AddGrid(   # Create Grid object
        -columns           =3D>  2,
        -doublebuffer      =3D>  1,
        -editable          =3D>  1,
#       -enable            =3D>  Enable
        -fixedcolumns      =3D>  1,
        -fixedrows         =3D>  1,
#       -height            =3D>  Heigth
        -hscroll           =3D>  0,
#       -left              =3D>  Left position
        -name              =3D>  "Property Grid",
#       -parent            =3D>  $Editor::Win::TopWindow,
#       -popstyle          =3D>  Pop style
        -pos               =3D>  [0, 0 ],
#       -pushstyle         =3D>  Push style
        -rows              =3D>  9,
#        -size              =3D>  [ 140, $TopWindow->Height()-43 ],
#       -style             =3D>  Default style
#       -top               =3D>  Top  position
        -visible           =3D>  1,
        -vscroll           =3D>  0,
#       -width             =3D>  140,
  );
=20
  $Grid->SetCellText(0, 0, "Property" );
  $Grid->SetCellText(0, 1, "Value" );
=20
  for my $row (1..$Grid->GetRows()) {
    $Grid->SetCellText($row, 0, "Property $row " );
  }
=20
  for my $row (1..4) {

 # I removed the loop, since it wasn't needed for this example
 #   for my $col (0..$Grid->GetColumns()) {
      $Grid->SetCellText($row, 1, "Cell : <$row, 1>");
  #  }
  }
=20
  my $row =3D 1;

  for my $CellType (GVIT_NUMERIC, GVIT_DATE, GVIT_DATECAL, GVIT_TIME,
GVIT_CHECK, GVIT_COMBO, GVIT_LIST, GVIT_URL) {

# Changed the column from 2 to 1, since the column is 0 indexed
     $Grid->SetCellType($row++, 1, $CellType);
  }

# Changed the column from 2 to 1
  $Grid->SetCellOptions( 5, 1, 1 );  # button?
  $Grid->SetCellOptions( 6, 1, [ "Combo", "Box" ]);
  $Grid->SetCellOptions( 7, 1, [ "List", "Box" ]);

# Moved the AutoSize method to TopWindow_Resize
#  $Grid->AutoSize();
  $TopWindow->Show();                             # makes TopWindow =
visible
  Win32::GUI::Dialog();                           # Windows control loop

# Added TopWindow_Resize so that the grid would be resized when
# the window is resized.
sub TopWindow_Resize {
  my ($width, $height) =3D ($TopWindow->GetClientRect)[2..3];
  $Grid->Resize ($width, $height);
  $Grid->AutoSize(GVS_BOTH);
  $Grid->ExpandLastColumn;
}# the grid to be cut off, not showing the dropdown arrow for the =
list/combo
# boxes
        -pos               =3D>  [0, 0 ],
#       -pushstyle         =3D>  Push style
        -rows              =3D>  9,
#        -size              =3D>  [ 140, $TopWindow->Height()-43 ],
#       -style             =3D>  Default style
#       -top               =3D>  Top  position
        -visible           =3D>  1,
        -vscroll           =3D>  0,
#       -width             =3D>  140,
  );
=20
  $Grid->SetCellText(0, 0, "Property" );
  $Grid->SetCellText(0, 1, "Value" );
=20
  for my $row (1..$Grid->GetRows()) {
    $Grid->SetCellText($row, 0, "Property $row " );
  }
=20
  for my $row (1..4) {
 #   for my $col (0..$Grid->GetColumns()) {
      $Grid->SetCellText($row, 1, "Cell : <$row, 1>");
  #  }
  }
=20
  my $row =3D 1;

  for my $CellType (GVIT_NUMERIC, GVIT_DATE, GVIT_DATECAL, GVIT_TIME,
GVIT_CHECK, GVIT_COMBO, GVIT_LIST, GVIT_URL) {
     $Grid->SetCellType($row++, 1, $CellType);
  }
  $Grid->SetCellOptions( 5, 1, 1 );  # button?
  $Grid->SetCellOptions( 6, 1, [ "Combo", "Box" ]);
  $Grid->SetCellOptions( 7, 1, [ "List", "Box" ]);
#  $Grid->AutoSize();
  $TopWindow->Show();                             # makes TopWindow =
visible
  Win32::GUI::Dialog();                           # Windows control loop

sub TopWindow_Resize {
  my ($width, $height) =3D ($TopWindow->GetClientRect)[2..3];
  $Grid->Resize ($width, $height);
  $Grid->AutoSize(GVS_BOTH);
  $Grid->ExpandLastColumn;
}

=3Dend

Brian Millham
This message traveled at least 44,000 miles to reach you!
Creator of the DW6000 Monitor
http://www.millham.net/dw6000
bmillham@...
-----Original Message-----
From: perl-win32-gui-users-bounces@...
[mailto:perl-win32-gui-users-bounces@...] On Behalf Of
Arthur Schwarz
Sent: Thursday, October 12, 2006 12:35 PM
To: Brian Millham; perl-win32-gui-users@...
Subject: Re: [perl-win32-gui-users] Grid questions

Thanks. I tried it and was able to get a check box displayed and I am
working on getting the List and Combo box. Any suggestions on what, =
where ,
how, how much, or when would be a great help.
=A0
As a separate note to Robert May, it appears that the following =
constants
are missing from Win32::GUI::Constants (or I am missing the point):
=A0 GVIT_CHECK=A0=A0 =3D Check Box
=A0 GVIT_DATE=A0=A0=A0 =3D Date control
=A0 GVIT_DATECAL =3D Date control with calendar control
=A0 GVIT_DEFAULT =3D=20
=A0 GVIT_COMBO=A0=A0 =3D Combo Box
=A0 GVIT_LIST=A0=A0=A0 =3D List Box
=A0 GVIT_NUMERIC =3D Numeric control edit
=A0 GVIT_TIME=A0=A0=A0 =3D Time control
=A0 GVIT_URL=A0=A0=A0=A0 =3D Url control
=A0
=A0 GVL_BOTH Both vertical and horizontal grid lines
=A0 GVL_NONE No grid lines.
=A0 GVL_HORZ Horizontal grid lines only.
=A0 GVL_VERT Vertical grid lines only.
=A0
=A0 GVNI_ABOVE=A0=A0=A0=A0=A0=A0 =3D Search above initial cell
=A0 GVNI_ALL=A0=A0=A0=A0=A0=A0=A0=A0 =3D Search all cells in the =
grid=A0starting from the given
cell
=A0 GVNI_AREA=A0=A0=A0=A0=A0=A0=A0 =3D Search all cells below and to =
the=A0right of the given
cell
=A0 GVNI_BELOW=A0=A0=A0=A0=A0=A0 =3D Search below initial cell
=A0 GVNI_DROPHILITED =3D Search for drop highlighted cells
=A0 GVNI_FIXED=A0=A0=A0=A0=A0=A0 =3D Search for fixed cells
=A0 GVNI_FOCUSED=A0=A0=A0=A0 =3D Search for focus cell
=A0 GVNI_MODIFIED=A0=A0=A0 =3D Search for modified cells
=A0 GVNI_READONLY=A0=A0=A0 =3D Search for read-only cells
=A0 GVNI_SELECTED=A0=A0=A0 =3D Search for selected cells
=A0 GVNI_TOLEFT=A0=A0=A0=A0=A0 =3D Search to the left of the =
initial=A0cell
=A0 GVNI_TORIGHT=A0=A0=A0=A0 =3D Search to the right of the initial cell
=A0
=A0 GVS_BOTH Use fixed and non-fixed cells.
=A0 GVS_DATA Use only non-fixed cells.
=A0 GVS_DEFAULT Default.
=A0 GVS_HEADER Use only the fixed cells.


Brian Millham <bmillham@...> wrote:=20
Hi Art,
You have it right.=A0 You just got caught by the 0 index.=A0 You are =
trying to
set the contents of cell , but you should be setting cell 1.
=A0
=A0 for my $CellType (GVIT_NUMERIC, GVIT_DATE, GVIT_DATECAL, GVIT_TIME,
GVIT_CHECK, GVIT_COMBO, GVIT_LIST, GVIT_URL) {
=A0=A0=A0=A0 $Grid->SetCellType($row++, 1, $CellType);
=A0 }
=A0 $Grid->SetCellOptions( 5, 1, 1 );=A0 # button?
=A0 $Grid->SetCellOptions( 6, 1, [ "Combo", "Box" ]);
=A0 $Grid->SetCellOptions( 7, 1, [ "List", "Box" ]);
I changed the above lines, and your sample worked for me.
Brian Millham
This message traveled at least 44,000 miles to reach you!
Creator of the DW6000 Monitor
http://www.millham.net/dw6000
bmillham@...
---
avast! Antivirus: Inbound message clean.
Virus Database (VPS): 0641-3, 10/12/2006
Tested on: 10/12/2006 5:04:51 PM
avast! is copyright (c) 2000-2006 ALWIL Software.
http://www.avast.com

---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0641-3, 10/12/2006
Tested on: 10/12/2006 8:04:30 PM
avast! is copyright (c) 2000-2006 ALWIL Software.
http://www.avast.com

Re: [perl-win32-gui-users] Grid questions

From: Arthur Schwarz <aschwarz1309@ve...> - 2006-10-13 08:37

Attachments: Message as HTML

Heres a working example of your code. It only took minor changes to get it working. I've added comments where I made changes.

    <snip>
   
  # The original example had the grid way off to the right. This was causing

    <snip>
   
  After your last e-mail I got confused (you got the code working, mine didn't work) and investigated until I discovered that the horizontal scroll bar doesn't cause scrolling. The cells were truncated and the expansion 'buttons' were not visible.
   
  Thanks.
   
  art

Re: [perl-win32-gui-users] [win32-gui] Re: Grid questions

From: Robert May <rmay@po...> - 2006-10-14 03:34

Arthur Schwarz wrote:
> Thanks;
>  
> On the topic of constants, in my humble way I thought that all constants 
> were located in GUI::Constants. Is there a caveat to this?

[snipped discussion about GVIT_* and other Grid control constants being 
defined and exported by the Win32::GUI::Grid package and not the (new) 
Win32::GUI::Constants package]

No defined strategy at the moment.  Win32::GUI::Constants was designed 
to move the constant support out of Win32::GUI package, and to extend 
the constants available.

For Win32::GUI::Grid I simply ported the existing functionality to 
Win32::GUI 1.03/1.04 and integrated the codebase - I haven't applied any 
though as to whether the constant support should be moved.  It'll stay 
how it is for now.

Regards,
Rob.