Indigo Rose AutoPlay Media Studio (часть 2) - [98] :: Программы

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.

Модерирует : gyra, Maz
Widok (30-01-2009 12:11): Лимит страниц. Продолжаем здесь.	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102