unit uBaseForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, 
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, 
  Vcl.Buttons, Vcl.Grids, Vcl.DBGrids, Vcl.ComCtrls, uUIAutoScaler;

type
  TfrmBase = class(TForm)
    pnlToolbar: TPanel;
    pnlHeader: TPanel;
    pnlMain: TPanel;
    pnlFooter: TPanel;
    pnlSideToolbar: TPanel;
    
    // Top Toolbar Buttons
    btnGuardar: TBitBtn;
    btnCancelar: TBitBtn;
    btnAnadir: TBitBtn;
    btnEliminar: TBitBtn;
    btnPrimero: TBitBtn;
    btnAnterior: TBitBtn;
    btnSiguiente: TBitBtn;
    btnUltimo: TBitBtn;
    btnModificar: TBitBtn;
    btnBuscar: TBitBtn;
    btnImprimir: TBitBtn;
    btnIA: TBitBtn;
    btnDuplicar: TBitBtn;
    btnRect: TBitBtn;
    btnAyuda: TBitBtn;
    btnSalir: TBitBtn;

    // Side Toolbar Buttons (Details)
    btnNuevoArticulo: TBitBtn;
    btnEliminaArticulo: TBitBtn;
    btnBuscarArticulo: TBitBtn;
    btnExcel: TBitBtn;

    // Main Components
    pgcDetails: TPageControl;
    tsDatosEnvio: TTabSheet;
    dbgItems: TDBGrid;
    TsListado: TTabSheet;
    Button1: TButton;

    procedure FormCreate(Sender: TObject);
    procedure btnAyudaClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure btnSalirClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBase: TfrmBase;

implementation

{$R *.dfm}

procedure TfrmBase.FormCreate(Sender: TObject);
begin
  // Standard initialization for ERP forms
  pgcDetails.ActivePageIndex := 0;
end;

procedure TfrmBase.btnAyudaClick(Sender: TObject);
begin
  ShowMessage('Manual de ayuda estándar del sistema.');
end;

procedure TfrmBase.btnSalirClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmBase.FormResize(Sender: TObject);
begin
  TUIAutoScaler.ScaleForm(Self);
end;

end.