| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
закраска в StringGrid [D6, WinXP]
DSKalugin © (2004-07-15 17:41:00)пробовал по разному выделить строку или цветом шрифта или цветом фона. Не получается. Строка вся белая без информации.
procedure TfmArch.sgBorjokDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var d:TDateTime;
b:Double;
begin
if (ARow>0)and(sgBorjok.cells[4,ARow]<>'') then begin
try
d:=StrToDate(sgBorjok.cells[4,ARow]);
b:=StrToFloat(sgBorjok.cells[1,ARow]);
except end;
if (((Date-d)>6)and(b>=200))
then begin
sgBorjok.Canvas.Font.Color:=clRed;
sgBorjok.Canvas.TextRect(Rect,1,1,sgBorjok.cells[ACol,ARow]);
// sgBorjok.Canvas.FrameRect(Rect);
end;
end;
end;
а как правильно?
CHES (2004-07-15 20:52:00) [1]Опа промашка вышла.
Чтобы изменить цвет текста:
sgBorjok.Font.Color:=clRed;
Чтобы изменить цвет фона
sgBorjok.Canvas.Brush.Color:=clGreen;
Sun bittern (2004-07-15 20:16:00) [2]Сбегайте на королевство дельфи. Там статейка есть хорошая
CHES (2004-07-15 20:07:00) [3]Попробуй не TextRect, а TextOut и не FrameRect, а FillRect
| |
