Satırları Renklendirilmiş StringGrid'de yazılar görünmüyor.

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
palandoken
Üye
Mesajlar: 151
Kayıt: 16 Eki 2006 10:43
Konum: ERZURUM

Satırları Renklendirilmiş StringGrid'de yazılar görünmüyor.

Mesaj gönderen palandoken »

Merhaba,

Kod: Tümünü seç

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
   if (ARow = 0) or (ARow=2) then
      begin
         StringGrid1.Canvas.Brush.Color := clYellow ;
         StringGrid1.Canvas.FillRect(Rect);
      end;
end ;
şeklinde StringGrid'in satırlarını renklendiriyorum ama bu seferde satırlardaki yazılar görünmüyor.Bu yazıların görünmesini nasıl sağlayabilirim.
Not := Daha önce forumda araştırmış,bulamamış ve sormuştum.Cevap gelmemişti.İlgilenirseniz sevinirim.
akıllanma , aklını başına toplama , toparlanma , kendisini derleme bu dünyaya ait bir vazife.
ahirette nasıl olsa aklın başına gelecek.
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Mesaj gönderen aslangeri »

Kod: Tümünü seç

StringGrid1.Canvas.textout(x ve y yi sütun genişliği ve satır yüksekliği acol arow değişkenleri ile çarpıp bulacaksın, stringgrid1.cells[acol,arow])
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
palandoken
Üye
Mesajlar: 151
Kayıt: 16 Eki 2006 10:43
Konum: ERZURUM

Mesaj gönderen palandoken »

Teşekkür ederim.

Kod: Tümünü seç

   StringGrid1.Canvas.TextOut(StringGrid1.DefaultColWidth*ACol+10,StringGrid1.DefaultRowHeight*ARow+10,StringGrid1.Cells[Acol,Arow]);
Dediğiniz gibi sorunu bu kod ile çözdüm.
Saygılar..
akıllanma , aklını başına toplama , toparlanma , kendisini derleme bu dünyaya ait bir vazife.
ahirette nasıl olsa aklın başına gelecek.
Cevapla