I have compiled my code in XE6 and the below works fine. I have just upgraded to seattle and the list view no longer displays the data text. The lines a created just no visible text.
procedure TForm1.EmpListLoadTile(Sender: TObject; ATile: TTMSFMXTile;
ATileShape: TControl);
var
ts: TTMSFMXTileShape;
List: TTMSFMXListView;
I: integer;
Parent: TComponent;
Qu: TFDQuery;
begin
Qu := TFDQuery.Create(Self);
Qu.Active := False;
Qu.Connection := FDTimecard;
Qu.Open('use Timecard; Select * From
Employee;'); Qu.Active := True;
Parent := TTMSFMXListView(FindComponent('List'+IntToStr(ATile.Tag)));
if Assigned(Parent) then
Exit
else
begin
ts := ATileShape as TTMSFMXTileShape;
List := TTMSFMXListView.Create(self);
List.Name := 'List' + InttoStr(ATile.Tag);
ts.InsertObject(ts.ChildrenCount, List);
List.Visible := True;
List.Align := TAlignLayout.Client;
List.Margins.Top := 60;
List.Margins.Bottom := 10;
List.Margins.Left := 10;
List.Margins.Right := 10;
List.BeginUpdate;
List.Columns.Add;
List.Columns.Add;
List.Columns.Items[0].Width := 150;
List.Columns.Items[1].Width := 250;
List.Options := [TGridOption.ALternatingRowBackground];
Qu.First;
while ((Qu.FieldByName('TKey').AsInteger <> ATile.Tag) and (not Qu.Eof)) do
Qu.Next;
for I := 0 to Qu.FieldDefList.Count - 1 do
begin
if (Qu.FieldDefs.Name <> 'TKey') and
(Qu.FieldDefs.Name <> 'PWord') and
(Qu.FieldDefs.Name <> 'UName') and
(Qu.FieldByName(Qu.FieldDefList.FieldDefs.Name).AsString <> '') then
begin
case StringToCaseSelect(Qu.FieldDefList.FieldDefs.Name, ['Emplyee',
'SName',
'FName',
'Addr1',
'Addr2',
'Addr3',
'Addr4',
'City',
'Region',
'State',
'Country',
'PostCode',
'Phone1',
'Phone2',
'CellPhone1',
'CellPhone2',
'Email',
'UName',
'PWord']) of
0: begin
end;
1: begin
end;
2: begin
end;
3: begin
List.Items.Add;
List.Items[List.Items.Count - 1].Text := 'Address:';
List.Items[List.Items.Count - 1].subitems.Text := Qu.FieldByName('Addr1').AsString;
end;
4: begin
List.Items.Add;
List.Items[List.Items.Count - 1].subitems.Text := Qu.FieldByName('Addr2').AsString;
end;
5: begin
List.Items.Add;
List.Items[List.Items.Count - 1].subitems.Text := Qu.FieldByName('Addr3').AsString;
end;
6: begin
List.Items.Add;
List.Items[List.Items.Count - 1].subitems.Text := Qu.FieldByName('Addr4').AsString;
end;
7: begin
List.Items.Add;
List.Items[List.Items.Count - 1].Text := 'City:';
List.Items[List.Items.Count - 1].subitems.Text := Qu.FieldByName('City').AsString;
end;
8: begin
List.Items.Add;
List.Items[List.Items.Count - 1].Text := 'Region:';
List.Items[List.Items.Count - 1].subitems.Text := Qu.FieldByName('Region').AsString;
end;
9: begin
List.Items.Add;
List.Items[List.Items.Count - 1].Text := 'State:';
List.Items[List.Items.Count - 1].subitems.Text := Qu.FieldByName('State').AsString;
end;
10: begin
List.Items.Add;
List.Items[List.Items.Count - 1].Text := 'Country:';
List.Items[List.Items.Count - 1].subitems.Text := Qu.FieldByName('Country').AsString;
end;
11: begin
List.Items.Add;
List.Items[List.Items.Count - 1].Text := 'Post Code:';
List.Items[List.Items.Count - 1].subitems.Text := Qu.FieldByName('PostCode').AsString;
end;
12: begin
List.Items.Add;
List.Items[List.Items.Count - 1].Text := 'Phone:';
List.Items[List.Items.Count - 1].subitems.Text := Qu.FieldByName('Phone1').AsString;
end;
13: begin
List.Items.Add;
List.Items[List.Items.Count - 1].subitems.Text := Qu.FieldByName('Phone2').AsString;
end;
14: begin
List.Items.Add;
List.Items[List.Items.Count - 1].Text := 'Cell Phone:';
List.Items[List.Items.Count - 1].subitems.Text := Qu.FieldByName('CellPhone1').AsString;
end;
15: begin
List.Items.Add;
List.Items[List.Items.Count - 1].subitems.Text := Qu.FieldByName('CellPhone2').AsString;
end;
16: begin
List.Items.Add;
List.Items[List.Items.Count - 1].Text := 'Email:';
List.Items[List.Items.Count - 1].subitems.Text := Qu.FieldByName('Email').AsString;
end;
17: begin
List.Items.Add;
List.Items[List.Items.Count - 1].Text := 'User Name:';
List.Items[List.Items.Count - 1].subitems.Text := Qu.FieldByName('UName').AsString;
end;
18: begin
List.Items.Add;
List.Items[List.Items.Count - 1].Text := 'Password:';
List.Items[List.Items.Count - 1].subitems.Text := Qu.FieldByName('PWord').AsString;
end;
end;
end;
end;
List.EndUpdate;
end;
Qu.Destroy;
end;