Hi,
recently i've been working on porting my existing project to the macOS platform.
The first problem i ran into regards TListView component.
I use a TListView for displaying my dataset and i need to use some small images in some columns.
The code i've been using for testing is this:
var
LI: TListItem;
i: Integer;
begin
ListView1.ViewStyle := vsReport;
for i := 0 to 1 do
with ListView1.Columns.Add do
Caption := 'Column ' + IntToStr(i);
for i := 0 to ImageList1.Count - 1 do
begin
LI := ListView1.Items.Add;
LI.Caption := Format('Item %d', [i]);
LI.ImageIndex := i;
LI.SubItems.Add(Format('SubItem %d', [i]));
LI.SubItemImages[0] := i; // SubItems[ColumnIndex] := ImageIndex;
end;
end;
and it should be giving the result shown here:
https://i.stack.imgur.com/rWSy8.png.
If i run this snippet of code in Windows or Linux, it works just fine,
but if i run it in macOS (Sierra - 10.12.4) the icons appear only in the first column.
Anyone has experienced anything like this?
I don't know what to do
Thanks in advance to anybody,
R.
P.S. i'm using the latest release of Lazarus 1.6.4 on all three platforms.