FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Uso de PageControl con ImageList
Hola a todos,
Me gustaría poder cambiar el color de la pestaña del PageControl, ya he estado mirando los hilos que hay al respecto, y en principio me servirían, sino fuera por que tengo unas imágenes añadidas al TabSheet (con un TImageList). Con el siguiente código: Código:
procedure TfrmJob.pagecontrolDrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); var R: TRect; Texto: String; begin Control.Canvas.Brush.Color := clWhite; Control.Canvas.Font.Color := clBlack; Texto := pgjob.Pages[TabIndex].Caption; R := Rect; Control.Canvas.FillRect(R); if not Active then InflateRect(R, 0, -3); DrawText(Control.Canvas.Handle, PChar(Texto), -1, R, DT_SINGLELINE or DT_CENTER or DT_VCENTER); end; Alguien me podría asesorar de como hacer para que ésta salga??? Muchas gracias a todos!! Última edición por sabinajoa fecha: 15-12-2005 a las 17:49:40. |
#2
|
||||
|
||||
Al crear un evento DrawTab, sos vos el responsable de la apariencia del mismo. Podes usar el método Draw del canvas para mostrar la imagen asociada al tab dentro del código que ya tenes, de manera que la misma sea mostrada en cada pestaña, y para mantener el efecto del texto centrado en la pestaña, que no sobreescriba el rectángulo, pues corre el margen izquierdo de este el tamaño de la imagen antes de llamar a DrawText.
Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#3
|
|||
|
|||
Problema solucionado
Muchas gracias! Ya he conseguido lo que quería, simplemente tenía que añadir esta línea de código, je je.
Código:
ImageList1.Draw(Control.Canvas,Rect.Left,Rect.Top, pgjob.Pages[TabIndex].ImageIndex); |
|
|
|