package main

import (
	"fmt"
	"math/rand"
	"strings"

	"github.com/ying32/govcl/vcl"
	_ "github.com/ying32/govcl/vcl/exts/winappres"
	"github.com/ying32/govcl/vcl/rtl"
	"github.com/ying32/govcl/vcl/types"
)

func main() {
	icon := vcl.NewIcon()
	icon.LoadFromResourceName(rtl.MainInstance(), "MAINICON")
	defer icon.Free()

	vcl.Application.Initialize()
	vcl.Application.SetMainFormOnTaskBar(true)

	mainForm := vcl.Application.CreateForm()
	mainForm.SetCaption("Hello")
	mainForm.SetPosition(types.PoScreenCenter)
	mainForm.SetWidth(500)
	mainForm.SetHeight(600)
	// 双缓冲
	mainForm.SetDoubleBuffered(true)

	imgList := vcl.NewImageList(mainForm)
	imgList.AddIcon(icon)

	lv1 := vcl.NewListView(mainForm)
	lv1.SetParent(mainForm)
	lv1.SetAlign(types.AlTop)
	lv1.SetRowSelect(true)
	lv1.SetReadOnly(true)
	lv1.SetViewStyle(types.VsReport)
	lv1.SetGridLines(true)
	//lv1.SetColumnClick(false)
	lv1.SetHideSelection(false)

	col := lv1.Columns().Add()
	col.SetCaption("序号")
	col.SetWidth(100)

	col = lv1.Columns().Add()
	col.SetCaption("项目1")
	col.SetWidth(200)

	lv1.SetOnClick(func(vcl.IObject) {
		if lv1.ItemIndex() != -1 {
			item := lv1.Selected() // lv1.Items().Item(lv1.ItemIndex())
			fmt.Println(item.Caption(), ", ", item.SubItems().Strings(0))
		}
	})
	// 双击删除选中项
	lv1.SetOnDblClick(func(sender vcl.IObject) {
		if lv1.ItemIndex() != -1 {
			lv1.Items().Delete(lv1.ItemIndex())
		}
	})
	lv1.SetOnColumnClick(func(sender vcl.IObject, column *vcl.TListColumn) {
		fmt.Println("index:", column.Index())
		// 按柱头索引排序, lcl兼容版第二个参数永远为 column
		lv1.CustomSort(0, int(column.Index()))
	})

	lv1.SetOnCompare(func(sender vcl.IObject, item1, item2 *vcl.TListItem, data int32, compare *int32) {
		if data == 0 {
			*compare = int32(strings.Compare(item1.Caption(), item2.Caption()))
		} else {
			*compare = int32(strings.Compare(item1.SubItems().Strings(data-1), item2.SubItems().Strings(data-1)))
		}
	})

	//	lv1.Clear()
	lv1.Items().BeginUpdate()
	for i := 1; i <= 100; i++ {
		item := lv1.Items().Add()
		// 第一列为Caption属性所管理
		item.SetCaption(fmt.Sprintf("%d", i+rand.Int()))
		item.SubItems().Add(fmt.Sprintf("值：%d", i+rand.Int()))
	}
	lv1.Items().EndUpdate()

	// icon样式

	lv2 := vcl.NewListView(mainForm)
	lv2.SetParent(mainForm)
	lv2.SetAlign(types.AlTop)
	lv2.SetRowSelect(true)
	lv2.SetReadOnly(true)
	lv2.SetViewStyle(types.VsIcon)
	//lv2.SetSmallImages(imgList)
	lv2.SetLargeImages(imgList)
	//lv2.SetStateImages(imgList)

	lv2.SetOnClick(func(vcl.IObject) {
		if lv2.ItemIndex() != -1 {
			item := lv2.Selected()
			fmt.Println(item.Caption(), ", ", item.SubItems().Strings(0))
		}
	})
	// 双击删除选中项
	lv2.SetOnDblClick(func(sender vcl.IObject) {
		if lv2.ItemIndex() != -1 {
			lv2.Items().Delete(lv2.ItemIndex())
		}
	})
	lv2.Items().BeginUpdate()
	for i := 1; i <= 10; i++ {
		item := lv2.Items().Add()
		item.SetImageIndex(0)
		// 第一列为Caption属性所管理
		item.SetCaption(fmt.Sprintf("%d", i))
		item.SubItems().Add(fmt.Sprintf("值：%d", i))
	}
	lv2.Items().EndUpdate()

	// lv3 Group
	lv3 := vcl.NewListView(mainForm)
	lv3.SetParent(mainForm)
	lv3.SetAlign(types.AlClient)
	lv3.SetRowSelect(true)
	lv3.SetReadOnly(true)
	lv3.SetViewStyle(types.VsReport)
	lv3.SetGridLines(true)

	lv3.SetGroupHeaderImages(imgList)
	lv3.SetGroupView(true)
	col = lv3.Columns().Add()
	col.SetCaption("序号")
	col.SetWidth(100)

	grp := lv3.Groups().Add()
	grp.SetHeader("第一个分组头")
	grp.SetFooter("第一个分组结束")
	grp.SetHeaderAlign(types.TaCenter)
	grp.SetFooterAlign(types.TaCenter)
	grp.SetSubtitle("这是子标题")
	grp.SetTitleImage(0)
	state := grp.State()
	state = rtl.Include(uint32(state), types.LgsCollapsible)
	grp.SetState(state)

	grp = lv3.Groups().Add()
	grp.SetHeader("第二个分组头")
	grp.SetFooter("第二个分组结束")
	grp.SetHeaderAlign(types.TaCenter)
	grp.SetFooterAlign(types.TaCenter)
	grp.SetSubtitle("这是子标题")
	state = grp.State()
	state = rtl.Include(uint32(state), types.LgsCollapsible)
	grp.SetState(state)

	lv3.SetOnClick(func(vcl.IObject) {
		if lv3.ItemIndex() != -1 {
			item := lv3.Selected()
			fmt.Println(item.Caption(), ", ", item.SubItems().Strings(0))
		}
	})
	lv3.Items().BeginUpdate()
	for i := 1; i <= 2; i++ {
		item := lv3.Items().Add()
		item.SetImageIndex(0)
		item.SetGroupID(0)
		// 第一列为Caption属性所管理
		item.SetCaption(fmt.Sprintf("%d", i))
		item.SubItems().Add(fmt.Sprintf("值：%d", i))
	}
	for i := 1; i <= 2; i++ {
		item := lv3.Items().Add()
		item.SetImageIndex(0)
		item.SetGroupID(1)
		// 第一列为Caption属性所管理
		item.SetCaption(fmt.Sprintf("%d", i))
		item.SubItems().Add(fmt.Sprintf("值：%d", i))
	}
	lv3.Items().EndUpdate()

	pnlbottom := vcl.NewPanel(mainForm)
	pnlbottom.SetParent(mainForm)
	pnlbottom.SetAlign(types.AlBottom)
	btnTest := vcl.NewButton(mainForm)
	btnTest.SetParent(pnlbottom)
	btnTest.SetCaption("SetSelected")
	btnTest.SetTop(10)
	btnTest.SetLeft(10)
	btnTest.SetOnClick(func(sender vcl.IObject) {

		if lv1.Items().Count() > 5 {
			fmt.Println("click select")
			item := lv1.Items().Item(3) // 第四个
			lv1.SetSelected(item)
		}
	})

	btnTest2 := vcl.NewButton(mainForm)
	btnTest2.SetParent(pnlbottom)
	btnTest2.SetTop(10)
	btnTest2.SetLeft(120)
	btnTest2.SetCaption("DeleteSelected")
	btnTest2.SetOnClick(func(sender vcl.IObject) {

		if lv1.SelCount() > 0 {
			fmt.Println("click delete")
			lv1.DeleteSelected()
		}
	})

	vcl.Application.Run()
}