Dbgrid Satır rengini satır satır değiştirme

[conari]

ilk cümle ile seçilmiş alanın rengini değiştiriyorum.
İkinci kod ile de satırların rengini değiştirmeye çalışıyorum.
ama recno her satır da 2=2 oluyor sanki tüm satırlar çift değer miş gibi ve bütün satırlarım kırmızı oluyor.

Aslında satırdaki alanın değeri değiştiğinde bu işlemi yapmam lazım.

Nedeni ni çözemedim.Teşekkürler

Kod: Tümünü seç

 procedure TSform.osDBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
If (gdSelected in state)
  then osDBGrid.Canvas.Brush.Color := clred
  else osDBGrid.Canvas.Brush.Color := clwhite;
end;
      begin
      if (osDBGrid.datasource.dataset.recno mod 2) =0
      then osDBGrid.Canvas.Brush.Color := clGreen
      else osDBGrid.Canvas.Brush.Color := clRed;
      osDBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;
    end;

[bobasturk]

Merhaba,

Acemiliğinden kaynaklanabilir ama siz birinci koddan sonra end ile kapatmışsınız ardından ikinci kod için begin diyerek blok açmışsınız. buradan kaynaklanıyor olabilir mi?.

end; ile kapatmadan ziyade end else begin ile bir deneseniz.

kolay gelsin

[rsimsek]

@bobasturk hocamın dediği gibi bloklamada hatalar olmuş. Şu şekilde değiştirirsen çalışacak;

Kod: Tümünü seç

procedure TForm1.osDBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  If (gdSelected in state) then
    osDBGrid.Canvas.Brush.Color := clred
  else
  begin
    osDBGrid.Canvas.Brush.Color := clWhite;
    if (osDBGrid.datasource.dataset.recno) mod 2 = 0 then
      osDBGrid.Canvas.Brush.Color := clGreen
    else
      osDBGrid.Canvas.Brush.Color := clRed;
    osDBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

[conari]

rşimşek hocam
sizin düzelttiğiniz kodu aynen koydum ama yine aynı hepsi kırmızı oluyor

[aslangeri]

s.a.
begin end problemi devam ediyor sanırım.

Kod: Tümünü seç

osDBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State); 

satırını en son endden önce yaz.
kolay gelisn.

[rsimsek]

Bende bu şekliyle de çalıştı fakat doğrusu @aslangeri nin dediği gibi olmalı;

Kod: Tümünü seç

procedure TForm1.osDBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  If (gdSelected in state) then
    osDBGrid.Canvas.Brush.Color := clred
  else
  begin
    osDBGrid.Canvas.Brush.Color := clWhite;
    if (osDBGrid.datasource.dataset.recno) mod 2 = 0 then
      osDBGrid.Canvas.Brush.Color := clGreen
    else
      osDBGrid.Canvas.Brush.Color := clRed;
  end;
  osDBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

[sabanakman]

ilk cümle ile seçilmiş alanın rengini değiştiriyorum.
İkinci kod ile de satırların rengini değiştirmeye çalışıyorum.
ama recno her satır da 2=2 oluyor sanki tüm satırlar çift değer miş gibi ve bütün satırlarım kırmızı oluyor.

Aslında satırdaki alanın değeri değiştiğinde bu işlemi yapmam lazım.

Nedeni ni çözemedim.Teşekkürler

Kod: Tümünü seç

procedure TSform.osDBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
If (gdSelected in state)
  then osDBGrid.Canvas.Brush.Color := clred
  else osDBGrid.Canvas.Brush.Color := clwhite;
end;
      begin
      if (osDBGrid.datasource.dataset.recno mod 2) =0
      then osDBGrid.Canvas.Brush.Color := clGreen
      else osDBGrid.Canvas.Brush.Color := clRed;
      osDBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;
    end;

yerine

Kod: Tümünü seç

if (TStringGrid(osDBGrid).Row mod 2) =0
then osDBGrid.Canvas.Brush.Color := clGreen
else osDBGrid.Canvas.Brush.Color := clRed;

kullan. Bu kodlar görüntüde saçma gelecektir ama çalışmayı test ettikten sonra göreceklerin seni şaşırtmasın.

[conari]

Kod: Tümünü seç

procedure TSform.osDBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin
 if (TStringGrid(osDBGrid).Row mod 2) =0
then osDBGrid.Canvas.Brush.Color := clGreen
else osDBGrid.Canvas.Brush.Color := clRed;
end;

Şaban hoca senin dediğin kodu denedim hatta seçilen alan rengini de boş vereyim dedim. ama olmadı.
rşimşek hocam sizin en son düzenlediğiniz kodu çalıştırdım yine hep kırmızı.

acaba benim gridde mi bir problem var?

[conari]

kodu yeni bir App de denedim çalışıyor benim dbgridde ne problem olmuş olabilir bunu engelleyecek.