| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как убрать HScroll в TkolListView. [Delphi]
NikFel © (2008-07-06 19:53:00)Подскажите пожалуйста. Как убрать горизонтальную полосу прокрутки в TkolListView. Заранее спасибо.
Shin (2009-05-08 23:01:00) [1]function WndProcHackListView(Sender: PControl; var Msg: TMsg;
var Rslt: Integer): Boolean;
var
Style: Integer;
begin
Result := False;
if Msg.message = WM_NCCALCSIZE then
begin
Style := GetWindowLong(Sender.Handle, GWL_STYLE);
if (Style and WS_HSCROLL) <> 0 then
SetWindowLong(Sender.Handle, GWL_STYLE, Style and not WS_HSCROLL);
Rslt := 0;
end;
end;
function NewHackListView(AParent: PControl; Style: TListViewStyle;
Options: TListViewOptions; ImageListSmall, ImageListNormal,
ImageListState: PImageList): PControl;
begin
Result := NewListView(AParent, Style, Options,
ImageListSmall, ImageListNormal, ImageListState);
Result.AttachProc(WndProcHackListView);
end;
Compiler (2008-07-07 11:55:00) [2]http://www.delphimaster.ru/cgi-bin/forum.pl?id=1196694648&n=10
| |
