Stringgrid de satır boyama

[mnhas]

Merhaba,
Aşağıdaki iki sorunumu çözmeme yardımcı olursanız çok memnun olacağım.
1-Belirli bir şartın oluşması halinde stringriddeki satırın rengini değiştirmek istiyorum.
Stringgrid1.Canvas.Brush.Color:=Clred; kodunu OnDrawCell eventına yazınca sonuç alamadım.

2-Bilgisayarın IP numarasını nereden, nasıl okutabilirim?

[husonet]

Ben sana boyamayla ilgili ufak bir örnek hazırladım gerisi artık sana kalmış

Kod: Tümünü seç

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  IF (gdSelected IN State) THEN
  Begin
        StringGrid1.canvas.brush.color := clRed;
  End
  Else
        StringGrid1.Canvas.Brush.Color := clTeal;
    StringGrid1.Canvas.FillRect(Rect);
    StringGrid1.Canvas.Font.Color := ClYellow;
    StringGrid1.Canvas.Pen.Color := ClYellow;
    StringGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);

end;

Kolay Gelsin...

[mege]

2-Bilgisayarın IP numarasını nereden, nasıl okutabilirim?

ilkini @hüsonet yanıtlamış ikinciyide benn yazayım

Arama butonuna tıklayıp ip yazacaksın sana ipni verecek

[husonet]

Hocam Yaptık ama Renk problemim bu StringGrid'ede yansıdı pavyon havası verdi.

[mnhas]

İlginize teşekkür ederim.
Kodu çalıştırdığımda, strinngrideki hücre devamlı taranarak renkleniyor. Bu da alışılmış, hoş bir görünüm vermiyor.