VPF::Редактирование фиксированных ячеек

Denis

Дата 1.10.2009, 09:21 (ссылка)

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

Загрузка ...

Шустрый

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

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

Как можно зафиксировать ячейки в TStringGrid и при этом дать возможность их редактировать как обычные.

Keeper89

Дата 1.10.2009, 09:46 (ссылка)

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

Загрузка ...

Эксперт

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

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

Из кода все можно smile

, но непонятно, зачем тогда нужна фиксация этой ячейки.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Denis

Дата 1.10.2009, 22:31 (ссылка)

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

Загрузка ...

Шустрый

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

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

в таблице примерно 100 столбцов и при прокрутке нужно всегда видеть первый столбец, при этом чтобы была возможность его редактировать.
Может кроме добавления FixedCol есть другая возможность закрепить первый столбец?
Способ следить за кликом на него и в это время убирать фиксированные ячейки не подходит

Keeper89

Дата 1.10.2009, 23:10 (ссылка)

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

Загрузка ...

Эксперт

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

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

Можно сделать так:

Код


procedure TForm2.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  myPromt, newValue: String;
  ACol, ARow: Integer;
  pt: TPoint;
begin
  pt := StringGrid1.ScreenToClient(Point(Mouse.CursorPos.X, Mouse.CursorPos.Y));
  StringGrid1.MouseToCell(pt.X, pt.Y, ACol, ARow);
  if ACol = 0 then
  begin
    newValue := StringGrid1.Cells[ACol, ARow];
    myPromt := Format('Новое значение ячейки (%d;%d)', [ACol, ARow]);
    if InputQuery(myPromt, myPromt, newValue) then
      StringGrid1.Cells[ACol, ARow] := newValue;
  end;
end;

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Denis

Дата 1.10.2009, 23:24 (ссылка)

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

Загрузка ...

Шустрый

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

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

Спасибо. Если не найдется более подходящего способа, исползую этот.

Denis

Дата 2.10.2009, 01:11 (ссылка)

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

Загрузка ...

Шустрый

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

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

три часа ковыряния в модуле grids не прошли даром!!! Сделал то, что хотел!!!
Кому интересно, в модуле grids сделал изменения

Код


...
procedure TCustomGrid.MouseDown(Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
    ...
 
    {if (CellHit.X >= FixedCols) and (CellHit.Y >= FixedRows) then
    begin }
      if goEditing in Options then
      begin
        if (CellHit.X = FCurrent.X) and (CellHit.Y = FCurrent.Y) then
          ShowEditor
        else
        begin
          MoveCurrent(CellHit.X, CellHit.Y, True, False);
          UpdateEdit;
        end;
        ....
      end;
    {end
    else if (goRowMoving in Options) and (CellHit.X >= 0) and
      ...
      end;
    end; }
  end;
  try
    inherited MouseDown(Button, Shift, X, Y);
  except
    if MoveDrawn then DrawMove;
  end;
end;
...

Конечно такой StringGrid лишен возможности перемещения строк/столбцов, но это можно легко доработать. Если кто-то заметит, что я отрезал от него еще что-то важное пожалуйста напишите.

Akella

Дата 5.10.2009, 13:26 (ссылка)

(голосов:1)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Лучше сделай наследника. Изменять исходники очень не рекомендую.

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