' WINFBE FORM
' WINFBE VERSION 2.2.0
' LOCKCONTROLS=False
' SNAPLINES=True
' WINFBE FORM_START
' WINFBE MAINMENU_START
'   MAINMENU_DISPLAY=1
'   MENUITEM_START
'     NAME=mnuPopulate
'     CAPTION=Populate
'     INDENT=0
'     ALT=0
'     SHIFT=0
'     CTRL=0
'     SHORTCUT=
'     CHECKED=0
'     GRAYED=0
'   MENUITEM_END
'   MENUITEM_START
'     NAME=mnuRemove
'     CAPTION=Remove
'     INDENT=0
'     ALT=0
'     SHIFT=0
'     CTRL=0
'     SHORTCUT=
'     CHECKED=0
'     GRAYED=0
'   MENUITEM_END
'   MENUITEM_START
'     NAME=
'     CAPTION=
'     INDENT=0
'     ALT=0
'     SHIFT=0
'     CTRL=0
'     SHORTCUT=
'     CHECKED=0
'     GRAYED=0
'   MENUITEM_END
' WINFBE MAINMENU_END
' WINFBE CONTROL_START Form
'   PROPERTIES_START
'     PROP_NAME=Name
'     PROP_VALUE=Form1
'     PROP_NAME=Left
'     PROP_VALUE=10
'     PROP_NAME=Top
'     PROP_VALUE=10
'     PROP_NAME=Width
'     PROP_VALUE=529
'     PROP_NAME=Height
'     PROP_VALUE=400
'     PROP_NAME=ChildForm
'     PROP_VALUE=False
'     PROP_NAME=Text
'     PROP_VALUE=Demonstration of the Listbox visual gap
'     PROP_NAME=WindowState
'     PROP_VALUE=FormWindowState.Normal
'     PROP_NAME=StartPosition
'     PROP_VALUE=FormStartPosition.CenterScreen
'     PROP_NAME=BorderStyle
'     PROP_VALUE=FormBorderStyle.Sizable
'     PROP_NAME=MinimizeBox
'     PROP_VALUE=True
'     PROP_NAME=MaximizeBox
'     PROP_VALUE=True
'     PROP_NAME=ControlBox
'     PROP_VALUE=True
'     PROP_NAME=Enabled
'     PROP_VALUE=True
'     PROP_NAME=Visible
'     PROP_VALUE=True
'     PROP_NAME=BackColor
'     PROP_VALUE=SYSTEM|Control
'     PROP_NAME=AcceptButton
'     PROP_VALUE=
'     PROP_NAME=AllowDrop
'     PROP_VALUE=False
'     PROP_NAME=KeyPreview
'     PROP_VALUE=False
'     PROP_NAME=CancelButton
'     PROP_VALUE=
'     PROP_NAME=Icon
'     PROP_VALUE=
'     PROP_NAME=Locked
'     PROP_VALUE=False
'     PROP_NAME=MaximumHeight
'     PROP_VALUE=0
'     PROP_NAME=MaximumWidth
'     PROP_VALUE=0
'     PROP_NAME=MinimumHeight
'     PROP_VALUE=0
'     PROP_NAME=MinimumWidth
'     PROP_VALUE=0
'     PROP_NAME=Tag
'     PROP_VALUE=
'   PROPERTIES_END
'   EVENTS_START
'   EVENTS_END
' WINFBE CONTROL_END
' WINFBE CONTROL_START ListBox
'   PROPERTIES_START
'     PROP_NAME=Name
'     PROP_VALUE=List1
'     PROP_NAME=Left
'     PROP_VALUE=24
'     PROP_NAME=Top
'     PROP_VALUE=38
'     PROP_NAME=Width
'     PROP_VALUE=345
'     PROP_NAME=Height
'     PROP_VALUE=299
'     PROP_NAME=AllowDrop
'     PROP_VALUE=False
'     PROP_NAME=BackColor
'     PROP_VALUE=SYSTEM|Window
'     PROP_NAME=BackColorHot
'     PROP_VALUE=SYSTEM|Window
'     PROP_NAME=BackColorSelected
'     PROP_VALUE=SYSTEM|Highlight
'     PROP_NAME=BorderStyle
'     PROP_VALUE=ControlBorderStyle.Fixed3D
'     PROP_NAME=ColumnWidth
'     PROP_VALUE=0
'     PROP_NAME=Enabled
'     PROP_VALUE=True
'     PROP_NAME=Font
'     PROP_VALUE=Segoe UI,9,400,0,0,0,1
'     PROP_NAME=ForeColor
'     PROP_VALUE=COLORS|Blue
'     PROP_NAME=ForeColorHot
'     PROP_VALUE=COLORS|Blue
'     PROP_NAME=ForeColorSelected
'     PROP_VALUE=SYSTEM|HighlightText
'     PROP_NAME=HorizontalExtent
'     PROP_VALUE=0
'     PROP_NAME=IntegralHeight
'     PROP_VALUE=False
'     PROP_NAME=ItemHeight
'     PROP_VALUE=18
'     PROP_NAME=Locked
'     PROP_VALUE=False
'     PROP_NAME=MultiColumn
'     PROP_VALUE=False
'     PROP_NAME=ScrollAlwaysVisible
'     PROP_VALUE=False
'     PROP_NAME=SelectionMode
'     PROP_VALUE=ListSelectionMode.One
'     PROP_NAME=Sorted
'     PROP_VALUE=False
'     PROP_NAME=TabIndex
'     PROP_VALUE=1
'     PROP_NAME=TabStop
'     PROP_VALUE=True
'     PROP_NAME=Tag
'     PROP_VALUE=
'     PROP_NAME=ToolTip
'     PROP_VALUE=Click on Populate, then Remove.
'     PROP_NAME=ToolTipBalloon
'     PROP_VALUE=True
'     PROP_NAME=TextAlign
'     PROP_VALUE=LabelAlignment.MiddleLeft
'     PROP_NAME=UseTabStops
'     PROP_VALUE=True
'     PROP_NAME=Visible
'     PROP_VALUE=True
'   PROPERTIES_END
'   EVENTS_START
'   EVENTS_END
' WINFBE CONTROL_END
' WINFBE FORM_END
' WINFBE_CODEGEN_START
#if 0
Declare Function Form1_MainMenu_Click( ByRef sender As wfxMenuItem, ByRef e As EventArgs ) As LRESULT
Declare Function Form1_MainMenu_Popup( ByRef sender As wfxMenuItem, ByRef e As EventArgs ) As LRESULT

