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@hughes.net

-----Original Message-----
From:
perl-win32-gui-users-bounces@lists.sourceforge.net [mailto:perl-win32-gui-users-bounces@lists.sourceforge.net] On Behalf Of Arthur Schwarz
Sent: Wednesday,
October 11, 2006 2:51 PM
To:
perl-win32-gui-users@lists.sourceforge.net
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