Add ImageList example with ListView and ComboBox

examples/imagelist/.gitignore

@@ -0,0 +1,16 @@
+.dub
+docs.json
+__dummy.html
+docs/
+/hello_dfl
+hello_dfl.so
+hello_dfl.dylib
+hello_dfl.dll
+hello_dfl.a
+hello_dfl.lib
+hello_dfl-test-*
+*.exe
+*.pdb
+*.o
+*.obj
+*.lst

examples/imagelist/.vscode/launch.json

@@ -0,0 +1,13 @@
+{
+    "version": "0.2.0",
+    "configurations": [
+        {
+            "name": "C++ Launch (Windows) imagelist",
+            "type": "cppvsdbg",
+            "request": "launch",
+            "cwd": "${workspaceRoot}",
+            "program": "./bin/imagelist_sample.exe",
+            "console": "internalConsole"
+        }
+    ]
+}

examples/imagelist/.vscode/tasks.json

@@ -0,0 +1,20 @@
+{
+	"version": "2.0.0",
+	"tasks": [
+		{
+			"type": "dub",
+			"run": false,
+			"cwd": ".",
+			"compiler": "$current",
+			"archType": "$current",
+			"buildType": "$current",
+			"configuration": "$current",
+			"problemMatcher": [
+				"$dmd"
+			],
+			"group": "build",
+			"label": "dub: Build imagelist_sample",
+			"detail": "dub build --compiler=dmd.EXE -a=x86_64 -b=debug -c=application"
+		}
+	]
+}

examples/imagelist/README.md

@@ -0,0 +1,2 @@
+# Screen Shot
+![screen shot](./image/screenshot.png "screen shot")

examples/imagelist/dub.json

@@ -0,0 +1,16 @@
+{
+	"authors": ["haru-s"],
+	"copyright": "Copyright (C) 2023 haru-s",
+	"description": "DFL sample code.",
+	"name": "imagelist_sample",
+	"targetType": "executable",
+	"targetPath": "bin",
+	"dependencies": {
+		"dfl": {
+			"path": "../../../dfl"
+		}
+	},
+	"lflags-windows-x86_omf-dmd":    ["/exet:nt/su:windows:6.0"],
+	"lflags-windows-x86_mscoff-dmd": ["/SUBSYSTEM:WINDOWS", "/ENTRY:mainCRTStartup"],
+	"lflags-windows-x86_64-dmd":     ["/SUBSYSTEM:WINDOWS", "/ENTRY:mainCRTStartup"]
+}

examples/imagelist/imagelist.code-workspace

@@ -0,0 +1,12 @@
+{
+	"folders": [
+		{
+			"path": "."
+		}
+	],
+	"settings": {
+		"d.projectImportPaths": [
+			"..\\..\\..\\dfl\\source"
+		]
+	}
+}

examples/imagelist/shell.bat

@@ -0,0 +1,3 @@
+set dmd_path=c:\d\dmd2\windows
+set dmc_path=c:\dmc\dm
+cmd

examples/imagelist/source/imagelist_sample.d

@@ -0,0 +1,137 @@
+import dfl;
+import std.traits : EnumMembers;
+
+version(Have_dfl) // For DUB.
+{
+}
+else
+{
+	pragma(lib, "dfl.lib");
+}
+
+class MainForm : Form
+{
+	private ListView _listView;
+	private ComboBox _combobox;
+	private ImageList _imagelist;
+	private Bitmap _icons;
+
+	// Helper
+	private static string stringFromView(View v)
+	{
+		static string[] arr = ["LARGE_ICON", "SMALL_ICON", "LIST", "DETAILS"];
+		return arr[cast(int)v];
+	}
+
+	public this()
+	{
+		this.text = "ImageList example";
+		this.size = Size(300, 300);
+		this.formBorderStyle = FormBorderStyle.FIXED_SINGLE;
+
+		// Create Bitmap
+		_icons = new Bitmap(r".\image\rgb.bmp"); // Change by your environment.
+
+		// Create ImageList
+		_imagelist = new ImageList();
+		_imagelist.imageSize = Size(24, 24); // Each bitmap size in image list (W24[dots] x H24[dots] x 3[icons]).
+		_imagelist.images.addStrip(_icons);
+
+		// Create ComboBox
+		_combobox = new ComboBox();
+		_combobox.parent = this;
+		_combobox.location = Point(0, 160);
+		_combobox.size = Size(250, 100);
+
+		// _combobox.dropDownStyle = ComboBoxStyle.DROP_DOWN_LIST;
+		_combobox.dropDownStyle = ComboBoxStyle.DROP_DOWN;
+		// _combobox.dropDownStyle = ComboBoxStyle.SIMPLE;
+
+		foreach (v; EnumMembers!View)
+		{
+			_combobox.items.add(stringFromView(v));
+		}
+
+		immutable View initialViewMove = View.LIST;
+		_combobox.text = stringFromView(initialViewMove);
+		_combobox.selectedIndex = cast(int)initialViewMove;
+
+		_combobox.textChanged ~= (Control sender, EventArgs e)
+		{
+			// msgBox("textChanged");
+		};
+
+		_combobox.selectedValueChanged ~= (Control sender, EventArgs e)
+		{
+			// msgBox("selectedValueChanged");
+
+			int sel = _combobox.selectedIndex();
+			if (sel >= 0)
+			{
+				_listView.view = cast(View)sel;
+			}
+			else
+			{
+				msgBox("Unknown ListView style.");
+			}
+		};
+
+		// Create ListView
+		_listView = new ListView();
+		_listView.parent = this;
+		_listView.location = Point(0, 0);
+		_listView.size = Size(250, 150);
+
+		_listView.largeImageList = _imagelist; // Attach image list to ListView.
+		_listView.smallImageList = _imagelist; // ditto
+
+		// Style
+		_listView.view = initialViewMove;
+		_listView.gridLines = true;
+		_listView.multiSelect = false;
+		_listView.hideSelection = false;
+		_listView.fullRowSelect = true;
+		_listView.checkBoxes = false;
+
+		// Header
+		ColumnHeader col1 = new ColumnHeader();
+		col1.text = "Color";
+		col1.width = 70;
+
+		ColumnHeader col2 = new ColumnHeader();
+		col2.text = "R-G-B";
+		col2.width = 70;
+
+		_listView.columns.addRange([col1, col2]);
+
+		// Contents
+		_listView.beginUpdate(); // Stop redraw.
+
+		ListViewItem item1 = new ListViewItem("Red");
+		item1.subItems.add("255-0-0");
+		item1.imageIndex = 0; // 0 is Red icon.
+		_listView.items.add(item1);
+
+		ListViewItem item2 = new ListViewItem("Green");
+		item2.subItems.add("0-255-0");
+		item2.imageIndex = 1; // 1 is Green icon.
+		_listView.items.add(item2);
+
+		ListViewItem item3 = new ListViewItem("Blue");
+		item3.subItems.add("0-0-255");
+		item3.imageIndex = 2; // 2 is Blue icon.
+		_listView.items.add(item3);
+
+		_listView.endUpdate(); // Restart redraw.
+	}
+}
+
+static this()
+{
+	Application.enableVisualStyles();
+}
+
+void main()
+{
+	Application.run(new MainForm());
+}