type Form1Type extends wfxForm
  private:
    temp as byte
  public:
    declare static function FormInitializeComponent( byval pForm as Form1Type ptr ) as LRESULT
    declare constructor
    ' Controls
    List1 As wfxListBox
end type


function Form1Type.FormInitializeComponent( byval pForm as Form1Type ptr ) as LRESULT
  dim as long nClientOffset

  dim ncm As NONCLIENTMETRICS
  ncm.cbSize = SizeOf(ncm)
  SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(ncm), @ncm, 0)
  nClientOffset = AfxUnScaleY(ncm.iMenuHeight)  ' holds the height of the mainmenu

  pForm->MainMenu.MenuItems.Clear
  pForm->MainMenu.Parent = pForm
  dim mnuPopulate as wfxMenuItem = wfxMenuItem("Populate", "mnuPopulate", "", 0, 0)
  dim mnuRemove as wfxMenuItem = wfxMenuItem("Remove", "mnuRemove", "", 0, 0)
  pForm->MainMenu.MenuItems.Add(mnuPopulate)
  pForm->MainMenu.MenuItems.Add(mnuRemove)

  pForm->MainMenu.OnPopup = @Form1_MainMenu_Popup
  pForm->MainMenu.OnClick = @Form1_MainMenu_Click
  pForm->Controls.Add(ControlType.MainMenu, @(pForm->MainMenu))

  pForm->Name = "Form1"
  pForm->Text = "Demonstration of the Listbox visual gap"
  pForm->StartPosition = FormStartPosition.CenterScreen
  pForm->SetBounds(10,10,529,400)
  pForm->List1.Parent = pForm
  pForm->List1.Name = "List1"
  pForm->List1.ForeColor = Colors.Blue
  pForm->List1.ForeColorHot = Colors.Blue
  pForm->List1.ItemHeight = 18
  pForm->List1.ToolTip = "Click on Populate, then Remove."
  pForm->List1.ToolTipBalloon = True
  pForm->List1.SetBounds(24,38-nClientOffset,345,299)
  pForm->Controls.Add(ControlType.ListBox, @(pForm->List1))
  Application.Forms.Add(ControlType.Form, pForm)
  function = 0
end function

constructor Form1Type
  InitializeComponent = cast( any ptr, @FormInitializeComponent )
  this.FormInitializeComponent( @this )
end constructor

dim shared Form1 as Form1Type
#endif
' WINFBE_CODEGEN_END
Application.Run(Form1)

Function Form1_MainMenu_Click( ByRef sender As wfxMenuItem, ByRef e As EventArgs ) As LRESULT
  dim as integer n,c
  Select Case UCase(sender.Name)
    Case "MNUPOPULATE"
      c = Form1.List1.Items.Count
      for n = 1 to 300
        Form1.List1.Items.Add "Item number " & n + c
      next n
      Form1.List1.SelectedIndex = Form1.List1.Items.Count - 5
    Case "MNUREMOVE"
      for n = 10 to 50
        Form1.List1.Items.Remove n
      next n
    Case Else
  End Select
  Function = 0
End Function

Function Form1_MainMenu_Popup( ByRef sender As wfxMenuItem, ByRef e As EventArgs ) As LRESULT
  Function = 0
End Function