Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.24;
Скачать: CL | DM;

Вниз

ListBox   Найти похожие ветки 

 
Alex Slater   (2003-03-11 12:14) [0]

Господа Мастера , подскажите как сделать в ListBox"e горизонтальный скроллинг .

SendMessage (ListBox.Handle, LB_SETHORIZONTALEXTENT, Размер_для_самой длинной строки, 0) не помогает .

Может быть проблема в этом : сообщение относится только к блокам списка, созданным со стилем ws_HScroll . Если да , то как установить этот стиль .


 
Игорь Шевченко ©   (2003-03-11 13:01) [1]

procedure TfMain.FormCreate(Sender: TObject);
var
I : Integer;
DC : HDC;
MaxWidth : Integer;
StringSize : SIZE;
OldFont : HFONT;
begin
DC := GetDC(0);
try
OldFont := SelectObject(DC, ListBox1.Font.Handle);
try
MaxWidth := -1;
for I:=0 to Pred(ListBox1.Items.Count) do begin
if not GetTextExtentPoint32(DC, PChar(ListBox1.Items[I]),
Length(ListBox1.Items[I]), StringSize) then
RaiseLastWin32Error();
if StringSize.cx > MaxWidth then
MaxWidth := StringSize.cx;
end;
finally
SelectObject(DC, OldFont);
end;
finally
ReleaseDC(0, DC);
end;
SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth, 0);
end;


И ничего не надо делать дополнительно со стилями



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

Текущий архив: 2003.03.24;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
8-76516
dkDimon
2002-12-10 14:14
2003.03.24
Баланс звука


3-76268
Ihtiandr
2003-03-06 12:59
2003.03.24
Вычисляемые поля


4-76713
Afolf
2003-01-26 20:23
2003.03.24
Удалить файл


7-76696
Snake
2002-12-18 04:50
2003.03.24
Как настроить BIOS на включение?


7-76679
Arkady
2003-01-28 16:56
2003.03.24
Пароль