-- API-константы GWL_STYLE = -16 LBS_MULTICOLUMN = 512 LB_SETHORIZONTALEXTENT = 404 hWnd = ListBox.GetProperties("ListBox1").WindowHandle; -- hanle Listbox WinApi.SetWindowLong(hWnd, GWL_STYLE, LBS_MULTICOLUMN, true); -- стандартный стиль ListBox -- добавление записей в ListBox result = ListBox.AddItem("ListBox1", "Col1Row1\tCol2Row1\tCol3Row1", ""); result = ListBox.AddItem("ListBox1", "Col1Row2\tCol2Row2\tCol3Row2", ""); result = ListBox.AddItem("ListBox1", "Col1Row3\tCol2Row3\tCol3Row3", ""); nScrollLength = 400 -- длина прокрутки в пикселях (экспериментально) DLL.CallFunction("user32.dll", "SendMessageA", hWnd..","..LB_SETHORIZONTALEXTENT..","..nScrollLength..",0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL); -- извращение для перерисовки ListBox nWidth = ListBox.GetSize("ListBox1").Width; nHeight = ListBox.GetSize("ListBox1").Height; ListBox.SetSize("ListBox1", nWidth + 1, nHeight + 1); ListBox.SetSize("ListBox1", nWidth, nHeight); |