MDIForm example

[chunmingwang]

MDIForm example

freebasic.net/forum

MDIForm.zip

[XusinboyBekchanov]

Very well.
In my opinion, you still need to do Delete to release resources when you close MDIChild.

[chunmingwang]

I will try to use Delele replace the SendMessage(h, WM_CLOSE, 0, 0) for improve

[hustbeef]

Missing the ico in MDI form when the child form state is Maxmium size.

[XusinboyBekchanov]

But if you click on these places it works. In my opinion, the icon and buttons need to be drawn in dark mode.

[XusinboyBekchanov]

Fixed: Showing MDI Child Icon and Minimize, Restore, Close buttons:
XusinboyBekchanov/MyFbFramework@81ff689

[XusinboyBekchanov]

On Dark mode

[chunmingwang]

thanks

[chunmingwang]

Updated using Delete release resources when close MDIChild

MDIForm.zip

[XusinboyBekchanov]

If you do this, there are no errors. We need to find other ways of delete.

Private Sub MDIFormType.mnuFileNew_Click(ByRef Sender As MenuItem)
	Static i As Integer = 0
	Dim frm As MDIChildType Ptr
	
	i += 1
	frm = New MDIChildType
	frm->Text = "Untitled - " & i
	frm->Show(MDIForm)
	frm->CloseForm
	Delete frm
End Sub

[XusinboyBekchanov]

Update Control.bas:
XusinboyBekchanov/MyFbFramework@ff0c829

After this change, your code works without a crash (except for MDIList):

Private Sub MDIChildType.Form_Destroy(ByRef Sender As Control)
	MDIForm.lstMdiChild.Remove(MDIForm.lstMdiChild.IndexOf(@This))
	If MDIForm.lstMdiChild.Count < 1 Then
		MDIForm.actMidChildIdx = -1
		MDIForm.StatusBar1.Text = ""
	End If
	Delete @This
End Sub

[chunmingwang]

thanks, i will check MDIList crashes issue later.

[chunmingwang]

Try this

Private Sub MDIListType.Form_Create(ByRef Sender As Control)
	Tag = -1
	If MDIMain.lstMdiChild.Count < 1 Then Exit Sub
	Dim i As Integer
	For i = 0 To MDIMain.lstMdiChild.Count - 1
		ListControl1.AddItem (Cast(MDIChildType Ptr, MDIMain.lstMdiChild.Item(i))->Text, MDIMain.lstMdiChild.Item(i))
	Next
	ListControl1.ItemIndex = MDIMain.actMidChildIdx
End Sub

[XusinboyBekchanov]

Yes, it will fix the program crash.

[hustbeef]

I think that the MDI child form is not in Darkmode. It will be showing if the MDI child form is in Darkmode.

[XusinboyBekchanov]

Here it is filled with dark color. Now we need to draw buttons and an icon:

[hustbeef]

I add code there:
` '#Region "Form"
#include once "mff/Form.bi"
#include once "mff/Menus.bi"
#include once "mff/ReBar.bi"
#include once "mff/ImageList.bi"
#include once "mff/StatusBar.bi"
#include once "mff/List.bi"

Using My.Sys.Forms
#ifdef __USE_WINAPI__
	InitDarkMode
	SetDarkMode(True, True)
#endif

`
But the MDI child form is not in Darkmode. How to set MDI child form is in Darkmode.

[hustbeef]

OH. no need a MDIList.frm. we could add the Child windows to the menuItem of mennu "Windows". The MDIList.frm is a sigle forms and the DarkMode work fine there.

[chunmingwang]

Update: Add the Child windows to the menuItem of mennu "Windows"

MDIForm.zip

[XusinboyBekchanov]

Very good, you can send a request as an example.

[chunmingwang]

I create a request for MDIForm example
#359

[chunmingwang]

I create a request for MDIForm example
#359

[XusinboyBekchanov]

I accepted, thanks.

[chunmingwang]

closed the MDI child window will not raise the Destroy event, could you please help to check it.

[XusinboyBekchanov]

Answered in this comment:
#248 (comment)

[chunmingwang]

thanks