In[]:=
Manipulate[Column[{Row[{Column[{Style["Release Title:",color],EntityList[EntityClass["Movie","StarWarsFranchise"]][[releaseNumber]]}]," ",Column[{Style["Director:",color],EntityList[EntityClass["Movie","StarWarsFranchise"]][[releaseNumber]][EntityProperty["Movie","Director"]][[1]]}]," ",Column[{Style["Producer:",color],EntityList[EntityClass["Movie","StarWarsFranchise"]][[releaseNumber]][EntityProperty["Movie","Producers"]][[1]]}]," ",Column[{Style["Production Budget:",color],EntityClass["Movie","StarWarsFranchise"][EntityProperty["Movie","ProductionBudget"]][[releaseNumber]]}]}],Style["Cast and Roles:",color],Grid@Partition[Column/@Transpose[{Keys[EntityList[EntityClass["Movie","StarWarsFranchise"]][[releaseNumber]][EntityProperty["Movie","CastAndRoles"]]],First/@Values[EntityList[EntityClass["Movie","StarWarsFranchise"]][[releaseNumber]][EntityProperty["Movie","CastAndRoles"]]]}],4]}],{releaseNumber,Range@10,ControlType->Setter},{color,Purple}]
Out[]=
