Ещё вопросик по StringGrid!!!

[eoln]

Главное это сделать надо в обработчике OnDrawCell и текст потом снова вывести

  StringGrid.Canvas.Brush.Color:=clRed;
  StringGrid.Canvas.FillRect(Rect);
  StringGrid.Canvas.TextOut(Rect.Left,Rect.Top,StringGrid.Cells[ACol,ARow]);

[zzzzz]

можете пожалуйста пример кода написать, а то оно у меня нужную ячейку полностью закрашивает, а в (0,0) вставляет моё значение на цветном фоне так как и должно быть. И ещё одна запара, после того как закрашивает ячейку, то любая ячейка на которую бы я не кликнул, она становится цветная!!!!

[_Engine_]

показывай свой код.

[zzzzz]

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin

if strtoint(stringgrid1.Cells[2,2]) > 0 then begin
stringgrid1.canvas.Brush.Color:=clG reen;
stringgrid1.canvas.FillRect(rect);
stringgrid1.Canvas.TextOut(5,5,stri nggrid1.Cells[2,2]); end;
end;

[_Engine_]

with StringGrid1 do
begin
  if strtoint(Cells[ACol,ARow]) > 0 then 
  begin
    canvas.Brush.Color:=clGreen;
    canvas.FillRect(rect);
    canvas.TextOut(Rect.Left,Rect.Top,Cells[ACol,ARow]);  
  end
end;

[zzzzz]

спасиб!!!!помог!!!

[zzzzz]

А можно в Stringgrid сделать в некоторых ячейках допустим текст жирный, а в некоторых нет??????

[mutabor]

Canvas.Font.Style:=Canvas.Font.Styl e+[fsBold];

[Roof]

вот тебе пример еще:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
Rect: TRect; State: TGridDrawState); 
Const   //сдесь определяем Ваш цвет. Так же можно использовать 
       //цвета по умолчанию. 
clPaleGreen = TColor($CCFFCC); 
clPaleRed =   TColor($CCCCFF); 
begin 
//Если ячейка получает фокус, то нам надо закрасить её другими цветами 
if (gdFocused in State) then begin     
  StringGrid1.Canvas.Brush.Color := clBlack; 
  StringGrid1.Canvas.Font.Color := clWhite; 
end 
else //Если же ячейка теряет фокус, то закрашиваем её красным и зелёным 
  if ACol = 2   //Вторая колонка будет зелёной , другие - ячейки красными 
   then StringGrid1.Canvas.Brush.color := clPaleGreen 
   else StringGrid1.canvas.brush.Color := clPaleRed; 
//Теперь закрасим ячейки, но только, если ячейка не Title- Row/Column 
//Естевственно это завит от того, есть у Вас title-Row/Columns или нет. 
If (ACol > 0) and (ARow>0) then 
begin 
     //Закрашиваем бэкграунд 
   StringGrid1.canvas.fillRect(Rect); 
     //Закрашиваем текст (Text). Также здесь можно добавить выравнивание и т.д.. 
StringGrid1.canvas.TextOut(Rect.Left,Rect.Top,StringGrid1.Cells[ACol,ARow]); end; 

end;