Ver Mensaje Individual
  #2  
Antiguo 12-11-2008
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.293
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Deberías poder detectar el MouseDown para quedarte con la posición (X , Y) y lanzar en el OnDblClick el procedimiento de redimensionado.
Con las coordenadas X,Y podrrás saber si estás sobre la columna de títulńos o no y siestás sobre una de las líneas de separación.
Una vez detectado esto, basta con ampliar el ancho de esa columna utilizando la propiedad Colwidth (creo recordar) para asignar el nuevo tamańo.
Para calcular el tamańo nuevo deberás recorrer esa columna del TStringGrid y calcular el texto más ancho en pixels (para eso puedes usar el Canvas.TextWidth).
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita