main.pas

地址档案管理系统

unit main;
{applicaton to test DBNavPlus}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBCtrls, DBNavPlus, StdCtrls, DB, ComCtrls, DBNavPro;

type
  TMainForm = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button4: TButton;
    Spacing: TLabel;
    Label1: TLabel;
    SpacingEdit: TEdit;
    UpDown1: TUpDown;
    MarginEdit: TEdit;
    UpDown2: TUpDown;
    Nav: TDBNavPro;
    GroupBox1: TGroupBox;
    NavG: TDBNavPro;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpacingEditChange(Sender: TObject);
    procedure MarginEditChange(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

{******************************************************************************}

procedure TMainForm.FormShow(Sender: TObject);
var
  x: integer;
begin
  {force button to be enabled without datasource}
  for x := 0 to Nav.ComponentCount - 1 do
  begin
    if Nav.Controls[x] is TNavButton then
    begin
      with Nav.Controls[x] as TNavButton do
      begin
        Enabled := True;
      end;
    end;
  end;

  for x := 0 to NavG.ComponentCount - 1 do
  begin
    if NavG.Controls[x] is TNavButton then
    begin
      with NavG.Controls[x] as TNavButton do
      begin
        Enabled := True;
      end;
    end;
  end;

  {set to default}
  SpacingEdit.Text := IntToStr(Nav.Spacing);
  MarginEdit.Text := IntToStr(Nav.Margin);
end;

{******************************************************************************}

procedure TMainForm.Button1Click(Sender: TObject);
begin
  {rotate button layout options}
  Nav.Layout := Succ(Nav.Layout);
  if Nav.Layout > high(Nav.Layout) then
    Nav.Layout := low(Nav.Layout);
end;

{******************************************************************************}

procedure TMainForm.Button4Click(Sender: TObject);
begin
  {move lines to captions}
  Nav.Captions := Memo1.Lines;
end;

{******************************************************************************}

procedure TMainForm.SpacingEditChange(Sender: TObject);
begin
  {change spacing}
  Nav.Spacing := StrToIntDef(SpacingEdit.Text, 0);
  ;
end;

{******************************************************************************}

procedure TMainForm.MarginEditChange(Sender: TObject);
begin
  {change margi}
  Nav.Margin := StrToIntDef(MarginEdit.Text, 0);
  ;
end;

procedure TMainForm.Button2Click(Sender: TObject);

begin
NavG.Enabled:=false;

end;

procedure TMainForm.Button3Click(Sender: TObject);
var
x:Integer;
begin
  for x := 0 to NavG.ComponentCount - 1 do
  begin
    if NavG.Controls[x] is TNavButton then
    begin
      with NavG.Controls[x] as TNavButton do
      begin
        Enabled :=True;
      end;
    end;
  end;
end;

end.