Valew, estava colocando zero nas posições. Agora deu certo dessa maneira.
procedure TfrmAPMovHorarios.stgHorarioMontanteDrawCell(Sender: TObject;
ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var ColorOld : TColor;
ColorPen : TColor;
TheText : String;
begin
if ((A
Tive de fazer o mesmo meses atrás. Eu mandaria meu código, mas ele
não ficou grande coisa.
O que eu fiz foi derivar um componente a partir da TStringGrid,
incluir um array bidimensional para as cores das células, e reescrever
o método DrawCell pra pintar as células ANTES de colocar o texto.
Meu
2 matches
Mail list logo