VPF::Фон ячейки StringGrid в режиме редактирования

jungle

Дата 4.4.2010, 00:22 (ссылка)

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

Загрузка ...

Аппаратный кодер

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

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

Добрый день!

Пишу свой hex-редактор на основе StringGrid. Цвет ячеек компонента - черный, цвет шрифта ячеек - белый. Однако проблема в том, что при вводе значений (в режиме редактирования) в ячейку цвет ее фона временно меняется на белый (по умолчанию), шрифт при этом остаётся тоже белым. Понятно, что необходимо изменить цвет фона, к примеру на черный. Может кто-нибудь подскажет, как это сделать?

Keeper89

Дата 4.4.2010, 00:50 (ссылка)

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

Загрузка ...

Эксперт

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

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

Почему не менять цвет шрифта и фона при запуске приложения, а в дизайне работать с обычными?

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

jungle

Дата 4.4.2010, 11:00 (ссылка)

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

Загрузка ...

Keeper89,
Видимо я некорректно сформулировал вопрос. Тогда объясню на примере.

Размещаем на форме компонент StringGrid, изменив в Object Inspector следующие его свойства:
1) Color = clBlack
2) Font.Color = clWhite
3) Options.goEditing = True

Теперь запускаем приложение. Пытаемся что-либо ввести в любую из ячеек. При этом ячейка окрашивается в белый цвет (по умолчанию), шрифт при этом тоже белый (заданный мною в Object Inspector). Необходимо этот белый цвет фона ячейки перед вводом значения изменять на другой, например черный.

Amphiluke

Дата 4.4.2010, 16:44 (ссылка)

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

Загрузка ...

☽

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

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

В DRKB есть примеры работы с InplaceEditor.
Искать лень, но, должно быть, где-то так:

Код


unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TMyStringGrid = class(TStringGrid);

  TForm2 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
      const Value: string);
    procedure StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer;
      var Value: string);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer;
  var Value: string);
begin
  TCustomEdit(TMyStringGrid(Sender).InplaceEditor).Brush.Color := clBlack;
end;

procedure TForm2.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: string);
begin
  TCustomEdit(TMyStringGrid(Sender).InplaceEditor).Brush.Color := clBlack;
end;

end.

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