TfvsDBNavigator

Descripción

El objeto TfvsDBNavigator (Control de navegación / edición DB de registros de una tabla) es el control de navegación de datasets estándar.

TfvsDBNavigator.

Identidad

• Ancestro: TDBNavigator
• Carpeta: C:\DevelopPrx\library
• Archivo: fvsDBNavigator.pas

Declaración

type
  THackDBNavigator = class(TDBNavigator);

const
  TfvsDBNavigatorButtonWidth = 24;

type
  TfvsDBNavigatorOnGetPopupOptions = procedure (Sender: TprxPopupMenu) of object;

type
  TfvsDBNavigatorOnNavigatorClick = procedure (Sender: TDBNavigator; aButton: TNavigateBtn; aX: Integer; aY: Integer; var aHandled: Boolean) of object;

type
  TfvsDBNavigator = class(TDBNavigator)
  private
    FOnRefreshClick: TNotifyEvent;
    FUseAutoDataSet: Boolean;
    FUseAutoDataSetRecs: Integer;
    FActionList: TActionList;
    FActionListIsDetail: Boolean;
    FActionFlag: Boolean;

    FImages: TImageList;
    FPopupMenu: TprxPopupMenu;

    FOnGetPopupOptions: TfvsDBNavigatorOnGetPopupOptions;
    FOnNavigatorClick: TfvsDBNavigatorOnNavigatorClick;

    FGrid: {TfvsDBGrid} TCustomGrid;

    FHintsTraducidas: TStringList;

    procedure   SetupHackedNavigator(const Navigator: TDBNavigator; const Glyphs: TImageList; const GlyphNum: Integer);
  protected
    procedure   ClickHandler(Sender: TObject);
    procedure   SetUseAutoDataSet(aValue: Boolean);
    procedure   SetUseAutoDataSetRecs(aValue: Integer);

    procedure   SetActionList(aValue: TActionList);

    procedure   SetImages(aValue: TImageList);

    procedure   Notification(AComponent: TComponent; Operation: TOperation); override;

    function    TAG_READONLY: Boolean;

    procedure   Refresh(Sender: TObject); virtual;

    property    ActionFlag: Boolean read FActionFlag write FActionFlag;

    property    HintsTraducidas: TStringList read FHintsTraducidas write FHintsTraducidas;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure   Loaded; override;
    procedure   ButtonVisible(aButton: TNavigateBtn; aVisible: Boolean = True);
    procedure   ButtonEnable(aButton: TNavigateBtn; aEnable: Boolean = True);
    procedure   ButtonHint(aButton: TNavigateBtn; aHint: String);
    procedure   AutoDataSetEdit;

    procedure   AddAction(aButton: TNavigateBtn; aAction: TAction);

    procedure   FirstRecord(Sender: TObject); virtual;
    procedure   PriorRecord(Sender: TObject); virtual;
    procedure   NextRecord(Sender: TObject); virtual;
    procedure   LastRecord(Sender: TObject); virtual;
    procedure   NewRecord(Sender: TObject); virtual;
    procedure   EditRecord(Sender: TObject); virtual;
    procedure   CancelRecord(Sender: TObject); virtual;
    procedure   PostRecord(Sender: TObject); virtual;
    procedure   DeleteRecord(Sender: TObject); virtual;

    procedure   BtnClick(Index: TNavigateBtn); override;
    procedure   OnOptionsClick(Sender: TObject);
    procedure   OnPopupXtd(Sender: TObject); overload;
    procedure   OnPopupXtd(X: Integer; Y: Integer); overload;

    procedure   SetupHackedNavigatorPublic(const Glyphs: TImageList; const GlyphNum: Integer);

    procedure   ReadOnly_Buttons_Refresh(aDisableEdit: Boolean);

    property    PopupMenu: TprxPopupMenu read FPopupMenu write FPopupMenu;

    property    UseAutoDataSetRecs: Integer read FUseAutoDataSetRecs write SetUseAutoDataSetRecs;

    property    Grid: {TfvsDBGrid} TCustomGrid read FGrid write FGrid;
  published
    property    UseAutoDataSet: Boolean read FUseAutoDataSet write SetUseAutoDataSet;
    property    ActionList: TActionList read FActionList write SetActionList;
    property    ActionListIsDetail: Boolean read FActionListIsDetail write FActionListIsDetail;

    property    OnRefreshClick: TNotifyEvent read FOnRefreshClick write FOnRefreshClick;
    property    Images: TImageList read FImages write SetImages;

    property    OnGetPopupOptions: TfvsDBNavigatorOnGetPopupOptions read FOnGetPopupOptions write FOnGetPopupOptions;
    property    OnNavigatorClick: TfvsDBNavigatorOnNavigatorClick read FOnNavigatorClick write FOnNavigatorClick;
  end;