tavria2
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Zloy_Gelud
Цитата:| каким значениям параметра Sys Color в функции WinApi.GetSysColor соответствуют цвета 1 и 2 на рисунке? |
- COLOR_WINDOW = 5
- COLOR_BTNFACE = 15
Цитата:| И возможно ли сделать, чтобы границы проекта не были „втопленными“, а были как на рисунке? |
Код: -- API-константы
GWL_EXSTYLE = -20
hWnd = Application.GetWndHandle(); -- handle окна
WinApi.SetWindowLong(Application.GetWndHandle(), GWL_EXSTYLE, 0, false); -- новый расширенный стиль окна
-- извращение для перерисовки окна
nWidth = Window.GetSize(Application.GetWndHandle()).Width;
nHeight = Window.GetSize(Application.GetWndHandle()).Height;
Window.SetSize(hWnd, nWidth + 1, nHeight + 1);
Window.SetSize(hWnd, nWidth, nHeight); |
Цитата:| Можно ли установить Листбоксу стиль LBS_MULTICOLUMN и LVM_SETCOLUMNA (LVM_FIRST + 26)? |
Cтиль LBS_MULTICOLUMN установить можно, а вот с LVM_SETCOLUMNA - это для объекта ListView, которого к сожалению нет в AMS.
Код: -- 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); |
P.S. для примеров требуется плагин WinApi. |
Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 00:49 22-12-2008 | Исправлено: tavria2, 18:08 22-12-2008 |
|
