[Gambas-devel] New gambas MDI Component.

[Fabien Bodard]

2006/6/28, Ron Onstenk <ronstk at ...124...>:
> On Wednesday 28 June 2006 00:18, Fabien Bodard wrote:
> > In this version i've integrated the code that Ron Onstenk have send to me.
> >
> Fine :)
>
> > (Hey Ron!, i've done some change on your code... special windows like
> Forms
> > can't be resized so i deasable the menu tile_window if one of then are
> this
> > type and forget the resizing in cascade.)
> You are the "maintainer" of the gb.form.mda so change as you like.
> The code was a simple quick try to help a bit.
> Did not really test it with Forms, only code editors. (slap myself :) )
>
> As I have seen earlier this evening you did not simple add/remove small code
> snippits but changed i.e. Watch_Close much more I expected compared to
> original.
What original ..? the only code from the Benoi code is the api
interface Workspace.class
> Take a look, if not already done, for the problem I found with close all
> and try open a new code editor.
>
Already corrected in this version, no ?


>
> I'm now busy with some other things but will try it later
>
>
> BTW
> I changed the Tile to correct some dimensions.
>
> To get the best layout I use the SQR of the count+1.
> The plus 1 is to prevent SQR(0), gives 1 at least
> The horizontal count is the integer of it
> The vertical is the total divide by horz, note the no div by zero.
> The IF just below is to make sure I get all windows/forms.
> This part of code is not the best but works here in a quick&dirty way.
> More for fit then best arrange&layout&fit. :)
>
> In both iCCxxx the -24 is for the scrollbar if they occurs.
> I had forgotten the Taskbar on bottom and is now also in calculation.
>
> My actual new code I use now is:
>
> PUBLIC SUB mnuTile_Click()
>   DIM iCCwidth AS Integer
>   DIM iCCheight AS Integer
>   DIM xw AS window
>   DIM off AS Integer
>   DIM offx AS Integer
>   DIM offy AS Integer
>   DIM ix, iy AS Integer
>
>   off = $aWindow.Count
>   offx = Int(Sqr($aWindow.Count + 1))
>   offy = $aWindow.Count \ offx ' offx ' + 1
>   IF (offx * offy) < $aWindow.Count THEN INC offy
>
>   iCCwidth = (ME.ClientWidth - 24) \ IIf(offx = 0, 1, offx)
>   iCCheight = (ME.ClientHeight - hTaskBar.Height - 24) \ IIf(offy = 0, 1,
> offy)
>
>   FOR ix = 0 TO offx - 1
>     FOR iy = 0 TO offy - 1
>       IF (iy * offx + ix) < off THEN '<-- this prevent no existing objects
> :)
>         xw = $aWindow[iy * offx + ix]
>         xw.Width = iCCwidth 'dimension
>         xw.Height = iCCheight
>         xw.Left = iCCwidth * ix 'place
>         xw.Top = iCCheight * iy
>       ENDIF
>     NEXT
>   NEXT
>
> END
>

ok
> Yes I know, using xw.move(x,y,w,h) could be used.
>
> Greets
> Ron
>
> PS, increment you version in tarbal next time :)
>
It's done have you not see that ? 0.1 is not 0.01



> 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
> _______________________________________________
> Gambas-devel mailing list
> Gambas-devel at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-devel
>