Главная страница
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.03 c
9-1068621377
Леприкон
2003-11-12 10:16
2004.05.02
Поверхность вращения


6-1078530063
teapot
2004-03-06 02:41
2004.05.02
как перенаправлять сетевой трафик на Делфи?


9-1069682833
Spose
2003-11-24 17:07
2004.05.02
Как определить версию DirectX 8.1 и старше?


1-1081788628
c1
2004-04-12 20:50
2004.05.02
Как сделать чтобы hint над button не исчезал


3-1080903042
bushmen
2004-04-02 14:50
2004.05.02
MS SQL и DBF