| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Scrollbox

puky ©   (2003-07-09 19:32:00) 

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

---

puky   (2003-10-20 20:02:00) [1]

:) пример:

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;


---

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

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

---

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

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

---

Gandalf   (2003-10-13 21:03:00) [4]

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

---

Sapersky   (2003-10-13 15:36:00) [5]

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

---

Наверх