Форум: "Потрепаться";
Текущий архив: 2003.02.06;
Скачать: [xml.tar.bz2];

Вниз

Какое сообщение нуно послать 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.016 c