VPF::Как убрать горизонтальный scrollbar SysListView32?

Voyager

Дата 27.7.2006, 02:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 532
Регистрация: 8.2.2005

Репутация: 4
Всего: 18

Знаю как убрать оба scrollbarа, но вот как убрать только горизонтальный scrollbar у SysListView32? Искал по форуму - не нашел.
Есть вариант - так как у меня все равно идет отрисовка итемов, то сделать ширину колонок минимальной, но хотелось бы найти человеческий способ.

Quadr0

Дата 27.7.2006, 04:24 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 11:44

Voyager

Дата 27.7.2006, 11:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 532
Регистрация: 8.2.2005

Репутация: 4
Всего: 18

В общем решил проблему так:

Код


function ListView_WndProc(hwnd:HWND; msg:UINT; wParam:WPARAM; lParam:LPARAM):LRESULT;stdcall;
var
  proc:Pointer;
begin
    proc:=Pointer(GetWindowLong(hwnd,GWL_USERDATA));
    if (msg = WM_WINDOWPOSCHANGING) then ShowScrollBar(hwnd,SB_HORZ,FALSE);
    Result:=CallWindowProc(proc,hwnd,msg,wParam,lParam);
end;

...
  hwndContactTree := CreateWindow(WC_LISTVIEW,'',
    LVS_REPORT or WS_CHILD or WS_VISIBLE or WS_BORDER or WS_CLIPCHILDREN or LVS_OWNERDRAWFIXED or LVS_NOCOLUMNHEADER,
                      0, 0, 0, 0, hwndContactList, 0, hInstance, nil);
  SetWindowLong(hwndContactTree,GWL_USERDATA, SetWindowLong(hwndContactTree,GWL_WNDPROC, LongInt(@ListView_WndProc)));

Это сообщение отредактировал(а) Voyager - 27.7.2006, 14:59

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »