TStringGrid'de seçilen satırın fontunu değiştirmek?

[ofaruk_k]

Merhaba arkadaşlar,
Delphi 7'de TStringGrid bileşeninde seçtiğimiz satıra ait font özelliklerini nasıl değiştirebiliriz? Örneğin rengini? Fakat bu işlem onDrawCell olayında değil, onSelectCell olayında gerçekleşecek.
Acaba nasıl yapabiliriz???

[Caylaq]

Ondrawcell özelliğine yazınız ve kendinize göre ayarlayınız lütfen

 
/IF (gdSelected IN State) THEN
Begin
StringGrid1.canvas.brush.color := clRed;
End
Else
StringGrid1.Canvas.Brush.Color := $00C8FBFD;
StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.Font.Color := clYellow;
StringGrid1.Canvas.Pen.Color :=  clBlue;       //$00BFD7B5;
StringGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);

iyi çalışmalar

[ofaruk_k]

Çok teşekkürler Caylaq, renk değiştirmesi tam istediğim gibi oldu. Aslında yapmak istediğim şu, kayıt listesinde seçilen kayıtın fontu değişecek, böylece okunduğu belli olacak. Veritabanı olmadan ve Tstring ile yapacağım için biraz zorlandım. Aklıma gelen, kayıt seçildiğinde görünmeyen x kolonuna değer atayıp bu değere göre OnDrawCell olayında kontrol etmek ama sanırım kolonun görünmemesi olmuyor. Acaba böyle bi işlemi nasıl yapabilirim?
Kolay Gelsin...

[Caylaq]

Rica Ederim @ofaruk_k;

İşinizi gördüyse ne mutlu bana



Stringgridde bende taksitli satışların sıranosunu gizliyorum ve bu bölümleri Readonly yaparak sonucu alıyorum.

 
        StringGrid1.ColWidths[0] := 90; //  - Müşteri No
        StringGrid1.ColWidths[1] := 80; // - Taksit Tutarı
        StringGrid1.ColWidths[2] := 30; // -  Taksit Vadesi
        StringGrid1.ColWidths[3] := 0;  //  -  SIRANO

Çalışmalarınızda başarılar


Selamlar..

[Caylaq]

İstenilen sütunu ise aşağıdaki gibi READONLY yapıyorum.

 
             //satır       //sütun
         if   (Arow>=0) and (Acol<3) then     //  sadece 3. sütunu False yapıyoruz
          begin
          StringGrid1.EditorMode :=true;
          StringGrid1.Options := StringGrid1.Options + [goEditing];
          end
          else
          begin
          StringGrid1.EditorMode := false ;
          StringGrid1.Options := StringGrid1.Options - [goEditing];
          end;

Kolay gelsin




.

[ofaruk_k]

çok çok teşekkürler Caylaq, gerçekten süper oldu

stringgrid1.Cells[ACol,Arow]

ile de istediğim sütuna değer atayabiliyorum. Tekrar teşekkürler. Kolay Gelsin...

[Caylaq]

@ofaruk_k

Rica ederim Hocam Ne demek,

Önemli olan sorununuza cevap bulabilmekti ki bulduk



Projenizde Başarılar dilerim




.