VPF::канва в stringgrid - Форум программистов

bagos

Дата 26.3.2007, 19:36 (ссылка)

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

Загрузка ...

Опытный

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

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

закрашиваю ячейки в гриде

Код


procedure TForm1.StringGrid3DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
bakColor: TColor;
col,row:integer;
i:integer;
s:string;
begin
col:=strtoint(edit1.Text);
row:=strtoint(edit2.Text);
if (acol=col) and (arow=row) then begin
rect:=stringgrid3.CellRect(acol,arow);
stringgrid3.Canvas.Brush.Color:=clSkyBlue;
stringgrid3.Canvas.TextRect(rect,acol,arow,s);
stringgrid3.Canvas.FillRect(rect);

в онклик кнопки:

Код


var
i:integer;
col,row:integer;
begin
for i:=1 to valuelisteditor1.RowCount-1 do begin
col:=strtoint(valuelisteditor1.Keys[i]);
row:=strtoint(valuelisteditor1.Cells[1,i]);
edit1.Text:=inttostr(col);
edit2.Text:=inttostr(row);
end;
stringgrid3.Invalidate;
end;

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

_hunter

Дата 26.3.2007, 19:48 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

Цитата(bagos @ 26.3.2007, 19:36

)

if (acol=col) and (arow=row) then begin

где ты тут цикл увидел?

Цитата(bagos @ 26.3.2007, 19:36

)

stringgrid3.Canvas.TextRect(rect,acol,arow,s);stringgrid3.Canvas.FillRect(rect);

сначала текст рисуем, потом его затираем...

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

Tempora mutantur, et nos mutamur in illis...

bagos

Дата 26.3.2007, 19:53 (ссылка)

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

Загрузка ...

Опытный

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

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

и так пробовал
stringgrid3.Canvas.FillRect(rect);
stringgrid3.Canvas.TextRect(rect,acol,arow,s)
...

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