Documentation component by D.Glodt (c)2000-2003, appended by John Kelly	Appendix A: QFormMDI

QFormMDI Component

INCLUDED IN RAPIDQ2.INC
QFormMDI is identical to a QForm but with Multi Document Interface (like WORD or EXCEL that has forms inside a form. Each 'child' form can have one RapidQ component (e.g., Qpanel, QRichEdit, QScrollBox...). Before you add the component to the Child Form, first set Visible= False then set the parent property. Separate Menus for each Child form is not supported. The components can be declared as variables array or to be of different type for each window child MDI. See limitations.

QFormMDI Property

Field Type R/W Default

ChildCaption STRING R/W

Text of title bar of active child window

ChildHandle LONG R

Handle of active child window

ChildLeft SHORT R/W

Left position of active child window

ChildTop SHORT R/W

Top position of active child window

ChildWidth SHORT R/W

Width of active child window

ChildHeight SHORT R/W

Height of active child window

ChildMax INTEGER R/W 1024

Maximum child window

ChildCount INTEGER R

Child window number

ChildIcon LONG R/W

Icon handle for child window

ChildState INTEGER R/W

State of active child window,could be wsNormal,wsMinimized,wsMaximized wsNormal

MDIMenu LONG R/W

Sub menu handle to insert the child window name

ComponentIndex INTEGER R

Index of associated component to the active child window

ChildResult INTEGER R/W False

Result of the action of closing of a child window, the value is has true during closing and can be put at false at the time of a OnChildClose event to cancel closing if the application requires a safeguard

QFormMDI Methods

Method Type Description Params

AddChild SUB(handle&,Title$,index&,left%,
top%,width%,height%,DefaultSize&) Add a child window , handle& is the handle component
associated the child window , Title$ is the text of the title bar of
the child window , index& is the number of the associated component,
DefaultSize& indicates if one uses dimensions by default. 8

CloseChild SUB Close the active child window 0

CloseAllChild SUB Close all the child window 0

CascadeChild SUB Resize all the child window on cascade 0

SetHorzChild SUB Resize all the child window on horizontal 0

SetVertChild SUB Resize all the child window on vertical 0

IconArrangeChild SUB Arrange all the child window on icon 0

MinimizeAllChild SUB Minimize all the child window 0

MaximizeAllChild SUB Maximize all the child window 0

RestoreChild SUB Restore the child window

ActiveNextChild SUB Activate the next child window 0

ActivePreviousChild SUB Activate the previous child window 0

GetChild FUNCTION(Title$)& Return the index of child window corresponding to the title Title$ 1

ChildExist FUNCTION(Title$)& Return the existence of a child window by his title 1

ActiveChild SUB(Index&) Activate the child window identified by index& 1

FreeChild FUNCTION(handle&)& Return the state associated from a component to a child window, return True if
the component identified by handle& is not associated to a child window 1

SetDeskBar SUB The application will be in the task bar during its reduction 0

QFormMDI Events

Event Type Occurs when... Params

OnChildClose (handleChild&,index&,titleChild$) Closing child window, the parameter index& is the index of the associated component 3

OnChildActive (handleChild&,index&,titleChild$) Activation child window 3

OnChildResize (handleChild&,index&,titleChild$) Resize child window 3

QFormMDI Example1

$TYPECHECK ON
$include "rapidq2.inc"
DECLARE SUB mnuNew_Click
DECLARE SUB mnuOpen_Click
DECLARE SUB mnuClose_Click
DECLARE SUB mnuCloseAll_Click
DECLARE SUB mnuNext_Click
DECLARE SUB mnuPrevious_Click
DECLARE SUB mnuCascade_Click
DECLARE SUB mnuTileHorz_Click
DECLARE SUB mnuTileVert_Click
DECLARE SUB mnuArrange_Click
DECLARE SUB mnuMinAll_Click
DECLARE SUB mnuMaxAll_Click
DECLARE SUB mnuRestAll_Click
DECLARE SUB mnuCut_Click
DECLARE SUB mnuCopy_Click
DECLARE SUB mnuPaste_Click
DECLARE SUB mnuSelectAll_Click
DECLARE SUB show
DECLARE SUB close
DECLARE SUB KeyDown(Key as word,Shift as integer)
DECLARE SUB infos(handleChild as long,index as integer,titleChild as string)
DECLARE SUB CloseMDI(handleChild as long,index as integer,titleChild as string)
dim j as integer
dim flag as integer
dim UntitledCount as integer

DIM Dumm as QFORMex
Dumm.FormStyle = fsStayOnTop

CREATE Form AS QFormMDI
  Caption = "MDI Parent"
  Center
  Width=Screen.Width/2*1.5
  Height=Screen.Height/2*1.5
  CREATE mnuMain AS QMAINMENU
    CREATE mnuFile AS QMENUITEM
      Caption="&File"
      CREATE mnuNew AS QMENUITEM
        Caption="&New"
        OnClick=mnuNew_Click
      END CREATE
      CREATE mnuOpen AS QMENUITEM
        Caption="&Open"
        OnClick=mnuOpen_Click
      END CREATE
      CREATE mnuClose AS QMENUITEM
        Caption="&Close"
        OnClick=mnuClose_Click
      END CREATE
      CREATE mnuCloseAll AS QMENUITEM
        Caption="Close &All"
        OnClick=mnuCloseAll_Click
      END CREATE
      CREATE mnuNext AS QMENUITEM
        Caption="Next"
        OnClick=mnuNext_Click
      END CREATE
      CREATE mnuPrevious AS QMENUITEM
        Caption="Previous"
        OnClick=mnuPrevious_Click
      END CREATE
    END CREATE
    CREATE mnuEdit as QMENUITEM
      Caption="&Edit"
      CREATE mnuCut as QMENUITEM
        Caption="&Cut"
        ShortCut="CTRL+X"
        OnClick=mnuCut_Click
      END CREATE
      CREATE mnuCopy as QMENUITEM
        Caption="&Copy"
        ShortCut="CTRL+C"
        OnClick=mnuCopy_Click
      END CREATE
      CREATE mnuPaste as QMENUITEM
        Caption="&Paste"
        ShortCut="CTRL+V"
        OnClick=mnuPaste_Click
      END CREATE
      CREATE Sep2 as QMENUITEM
        Caption="-"
      END CREATE
      CREATE mnuSelectAll as QMENUITEM
        Caption="&Select all"
        ShortCut="CTRL+A"
        OnClick=mnuSelectAll_Click
      END CREATE
    END CREATE
    CREATE mnuWindows AS QMENUITEM
      Caption="&Windows"
      CREATE mnuCascade AS QMENUITEM
        Caption="&Cascade"
        OnClick=mnuCascade_Click
      END CREATE
      CREATE mnuTileHorz AS QMENUITEM
        Caption="Tile &Horizontally"
        OnClick=mnuTileHorz_Click
      END CREATE
      CREATE mnuTileVert AS QMENUITEM
        Caption="Tile &Vertically"
        OnClick=mnuTileVert_Click
      END CREATE
      CREATE mnuArrange AS QMENUITEM
        Caption="&Arrange Icons"
        OnClick=mnuArrange_Click
      END CREATE
      CREATE mnuMinAll AS QMENUITEM
        Caption="&Minimize All"
        OnClick=mnuMinAll_Click
      END CREATE
      CREATE mnuMaxAll AS QMENUITEM
        Caption="Ma&ximixe All"
        OnClick=mnuMaxAll_Click
      END CREATE
      CREATE mnuRestAll AS QMENUITEM
        Caption="&Restore All"
        OnClick=mnuRestAll_Click
      END CREATE
    END CREATE
  END CREATE
  CREATE Stat AS QSTATUSBAR
  END CREATE
  KeyPreview=true
  MdiMenu=mnuWindows.handle
  ChildMax=20
  OnChildClose=CloseMDI
  OnChildActive=infos
  OnClose=Close
  OnPaint=Show
  OnKeyDown=KeyDown
END CREATE
' Components for MDI
dim edit(20) as qrichedit
dim handleControl as long
for j=0 to 20
  edit(j).parent=form
  edit(j).visible=false 'must be no visible
  edit(j).ScrollBars=3
  edit(j).WordWrap=false
next j
Form.SetDeskBar
Form.ShowModal
'Find free component for MDI
Function GetCtl() as integer
  dim find as integer
  dim h as integer
  find=0
  for j=0 to 20
    if form.FreeChild(edit(j).handle) and find=0 then
      h=j
      find=1
    end if
  next j
  result=h
End Function
SUB mnuNew_Click
  dim index as integer
dumm.Show
  if form.ChildCount<form.ChildMax then
    index=GetCtl()
    form.AddChild(edit(index).handle,"Untitled "+STR$(UntitledCount+1),index,0,0,0,0,true)
    UntitledCount++
  end if
END SUB
SUB mnuOpen_Click
  dim index as integer
  DIM OD AS QOPENDIALOG
  OD.Filter="Text file(*.txt)|*.txt"
  if form.ChildCount<form.ChildMax then
    IF OD.Execute THEN
      IF form.ChildExist(OD.FileName) THEN
        form.ActiveChild(form.GetChild(OD.FileName))
        EXIT SUB
      END IF
      index=GetCtl()
      edit(index).loadfromfile(OD.FileName)
      edit(index).modified=false
      form.AddChild(edit(index).handle,OD.FileName,index,0,0,0,0,True)
      UntitledCount++
    END IF
  end if
END SUB
SUB CloseMDI(handleChild as long,index as integer,titleChild as string)
  dim msgButton as integer
  if edit(index).modified then
    msgButton=MessageBox("Fermer fenetre?",titleChild,36)
    if msgButton=6 then
      edit(index).modified=false
      edit(index).clear
      form.ChildResult=true
    else
      form.ChildResult=false
    end if
  else
    edit(index).clear
  end if
END SUB
SUB mnuClose_Click
  form.CloseChild
  if form.ChildCount=0 then stat.simpleText=""
END SUB
SUB mnuCloseAll_Click
  form.CloseAllChild
  if form.ChildCount=0 then stat.simpleText=""
END SUB
SUB mnuNext_Click
  form.ActiveNextChild
END SUB
SUB mnuPrevious_Click
  form.ActivePreviousChild
END SUB
SUB mnuCascade_Click
  form.CascadeChild
END SUB
SUB mnuTileHorz_Click
  form.SetHorzChild
END SUB
SUB mnuTileVert_Click
  form.SetVertChild
END SUB
SUB mnuArrange_Click
  form.IconArrangeChild
END SUB
SUB mnuMinAll_Click
  form.MinimizeAllChild
END SUB
SUB mnuMaxAll_Click
  form.MaximizeAllChild
END SUB
SUB mnuRestAll_Click
  form.RestoreChild
END SUB
SUB mnuCut_Click
  if form.ChildCount>0 then
    edit(form.componentIndex).CutToClipBoard
  end if
END SUB
SUB mnuCopy_Click
  if form.ChildCount>0 then
    edit(form.componentIndex).CopyToClipBoard
  end if
END SUB

SUB mnuPaste_Click
  if form.ChildCount>0 then
    edit(form.componentIndex).PasteFromClipBoard
  end if
END SUB

SUB mnuSelectAll_Click
  if form.ChildCount>0 then
    edit(form.componentIndex).SelectAll
  end if
END SUB

SUB infos(handleChild as long,index as integer,titleChild as string)
  stat.simpleText=titleChild
End Sub

SUB show
  dim index as integer
  if flag=false then
    if form.ChildCount<form.ChildMax then
      index=GetCtl()
      form.AddChild(edit(index).handle,"Untitled "+STR$(UntitledCount+1),index,0,0,0,0,true)
      UntitledCount++
    end if
    flag=true
  end if
END SUB

Sub Close
  form.CloseAllChild
  application.terminate
End Sub

Sub KeyDown(key as word,shift as integer)
  'next child with Ctrl+F6
  if shift=CtrlDown and key=VK_F6 then form.ActiveNextChild
end sub

QFormMDI Example2

$TYPECHECK ON
$OPTION ICON "photo.ico"
$include "rapidq2.inc"
$Include "QICON.inc"

DECLARE SUB mnuNew_Click
DECLARE SUB mnuOpen_Click
DECLARE SUB mnuClose_Click
DECLARE SUB mnuCloseAll_Click
DECLARE SUB mnuNext_Click
DECLARE SUB mnuPrevious_Click
DECLARE SUB mnuCascade_Click
DECLARE SUB mnuTileHorz_Click
DECLARE SUB mnuTileVert_Click
DECLARE SUB mnuArrange_Click
DECLARE SUB mnuMinAll_Click
DECLARE SUB mnuMaxAll_Click
DECLARE SUB mnuRestAll_Click
DECLARE SUB show
DECLARE SUB close
DECLARE SUB KeyDown(Key as word,Shift as integer)
DECLARE SUB infos(handleChild as long,index as integer,titleChild as string)
DECLARE SUB CloseMDI(handleChild as long,index as integer,titleChild as string)

dim j as integer
dim flag as integer
dim UntitledCount as integer
dim icon as Qicon
    icon.associated=true
    icon.filename=command$(0)

CREATE Form AS QFormMDI
  Caption="MDI Parent"
  Center
  Width=Screen.Width/2*1.5
  Height=Screen.Height/2*1.5
  ChildIcon=icon.handle
  CREATE panel as QPANEL
    align=1
    height=35
    bevelOuter=0
    CREATE bt1 as QBUTTON
      top=5
      left=5
      width=25
      Hint="Prévious"
      ShowHint=true
      caption="<<"
      OnClick=mnuPrevious_Click
    END CREATE
    CREATE bt2 as QBUTTON
      top=5
      left=35
      width=25
      Hint="Next"
      ShowHint=true
      caption=">>"
      OnClick=mnuNext_Click
    END CREATE
  END CREATE
  CREATE mnuMain AS QMAINMENU
    CREATE mnuFile AS QMENUITEM
      Caption="&File"
      CREATE mnuNew AS QMENUITEM
        Caption="&New"
        OnClick=mnuNew_Click
      END CREATE
      CREATE mnuOpen AS QMENUITEM
        Caption="&Open"
        OnClick=mnuOpen_Click
      END CREATE
      CREATE mnuClose AS QMENUITEM
        Caption="&Close"
        OnClick=mnuClose_Click
      END CREATE
      CREATE mnuCloseAll AS QMENUITEM
        Caption="Close &All"
        OnClick=mnuCloseAll_Click
      END CREATE
      CREATE mnuNext AS QMENUITEM
        Caption="Next"
        OnClick=mnuNext_Click
      END CREATE
      CREATE mnuPrevious AS QMENUITEM
        Caption="Previous"
        OnClick=mnuPrevious_Click
      END CREATE
    END CREATE
    CREATE mnuWindows AS QMENUITEM
      Caption="&Windows"
      CREATE mnuCascade AS QMENUITEM
        Caption="&Cascade"
        OnClick=mnuCascade_Click
      END CREATE
      CREATE mnuTileHorz AS QMENUITEM
        Caption="Tile &Horizontally"
        OnClick=mnuTileHorz_Click
      END CREATE
      CREATE mnuTileVert AS QMENUITEM
        Caption="Tile &Vertically"
        OnClick=mnuTileVert_Click
      END CREATE
      CREATE mnuArrange AS QMENUITEM
        Caption="&Arrange Icons"
        OnClick=mnuArrange_Click
      END CREATE
      CREATE mnuMinAll AS QMENUITEM
        Caption="&Minimize All"
        OnClick=mnuMinAll_Click
      END CREATE
      CREATE mnuMaxAll AS QMENUITEM
        Caption="Ma&ximixe All"
        OnClick=mnuMaxAll_Click
      END CREATE
      CREATE mnuRestAll AS QMENUITEM
        Caption="&Restore All"
        OnClick=mnuRestAll_Click
      END CREATE
    END CREATE
  END CREATE
  CREATE Stat AS QSTATUSBAR
  END CREATE
  KeyPreview=true
  MdiMenu=mnuWindows.handle
  ChildMax=20
  OnChildClose=CloseMDI
  OnChildActive=infos
  OnClose=Close
  OnKeyDown=KeyDown
END CREATE

'components for MDI
dim edit(20) as qpanel
dim img(20) as qimage
for j=0 to 20
  edit(j).parent=form
  edit(j).visible=false 'must be no visible
  edit(j).bevelOuter=0
  edit(j).color=&hffffff
  img(j).AutoSize=1
  img(j).Parent=edit(j)
next j

Form.SetDeskBar
Form.ShowModal

'Find free component for MDI
Function GetCtl() as integer
  dim find as integer
  dim h as integer

  find=0
  for j=0 to 20
    if form.FreeChild(edit(j).handle) and find=0 then
      h=j
      find=1
    end if
  next j
  result=h
End Function

SUB mnuNew_Click
  dim index as integer

  if form.ChildCount<form.ChildMax then
    index=GetCtl()
    form.AddChild(edit(index).handle,"Untitled "+STR$(UntitledCount+1),index,0,0,0,0,true)
    UntitledCount++
  end if
END SUB

SUB mnuOpen_Click
  dim index as integer
  DIM OD AS QOPENDIALOG

  OD.caption="Load image"
  OD.Filter="Bitmap file(*.bmp)|*.bmp"
  if form.ChildCount<form.ChildMax then
    IF OD.Execute THEN
      IF form.ChildExist(OD.FileName) THEN
        form.ActiveChild(form.GetChild(OD.FileName))
        EXIT SUB
      END IF
      index=GetCtl()
      img(index).bmp=OD.FileName
      form.AddChild(edit(index).handle,OD.FileName,index,0,0,img(index).width+8,img(index).height+27,False)
      UntitledCount++
    END IF
  end if
END SUB

SUB CloseMDI(handleChild as long,index as integer,titleChild as string)
  img(index).handle=0
END SUB

SUB mnuClose_Click
  form.CloseChild
  if form.ChildCount=0 then stat.simpleText=""
END SUB

SUB mnuCloseAll_Click
  form.CloseAllChild
  if form.ChildCount=0 then stat.simpleText=""
END SUB

SUB mnuNext_Click
  form.ActiveNextChild
END SUB

SUB mnuPrevious_Click
  form.ActivePreviousChild
END SUB

SUB mnuCascade_Click
  form.CascadeChild
END SUB

SUB mnuTileHorz_Click
  form.SetHorzChild
END SUB

SUB mnuTileVert_Click
  form.SetVertChild
END SUB

SUB mnuArrange_Click
  form.IconArrangeChild
END SUB

SUB mnuMinAll_Click
  form.MinimizeAllChild
END SUB

SUB mnuMaxAll_Click
  form.MaximizeAllChild
END SUB

SUB mnuRestAll_Click
  form.RestoreChild
END SUB

SUB infos(handleChild as long,index as integer,titleChild as string)
  stat.simpleText=titleChild
End Sub

Sub Close
  form.CloseAllChild
  if form.ChildCount>0 then form.modalResult=false
  if form.ChildCount=0 then icon.filename=""
End Sub

Sub KeyDown(key as word,shift as integer)
  'next child with Ctrl+F6
  if shift=CtrlDown and key=VK_F6 then form.ActiveNextChild
end sub

Field	Type	R/W	Default

ChildCaption	STRING	R/W
	Text of title bar of active child window
ChildHandle	LONG	R
	Handle of active child window
ChildLeft	SHORT	R/W
	Left position of active child window
ChildTop	SHORT	R/W
	Top position of active child window
ChildWidth	SHORT	R/W
	Width of active child window
ChildHeight	SHORT	R/W
	Height of active child window
ChildMax	INTEGER	R/W	1024
	Maximum child window
ChildCount	INTEGER	R
	Child window number
ChildIcon	LONG	R/W
	Icon handle for child window
ChildState	INTEGER	R/W
	State of active child window,could be wsNormal,wsMinimized,wsMaximized		wsNormal
MDIMenu	LONG	R/W
	Sub menu handle to insert the child window name
ComponentIndex	INTEGER	R
	Index of associated component to the active child window
ChildResult	INTEGER	R/W	False
	Result of the action of closing of a child window, the value is has true during closing and can be put at false at the time of a OnChildClose event to cancel closing if the application requires a safeguard

Method	Type	Description	Params

AddChild	SUB(handle&,Title$,index&,left%, top%,width%,height%,DefaultSize&)	Add a child window , handle& is the handle component associated the child window , Title$ is the text of the title bar of the child window , index& is the number of the associated component, DefaultSize& indicates if one uses dimensions by default.	8
CloseChild	SUB	Close the active child window	0
CloseAllChild	SUB	Close all the child window	0
CascadeChild	SUB	Resize all the child window on cascade	0
SetHorzChild	SUB	Resize all the child window on horizontal	0
SetVertChild	SUB	Resize all the child window on vertical	0
IconArrangeChild	SUB	Arrange all the child window on icon	0
MinimizeAllChild	SUB	Minimize all the child window	0
MaximizeAllChild	SUB	Maximize all the child window	0
RestoreChild	SUB	Restore the child window
ActiveNextChild	SUB	Activate the next child window	0
ActivePreviousChild	SUB	Activate the previous child window	0
GetChild	FUNCTION(Title$)&	Return the index of child window corresponding to the title Title$	1
ChildExist	FUNCTION(Title$)&	Return the existence of a child window by his title	1
ActiveChild	SUB(Index&)	Activate the child window identified by index&	1
FreeChild	FUNCTION(handle&)&	Return the state associated from a component to a child window, return True if the component identified by handle& is not associated to a child window	1
SetDeskBar	SUB	The application will be in the task bar during its reduction	0

Event	Type	Occurs when...	Params

OnChildClose	(handleChild&,index&,titleChild$)	Closing child window, the parameter index& is the index of the associated component	3
OnChildActive	(handleChild&,index&,titleChild$)	Activation child window	3
OnChildResize	(handleChild&,index&,titleChild$)	Resize child window	3