necesito componente

[cmm07]

Hola, como estan ustedes?, les agradezco por todo lo que me han ayudado pero ahorita necesito una ayudita, ustedes que conocen componentes, estuve buscando y no encontre nada, lo que deseo hacer es como el "LISTVIEW"(creo) pero del tipo Skype y el tabsheet:


¿Que componentes existen (ojala gratuitos) que hagan este estilo ListView? ¿y como agregan esa imagen sobresaliente en el TabSheet?, gracias.

PD: Si no hay gratuitos....mm..será po, igual me dicen gracias...

54LU2

[*Caro*]

Hola cmm07, dices un ListView y despues hablas del TabSheet, ¿supongo que te estas refiriendo al PageControl verdad?.

Saluditos

[cmm07]

Hola caro, esque deseo saber con que componente puedo hacer el TabSheet(PageControl) con las imagenes sobresalientes y también quiero saber como hacen el ListView de Skype..gracias.

54LU2

[*Caro*]

Suponiendo que es el pageControl, puedes leer este hilo http://www.clubdelphi.com/foros/show...08&postcount=4 , ahora lo que faltaría es añadir la imagen a cada TabSheet y cambiar a un color mas fuerte cuando esta activo y uno mas bajo cuando no esta activo.

Modificando y aumentando sobre el codigo que comento en el hilo que te he mencionado quedaría así:

Código Delphi [-]
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
 Re : TRect;
 Titulo : String;
begin
 Re := Rect;
 Titulo := PageControl1.Pages[TabIndex].Caption;
 if Active then
  begin
   Control.Canvas.Font.Style := [fsBold];
   Control.Canvas.Font.Color := clRed;
   Control.Canvas.Brush.Color := clYellow;
  end
 else
  begin
   Control.Canvas.Font.Color := clBlack;
   Control.Canvas.Brush.Color := $00B9FFFF;
  end;
 Control.Canvas.FillRect(Re);
 PageControl1.Pages[TabIndex].Brush.Color:=Control.Canvas.Brush.Color;
 //Esta línea para la imagen de cada TabSheet
 ImageList1.Draw(Control.Canvas,Rect.Left,Rect.Top, PageControl1.Pages[TabIndex].ImageIndex);
 DrawText(
    Control.Canvas.Handle, PChar(Titulo), Length(Titulo), Re,
    DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;

Para que funcione lo anterior necesitas un ImageList, ahí añades tus imagenes y le asiganas al PageControl.

Nota.- El problema que menciono en el hilo sobre la primera vez que se pinta no esta solucionado.

Saluditos

[ContraVeneno]

el que tu crees que es un tabsheet, en realidad es un PageControl. Y el que tu crees que es un listview, en realidad si puede ser un listview, pero en ninguno de los dos casos están utilizando los componentes estandar de delphi, desconozco que componentes (probablemente de pago) hayan utilizado.

En fin, que sí estoy seguro que es un PageControl y estoy seguro que no utilizaronlos componentes estandar de Delphi.

[*Caro*]

Empezado por cmm07

Hola caro, esque deseo saber con que componente puedo hacer el TabSheet(PageControl) con las imagenes sobresalientes y también quiero saber como hacen el ListView de Skype..gracias.

Como te dice ContraVeneno, el primero es un PageContro y dentro del TabSheet puede tener un ListView. lee lo que te puse arriba sobre el PageControl, espero te sirva.

Empezado por ContraVeneno

En fin, que sí estoy seguro que es un PageControl y estoy seguro que no utilizaronlos componentes estandar de Delphi.

Puedes utilizar el standar y el canvas para añadir las imagenes y darle una mejor apariencia.

Saluditos

[cmm07]

gracias por sus respuestas, y ya sé que con los componentes nativos del listview no se puede hacer por eso preguntaba que componente puedo ocupar, gracias caro por la instruccion la probaré.

54LU2

[cmm07]

...editado...

[*Caro*]

Hola, has puesto la propiedad OwnerDraw a True, tenías que seguir el otro hilo también ahí esta parte de la explicación y el problema que te comentaba también esta solucionado lee la ultima parte de ese hilo.

Saluditos

[*Caro*]

Empezado por cmm07

...editado...

Saluditos

[cmm07]

Hola, caro mira me funciono tu instrucción, el unico prblema es que igual se ven las imagenes dentro del PageCOntrol y yo quiero que sobre salga como skype