Pantalla estilo Twitter

[jars]

Buenos dias amigos.
Necesito armar una pantalla donde pueda ir mostrando las conversaciones entre usuarios tal como lo hace Twitter, es decir a la izquierda el avatar y al lado el texto de la conversación. No tengo idea de que control se puede uasr que convine ambos componentes.
Alguno tiene idea? Desarrollo con D7.

Gracias

[ecfisa]

Hola jars.

Revisa si no te sirve el primero de los enlaces que hay al pié de esta misma página.

Saludos.

[jars]

Gracias Ecfisa pero el hilo se refiere al uso de la api de twitter y ese no es mi problema.
La cosa es que necesito alguna idea de como ir mostrando sobre algun control, el avatar y el texto ingresado por cada uno. No se si habra algun control?

[roman]

Puedes implementar una solución rudimentaria con frames.

Te pongo un ejemplo adjunto a este mensaje. Son dos archivos: uTwitterEntry.dfm y uTwitterEntry.pas. Añade la unidad uTwitterEntry a tu proyecto e inserta un Frame en un formulario (primer icono de la pestaña Standard). Te aparecerá una ventana pidiéndote seleccionar el frame deseado. Escoge frmTwitterEntry y listo, tendrás algo así:



Al frame insertado puedes cambiarle el tamaño y los controles dentro se autoajustarán. También puedes cambiar los textos de cada control. Puedes insertar tantos frames como desees.

// Saludos

[jars]

Muchas gracias roman, lo voy a probar.
Un abrazo

[jars]

Roman, podrias darme un ejemplo de como ir agregando frames a la pantalla en runtime?
Gracias

[roman]

Sí claro,

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TfrmTwitterEntry.Create(Self) do
  begin
    Left := 8;
    Top := 8;
    Parent := Self; // Aquí puedes poner otro contenedor, por ejemplo, un Panel

    imgAvatar.Picture.LoadFromFile('miavatar.bmp');
    lblUser.Caption := 'Román';
    lblUserName.Caption := '@roman';
  end;
end;

// Saludos

[jars]

Nuevamente gracias Roman.

[roman]

De hecho, puedes facilitar la inserción múltiple poniendo un ScrollBox (pestaña Additional) y sustituyendo el código anterior por este otro:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TfrmTwitterEntry.Create(Self) do
  begin
    { Esto es necesario para que puedas insertar varios frames }
    Name := '';

    {
      Esto hará que los nuevos frames se vayan colocando
      debajo del último y abarcando todo el ancho del scrollbox
    }
    Align := alTop;  

    { Insertas en el ScrollBox }
    Parent := scbTwits;

    lblUser.Caption := 'Román';
    lblUserName.Caption := '@roman';
  end;
end;

// Saludos

[jars]

Copie el codigo y funciona perfecto solo que los nuevos frames se van colocando por encima del anterior, como haria para que queden en orden cronologico, es decir uno debajo del otro?

[roman]

¡Ah! No me había percatado de eso. Intercambia las líneas del Align y del Parent.

// Saludos

[jars]

Buen dia Roman.
No se pero le cambie el orden y los sigue ordenando arriba.
A vos te funciona bien asi?

[roman]

Sí, tienes razón, sigue poniendo el nuevo tweet por encima de los anteriores. Parece que el orden de alineado depende de la posición original del control, que, por defecto, será en 0, 0.

Me ha funcionado forzando entonces primero un alineado inferior y luego el superior:

Código Delphi [-]
Parent := Panel1;
Align := alBottom;
Align := alTop;

De todas formas, te pongo un ejemplo completo. Hay algunos cambios minúsculos en la unidad uFrmTwitterEntry (como cambiar Twit por Tweet que es lo correcto) por lo que te sugiero las reemplaces.

// Saludos

[jars]

Excelente Roman.
Mil gracias.