TfvsDBGrid

Descripción

El objeto TfvsDBGrid (Grilla para mostrar registros de una tabla.) es la grilla usada para mostrar registros de un dataset.

TfvsDBGrid.

Identidad

• Ancestro: TDBGrid
• Carpeta: C:\DevelopPrx\library
• Archivo: fvsDBGrid

Declaración

type
  TfvsOnGetPopupOptions = procedure (Sender: TComponent; aPopupMenu: TprxPopupMenu) of object;

const
  TfvsDBGrid_BackgroundColor = clWindow;

type
  THackDBGrid=class(TDBGrid);

type
  TfvsDBGrid = class(TDBGrid)
  private
    FColumnasOrden: TStringList;
    FRowSelect: Boolean;
    FImages: TImageList;
    FQuery: TprxADOQuery;
    FNavigateIndex: Integer;
    FNavigateCount: Integer;
    FColumnMovedFlag: Boolean;
    FOnGetPopupOptions: TfvsOnGetPopupOptions;

    FCheckBox: TDBCheckBox;

    FPropiedadesColumnasFlag: Boolean;
    FFiltroIncremental_Option: TprxADODataSet_Options_FiltroIncremental;
    FFiltroQBE_Option: TprxADODataSet_Options_FiltroQBE;

    FBackgroundColor: TColor;

    FPanelTotals: TPanel;

    FColumns_Totals: TfvsDBGrid_Column_Totals;

    FF9_Call: TNotifyEvent;
  protected
    property    CheckBox: TDBCheckBox read FCheckBox write FCheckBox;

    procedure   SetImages(aValue: TImageList); virtual;

    procedure   LocalColumnMoved(Sender: TObject; FromIndex, ToIndex: Integer);
    procedure   Local_DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure   ColumnOrderClick(Column: TColumn);
    procedure   OnPopupXtd(Sender: TObject); virtual;
    procedure   EventoNulo(Sender: TObject);

    property    Query: TprxADOQuery read FQuery write FQuery;

    procedure   FieldMessage(var Message: TprxADODataSetMessage); message MSG_PRXADODATASETMESSAGE;

    procedure   PropiedadesDeColumnasClick(Sender: TObject);

    property    ColumnMovedFlag: Boolean read FColumnMovedFlag write FColumnMovedFlag;
    property    PropiedadesColumnasFlag: Boolean read FPropiedadesColumnasFlag write FPropiedadesColumnasFlag;
    property    FiltroIncremental_Option: TprxADODataSet_Options_FiltroIncremental read FFiltroIncremental_Option write FFiltroIncremental_Option;
    property    FiltroQBE_Option: TprxADODataSet_Options_FiltroQBE read FFiltroQBE_Option write FFiltroQBE_Option;

    property    BackgroundColor: TColor read FBackgroundColor write FBackgroundColor;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure   Loaded; override;

    function    DataSetId: String;

    procedure   WidthJustify(aResetFilter: Boolean = False);

    procedure   LocalOnKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); virtual;

    function    SelectedColumn: TColumn;
    property    RowSelect: Boolean read FRowSelect write FRowSelect;

    procedure   ForzarColumnOrderClick(aTexto: String);
    procedure   ColumnOrderReset;
    procedure   ColumnOrderApply(Sender: TObject);

    procedure   PropiedadesColumnasCargar;

    function    SelectedRowsCount: Integer;
    procedure   NavigateRecords(aCall: TprxNotifyEventWithContinue);
    procedure   NavigateRecordsSelected(aCall: TprxNotifyEventWithContinue);
    procedure   NavigateRecordsAll(aCall: TprxNotifyEventWithContinue);
    function    NavigateRecordCount: Integer;

    property    ColumnasOrden: TStringList read FColumnasOrden write FColumnasOrden;
    property    NavigateIndex: Integer read FNavigateIndex write FNavigateIndex;
    property    NavigateCount: Integer read FNavigateCount write FNavigateCount;

    procedure   WMHScroll(var Msg: TWMHScroll); message WM_HSCROLL;

    property    PanelTotals: TPanel read FPanelTotals write FPanelTotals;

    property    Columns_Totals: TfvsDBGrid_Column_Totals read FColumns_Totals write FColumns_Totals;

    property    F9_Call: TNotifyEvent read FF9_Call write FF9_Call;

    procedure   SelectAll;
    procedure   SelectNone;
  published
    property    Images: TImageList read FImages write SetImages;
    property    OnGetPopupOptions: TfvsOnGetPopupOptions read FOnGetPopupOptions write FOnGetPopupOptions;
  end;