Main Form (painel de inicialização)

Como esperado, o design visual de um formulário "desktop" tradicional expondo os principais serviços de uma aplicação é diferente das mais recentes interfaces de usuário habilitadas para toque. O primeiro design pressupõe o uso de um dispositivo de alta precisão, um mouse, em vez de um dedo grosso que é o "dispositivo" usual para o segundo. Também é comum em interfaces antigas acessar serviços através do "menu principal".

Ambas as interfaces de usuário darão acesso aos mesmos serviços, e uma boa implementação deve manter as diferenças no código da interface do usuário, compartilhando a mesma lógica de negócio.

Formulário Principal Desktop

dMainForm

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIRegClasses, uniGUIForm, uniGUIBaseClasses, uniLabel,
  uniButton, uniToolBar, uniBitBtn, Vcl.Menus, uniMainMenu;

type
  TMainForm = class(TUniForm)
    UniToolBar1: TUniToolBar;
    btnEditUsers: TUniToolButton;
    btnEditOrders: TUniToolButton;
    btnReportSales: TUniToolButton;
    UniMainMenu1: TUniMainMenu;
    Main1: TUniMenuItem;
    Exit1: TUniMenuItem;
    Administration1: TUniMenuItem;
    EditUsers1: TUniMenuItem;
    Operations1: TUniMenuItem;
    EditOrders1: TUniMenuItem;
    Reports1: TUniMenuItem;
    ReportSales1: TUniMenuItem;
    Logoff1: TUniMenuItem;
    procedure Exit1Click(Sender: TObject);
    procedure Logoff1Click(Sender: TObject);
  private
    { Declarações privadas }
  public
    { Declarações públicas }
  end;

function MainForm: TMainForm;

implementation

{$R *.dfm}

uses
  uniGUIVars, MainModule, uniGUIApplication;

function MainForm: TMainForm;
begin
  Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));
end;

procedure TMainForm.Exit1Click(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TMainForm.Logoff1Click(Sender: TObject);
begin
  ModalResult := mrOk;
end;

initialization
  RegisterAppFormClass(TMainForm);
end.

Há apenas duas linhas de código neste formulário que são redundantes, mostrando a diferença entre logoff e fechar a sessão. Exceto por essas duas linhas opcionais de código, o único vínculo entre este formulário e o MainModule é a ligação entre itens de menu e botões da barra de ferramentas às ações.

O design visual é exposto em sua estrutura:

dMainFormStructure

Formulário Principal Touch

mMainForm

unit Mainm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIRegClasses, uniGUIForm, uniGUImForm, uniGUIBaseClasses,
  uniLabel, unimLabel, uniButton, unimButton, uniToolBar, unimToolbar,
  uniBitBtn, unimBitBtn, uniGUImJSForm, unimPanel, unimMenu;

type
  TMainmForm = class(TUnimForm)
    btnEditUsers: TUnimBitBtn;
    btnEditOrders: TUnimBitBtn;
    UnimContainerPanel1: TUnimContainerPanel;
    btnReportSales: TUnimBitBtn;
  private
    { Declarações privadas }
  public
    { Declarações públicas }
  end;

function MainmForm: TMainmForm;

implementation

{$R *.dfm}

uses
  uniGUIVars, MainModule, uniGUIApplication;

function MainmForm: TMainmForm;
begin
  Result := TMainmForm(UniMainModule.GetFormInstance(TMainmForm));
end;

initialization
  RegisterAppFormClass(TMainmForm);
end.

A única diferença entre este código e o código anterior é a ausência do menu principal.

A estrutura também é semelhante.

mMainFormStructure