I'm trying to add subtiles programmatically during the main control's OnTileDblClick event.
procedure TfrmMain.AdvSmoothTileList1TileDblClick(Sender: TObject;
Tile: TAdvSmoothTile; State: TTileState);
var
i: integer;
begin
for I := 1 to 4 do
begin
With Tile.subtiles.add do
begin
content.text := 'Subtile '+inttostr(i);;
data := 'Subtile'+inttostr(i);
tag := 0;
end;
end;
end;
As I step through the code, the subtiles seem to be created ok, but they are not displayed within the control itself.
What am I missing?
John