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

Вниз

Какое сообщение нуно послать TStringGrid   Найти похожие ветки 

← →
Чайник(заварной)   (2003-01-18 16:15) [0]

чтоб его скролы щевелить

---

← →
Eraser@YYY   (2003-01-18 16:27) [1]

Ну переместить бягунок как??????????

---

← →
Чайник(заварной)   (2003-01-18 16:28) [2]

Вот я и спрашиваю

---

← →
Song ©   (2003-01-18 18:27) [3]

TStringGrid.Row/Col

---

← →
Чайник(заварной)   (2003-01-19 01:06) [4]

Я придумал вот такой способ:

procedure TForm1.SGMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
x0 := X;
y0 := Y;
//SetScrollRange(sg.Handle,SB_HORZ,0,sg.Width*50,True);
//SetScrollRange(sg.Handle,SB_VERT,0,sg.Height*50,True);
end;

procedure TForm1.SGMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);

begin
if (ssShift in shift) or (ssMiddle in Shift) then
begin
SetScrollPos(Sg.Handle, SB_HORZ,GetScrollPos(Sg.Handle, SB_HORZ)+x-x0,True);
SetScrollPos(Sg.Handle, SB_VERT,GetScrollPos(Sg.Handle, SB_VERT)+y-y0,True);
end;
end;

скролы просто замечательно бегают, а сама таблица как вкопанная
у TStringGrid есть метод ScrollBy(dx,dy) - он творит просто страшные вещи если ему вместо параметров подогнать разницу между начальным значением и конечным, нетак эффектно оплучается если приправить sg.repaint; всё начинает моргать(и неудевительно).

мне первый способ больше нравится, помогите сделать так чтоб и содержимое таблицци переместилось, а если кто знает как ScrollBy правильно оброщаться, прощу помочь.

---

← →
Sha ©   (2003-01-19 01:13) [5]

Посмотри TopRow, LeftCol.

---

← →
Чайник(заварной)   (2003-01-19 01:26) [6]

Вот это дело!!!

Благодарю!!!

---

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

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

Наверх

Память: 0.47 MB
Время: 0.015 c