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

Вниз

Скроллинг   Найти похожие ветки 

 
Soors   (2002-12-05 01:35) [0]

Мастера помогите. У меня есть мемо и отдельно скроллинг, я не хочу использовать сколлинг в мемо, мне нужно чтобы при нажатии на мой скролл прокручивался мемо. Подскажите как ето можно сообразить.


 
PKT   (2002-12-05 03:09) [1]

Вот ограниченный вариант:
- только вертикальный скроллинг
- передача идет от скроллера к Memo, но не обратно


procedure TForm1.FormCreate(Sender: TObject);
var
T: TTextMetric;
DC: HDC;
H: Integer;
begin
DC := GetDC(Memo1.Handle);
GetTextMetrics(DC, T);
ReleaseDC(Memo1.Handle, DC);
H := Memo1.Height div T.tmAscent;
if Memo1.Lines.Count - H < 0 then
ScrollBar1.Max := 0
else
ScrollBar1.Max := Memo1.Lines.Count - H;
ScrollBar1.LargeChange := H - 1;
Label1.Caption := IntToStr(H);
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
SendMessage(Memo1.Handle, EM_LINESCROLL, 0,
TScrollBar(Sender).Position -
SendMessage(Memo1.Handle, EM_GETFIRSTVISIBLELINE, 0, 0));
end;


 
PKT   (2002-12-05 03:11) [2]

Сорри, Label1.Caption := IntToStr(H); конечно ни к чему


 
Soors   (2002-12-05 16:56) [3]

спасибо. щас разберусь



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
14-51907
Мазут Береговой
2002-11-22 00:51
2002.12.16
Я от жены ушел... или... она от меня...


1-51725
_Nicola_
2002-12-05 14:58
2002.12.16
Работа с многоцветными иконками.


1-51757
botza
2002-12-04 18:48
2002.12.16
ne zapuskaetza file


4-52018
lexx80
2002-11-04 19:13
2002.12.16
для Windows NT


1-51693
Маленький
2002-12-05 21:28
2002.12.16
Как закрыть чужое приложение из своей программы?