Richard Mace wroteHi All,
I just want to make sure that I am not doing anything wrong here, please
can somebody give me a little code example of how to correctly set the
font to bold and a differnet colour in a listview entry?
I wouldn't claim the following is 'correct', but it works on Windows using TListView's OnCustomDrawItem() event.
Howard
==code==
unit mainListviewOwnerDraw;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Graphics, ComCtrls, LCLType, StdCtrls;
type
TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
procedure ListView1CustomDrawItem(Sender: TCustomListView; Item:
TListItem;
State: TCustomDrawState; var DefaultDraw: Boolean);
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
procedure TForm1.FormCreate(Sender: TObject);
var
li: TListItem;
lc: TListColumn;
i: Integer;
begin
ListView1.ViewStyle:=vsReport;
ListView1.OwnerDraw:=True;
lc:=TListColumn.Create(ListView1.Columns);
lc.Caption:='Select an item to show custom draw:';
lc.Width:=ListView1.Canvas.TextWidth(lc.Caption) + 20;
for i:=0 to 4 do begin
li:=TListItem.Create(ListView1.Items);
li.Caption:=Format('Item number %d',[i]);
ListView1.Items.AddItem(li);
end;
end;
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
rct: TRect;
begin
DefaultDraw:=False;
if (cdsSelected in State) then begin
Sender.Canvas.Font.Style:=[fsBold];
Sender.Canvas.Font.Color:=clRed;
end
else begin
Sender.Canvas.Font.Style:=[];
Sender.Canvas.Font.Color:=clBlack;
end;
rct:=Item.DisplayRect(drLabel);
Sender.Canvas.FillRect(rct); //paint background with default brush colour
Sender.Canvas.TextOut(rct.Left, rct.Top, Item.Caption);
end;
end.
