TTfvsDBGridColumnasForm

Introducción

El objeto TTfvsDBGridColumnasForm (Form para ordenar columnas de una grilla) es el form usado por la grilla TfvsDBGrid para ordenar sus columnas.

Propiedades de columnas de una grilla.

Identidad

• Ancestro: TfvsForm
• Carpeta: C:\DevelopPrx\library
• Archivo: fvsDBGridColumnasForm.pas

Declaración

type
  TTfvsDBGridColumnasForm = class(TTfvsForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Memo_COLUMNAS: TMemo;
    Button_NEW_Reset: TButton;
    Button_NEW_Aplicar: TButton;
    Button_NEW_Cancelar: TButton;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button_NEW_ResetClick(Sender: TObject);
    procedure Button_NEW_AplicarClick(Sender: TObject);
    procedure Button_NEW_CancelarClick(Sender: TObject);
  private
    FDataSet: TDataSet;
  protected
    function    Grilla: TfvsDBGrid;
  public
    property    DataSet: TDataSet read FDataSet write FDataSet;
  end;

function Grilla: TfvsDBGrid

Retorna la grilla que armó la pantalla.

Implementación

procedure FormShow(Sender: TObject)

Ejecutada al mostrarse la pantalla, agrega los campos de la grilla.

procedure Button_NEW_ResetClick(Sender: TObject)

Resetea la lista de campos y vuelve a la lista completa.

procedure Button_NEW_AplicarClick(Sender: TObject)

Guarda la selección en la tabla pCONFIG_GRID y cierra la pantalla.

procedure Button_NEW_CancelarClick(Sender: TObject)

Cancela la edición y cierra el form.