' Gambas class file

Private hFEmbedded As FEmbedded
Private mnuMenu1 As Menu 
Private mnu11Close As Menu 

Public Sub Form_Open()
  
  Dim cChildren As Control
  
  FMain.Center()
  SwitchButton1.Animated = True
  SwitchButton1.Value = False
  
  ' If FMain.Children.Count > 0 Then
  '    For Each cChildren In FMain.Children
  '        Print cChildren.Name
  '    Next
  ' Endif
  
  hFEmbedded = New FEmbedded(panEmbedder)
  
  mnuMenu1 = New Menu(hFEmbedded, False) ' 1. Eintrag in der Menü-Leiste, sichtbar
  mnuMenu1.Caption = "Datei" 
  mnu11Close = New Menu(mnuMenu1) As "mnuClose" 
  mnu11Close.Caption = "Embedded-Fenster schließen" 
  mnu11Close.Picture = Picture["icon:/16/quit"] 
  
End ' Form_Open()

Public Sub mnuClose_Click() 
  hFEmbedded.Close() 
  SwitchButton1.Enabled = False
End ' mnuClose_Click() 

Public Sub SwitchButton1_Click()

  If SwitchButton1.Value = True Then
     hFEmbedded.Background = &HFFFFDF
  Else
     hFEmbedded.Background = Color.Default
  Endif 
    
End ' SwitchButton1_Click()

Public Sub btnClose_Click()
  FMain.Close()
End ' btnClose_Click()

