Ver Mensaje Individual
  #2  
Antiguo 28-05-2020
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.285
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
Si en el componente no tienes eventos disponibles, siempre puedes crear un derivado/heredado.
En ese caso, puedes acceder (sobreescribir) el procedimiento DrawItem, que es virtual en clases ancestras (TFileListBox) o capturar alguno de los mensajes que utilizan (también clases ancestras) relacionados con el pintado de los items; Como pueden ser WMPaint o CNDrawItem (ambos en TCustomListBox).

Código Delphi [-]
  TMyFileListBox = class(TFileListBox)
  protected
    procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);  override;
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
    procedure CNDrawItem(var Message: TWMDrawItem); message CN_DRAWITEM;
  end;
__________________
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