' Extended ListView, some are only cosmetic extensions, not sure how to
' detect if the checkbox was checked or not...

$TYPECHECK ON
$INCLUDE "RAPIDQ.INC"

CONST LVM_FIRST = &H1000
CONST LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 54

CONST LVEX_GRIDLINES = 1
CONST LVEX_SUBITEMIMAGES = 2
CONST LVEX_CHECKBOXES = 4
CONST LVEX_TRACKSELECT = 8
CONST LVEX_HEADERDRAGDROP = 16
CONST LVEX_FULLROWSELECT = 32
CONST LVEX_ONECLICKACTIVATE = 64
CONST LVEX_TWOCLICKACTIVATE = 128

CREATE Form AS QForm
  Center
  Caption = "Extended ListView"
  Height = 330
  Width = 525
  CREATE ListView AS QListView
    ColumnClick = False
    Width = Form.ClientWidth
    Height = Form.ClientHeight
    ViewStyle = vsReport
    AddColumns "FileName","Length","Method","Size"
    Column(0).Width = 200
    AddItems "Hello", "World"
    AddSubItem 0, "100"
    AddSubItem 0, "Yes"
    AddSubItem 0, "???"
  END CREATE
END CREATE

SendMessage(ListView.Handle, LVM_SETEXTENDEDLISTVIEWSTYLE, 0, _
            LVEX_CHECKBOXES OR LVEX_FULLROWSELECT OR LVEX_GRIDLINES)

Form.ShowModal