Defining the stand(s)

Our MainForm hosts the TFrameStand component and, through it, handles the management of the views (including the creation, destruction, and showing/hiding them). As previously said, a TStyleBook component has been added to the form as well, to host stand definitions (note the FrameStand1.StandBook property references the StandsBook component).

The actual code that the form uses to build the FrameStands is as follows:

procedure TMainForm.UpdateViewToState;
begin
  case MainData.AppState of
    Home:
      begin
        FrameStand1.CloseAllExcept(THomeFrame);
        FrameStand1
          .GetFrameInfo<THomeFrame>
            .Show;
      end;
    Orders:
      begin
        FrameStand1.CloseAll(TOrderDetailsFrame);
        FrameStand1
          .GetFrameInfo<TOrdersFrame>(True, nil, 'fader')
            .Show;
      end;
    OrderDetail:
      begin
        FrameStand1
          .GetFrameInfo<TOrderDetailsFrame>(True, nil, 'slider')
        ...