grid

[Jorgin-QuicK 0]

Oi eu tenho um problema com um GRID em Delphi 7, aqui temos uma tela que importa dados de uma planilha do excel, toda a Linha 0 é fixa, sua cor de fundo é cinza e os campos não-fixos é branco por padrão.

Importado do Excel são 20 colunas 0 ~ 19, então por um sql feito é acrescentado as colunas 20,21 e 22, eu gostaria de trocar a cor da fonte somente dessas 3 ultimas colunas.

 

stgCarga.Cells[5,6] := 'x' //Isso é usado para acrescentar o valor x na coluna 5 linha 6.

 

Existe a propriedade, stgCarga.Canvas.Font.Color := clRed, essa propriedade altera a cor da fonte, mas eu quero alterar somente nas colunas 20,21 e 22.

 

Ajuda plz!

 

Agradeço a todos! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Vinicius Infoloko 0]

Caro Colega...

 

Tente esta função no método OnDrawCell do Grid

 

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow:Integer;

Rect: TRect; State: TGridDrawState);

{***}

procedure DrawCellText( const posicao : string );

var

Text: array[0..255] of Char;

begin

StrPCopy( Text, StringGrid1.Cells[ ACol, ARow ] );

ExtTextOut( StringGrid1.Canvas.Handle, Rect.Left+2, Rect.Top+2,

ETO_CLIPPED or ETO_OPAQUE, @Rect, Text, StrLen( Text ),nil );

end;

{***}

begin

if ( ACol = 2 ) and ( ARow = 2 ) then

begin

StringGrid1.Canvas.Brush.Color := clRed;

StringGrid1.Canvas.FillRect( Rect );

DrawCellText( StringGrid1.Cells[ ACol, ARow ] );

end;

end;

 

 

Att.