Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-08-2007
Avatar de xEsk
[xEsk] xEsk is offline
Miembro Premium
 
Registrado: feb 2006
Posts: 454
Poder: 19
xEsk Va por buen camino
Quizás te parecerá chorra mi solución, pero visualmente es efectiva! xDD Y es poner casi tantos '-' según el width del ListBox...

Con un ejemplo se entiende mejor:
Código Delphi [-]
// función para crear la línea de texto
function StringLine(const LineChar: Char; const Len: Integer): String;
var
  n: Integer;

begin
  Result:='';
  for n:=1 to Len do Result:=Result + LineChar;
end;

Usando la función y el "truco":
Código Delphi [-]
// usando la función para crear una línea de '-'
ListBox1.Items.Add(StringLine('-', ListBox1.Width div 4));

Por qué divido por 4? La respuesta es porqué los guiones (-) tienen una anchura superior a 1 píxel, así pues no necesito tantos guiones para cubrir la anchura del ListBox. Eso sí, si cambias el ancho del ListBox en tiempo de ejecución, se jodió el invento!! xD.

Sé que quizás la solución que te he propuesto, es realmente estúpida y quizás mala, pero es la primera que se me ha ocurrido en 1 minuto xD Si se me ocurre algo mas profesional, te lo comento...!!

Saludos.
Responder Con Cita
  #2  
Antiguo 26-08-2007
Avatar de jakuna
jakuna jakuna is offline
Registrado
 
Registrado: abr 2006
Posts: 7
Poder: 0
jakuna Va por buen camino
Smile Objetivo:guiones superado

xEsk me parece muy buena solucion yo la estaba viendo con el ancho tb pero no sabia cuantos guiones entraban en ese espacio y bien con el dato no sabia q los guiones tenian mas de un pixel.
Gracias
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Class TfrxCheckBoxView Aprendiendo Impresión 1 03-11-2010 22:08:22
Class Helpers vtdeleon Noticias 7 12-04-2008 03:50:08
ejecutar un .class gulder Varios 5 22-04-2007 00:37:19
'Class not registered' Enan0 Varios 7 27-06-2005 17:20:27


La franja horaria es GMT +2. Ahora son las 19:17:07.


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