TfvsClassShow

Introducción

El objeto TfvsClassShow (Componente para abrir pantallas.) define funcionalidad para abrir pantallas.

Este componente está en revisión, es antiguo y complicado (y poco útil), por lo que la documentación es la mínima.

Identidad

• Ancestro: TComponent
• Carpeta: C:\DevelopPrx\library
• Archivo: fvsClassShow.pas

Declaración

type
  TfvsClassShow = class(TComponent)
  private
    FQuery: TprxADOQuery;
    FQuerySQL: TStringList;
    FDatos: TfvsClassShowData;

    FLISTA_CATALOGO: TStringList;
    FLISTA_CATALOGO_FLAG: Boolean;

    FForm: TForm;
  protected
    property    Query: TprxADOQuery read FQuery write FQuery;
    property    QuerySQL: TStringList read FQuerySQL write FQuerySQL;

    property    LISTA_CATALOGO: TStringList read FLISTA_CATALOGO write FLISTA_CATALOGO;
    property    LISTA_CATALOGO_FLAG: Boolean read FLISTA_CATALOGO_FLAG write FLISTA_CATALOGO_FLAG;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;

    function    ShowOnFormLocal(aShowModal: Boolean = False): Boolean;
    function    ShowOnClientPanel(aOwner: TComponent; aClientPanel: TWinControl; aAddTS_To_Name: Boolean = False): TFrame;
    function    ShowOnFormExternal: Boolean;
    function    ShowOnTabSheet(aContainer: TPageControl): Boolean;
    function    ShowOnPanel(aContainer: TPanel): Boolean;

    function    InstanceFind(aTableName: String; aInstanceNbr: Integer = TfvsClassShow_Instance_NullValue): Boolean;

    function    ShowOnFormLocal_ForDesign_Insert(aClassName: String; aCatalogo: String; aCatalogoKey: String): Boolean;
    function    ShowOnFormLocal_ForDesign_Edit(aClassName: String; aIdValue: String): Boolean;

    property    Datos: TfvsClassShowData read FDatos write FDatos;

    property    Form: TForm read FForm;
  published
  end;

Implementación

function ShowOnFormLocal(aShowModal: Boolean = False): Boolean

Abre una pantalla en modo local, es decir que se agrega a la Lista de pantallas.

function ShowOnClientPanel(aOwner: TComponent; aClientPanel: TWinControl; aAddTS_To_Name: Boolean = False): TFrame

Abre una pantalla directamente sobre el panel cliente de TTprxMENUS_Frame.

function ShowOnFormExternal: Boolean

Abre una pantalla en la aplicación TTprxFrames_MainForm.

function ShowOnFormLocal_ForDesign_Insert(aClassName: String; aCatalogo: String; aCatalogoKey: String): Boolean

Abre un form de edición de catálogo para insertar un objeto, recibimos datos sobre Catalogo.

function ShowOnFormLocal_ForDesign_Edit(aClassName: String; aIdValue: String): Boolean

Abre un form para editar un objeto de catálogo.

Uso

Este componente se usa en las pantallas en general.