TTfvsFrame

Descripción

El frame TTfvsFrame (Frame de base) es el frame de base de casi todos los frames de la aplicación. Los frames se presentan al usuario siempre dentro de otro control visual (normalmente un form).

Este frame es derivado por otros y cada uno agergará los controles visuales que correspondan a su funcionalidad, según eso es como se verá el frame.

En diseño se ve de la siguiente manera:

Frame de base (en diseño).

Identidad

• Ancestro: TFrame
• Carpeta: C:\DevelopPrx\frames
• Archivo: fvsFrame.pas

Declaración

type
  TTfvsFrame_CloseForm_Mode = (TTfvsFrame_CloseForm_Normal, TTfvsFrame_CloseForm_ModalResult_mrOk, TTfvsFrame_CloseForm_ModalResult_mrCancel);

type
  TTfvsFrame = class(TFrame)
    ActionListBASE: TActionList;
    procedure   EventoNulo(Sender: TObject); virtual;
    procedure   FrameResize(Sender: TObject); virtual;
  private
    FShowCount: Integer;
    FTitle: String;
    Fquery: TprxADOQuery;
    Fquery_select: TprxADOQuery;
    Fquery_sql: TStringList;
    FClassShow_Activated: Boolean;

    FModoPantalla: TTfvsModoPantalla;

    FClassShow: TfvsClassShowData;

    FDataSet_Options_Impresion_Menu: TprxADODataSet_Options_Impresion_Menu;

    FCallingDataSet: TDataSet;

    FCatalogo: String;

    Ffva_container: TWinControl;
    Ffva_page_control: TPageControl;
    Ffva_visible: Boolean;

    Fargumentos: Tfva_argument_list;

    Frefrescando_flag: Boolean;

    FClassShow_Preferences: Tfva_pantallas_preferencias;

    FEditing: Boolean;
  protected
    procedure   SetTitle(aValue: String); virtual;
    procedure   SetFormCaption(aCaption: String);
    procedure   SetModoPantalla(aValue: TTfvsModoPantalla);

    procedure   set_fva_container(aValue: TWinControl);
    procedure   set_fva_page_control(aValue: TPageControl);
    procedure   set_fva_visible(aValue: Boolean);

    procedure   Editing_Set(aValue: Boolean); virtual;

    procedure   CloseForm(aCloseMode: TTfvsFrame_CloseForm_Mode); virtual;

    property    ShowCount: Integer read FShowCount write FShowCount;
    property    refrescando_flag: Boolean read Frefrescando_flag write Frefrescando_flag;
    property    ClassShow_Activated: Boolean read FClassShow_Activated write FClassShow_Activated;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure   OnFrameShow(Sender: TObject); virtual;
    procedure   OnFrameClose(Sender: TObject); virtual;

    function    set_fva_name: String;
    function    fva_login_user: String;

    procedure   fva_refrescar(Sender: TObject); virtual;

    procedure   PreferencesLoad;
    procedure   PreferencesSave(aComponente: String; aPropiedad: String; aValor: String);

    procedure   ClassShow_BuildFrame(Sender: TObject); virtual;
    procedure   ClassShow_CloseFrame(Sender: TObject); virtual;
    function    ClassShow_Activate(aActivateDataSet: Boolean): Boolean; virtual;
    procedure   ClassShow_Activate_GetFilterCommands(aDataSet: TprxADODataSetEdit); virtual;

    property    ClassShow: TfvsClassShowData read FClassShow write FClassShow;

    property    Title: String read FTitle write SetTitle;
    property    query: TprxADOQuery read Fquery write Fquery;
    property    query_select: TprxADOQuery read Fquery_select write Fquery_select;
    property    query_sql: TStringList read Fquery_sql write Fquery_sql;
    property    ModoPantalla: TTfvsModoPantalla read FModoPantalla write SetModoPantalla;
    property    DataSet_Options_Impresion_Menu: TprxADODataSet_Options_Impresion_Menu read FDataSet_Options_Impresion_Menu write FDataSet_Options_Impresion_Menu;

    property    CallingDataSet: TDataSet read FCallingDataSet write FCallingDataSet;
    property    Catalogo: String read FCatalogo write FCatalogo;
    property    fva_container: TWinControl read Ffva_container write set_fva_container;
    property    fva_page_control: TPageControl read Ffva_page_control write set_fva_page_control;
    property    fva_visible: Boolean read Ffva_visible write set_fva_visible;
    property    argumentos: Tfva_argument_list read Fargumentos write Fargumentos;

    property    ClassShow_Preferences: Tfva_pantallas_preferencias read FClassShow_Preferences write FClassShow_Preferences;

    property    Editing: Boolean read FEditing write Editing_Set;
  end;

Implementación

function TTfvsFrame_CreateFrameOnTabSheet(aPageControl: TPageControl; aFrameName: String): TTfvsFrame

Ayuda de Delphi sobre TPageControl.Función externa al frame que crearía una instancia de un frame llamado según aFrameName en una nueva pestaña de un https://docwiki.embarcadero.com/Libraries/Alexandria/en/Vcl.ComCtrls.TPageControl. La función no está en uso.

function TTfvsFrame_CreateFrameOnControl(aClient: TWinControl; aFrameName: String): TTfvsFrame

Similar anterior, pero crea un frame sobre un control identificado en el argumento aClient: TWinControl. La función no está en uso.

constructor Create(AOwner: TComponent)

Crea el frame, instancia:

• query TprxADOQuery.
• query_select TprxADOQuery.
• query_sql TStringList.
• ClassShow TfvsClassShowData.

procedure OnFrameShow(Sender: TObject)

Solo incrementa ShowCount con:

ShowCount := ShowCount + 1;

procedure CloseForm(aCloseMode: TTfvsFrame_CloseForm_Mode)

Cierra el form en el que se ha pegado el frame.

procedure PreferencesLoad

Carga las preferencias del usuario.

procedure PreferencesSave(aComponente: String; aPropiedad: String; aValor: String)

Guarda las preferencias del usuario.