Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Cambiar el color de línea y fuente de grupos en un TlistView (https://www.clubdelphi.com/foros/showthread.php?t=94069)

bismarck_sierra 17-07-2019 17:39:40

Cambiar el color de línea y fuente de grupos en un TlistView
 
Qué tal

Alguien que me pueda orientar como puedo cambiar el color de la línea de agrupación que pinta el TListView, siempre aparece azul y con algunos los temas oscuros no se distingue bien



Saludos
Bismarck

ecfisa 17-07-2019 20:28:56

Hola.

Tendrías que dar mas información, pero en general, poniendo la propiedad TListView.OwnerDraw en True podes usar el evento OnCustomDrawItem para darle el color que desees, Ej.:
Código Delphi [-]
...
procedure TForm.ListViewCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  TListView(Sender).Canvas.Font.Color := clLime; // color resaltado a tu gusto
end;
...

Saludos :)

bismarck_sierra 18-07-2019 01:02:30

Gracias por tu respuesta ecfisa, no me funcionó, incluso también probé con:

Código Delphi [-]
var
  GroupMetrics: TLVGROUPMETRICS;
begin
  FillChar(GroupMetrics, Sizeof(GroupMetrics), 0);
  GroupMetrics.cbSize := SizeOf(GroupMetrics);

  GroupMetrics.mask := LVGMF_TEXTCOLOR or LVGMF_BORDERSIZE;
  GroupMetrics.crHeader := ColorToRGB(clRed);

  ListView_SetGroupMetrics(ListView1.Handle, GroupMetrics);
end;

Y no logro hacer que cambié el color azul por otro

Saludos
Bismarck


La franja horaria es GMT +2. Ahora son las 20:44:26.

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