VPF::Плавная прокрутка StringGrid - Форум программистов

CODeRUS

Дата 10.3.2011, 14:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 25.7.2007

Репутация: нет
Всего: нет

Ищу компоненту StringGrid с плавной прокруткой для Delphi 2010. Бесплатную.

Keeper89

Дата 10.3.2011, 15:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Ее можно итак сделать плавную

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

CODeRUS

Дата 10.3.2011, 15:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 25.7.2007

Репутация: нет
Всего: нет

Нельзя. Только модификацией компонент. Я просто прошу чтобы мне посоветовали кто чем пользовался.

Keeper89

Дата 11.3.2011, 00:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Цитата(CODeRUS @ 10.3.2011, 15:22

)

Нельзя. Только модификацией компонент

В Options у Грида опция goThumbTracking.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

CODeRUS

Дата 11.3.2011, 09:30 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 25.7.2007

Репутация: нет
Всего: нет

спасибо, но мне бы хотелось прокрутку колесиком мыши =)

хм нашел такой вариант, все работает с одной фиксированной строкой как положено, может пригодится кому:

Код


procedure TForm1.StringGrid1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
const
  delta = 5;
begin
if TStringGrid(Sender).TopRow + delta + TStringGrid(Sender).VisibleRowCount < TStringGrid(Sender).RowCount then
  TStringGrid(Sender).TopRow := TStringGrid(Sender).TopRow + delta
else
  TStringGrid(Sender).TopRow := TStringGrid(Sender).RowCount - TStringGrid(Sender).VisibleRowCount;

Handled := True;
end;

procedure TForm1.StringGrid1MouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
const
  delta = 5;
begin
if TStringGrid(Sender).TopRow > 1 then
  if TStringGrid(Sender).TopRow > delta then
    TStringGrid(Sender).TopRow := TStringGrid(Sender).TopRow - delta
  else
    TStringGrid(Sender).TopRow := 1;

Handled := True;
end;

только еще пришлось вручную устанавливать форус на MouseEnter и "терять" его на MouseLeave

Это сообщение отредактировал(а) CODeRUS - 11.3.2011, 09:54

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »