Текущий архив: 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.047 c