OpenEuphoria

Re: Grid Control: getting original checkbox state

• Posted by Dan Moyer <DANIELMOYER at prodigy.net> Feb 10, 2003
• 498 views

Jonas,

That's ok, and you got it exactly right.

I realize the Grid Control is intended more for spreadsheet apps, I was just
wondering if it could be generalized to include optional "other" looks.  And
I can use it just fine just like it is, too.

Dan


----- Original Message -----
From: "Jonas Temple" <jktemple at yhti.net>
To: "EUforum" <EUforum at topica.com>
Sent: Monday, February 10, 2003 8:13 AM
Subject: RE: Grid Control: getting original checkbox state


>
> Dan,
>
> Sorry to butt in on the conversation.
>
> I think I understand what you're wanting.  You're wanting the grid
> control itself to be no larger than the actual size of the rows/columns
> within the control.  Then the control size would expand as more data
> rows were added, eventually showing a scroll bar when the control
> reached it's maximum size.  Is that about right?
>
> I believe the current behavior of EuGrid is consistent with other
> "commercial" grid controls out there.  Most grid controls will have
> "grey space" to fill the controls size when the rows/columns don't fill
> the entire control.
>
> It's my opinion that this behavior shouldn't be added to EuGrid.
> However, one approach might be to use Don Phillip's xControls to
> dynamically change the size of the grid control.  Phil has done a nice
> job of making sure EuGrid and xControls are compatible.
>
> HTH,
>
> Jonas
> Dan Moyer wrote:
> > Hi Phil,
> >
> > Well, that's close but not exactly what I meant; refer to the demo
> > following
> > this (& if it's a poor way to do what I'm trying to do, by all means
> > make
> > corrections!).
> >
> > Consider when a Grid Control is created: it shows up as a rectangle of
> > x-y
> > dimensions, even though it could be *empty* to begin with.  Then add
> > *one*
> > row of data: the row shows up, but inside an otherwise *empty*
> > rectangle.
> > If you then add additional rows of data, eventually it will have to
> > vertically scroll, which it does.
> >
> > What I am suggesting is that when it *originally* shows, if it has no
> > data,
> > just the top legends should (optionally) show; then, if *one* row is
> > added,
> > *just that row* would show under the legends, *not* the whole empty grid
> > rectangle.  And then, as now, when enough rows are added so there's not
> > enough space for them, scroll bars obtain.
> >
> > Dan Moyer
> >
> > <code follows:>
> >
> > --  code generated by Win32Lib IDE v0.14.2
> >
> > include Win32lib.ew
> > without warning
> >
>
> --------------------------------------------------------------------------
--
> >
> > ----
> > --  Window Window1
> > constant Window1 = createEx( Window, "Grid Control with CheckBoxes", 0,
> > Default, Default, 600, 300, 0, 0 )
> > constant PushButton2 = createEx( PushButton, "Select File", Window1,
> > 484,
> > 20, 88, 28, 0, 0 )
> > constant PushButton3 = createEx( PushButton, "Process Data", Window1,
> > 484,
> > 72, 88, 28, 0, 0 )
> > ---------------------------------------------------------
>
> --------------------------------------------------------------------------
--
> >
> > ----
> > include eugrid.ew
> > atom void
> >
> > integer aGrid, colFileName, colCB1, colCB2, colFileDir
> >
> > -- Create grid, create parms=(parent, x, y, width, height, show_window)
> > aGrid = EGW_CreateGrid( Window1, 10, 15, 450, 200, True )
> >
> > -- no row header
> > void = EGW_SetGridProperty( aGrid, EGW_ROW_HEADER_WIDTH, 0)
> >
> >
> > -- Filename column - static text, left-aligned by default
> > colFileName  = EGW_AddColumn( aGrid, "FileName", 200, EGW_LAST,
> > EGW_STATIC,
> > 1 )
> > void = EGW_SetColumnProperty(aGrid, colFileName, EGW_COL_ALIGN,
> > EGW_CENTER)
> > --void   = EGW_SetColumnProperty( aGrid, colFileName, EGW_COL_WIDTH, 75
> > )
> >
> > -- checkbox columns:
> > colCB1 = EGW_AddColumn(aGrid, "Action1", 100, EGW_LAST, EGW_CHECKBOX, 2
> > )
> > void = EGW_SetColumnProperty(aGrid, colCB1, EGW_COL_ALIGN, EGW_CENTER)
> > colCB2 = EGW_AddColumn(aGrid, "Action2", 100, EGW_LAST, EGW_CHECKBOX, 3
> > )
> > void = EGW_SetColumnProperty(aGrid, colCB2, EGW_COL_ALIGN, EGW_CENTER)
> >
> > -- file directory column:
> > colFileDir  = EGW_AddColumn( aGrid, "FileDirectory", 400, EGW_LAST,
> > EGW_STATIC, 4 )
> > void = EGW_SetColumnProperty(aGrid, colFileDir, EGW_COL_ALIGN,
> > EGW_CENTER)
>
> --------------------------------------------------------------------------
--
> >
> > ----
> > procedure PushButton2_onClick (integer self, integer event, sequence
> > params)--params is ()
> > seq fName, dirName, fullPathName, temp
> > seq newRow
> > int row, posBS  -- posBS is position of back-slash in file name
> >
> > temp = {}
> >
> >   -- get a file name
> >   fName = getOpenFileName( Window1, current_dir() & "\\", "" )
> >   -- entered a file name?
> >   if length( fName ) = 0 then
> >      return
> <snip>
>
>
>
> TOPICA - Start your own email discussion group. FREE!
>