Mega Code Archive

 

Categories / Delphi / VCL

 

String grid renklendirme

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if (acol=0)and(arow=0) then begin StringGrid1.Canvas.Font.Color := ClYellow; StringGrid1.Canvas.Pen.Color := ClYellow; StringGrid1.Canvas.TextOut(5 , 5,'DELPHİ'); end; if (acol=1)and(arow=0) then begin StringGrid1.Canvas.Font.Color := clgreen; StringGrid1.Canvas.Pen.Color := Clgreen; StringGrid1.Canvas.TextOut(5 , 5 , 'TÜRKİYEYE'); end; if (acol=2)and(arow=0) then begin StringGrid1.Canvas.Font.Color := clblue; StringGrid1.Canvas.Pen.Color := Clblue; StringGrid1.Canvas.TextOut(5 , 5 , 'TEŞEKKÜRLER'); end;