Как убрать HScroll в TkolListView.

← →
NikFel (2008-07-06 19:53) [0]

Подскажите пожалуйста. Как убрать горизонтальную полосу прокрутки в TkolListView. Заранее спасибо.

← →
Compiler © (2008-07-07 11:55) [1]

http://delphimaster.net/view/11-1196694648/

← →
Shin (2009-05-08 23:01) [2]

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;

Как убрать HScroll в TkolListView. Найти похожие ветки