TfvsForm

Descripción

El objeto TfvsForm (Form ancestro de base simplificado) es un form de base más moderno (respecto de TTprxForm) usado como ancestro.

(Ver también TTprxForm).

Identidad

• Ancestro: TForm
• Carpeta: C:\DevelopPrx\explorer
• Archivo: fvsForm.pas

Declaración

type
  TTfvsForm = class(TForm)
    ActionList1: TActionList;
    CerrarConCtrlX: TAction;
    procedure FormShow(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure ShowFormMeasures(Sender: TObject);
    procedure EventoNulo(Sender: TObject);
    procedure CerrarConCtrlXExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FShowCount: Integer;
    FActivateCount: Integer;
    FMainCaption: String;
    FFreeOnClose: Boolean;
    FPropTop: Integer;
    FPropLeft: Integer;
    FQueryBase: TprxADOQuery;
    FQueryBase_SQL: TStringlist;
    FDataSourceBase: TDataSource;
    FTableName_DBMasterFrame: String;
    FModoPantalla_DBMasterFrame: TTfvsModoPantalla;
    Fcatalogo: String;
    Fargumentos: Tfva_argument_list;
    Fquery_sql: TStringList;
    FClassShow: TfvsClassShowData;
    FClassShow_Frame: TTfvsFrame;
    FCaptionToShow: String;
    FTS: String;
    FLocalMode: Boolean;

    FNombreFrame: String;

  protected
    procedure   SetTableName_DBMasterFrame(aValue: String); virtual;

    function    fvsImageList16: TfvsImageList;

    property    ShowCount: Integer read FShowCount write FShowCount;
    property    ActivateCount: Integer read FActivateCount write FActivateCount;
    property    MainCaption: String read FMainCaption write FMainCaption;
    property    PropTop: Integer read FPropTop write FPropTop;
    property    PropLeft: Integer read FPropLeft write FPropLeft;
    property    DataSourceBase: TDataSource read FDataSourceBase write FDataSourceBase;
    property    query_sql: TStringList read Fquery_sql write Fquery_sql;
  public
    property    QueryBase: TprxADOQuery read FQueryBase write FQueryBase;
    property    QueryBase_SQL: TStringlist read FQueryBase_SQL write FQueryBase_SQL;
    property    FreeOnClose: Boolean read FFreeOnClose write FFreeOnClose;

    property    TableName_DBMasterFrame: String read FTableName_DBMasterFrame write SetTableName_DBMasterFrame;
    property    ModoPantalla_DBMasterFrame: TTfvsModoPantalla read FModoPantalla_DBMasterFrame write FModoPantalla_DBMasterFrame;

    property    catalogo: String read Fcatalogo write Fcatalogo;

    property    xx_argumentos: Tfva_argument_list read Fargumentos write Fargumentos;

    property    ClassShow: TfvsClassShowData read FClassShow write FClassShow;
    property    ClassShow_Frame: TTfvsFrame read FClassShow_Frame write FClassShow_Frame;
    property    CaptionToShow: String read FCaptionToShow write FCaptionToShow;
    property    TS: String read FTS;

    property    LocalMode: Boolean read FLocalMode write FLocalMode;

    procedure   FormCloseLocal(Sender: TObject);

    function    ListaPantallasId: String;

    property    NombreFrame: String read FNombreFrame;
  end;

Implementación

procedure FormShow(Sender: TObject)

La propiedad FShowCount se incrementa cada vez que el form se muestra (cada vez que se trae al frente) y la usamos habitualmente como muestra el código con:

// Incrementamos el contador...
Inc(FShowCount);

if ShowCount = 1 then
   begin
   // Si es la primera vez que se muestra el form hacemos algo...

   ;
   end;

function ListaPantallasId: String

Retorna el identificador de la pantalla para el form de pantallas abiertas TTfvaListaPantallasForm.

Uso

El form es ancestro de los siguientes (no todos están en uso):

• TTfvaListaPantallasForm.
• TTfva_select_bitmap_form.
• TTfvsCatalogoExportarForm.
• TTfvsCatalogoImportarForm.
• TTfvsCatalogoRefrescarForm.
• TTprxExplorer_MainForm.
• TTprxFrames_MainForm.
• TTprxMENUS_GRID_Frame_OrdenForm.
• TTfva_permisos_cambio_clave_form.
• TTfvsDBGridColumnasForm.
• TTprxADODataSet_Options_FiltroIncrementalForm.
• TTprxADODataSet_Options_FiltroQBEForm.
• TTprxADODataSet_Options_Impresion_Aplicativo_Form.

Obsoletos

Los siguientes están obsoletos y no se documentan:

• TTprxADODataSet_Options_SeguimientoForm.
• TTprxKeyboardNumericForm no está en uso ni se usará.
• TTprxTouch_MainForm corresponde a la vieja interfaz touch-screen, no se usa ni se usará.

Sin uso

• TTprxNavegador_Form corresponde a pruebas con un nuevo menú, no está en uso y probablemente no se use.
• TTfvsClassEstructuraForm se usó hace mucho tiempo atrás pero ya no, ni se va a usar.
• TTfvsShowOnGridForm está siendo reemplazado por TTprxSelectFromGridForm.