[delphi-br] Re: StringGrid - como alinhar valores?
Não estou conseguindo usar esta procedure de jeito nenhum. Dá td quanto é erro no delphi ao compilar. Que faço? Não tem algo mais facil? --- Em delphi-br@yahoogrupos.com.br, Alisson Yahoo [EMAIL PROTECTED] escreveu Use a procedure abaixo procedure AlinhaGrid(Grid : TStringGrid; ACol, ARow : Longint; Rect : TRect; State : TGridDrawState; Align : array of Integer); var S : array[0..255] of Char; begin //0-Esquerda1-Centro 2-Direita} if (ARow = 0) or (ACol Length(Align)-1) and (Align[ACol] = 0) then Exit else if (Align[ACol] = DT_LEFT) then ExtTextOut(Grid.Canvas.Handle, Rect.Left + ACol, Rect.Top+2, ETO_OPAQUE or ETO_CLIPPED, @Rect, StrPCopy(S, Grid.Cells[ACol,ARow]), Length(Grid.Cells[ACol,ARow]), nil) else if (Align[ACol] = DT_RIGHT) then ExtTextOut(Grid.Canvas.Handle, Rect.Right - Grid.Canvas.TextWidth(Grid.Cells[ACol,ARow]) - 3, Rect.Top+2, ETO_OPAQUE or ETO_CLIPPED, @Rect, StrPCopy(S, Grid.Cells [ACol,ARow]), Length(Grid.Cells[ACol,ARow]), nil) else if (Align[ACol] = DT_CENTER) then ExtTextOut(Grid.Canvas.Handle, Rect.Left + (Rect.Right - Rect.Left - Grid.Canvas.TextWidth(Grid.Cells[ACol,ARow])) div 2, Rect.Top+2, ETO_OPAQUE or ETO_CLIPPED, @Rect, StrPCopy(S, Grid.Cells[ACol,ARow]), Length(Grid.Cells [ACol,ARow]), Nil); end; Faça a chamada no evento OnDrawCell : AlinhaGrid(NomeStringGrid, ACol, ARow, Rect, State, [0,0,2, 1, 2,]) [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 * 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] Re: StringGrid - como alinhar valores?
Tenta fazer isso: procedure DesenhaGrid(Canvas:TCanvas;color:TColor;Rect:TRect; alignement:string;value:String); var proporcao:integer; begin proporcao:=0; Canvas.Brush.Color:=color; Canvas.FillRect(Rect); Canvas.Font.Color:=clBlack; if alignement = 'left' then proporcao:=Rect.Left+2 else if alignement = 'center' then proporcao:=StrToInt(FloatToStr( Int( (Rect.Right-Rect.Left- Canvas.TextWidth( value))/2) ))+Rect.left-2 else if alignement = 'right' then proporcao:=StrToInt(FloatToStr( Int( (Rect.Right-Rect.Left- Canvas.TextWidth( value))) ))+Rect.left-2; Canvas.TextRect(rect,proporcao,rect.Top+2,value); end; no método onDrawCell vc faz a chamada da procedure. Shally [EMAIL PROTECTED] escreveu: Não estou conseguindo usar esta procedure de jeito nenhum. Dá td quanto é erro no delphi ao compilar. Que faço? Não tem algo mais facil? --- Em delphi-br@yahoogrupos.com.br, Alisson Yahoo escreveu Use a procedure abaixo procedure AlinhaGrid(Grid : TStringGrid; ACol, ARow : Longint; Rect : TRect; State : TGridDrawState; Align : array of Integer); var S : array[0..255] of Char; begin //0-Esquerda 1-Centro 2-Direita} if (ARow = 0) or (ACol Length(Align)-1) and (Align[ACol] = 0) then Exit else if (Align[ACol] = DT_LEFT) then ExtTextOut(Grid.Canvas.Handle, Rect.Left + ACol, Rect.Top+2, ETO_OPAQUE or ETO_CLIPPED, @Rect, StrPCopy(S, Grid.Cells[ACol,ARow]), Length(Grid.Cells[ACol,ARow]), nil) else if (Align[ACol] = DT_RIGHT) then ExtTextOut(Grid.Canvas.Handle, Rect.Right - Grid.Canvas.TextWidth(Grid.Cells[ACol,ARow]) - 3, Rect.Top+2, ETO_OPAQUE or ETO_CLIPPED, @Rect, StrPCopy(S, Grid.Cells [ACol,ARow]), Length(Grid.Cells[ACol,ARow]), nil) else if (Align[ACol] = DT_CENTER) then ExtTextOut(Grid.Canvas.Handle, Rect.Left + (Rect.Right - Rect.Left - Grid.Canvas.TextWidth(Grid.Cells[ACol,ARow])) div 2, Rect.Top+2, ETO_OPAQUE or ETO_CLIPPED, @Rect, StrPCopy(S, Grid.Cells[ACol,ARow]), Length(Grid.Cells [ACol,ARow]), Nil); end; Faça a chamada no evento OnDrawCell : AlinhaGrid(NomeStringGrid, ACol, ARow, Rect, State, [0,0,2, 1, 2,]) [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 - Yahoo! Mail: agora com 1GB de espaço grátis. Abra sua conta! [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 * 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] Re: StringGrid - como alinhar valores?
Sim, preciso da String Grid pois trabalho com dados que vem de um BD, cálculos são realizados, etc e tal para depois os dados serem mostrados nesta Grid. Sabe como posso centralizar esses valores? --- Em delphi-br@yahoogrupos.com.br, Jéferson [EMAIL PROTECTED] escreveu Vc realmente precisa trabalhar com um StringList? O ListView permite centralizar colunas Mas se vc tem muitas linhas o preenchimento dele se torna lento. Apenas uma dica. -- Jéferson Mehlecke Porto Alegre - RS - Original Message - From: Shally [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 07, 2005 4:03 PM Subject: [delphi-br] StringGrid - como alinhar valores? Olá. Estou trabalhando com StringGrid e preciso alinhar ao centro alguns valores que nela são mostrados. Como faço para alinhá-los já que não encontrei esta propriedade na paleta de propriedades e nem no help do Delphi? -- 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 Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis! http://mail.yahoo.com.br -- 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] Re: StringGrid - como alinhar valores?
Se você estiver utilizando os componentes VCL:
{ }
Procedure WriteText(ACanvas: TCanvas; Const ARect: TRect; ACol, ARow:
Integer; Const Text: String; Format: Word);
var
S: Array[0..255] of Char;
B, R: TRect;
Begin
With ACanvas, ARect do
Begin
Case Format of
DT_LEFT: ExtTextOut(Handle, Left + ACol, Top + ARow, ETO_OPAQUE or
ETO_CLIPPED, @ARect, StrPCopy(S, Text), Length(Text), Nil);
DT_RIGHT: ExtTextOut(Handle, Right - TextWidth(Text) - 3, Top +
ARow, ETO_OPAQUE or ETO_CLIPPED, @ARect, StrPCopy(S, Text),
Length(Text), nil);
DT_CENTER: ExtTextOut(Handle, Left + (Right - Left - TextWidth(Text))
div 2, Top + DY, ETO_OPAQUE or ETO_CLIPPED, @ARect,
StrPCopy(S, Text), Length(Text), Nil);
End;
End;
End;
{ }
Procedure TStringGrid1.DrawCell(ACol, ARow: Longint; Rect: TRect; State:
TGridDrawState);
Var
Procedure Display(Const S: String; Alignment: TAlignment);
Const
Formats: Array[TAlignment] of Word = (DT_LEFT, DT_RIGHT, DT_CENTER);
Begin
WriteText(Canvas, Rect, 2, 2, S, Formats[Alignment]);
End;
Begin
Case Row of
0 : { Center column headings }
If (Col ColCount) then
Display(Cells[ACol, ARow], taCenter)
Else
Display(Cells[ACol, ARow], taRight);
End;
End;
{ }
Senão, se estiver utilizando os componentes CLX:
++--+--+
|Flag| Type | Meaning|
++--+--+
|AlignLeft |Horizontal|Align text to the left edge of the rectangle. |
++--+--+
|AlignRight |Horizontal|Align text to the right edge of the rectangle.|
++--+--+
|AlignHCenter|Horizontal|Center text horizontally in the rectangle.|
++--+--+
|AlignTop|Vertical |Align text to the top edge of the rectangle. |
++--+--+
|AlignBottom |Vertical |Align text to the bottom edge of the ectangle.|
++--+--+
|AlignVCenter|Vertical |Center text vertically in the rectangle. |
++--+--+
| You can also use the AlignCenter flag to indicate AlignHCenter + |
| AlignVCenter.|
+--+
Veja um exemplo (CLX) em que adicionei alguns comentários para um melhor
entendimento:
{ }
Procedure Tfrm_anamne.grd_atvfisDrawCell(Sender: TObject; ACol, ARow:
Integer;
Rect: TRect; State:
TGridDrawState);
Begin
// Se forem colunas da linha zero ou linhas da coluna zero e dois...
If ( ARow = 0 ) or ( ACol in [0, 2] ) then
Begin
// Se forem colunas da linha zero...
If ( ARow = 0 ) then
// Altera a cor do texto para preto.
grd_atvfis.Canvas.Font.Color := clBlack;
// Limpa as células.
grd_atvfis.Canvas.FillRect( Rect );
// Redesenha e centraliza o texto nas células (note o nº 4 ao final).
grd_atvfis.Canvas.TextRect( Rect, Rect.Left + 2, Rect.Top + 2,
grd_atvfis.Cells[ACol, ARow], 4 );
End
// Senão... (o texto continuará em Azul)
Else
Begin
// Limpa as células.
grd_atvfis.Canvas.FillRect( Rect );
// Exibe e alinha à esquerda o texto das células (o nº ao final é
omitido).
grd_atvfis.Canvas.TextRect( Rect, Rect.Left + 2, Rect.Top + 2,
grd_atvfis.Cells[ACol, ARow] );
End;
End;
{ }
Espero que isso ajude!
Sds,
Romario
Shally escreveu:
Sim, preciso da String Grid pois trabalho com dados que vem de um BD,
cálculos são realizados, etc e tal para depois os dados serem
mostrados nesta Grid.
Sabe como posso centralizar esses valores?
Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis!
http://mail.yahoo.com.br
--
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] Re: StringGrid - como alinhar valores?
No StringGrid não sei. Quantas linhas vc utiliza? no grid? Porque eu tb trabalho com dados que vem de um BD, cálculos são realizados, etc e tal para depois os dados serem mostrados no ListView. -- Jéferson Mehlecke Porto Alegre - RS - Original Message - From: Shally [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 07, 2005 4:27 PM Subject: [delphi-br] Re: StringGrid - como alinhar valores? Sim, preciso da String Grid pois trabalho com dados que vem de um BD, cálculos são realizados, etc e tal para depois os dados serem mostrados nesta Grid. Sabe como posso centralizar esses valores? --- Em delphi-br@yahoogrupos.com.br, Jéferson [EMAIL PROTECTED] escreveu Vc realmente precisa trabalhar com um StringList? O ListView permite centralizar colunas Mas se vc tem muitas linhas o preenchimento dele se torna lento. Apenas uma dica. -- Jéferson Mehlecke Porto Alegre - RS - Original Message - From: Shally [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 07, 2005 4:03 PM Subject: [delphi-br] StringGrid - como alinhar valores? Olá. Estou trabalhando com StringGrid e preciso alinhar ao centro alguns valores que nela são mostrados. Como faço para alinhá-los já que não encontrei esta propriedade na paleta de propriedades e nem no help do Delphi? -- 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 Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis! http://mail.yahoo.com.br -- 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 Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis! http://mail.yahoo.com.br -- 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] Re: StringGrid - como alinhar valores?
Bom, fixei 50 linhas e 20 colunas, mas na realidade necessito de uma grid dinâmica, do tipo que veja os resultados gerados e então gerasse uma grid com o nº e linha e colunas necessárias, pois da maneira que estou fazendo sobram várias linhas e colunas. Ainda não consegui centralizar os valores com as dicas que deram na lista até agora. --- Em delphi-br@yahoogrupos.com.br, Jéferson [EMAIL PROTECTED] escreveu No StringGrid não sei. Quantas linhas vc utiliza? no grid? Porque eu tb trabalho com dados que vem de um BD, cálculos são realizados, etc e tal para depois os dados serem mostrados no ListView. -- Jéferson Mehlecke Porto Alegre - RS - Original Message - From: Shally [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 07, 2005 4:27 PM Subject: [delphi-br] Re: StringGrid - como alinhar valores? Sim, preciso da String Grid pois trabalho com dados que vem de um BD, cálculos são realizados, etc e tal para depois os dados serem mostrados nesta Grid. Sabe como posso centralizar esses valores? --- Em delphi-br@yahoogrupos.com.br, Jéferson [EMAIL PROTECTED] escreveu Vc realmente precisa trabalhar com um StringList? O ListView permite centralizar colunas Mas se vc tem muitas linhas o preenchimento dele se torna lento. Apenas uma dica. -- Jéferson Mehlecke Porto Alegre - RS - Original Message - From: Shally [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 07, 2005 4:03 PM Subject: [delphi-br] StringGrid - como alinhar valores? Olá. Estou trabalhando com StringGrid e preciso alinhar ao centro alguns valores que nela são mostrados. Como faço para alinhá-los já que não encontrei esta propriedade na paleta de propriedades e nem no help do Delphi? -- 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 Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis! http://mail.yahoo.com.br -- 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 Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis! http://mail.yahoo.com.br -- 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] Re: StringGrid - como alinhar valores?
Isso sempre acontece. Alguém da lista tem emailcom atispam. --- Em delphi-br@yahoogrupos.com.br, Jéferson [EMAIL PROTECTED] escreveu Put'z ANTISPAM de novo = - Original Message - From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, June 07, 2005 4:13 PM Subject: Mensagem de confirmação/Confirmation message (Re: RES: [delphi-br] Barra de tarefas) O endereço para o qual você está tentando enviar e-mail está protegido pelo Aker Secure Mail Gateway, para evitar mensagens enviadas por robôs ou spammers. É preciso que você confirme o envio manualmente para atingir o destinatário. Esta operação não será necessária na próxima vez que tentar enviar um e-mail para este endereço. Por favor clique no endereço abaixo. Se não funcionar, copie o endereço e abra numa nova janela do seu navegador. The address to which you are trying to send an e-mail is protected by the Aker Secure Mail Gateway, to avoid messages sent by robots or spam. It is necessary that you confirm manually the message to reach the destination. This operation will not be necessary the next time that you will send an e-mail to this address. Please click on the address below. If it does not function, copy the address and open a new window on your navigator. Por favor clique aqui para confirmar sua mensagem (Please click here to confirm your message). Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis! http://mail.yahoo.com.br -- 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] Re: StringGrid - como alinhar valores?
Insira um componente ListView altere as propriedades...
ViewStile := vsReport
Dê um duplo clique sobre o comp e insira as colunas definindo a propriedade
Alignment de cada coluna como vc quiser
Para preenche é o seguinte
---
var
Lista_Eventos : TListItem;
begin
while x x do
begin
Lista_Eventos := ListView1.Items.Add;
Lista_Eventos.Caption := 'Coluna 1';
Lista_Eventos.SubItems.Add('Coluna 2');
Lista_Eventos.SubItems.Add('Coluna X');
end;
end;
-
Para apagar.
ListView1.Items.Clear;
Tenta aí,
Boa sorte
--
Jéferson Mehlecke
Porto Alegre - RS
- Original Message -
From: Shally [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, June 07, 2005 4:53 PM
Subject: [delphi-br] Re: StringGrid - como alinhar valores?
Bom, fixei 50 linhas e 20 colunas, mas na realidade necessito de uma
grid dinâmica, do tipo que veja os resultados gerados e então
gerasse uma grid com o nº e linha e colunas necessárias, pois da
maneira que estou fazendo sobram várias linhas e colunas.
Ainda não consegui centralizar os valores com as dicas que deram na
lista até agora.
--- Em delphi-br@yahoogrupos.com.br, Jéferson [EMAIL PROTECTED] escreveu
No StringGrid não sei.
Quantas linhas vc utiliza? no grid?
Porque eu tb trabalho com dados que vem de um BD,
cálculos são realizados, etc e tal para depois os dados serem
mostrados no ListView.
--
Jéferson Mehlecke
Porto Alegre - RS
- Original Message -
From: Shally [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, June 07, 2005 4:27 PM
Subject: [delphi-br] Re: StringGrid - como alinhar valores?
Sim, preciso da String Grid pois trabalho com dados que vem de um
BD,
cálculos são realizados, etc e tal para depois os dados serem
mostrados nesta Grid.
Sabe como posso centralizar esses valores?
--- Em delphi-br@yahoogrupos.com.br, Jéferson [EMAIL PROTECTED] escreveu
Vc realmente precisa trabalhar com um StringList?
O ListView permite centralizar colunas Mas se vc tem muitas
linhas o
preenchimento dele se torna lento.
Apenas uma dica.
--
Jéferson Mehlecke
Porto Alegre - RS
- Original Message -
From: Shally [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, June 07, 2005 4:03 PM
Subject: [delphi-br] StringGrid - como alinhar valores?
Olá.
Estou trabalhando com StringGrid e preciso alinhar ao centro
alguns
valores que nela são mostrados. Como faço para alinhá-los já que
não
encontrei esta propriedade na paleta de propriedades e nem no help
do
Delphi?
--
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
Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis!
http://mail.yahoo.com.br
--
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
Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis!
http://mail.yahoo.com.br
--
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
Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis!
http://mail.yahoo.com.br
--
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] Re: StringGrid - como alinhar valores?
Olá... Já que o número de colunas vai variar, e o número de linhas não é muito grande, como já foi dito talvez utilizar um ListView seja melhor... No caso do stringlist você não poderá excluir as linhas execedentes, ... até pode mas vai ter que achar mais uma função para isso... Outra opção seria utilizar um componente MemoryTable da RXLib ou JVCL e ligar a um DBGrid []'s Macfly Shally [EMAIL PROTECTED] wrote: Bom, fixei 50 linhas e 20 colunas, mas na realidade necessito de uma grid dinâmica, do tipo que veja os resultados gerados e então gerasse uma grid com o nº e linha e colunas necessárias, pois da maneira que estou fazendo sobram várias linhas e colunas. Ainda não consegui centralizar os valores com as dicas que deram na lista até agora. --- Em delphi-br@yahoogrupos.com.br, Jéferson [EMAIL PROTECTED] escreveu No StringGrid não sei. Quantas linhas vc utiliza? no grid? Porque eu tb trabalho com dados que vem de um BD, cálculos são realizados, etc e tal para depois os dados serem mostrados no ListView. -- Jéferson Mehlecke Porto Alegre - RS - Original Message - From: Shally [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 07, 2005 4:27 PM Subject: [delphi-br] Re: StringGrid - como alinhar valores? Sim, preciso da String Grid pois trabalho com dados que vem de um BD, cálculos são realizados, etc e tal para depois os dados serem mostrados nesta Grid. Sabe como posso centralizar esses valores? --- Em delphi-br@yahoogrupos.com.br, Jéferson [EMAIL PROTECTED] escreveu Vc realmente precisa trabalhar com um StringList? O ListView permite centralizar colunas Mas se vc tem muitas linhas o preenchimento dele se torna lento. Apenas uma dica. -- Jéferson Mehlecke Porto Alegre - RS - Original Message - From: Shally [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 07, 2005 4:03 PM Subject: [delphi-br] StringGrid - como alinhar valores? Olá. Estou trabalhando com StringGrid e preciso alinhar ao centro alguns valores que nela são mostrados. Como faço para alinhá-los já que não encontrei esta propriedade na paleta de propriedades e nem no help do Delphi? -- 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 Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis! http://mail.yahoo.com.br -- 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 Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis! http://mail.yahoo.com.br -- 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 Termos do Serviço do Yahoo!. - Yahoo! Mail Stay connected, organized, and protected. Take the tour [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 * 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] Re: StringGrid - como alinhar valores?
Para o que quero não dá certo..
Não vai funcionar.
Mesmo assim, grata pelas dicas!
Shally
--- Em delphi-br@yahoogrupos.com.br, Jéferson [EMAIL PROTECTED] escreveu
Insira um componente ListView altere as propriedades...
ViewStile := vsReport
Dê um duplo clique sobre o comp e insira as colunas definindo a
propriedade
Alignment de cada coluna como vc quiser
Para preenche é o seguinte
---
var
Lista_Eventos : TListItem;
begin
while x x do
begin
Lista_Eventos := ListView1.Items.Add;
Lista_Eventos.Caption := 'Coluna 1';
Lista_Eventos.SubItems.Add('Coluna 2');
Lista_Eventos.SubItems.Add('Coluna X');
end;
end;
-
Para apagar.
ListView1.Items.Clear;
Tenta aí,
Boa sorte
--
Jéferson Mehlecke
Porto Alegre - RS
- Original Message -
From: Shally [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, June 07, 2005 4:53 PM
Subject: [delphi-br] Re: StringGrid - como alinhar valores?
Bom, fixei 50 linhas e 20 colunas, mas na realidade necessito de uma
grid dinâmica, do tipo que veja os resultados gerados e então
gerasse uma grid com o nº e linha e colunas necessárias, pois da
maneira que estou fazendo sobram várias linhas e colunas.
Ainda não consegui centralizar os valores com as dicas que deram na
lista até agora.
--- Em delphi-br@yahoogrupos.com.br, Jéferson [EMAIL PROTECTED] escreveu
No StringGrid não sei.
Quantas linhas vc utiliza? no grid?
Porque eu tb trabalho com dados que vem de um BD,
cálculos são realizados, etc e tal para depois os dados serem
mostrados no ListView.
--
Jéferson Mehlecke
Porto Alegre - RS
- Original Message -
From: Shally [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, June 07, 2005 4:27 PM
Subject: [delphi-br] Re: StringGrid - como alinhar valores?
Sim, preciso da String Grid pois trabalho com dados que vem de um
BD,
cálculos são realizados, etc e tal para depois os dados serem
mostrados nesta Grid.
Sabe como posso centralizar esses valores?
--- Em delphi-br@yahoogrupos.com.br, Jéferson [EMAIL PROTECTED]
escreveu
Vc realmente precisa trabalhar com um StringList?
O ListView permite centralizar colunas Mas se vc tem muitas
linhas o
preenchimento dele se torna lento.
Apenas uma dica.
--
Jéferson Mehlecke
Porto Alegre - RS
- Original Message -
From: Shally [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, June 07, 2005 4:03 PM
Subject: [delphi-br] StringGrid - como alinhar valores?
Olá.
Estou trabalhando com StringGrid e preciso alinhar ao centro
alguns
valores que nela são mostrados. Como faço para alinhá-los já que
não
encontrei esta propriedade na paleta de propriedades e nem no
help
do
Delphi?
--
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
Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis!
http://mail.yahoo.com.br
--
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
Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis!
http://mail.yahoo.com.br
--
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
Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis!
http://mail.yahoo.com.br
--
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
