Форум: "Основная";
Текущий архив: 2003.09.15;
Скачать: [xml.tar.bz2];

Вниз

Выключить ScrollBar в ListView   Найти похожие ветки 

← →
Sirakuz   (2003-09-03 13:01) [0]

Hi! Как можно выключить Horizontal ScrollBar в TListView?
У меня листвью align=alClient. 2 колонки. Пробовал изменять размеры самой правой колонки при OnResize, но оно происходит только после изменения размеров листвью, поэтому скролбар "мигает" - появляется и исчезает.

---

← →
[lamer]Barmaglot   (2003-09-03 13:30) [1]

ShowScrollBar(listview1.handle, SB_HORZ, true); ?

---

← →
Sirakuz   (2003-09-03 13:41) [2]

ShowScrollBar не помогает

---

← →
[lamer]Barmaglot   (2003-09-03 13:42) [3]

Что не работает?

P.S. Да в предыдущей строке изменил true на false???

---

← →
dataMaster   (2003-09-03 13:44) [4]

Было взято на torry.net

type
TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FListViewWndProc: TWndMethod;
procedure ListViewWndProc(var Msg: TMessage);
public
{ Private declarations }
FShowHoriz: Boolean;
FShowVert: Boolean;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListViewWndProc(var Msg: TMessage);
begin
ShowScrollBar(ListView1.Handle, SB_HORZ, FShowHoriz);
ShowScrollBar(ListView1.Handle, SB_VERT, FShowVert);
FListViewWndProc(Msg); // process message
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FShowHoriz := True; // show the horiz scrollbar
FShowVert := False; // hide vert scrollbar
FListViewWndProc := ListView1.WindowProc; // save old window proc
ListView1.WindowProc := ListViewWndProc; // subclass
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ListView1.WindowProc := FListViewWndProc; // restore window proc
FListViewWndProc := nil;
end;



---

← →
mrcat   (2003-09-03 15:58) [5]

SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE)
and not WS_HSCROLL);

---

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

Форум: "Основная";
Текущий архив: 2003.09.15;
Скачать: [xml.tar.bz2];

Наверх

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