Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   HotTrackStyles de un ListView (https://www.clubdelphi.com/foros/showthread.php?t=22362)

Tecnic2 13-06-2005 19:53:23

HotTrackStyles de un ListView
 
Hola a todos,

Estoy intentado asignar en tiempo de ejecución a un ListView la propiedad HotTrackStyles (con sus 3 opciones) pero no sé cómo hacerlo.

Alguien me puede sacar de ésta duda?? :(

Muchas gracias por adelantado. ;)

dec 14-06-2005 04:51:28

Hola,

Tal vez esto podrá servirte:

Código Delphi [-]
  procedure TForm1.Button1Click(Sender: TObject);
  var
    trackStyles: TListHotTrackStyles;
  begin
    // Activamos la opción
    ListView1.HotTrack := true;
  
    // Recuperamos los estilos
    trackStyles := ListView1.HotTrackStyles;
  
    // Añadimos un determinado estilo
    ListView1.HotTrackStyles := trackStyles + [htHandPoint];
  
    // Quitamos un determinado estilo
    ListView1.HotTrackStyles := trackStyles - [htUnderlineCold];
  
    // Añadimos dos estilos a un tiempo
    ListView1.HotTrackStyles := trackStyles + [htHandPoint, htUnderlineCold];
  end;

Actualización:
Otra forma de hacerlo podría ser esta:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
   trackStyles: TListHotTrackStyles;
 begin
   // Por ejemplo
   if True then
     // Añadimos
     Include(trackStyles, htHandPoint)
   else
     // Quitamos
     Exclude(trackStyles, htHandPoint);
   // Y por último asignamos
   ListView1.HotTrackStyles := trackStyles;
 end;

Tecnic2 14-06-2005 10:34:00

Perfecto, voy pillando...
 
Muchas gracias, era eso exactamente.

Poco a poco voy pillando las manera de Delphi :D


La franja horaria es GMT +2. Ahora son las 01:48:01.

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