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;

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