Re: [delphi-br] Célula de um StringGrid selecionada

2004-10-14 Por tôpico Beto Moreno 

Não consegui não, Fabio.

O q eu quero é "imitar" a multi-seleção de um ListBox numa StringGrid, mas
não consegui ainda.

[]s
Beto

- Original Message - 
From: "Fabio Giro" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, October 13, 2004 10:30 AM
Subject: Re: [delphi-br] Célula de um StringGrid selecionada




Beto, esta rotina pinta o fundo de todas as células. Junte com a rotina que
você tem para capturar a célula clicada que talvez consiga o que quer.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
begin
// pinta o fundo da celula
  if (row > 0) and (col > 0) then
   begin
 stringgrid1.Canvas.Brush.Color:=clYellow;
 stringgrid1.Canvas.FillRect(Rect);

stringgrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+1,stringgrid1.Cells[Col,Row]
);
   end;
end;

Espero ter ajudado.

- Original Message -
From: "BOL" <[EMAIL PROTECTED]>
To: "Delphi-Br-Msgs" <[EMAIL PROTECTED]>
Sent: Wednesday, October 13, 2004 9:42 AM
Subject: [delphi-br] Célula de um StringGrid selecionada


>
> Olá pessoal!
>
> Alguém aqui poderia me informar como colorir as células de um StringGrid
qdo
> elas forem clicadas?
> Eu escrevi uma rotina q consigo capturar a célula clicada, mas além disso,
> eu preciso q a celula fique "marcada"  por um determinada cor como se
fosse
> o registro da seleção.
>
> Antecipadamente eu agradeço a ajuda.
>
> Beto Moreno
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< 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] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
> --
> <<<<< 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] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>






-- 
<<<<< 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] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










-- 
<<<<< 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] ou [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

Re: [delphi-br] Célula de um StringGrid selecionada

2004-10-14 Por tôpico Beto Moreno 

Sinto muito, mas não funcionou Jeferson.
Qdo eu clico noutra célula a seleção anterior é desfeita e fica como se não
tivesse sido selecionada antes.

De qquer forma, grato.
Beto

- Original Message - 
From: "Jeferson Menegon" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, October 13, 2004 5:56 PM
Subject: RES: [delphi-br] Célula de um StringGrid selecionada



procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Longint;
  Rect: TRect; State: TGridDrawState);
const
  LM = 3; {each indiviual cell's left margin}
  TM = 2; {each indiviual cell's top margin}
var
  ptr: Pointer;
begin
  {qualquer cor é armazenada no ponteiro do objeto}
  ptr := StringGrid1.Objects[Col, Row];
  StringGrid1.Canvas.Font.Color := LongInt(ptr);
  {deixe as filas fixas e as colunas fixas em prata }
  if gdFixed in State then
  StringGrid1.Canvas.Brush.Color := clLime;
  {puxemos o destaque do modo seguinte quando a celula for selecionada }
  if gdSelected in State then
  begin
  StringGrid1.Canvas.Brush.Color := clBlue;
  StringGrid1.Canvas.Font.Color := clHighlightText;
  end;
  {finalmente, faça o desenho de celula atual }
  StringGrid1.Canvas.TextRect(Rect, Rect.Left + LM, Rect.Top + TM,
StringGrid1.Cells[col,row]);
end;

-Mensagem original-
De: Beto Moreno [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 13 de outubro de 2004 16:31
Para: Delphi-Br-Msgs
Assunto: [delphi-br] Célula de um StringGrid selecionada


Olá pessoal!

Alguém aqui poderia me informar como colorir as células de um StringGrid qdo
elas forem clicadas?
Eu escrevi uma rotina q consigo capturar a célula clicada, mas além disso,
eu preciso q a celula fique "marcada"  por um determinada cor como se fosse
o registro da seleção.

Antecipadamente eu agradeço a ajuda.

Beto Moreno



-- 
<<<<< 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] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










-- 
<<<<< 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] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










-- 
<<<<< 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] ou [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

Re: [delphi-br] Célula de um StringGrid selecionada

2004-10-13 Por tôpico Fabio Giro 


Beto, esta rotina pinta o fundo de todas as células. Junte com a rotina que
você tem para capturar a célula clicada que talvez consiga o que quer.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
begin
// pinta o fundo da celula
  if (row > 0) and (col > 0) then
   begin
 stringgrid1.Canvas.Brush.Color:=clYellow;
 stringgrid1.Canvas.FillRect(Rect);

stringgrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+1,stringgrid1.Cells[Col,Row]
);
   end;
end;

Espero ter ajudado.

- Original Message -
From: "BOL" <[EMAIL PROTECTED]>
To: "Delphi-Br-Msgs" <[EMAIL PROTECTED]>
Sent: Wednesday, October 13, 2004 9:42 AM
Subject: [delphi-br] Célula de um StringGrid selecionada


>
> Olá pessoal!
>
> Alguém aqui poderia me informar como colorir as células de um StringGrid
qdo
> elas forem clicadas?
> Eu escrevi uma rotina q consigo capturar a célula clicada, mas além disso,
> eu preciso q a celula fique "marcada"  por um determinada cor como se
fosse
> o registro da seleção.
>
> Antecipadamente eu agradeço a ajuda.
>
> Beto Moreno
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< 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] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
> --
> <<<<< 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] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>






-- 
<<<<< 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] ou [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

RES: [delphi-br] Célula de um StringGrid selecionada

2004-10-13 Por tôpico Jeferson Menegon 

procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Longint;
  Rect: TRect; State: TGridDrawState);
const
  LM = 3; {each indiviual cell's left margin}
  TM = 2; {each indiviual cell's top margin}
var
  ptr: Pointer;
begin
  {qualquer cor é armazenada no ponteiro do objeto}
  ptr := StringGrid1.Objects[Col, Row];
  StringGrid1.Canvas.Font.Color := LongInt(ptr);
  {deixe as filas fixas e as colunas fixas em prata }
  if gdFixed in State then
  StringGrid1.Canvas.Brush.Color := clLime;
  {puxemos o destaque do modo seguinte quando a celula for selecionada }
  if gdSelected in State then
  begin
  StringGrid1.Canvas.Brush.Color := clBlue;
  StringGrid1.Canvas.Font.Color := clHighlightText;
  end;
  {finalmente, faça o desenho de celula atual }
  StringGrid1.Canvas.TextRect(Rect, Rect.Left + LM, Rect.Top + TM,
StringGrid1.Cells[col,row]);
end;

-Mensagem original-
De: Beto Moreno [mailto:[EMAIL PROTECTED] 
Enviada em: quarta-feira, 13 de outubro de 2004 16:31
Para: Delphi-Br-Msgs
Assunto: [delphi-br] Célula de um StringGrid selecionada


Olá pessoal!

Alguém aqui poderia me informar como colorir as células de um StringGrid qdo
elas forem clicadas?
Eu escrevi uma rotina q consigo capturar a célula clicada, mas além disso,
eu preciso q a celula fique "marcada"  por um determinada cor como se fosse
o registro da seleção.

Antecipadamente eu agradeço a ajuda.

Beto Moreno



-- 
<<<<< 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] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos




 





-- 
<<<<< 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] ou [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

[delphi-br] Célula de um StringGrid selecionada

2004-10-13 Por tôpico Beto Moreno 

Olá pessoal!

Alguém aqui poderia me informar como colorir as células de um StringGrid qdo
elas forem clicadas?
Eu escrevi uma rotina q consigo capturar a célula clicada, mas além disso,
eu preciso q a celula fique "marcada"  por um determinada cor como se fosse
o registro da seleção.

Antecipadamente eu agradeço a ajuda.

Beto Moreno



-- 
< 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] ou [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