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

Вниз

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

 
puky   (2003-07-09 19:32) [0]

Как программно сделать скроллинг для ScrollBox?


 
Sapersky ©   (2003-10-13 15:36) [1]

Присоединяюсь.
Пробовал SetScrollInfo (WinAPI) - скроллится, но контрол в скролбоксе не обновляется, добавлял NotifyScrollBox - никакой реакции.


 
Gandalf ©   (2003-10-13 21:03) [2]

А если флаг fRedraw ставить?


 
Sapersky ©   (2003-10-14 09:49) [3]

fRedraw никак не влияет. Поставил SendMessage Scrollbox"у - заработало.


 
puky   (2003-10-20 16:12) [4]

2Sapersky
Можно пример?


 
puky   (2003-10-20 20:02) [5]

:) пример:

procedure ScrollIt( tx, ty : integer; ScrollBox, ScrollPanel : PControl );
var smin, smax: integer;
   sx, sy : integer;
begin

   if ((ScrollPanel.Left + tx) > 0 ) then tx := - ScrollPanel.Left ;
   if ((ScrollPanel.Top + ty) > 0 ) then  ty := - ScrollPanel.Top;
   if (ScrollPanel.Left + ScrollPanel.Width + tx - ScrollBox.ClientWidth) < 0 then
      tx := ScrollBox.ClientWidth - ScrollPanel.Left - ScrollPanel.Width ;
   if (ScrollPanel.Top + ScrollPanel.Height + ty - ScrollBox.ClientHeight) < 0 then
      ty := ScrollBox.ClientHeight - ScrollPanel.Top - ScrollPanel.Height ;

   { scroll }
   ScrollWindowEx( ScrollBox.handle, tx, ty, nil, nil, 0, nil, SW_SCROLLCHILDREN + SW_INVALIDATE + SW_ERASE );

   GetScrollRange( ScrollBox.handle, SB_HORZ , smin, smax );
   sx := GetScrollPos( ScrollBox.handle, SB_HORZ );
   sx := sx - tx;
   if sx < smin then sx := smin;
   if sx > smax then sx := smax;
   SetScrollPos( ScrollBox.handle, SB_HORZ , sx, true );

   GetScrollRange( ScrollBox.handle, SB_Vert , smin, smax );
   sy := GetScrollPos( ScrollBox.handle, SB_Vert );
   sy := sy - ty;
   if sy < smin then sx := smin;
   if sy > smax then sx := smax;
   SetScrollPos( ScrollBox.handle, SB_Vert , sy, true );

end;

юзать так:

procedure TForm1.Panel2MouseMove(Sender: PControl; var Mouse: TMouseEventData);
var tx, ty : integer;
begin
if md = 1 then begin
   { move panel }
   tx := Mouse.x - mx;
   ty := Mouse.y - my;
 
    ScrollIt( tx, ty, Sender.Parent , Sender );
end;
end;



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

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

Наверх




Память: 0.48 MB
Время: 0.047 c
1-1081844252
Dimerol
2004-04-13 12:17
2004.05.02
Management памяти.


1-1082288709
Falcon(TFSoft)
2004-04-18 15:45
2004.05.02
Как мне создать объект, конструктору которого необходимо передать


14-1081848497
wHammer
2004-04-13 13:28
2004.05.02
Меч распаковать .cab


11-1065880939
Hamer1
2003-10-11 18:02
2004.05.02
Как экстрактировать Ресурс


1-1081934434
Juliet
2004-04-14 13:20
2004.05.02
Отловить событие максимизации/восстановления формы