Возможно изменить цвет фона при редактировании ячейки StringGrid ?

[PK.Kirill]

Возможно ли изменить цвет фона при редактировании ячейки StringGrid?

При редактировании ячейки StringGrid фон всегда белый, и если текст светлый то его плохо видно на белом фоне
Стандартными методами мне неудается изменить цвет фона редактируемой ячейки.

Может у кого есть необходимый опыт и/или знания, подскижите пожалуйста как это можно реализовать.

[Marsel737]

procedure TForm1.StringGrid1Click(Sender: TObject);
var
  I, J: integer;
begin
  with StringGrid1 do
  begin
    for I := 0 to ColCount - 1 do
    begin
      for J := 0 to RowCount - 1 do
        Objects[I, J] := TObJect(0);
    end;
    Objects[Col, Row] := TObJect(1);
  end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with StringGrid1 do
  begin
    Canvas.Font.Color := clBlack;
    if Integer(Objects[ACol, ARow]) = 0 then
      Canvas.Brush.Color := clWindow;
    if Integer(Objects[ACol, ARow]) = 1 then
      Canvas.Brush.Color := clGray;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left + 5, Rect.Top + 5, Cells[ACol, ARow]);
  end;
end;

[PK.Kirill]

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

Проект вложен:

[PK.Kirill]

Вижу возникли сложности?

Неужели тут нет знающих людей которые сумеют сделать это быстрее меня, я уже "три дня и три ночи" пытаюсь найти способ

[Lordar]

Дружищще, нет ничего проще! TStringGrid создает строку ввода на общем предке TCustomEdit из класса TInplaceEdit, и по началу изменения текста в ячейке переносит его в нужное место. Оно создается только при первом изменении ячейки. Тоесть отыскать его например при загрузке программы неполучится!!!

procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer; var Value: String);
var
  i: Integer;
begin
  for i := 0 to TStringGrid(Sender).ControlCount - 1 do
    if TStringGrid(Sender).Controls[i].ClassName = 'TInplaceEdit' then begin
      TEdit(TStringGrid(Sender).Controls[i]).Color := clRed;
      TEdit(TStringGrid(Sender).Controls[i]).Font.Color := clWhite;
      { Break; // брейк принципеально не нужен, ведь строка одна, а значит код и так закончится, а если у вас новый компонент и она не одна, то для надежности надо и остальные зацепить}
    end;
end;

Пихать лучше всего в GetEditText, так как именно он срабатывает при начале редактирования ячейки.

[Sibedir]

Вижу возникли сложности?

Моё самолюбие уязвлено

На Lazarus'е вот так

procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState);
begin
  if (gdFocused in aState) and (StringGrid1.EditorMode) then begin
    StringGrid1.Editor.Color := clBlack;
    StringGrid1.Editor.Font.Color := clWhite;
  end;
end;

[Lordar]

Уважаемый Sibedir, я использую исключительно 7 энтерпрайз, а там таких свойств (StringGrid1.Editor) нету! Так что DrawCell тут вообще не применим, ибо опыты показали что он работает только с самим TStringGrid а не с TInplaceEdit в котором собственно и вводится текст.
Вот еще один хакерский пример (без поиска), на основе полиморфизма, Просто получаем сам компонент, и присваиваем цвет через свойство Color, а он сам все нарисует:

uses Mask;

type // Переопределяем классы для получения доступа к инкапсуляционным свойствам
  TheGrid = class(TCustomGrid);
  TheEdit = class(TCustomMaskEdit);

procedure TForm1.StringGrid15GetEditMask(Sender: TObject; ACol, ARow: Integer; var Value: String);
var
  Editor: TheEdit;
begin
  Editor := TheEdit(TheGrid(Sender).InplaceEditor); // получаем внутренний компонент
  if Assigned(Editor) then Editor.Color := clRed; // присвоим цвет
  // тутже можно задавать и любые другие параметры строки ввода
end;