Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-05-2003
REDCOM REDCOM is offline
Miembro
 
Registrado: may 2003
Ubicación: México, D.F.
Posts: 25
Poder: 0
REDCOM Va por buen camino
Question Formateo de datos númericos dentro de un StringGrid

Saludos:

Qusiera por favor me auxiliaran con el siguiente problema:

Estoy utilizando un stringGrid en una aplicación, el cual debe mostrar datos númericos, por ejemplo:

_____125.30
____1250.75
_______1.32

El problema es que cuando se tratan de formatear para que se muestren en el grid, estos aparecen asi:

____125.30
____1250.75
_____1.32

Es decir que no aparecen alineados verticalmente.

Mucho agradeceria si alguien tiene idea de como formateralos

Última edición por REDCOM fecha: 22-05-2003 a las 01:07:10.
Responder Con Cita
  #2  
Antiguo 22-05-2003
pedrohdez pedrohdez is offline
Miembro
 
Registrado: may 2003
Ubicación: Murcia
Posts: 54
Poder: 22
pedrohdez Va por buen camino
Hola Redcon,

eso te pasa, probablemente, por que estas rellenando con espacioa a la izquierda y un espacio no ocupa lo mismo que un numero, tienes dos soluciones, usar tipo de letra de tamaño ficjo (fixed) o 'pintar' la celda a mano, yo uso esto en un TStringGrid.OnDrawCell
Cita:
tmp:= Rect.Right-MiGrid.Canvas.TextWidth(Numero.asString)-2;
MiGrid.Canvas.TextRect(Rect,tmp,Rect.Top+2,Numero.asString);
saludos,
Responder Con Cita
  #3  
Antiguo 23-05-2003
REDCOM REDCOM is offline
Miembro
 
Registrado: may 2003
Ubicación: México, D.F.
Posts: 25
Poder: 0
REDCOM Va por buen camino
Hola PedorHdez.

Gracias por tu colaboracion la aprecio mucho.

Tambien encontre esta forma de formatear los datos en la
stringgrid.

Dentro del DrawCell

if ACol=3 then // voy a alinear a la derecha la 3ª columna
if ARow>0 then //No quiero alinear la línea de títulos
with StringGrid1 do
begin
Canvas.FillRect(Rect);
Settextcolor(Canvas.handle,clGreen); // presentalo en verde
DrawText(Canvas.Handle,PChar(Cells[Acol,ARow]),-1,Rect,DT_RIGHT or DT_SINGLELINE); // justifica a la derecha
Settextcolor(Canvas.handle,clBlack); // restaura el normal
end;

Gracias y espero colaborar contigo posteriormente.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 15:40:43.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi