Essa função faz com q a primeira coluna fique com fundo vermelho e cor de
fonte amarelo.
Acho q isso pode ajudar vc.
if not (gdfixed in State) then
begin
if not (gdSelected in State) then
begin
if ARow = 0 then
begin
Canvas.Font.Color := clBlack
end
else
begin
if (sgparcelas.Cells[ACol,ARow]) = 'x' then
begin
sgparcelas.Canvas.Brush.Color := clRed;
sgparcelas.Canvas.Font.Color := clYellow;
end
else
begin
sgparcelas.Canvas.Brush.Color := clWindow;
sgparcelas.Canvas.Font.Color := clBlack;
end;
end;
end;
end;
if gdFocused in State then
sgparcelas.Canvas.DrawFocusRect(Rect);
sgparcelas.Canvas.FillRect(Rect);
sgparcelas.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2,
TStringGrid(sgparcelas).Cells[ACol, ARow]);
Quando ao espaço vc tem q colocar espaço
' '4,20
' '14,20
o que está entre ' ' é o espaço q tem q criar ...
vc tem q fazer uma função q pega o tamanho da coluna, subtrai pelo tamanho
do caracter oq sobre é o tanto de espaço q tem q colocar.
----- Original Message -----
From: "Ricardo Cabral" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Wednesday, February 01, 2006 4:14 PM
Subject: [delphi-br] StringGrid
Olá pessoal!
Duas dúvias no stringgrid:
1 - Como posso colorir uma linha ou coluna ?
2 - Como alinho valores a direita da célula?
Desde de já agradeço!
[]´s
Ricardo Cabral
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
_______________________________________________________
Yahoo! doce lar. Faça do Yahoo! sua homepage.
http://br.yahoo.com/homepageset.html
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
