Dobro evo ti kod:
Code:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
Form1.DBGrid1.Canvas.Font.Color := clBlack;
if Odd(Form1.ADOQuery3.RecNo)
then
begin
Form1.DBGrid1.Canvas.Brush.Color := clGreen
end
else
Form1.DBGrid1.Canvas.Brush.Color := clYellow;
Form1.DBGrid1.Canvas.TextRect(rect, rect.Left,rect.top, Form1.DBGrid1.Fields[DataCol].AsString);
end;
Dakle, kada se ovaj kod postavi tamo na OnDrawColumnCell bojenje radi odlicno dok se tekst u kolonama poravna uz levu ivicu a ja hocu da bude na sredini. Drugo, kada je DBGrid ovako obojen ne radi mi selektovanje redova - jednostavno ne mozes nikako da selektujes red.
I eto to je, uglavnom, to. Pozdrav...