dbnavplus.pas

该插件是Delphi下很有名的插件。是专门用作导航栏增强的组件。

unit DBNavPlus;
(*	Modified version of TDBNavigator.  Adds a Captions property so the buttons
	  can have captions too.

  	- Version 1.0 - 11/17/96
		- For Delphi 2.0
 		- This VCL was inspired by an article in "Delphi Delvelopers Journal"
		- This VCL is freeware.
		- William Florac - FITCO
*)

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBCtrls, Buttons;

type
  TDBNavPlus = class(TDBNavigator)
  private
    { Private declarations }
    FCaptions: TStrings;
    FLayout: TButtonLayout;
    FSpacing: Integer;
    FMargin: Integer;
  protected
    { Protected declarations }
		procedure SetCaptions(value: TStrings);
    procedure SetLayout(value: TButtonLayout);
    procedure SetSpacing(value: integer);
    procedure SetMargin(value: integer);
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
		destructor Destroy; override;
  published
    { Published declarations }
    property Captions: TStrings read FCaptions write SetCaptions;
    property Layout: TButtonLayout read FLayout write SetLayout default blGlyphTop;
    property Spacing: Integer read FSpacing write SetSpacing default 2;
    property Margin: Integer read FMargin write SetMargin default -1;
    property Font;
  end;

procedure Register;

implementation

{******************************************************************************}
constructor TDBNavPlus.Create(AOwner: TComponent);
var
	x: integer;
begin
	inherited create(AOwner);
  {initialize values}
	FLayout := blGlyphTop;
  FSpacing := 2;
  FMargin := -1;
	FCaptions := TStringList.create;
  FCaptions.Clear;
	FCaptions.Add('&Primeiro');
	FCaptions.Add('&Anterior');
	FCaptions.Add('P&r髕imo');
	FCaptions.Add('