Merhaba Misali usenet'ten buldum diye yazmışım dalgınlıkla, usenet'e de bakmaya çalışmıştım misal için. Doğrusu internet'ten arama ile bulmuştum, sitenin adresi de şöyle : http://www.csd.net/ cgadd/knowbase/DELPHI.htm

Merhaba Aşağıdaki koda bir bakın (Usenet'de bir delphi grubundan buldum, denedim çalışıyor. Bir form hazırlayıp içine bir string grid koyup stringgrid'in ondrawcwell hadisesine atamanız lazım StringGrid1DrawCell isimli prosedürü) : unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type TForm1 = class Button1: TButton; StringGrid1: TStringGrid; procedure StringGrid1DrawCell ; private public end; var Form1: TForm1; implementation procedure TForm1. StringGrid1DrawCell ; var OldColor : TColor; OldBrush : TBrush; begin with StringGrid1. Canvas do begin OldColor := Font. Color; OldBrush := Brush; if StringGrid1. Cells = 'Fr' then begin Brush. Color := $02aaaaaa; FillRect ; Font. Color := clWhite; TextOut(Rect. Left+2, Rect. Top+2, StringGrid1. Cells ); end; if (ARow = 0) and (ACol &gt; 0) then begin if (Odd(StrToIntDef(StringGrid1. Cells ,0))) then Brush. Color := clBlue else Brush. Color := clFuchsia; FillRect ; Font. Color := clWhite; TextOut(Rect. Left+2, Rect. Top+2, StringGrid1. Cells ); end; if (ARow = 1) and (ACol &gt; 0) then begin if StringGrid1. Cells = 'Fr' then Brush. Color := clTeal else Brush. Color := clAqua; FillRect ; if StringGrid1. Cells = 'Fr' then Font. Color := clWhite else Font. Color := clBlack; TextOut(Rect. Left+2, Rect. Top+2, StringGrid1. Cells ); end; Font. Color := OldColor; Brush := OldBrush; end; end; end.

string grid'de herhangibir colonun yada row un text'inin rengini nasıl değiştiriyoruz?mesela 1. colonun 1. rowundaki yazının rengini değiştirmek istiyorum bunu nasıl yapabilirim yardımcı olursanız sevinirim. stringgrid1. canvas. brush. color:=clred; komutundan baska bi komut yokmu cunki bu yapmıyor