From: Arthur S. <asc...@ve...> - 2006-10-11 18:51:07
|
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) |
From: Robert M. <rm...@po...> - 2006-10-11 21:11:09
|
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 > Per...@li... > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > http://perl-win32-gui.sourceforge.net/ |
From: Brian M. <bmi...@hu...> - 2006-10-12 00:18:10
|
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 bmi...@hu... -----Original Message----- From: per...@li... [mailto:per...@li...] On Behalf Of Arthur Schwarz Sent: Wednesday, October 11, 2006 2:51 PM To: per...@li... 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 |
From: Arthur S. <asc...@ve...> - 2006-10-12 16:35:09
|
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 <bmi...@hu...> 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 bmi...@hu... |
From: Robert M. <rm...@po...> - 2006-10-12 18:43:52
|
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. |
From: Arthur S. <asc...@ve...> - 2006-10-12 19:51:02
|
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 <rm...@po...> 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. |
From: Robert M. <rm...@po...> - 2006-10-14 03:34:44
|
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. |
From: Brian M. <bmi...@hu...> - 2006-10-13 00:07:53
|
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 bmi...@hu...=20 -----Original Message----- From: per...@li... [mailto:per...@li...] On Behalf Of Arthur Schwarz Sent: Thursday, October 12, 2006 12:35 PM To: Brian Millham; per...@li... 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 <bmi...@hu...> 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 bmi...@hu...=20 --- 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 |
From: Arthur S. <asc...@ve...> - 2006-10-13 08:37:39
|
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 |