Текущий архив: 2004.08.01;
Скачать: CL | DM;
Вниз
закраска в StringGrid Найти похожие ветки
← →
DSKalugin © (2004-07-15 17:41) [0]пробовал по разному выделить строку или цветом шрифта или цветом фона. Не получается. Строка вся белая без информации.
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:07) [1]Попробуй не TextRect, а TextOut и не FrameRect, а FillRect
← →
Sun bittern © (2004-07-15 20:16) [2]Сбегайте на королевство дельфи. Там статейка есть хорошая
← →
CHES © (2004-07-15 20:52) [3]Опа промашка вышла.
Чтобы изменить цвет текста:
sgBorjok.Font.Color:=clRed;
Чтобы изменить цвет фона
sgBorjok.Canvas.Brush.Color:=clGreen;
Страницы: 1 вся ветка
Текущий архив: 2004.08.01;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.074 c
