stringgrid renklendirme?

[nitro]

s.a.
stringgridde istediğim hücreyi nasıl renklendiririm.
mesela: boya(satir,sutun,renk);
boya(3,2,clred); gibi.

yaptığım aramalar sonucu

Kod: Tümünü seç

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if (gdselected in state) then StringGrid1.canvas.brush.color := clRed;
StringGrid1.Canvas.FillRect(Rect);

gibi bir koda ulaştım ama hücresel bir kontrol sunmuyor.

[lazio]

Kod: Tümünü seç

procedure StringGridRotateTextOut(Grid: TStringGrid; ARow, ACol: Integer; Rect: TRect;
  Schriftart: string; Size: Integer; Color: TColor; Alignment: TAlignment);
var
  lf: TLogFont;
  tf: TFont;
begin
  if (Size > Grid.ColWidths[ACol] div 2) then
    Size := Grid.ColWidths[ACol] div 2;
  with Grid.Canvas do
  begin
    Font.Name := Schriftart;
    Font.Size := Size;
    Font.Color := Color;
    tf := TFont.Create;
    try
      tf.Assign(Font);
      GetObject(tf.Handle, SizeOf(lf), @lf);
      lf.lfEscapement  := 900;
      lf.lfOrientation := 0;
      tf.Handle := CreateFontIndirect(lf);
      Font.Assign(tf);
    finally
      tf.Free;
    end;
    FillRect(Rect);
    if Alignment = taLeftJustify then
      TextRect(Rect, Rect.Left + 2,Rect.Bottom - 2,Grid.Cells[ACol, ARow]);
    if Alignment = taCenter then
      TextRect(Rect, Rect.Left + Grid.ColWidths[ACol] div 2 - Size +
        Size div 3,Rect.Bottom - 2,Grid.Cells[ACol, ARow]);
    if Alignment = taRightJustify then
      TextRect(Rect, Rect.Right - Size - Size div 2 - 2,Rect.Bottom -
        2,Grid.Cells[ACol, ARow]);
  end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if ACol = 1 then
    StringGridRotateTextOut(StringGrid1, ARow, ACol, Rect, 'ARIAL',
      12,clRed, taLeftJustify);

  if ACol = 2 then
    StringGridRotateTextOut(StringGrid1, ARow, ACol, Rect, 'ARIAL', 12, clBlue, taCenter);

  if ACol > 2 then
    StringGridRotateTextOut(StringGrid1, ARow, ACol, Rect, 'ARIAL', 12,clGreen,
      taRightJustify);
end;

[Uğur1982]

merhaba;

Kod: Tümünü seç

  if (ARow = 3) and (ACol=2) then
  begin
    StringGrid1.Canvas.Brush.Color := ClRed
    StringGrid1.Canvas.FillRect(Rect);
  end;

iyi günler...

[vampir261]

Kod: Tümünü seç

     
   StringGridPUANTAJ.Canvas.Brush.Color := renk; 
   StringGridPUANTAJ.Canvas.FillRect(StringGridPUANTAJ.CellRect(sayac2,sayac1));

drawcell i�inden de�il heryerden renklendirme yapmak isterseniz.

[palandoken]

merhaba;

Kod: Tümünü seç

  if (ARow = 3) and (ACol=2) then
  begin
    StringGrid1.Canvas.Brush.Color := ClRed
    StringGrid1.Canvas.FillRect(Rect);
  end;

iyi günler...

Bu kod işe yaradı.Fakat griddeki yazılar görünmüyor.Gridi dolduruyorum ama boş görünüyor.Bu sorunu nasıl hallederim.
Teşekkürler...