VPF::О событии OnDrawCell - Форум программистов

Aleks26

Дата 23.5.2010, 20:09 (ссылка)

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

Загрузка ...

Шустрый

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

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

Имеется компонент StringGrid и следующий код:

Код


procedure TfrmGridComp.btnContentWorkArea1Click(Sender: TObject);
var i,j: Integer;
begin
 with sgrGridComp1 do
 begin{0}
 for i:=1 to ColCount-1 do
  for j:=1 to RowCount-1 do
   begin
    Cells[i,j] :=Cells[i,0]+Cells[0,j];
  end;{0}
   end;
end;

procedure TfrmGridComp.sgrGridComp1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
if (ACol=3) and (ARow=5) then
 begin
 sgrGridComp1.Canvas.Font.Style := [fsItalic];
 sgrGridComp1.Canvas.Font.Color := clRed;
 sgrGridComp1.Canvas.FillRect(Rect);
 end;
end;

После выполнения я получаю заполненную таблицу кроме ячейки (5,3). Делая активной эту ячейку, она заполняется, но атрибуты шрифта такие же как для всей таблицы, а не как в обработчике OnDrawCell. Когда делаю активной другую ячейку, указанная вновь становится незаполненной. Почему та происходит? Объясните, плиз. smile

Демо

Дата 23.5.2010, 20:40 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Aleks26 @ 23.5.2010, 20:09

)

sgrGridComp1.Canvas.FillRect(Rect);

А здесь затираешь всё.

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

Aleks26

Дата 23.5.2010, 22:32 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата

А здесь затираешь всё.

Я сейчас закомментировал эту строку, но почему не воспринимаются атрибуты шрифта, которые присутствуют в обработчике OnDrawCell? smile

cyberstream

Дата 24.5.2010, 09:02 (ссылка)

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

Загрузка ...

Шустрый

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

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

Стиль шрифта TstringGrid-a http://forum.vingrad.ru/forum/topic-270008...cell/index.html

Код


procedure TfrmGridComp.sgrGridComp1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if (ACol=3) and (ARow=5) then
 begin
 sgrGridComp1.Canvas.FillRect(Rect);
 sgrGridComp1.Canvas.Font.Style := [fsItalic];
 sgrGridComp1.Canvas.Font.Color := clRed;
 sgrGridComp1.Canvas.TextOut(Rect.Left, Rect.Top, sgrGridComp1.Cells[ACol, ARow])
 end;
end;

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

Не знаешь кого спросить? - Спроси google!

Aleks26

Дата 24.5.2010, 09:40 (ссылка)

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

Загрузка ...

Шустрый

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

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

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

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