[Gambas-user] MDI Form, Workspace and minimized Windows

[Bruce Steers]

On Thu, 3 Aug 2023 at 17:49, Demosthenes Koptsis <demosthenesk at gmail.com>
wrote:

> Hello,
>
> there is no interest to develop a port of QMdiArea which is a window-mdi.
>
> All the functionality i wanted were by window-mdi component not
> TabStrip, but Gambas3 has the TabStrip version.
>
> So i am not complaining any more.
>

but what does it take to do a minimize function yourself?

I would imagine you can just have a panel and when selecting "minimize" on
the workspace it adds a button/icon to the panel and hides the window/form.
click button and it Shows form again and removes button.

that's pretty much all a minimize function does, It shouldn't be too hard
to make that happen.
BruceS



>
> On 8/3/23 17:35, Gianluigi wrote:
> > Il 03/08/23 13:11, Demosthenes Koptsis ha scritto:
> >>
> >> 1) Well i dont want to detach the form and minimized.
> >>
> >> i was thinking the VB MDI which forms minimized and maximized inside
> >> Workspace...
> >>
> >> ...but as i suppose Gambas3 Workspace does not provide the same usage
> >> with VB MDI.
> >>
> >>
> >> 2) Also VB MDI had scrollbars for forms with larger dimensions,
> >> Gambas does not.
> >>
> >> Gambas Workspace loads forms in maximized state to fill whole
> >> workspace, no matter the size of child-form.
> >>
> >>
> > Hi,
> >
> > Before fully understanding Gambas containers, you need patience.
> > You can do this test:
> > In a new graphic project, in addition to the FMain add a new form, Form1.
> >
> > This is the FMain code:
> >
> > Public Sub Form_Open()
> >
> >   Dim hWork As Workspace
> >
> >   Me.Arrangement = Arrange.Fill
> >
> >   With hWork = New Workspace(Me)
> >     .Add(Form1)
> >   End With
> > End
> >
> > This is the code of Form1:
> >
> > Public Sub Form_Open()
> >
> >   Dim hScrollView As ScrollView
> >   Dim hButton As Button
> >
> >   With Me
> >     .Arrangement = Arrange.Vertical
> >     .Text = "Form 1"
> >   End With
> >   With hScrollView = New ScrollView(Me)
> >     .Arrangement = Arrange.Vertical
> >     .Expand = True
> >     .ScrollBar = Scroll.Vertical
> >   End With
> >   For i As Integer = 1 To 1000
> >     With hButton = New Button(hScrollView) As "Mybutton"
> >       .H = 35
> >       .Text = "Button" & i
> >     End With
> >   Next
> >
> > End
> >
> > Public Sub Mybutton_ClicK()
> >
> >   Print Last.Text
> >
> > End
> >
> > Regards
> >
> > Gianluigi
> >
> >
> > ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
>
> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20230803/cb97e5ec/attachment.htm>