Скачать: CL | DM;

Как убрать 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c