unter DBCtrls gibt es in meinem DELPHI XE2 keine Klasse TButtonSet mehr .... richtig ?
dh. mein Code zum reduzieren der Buttons bei Bedarf geht nicht mehr

zusammenfalten · markieren

Delphi-Quellcode:

type

  TNavigatorButtonSet = (nbsFull, nbsPartial, nbsRefreshOnly);

  TDBShortNavigator = Class(TDBNavigator)
  private
    { .... }
    FButtonSet: TNavigatorButtonSet;
    procedure SetButtonSet(const value: TNavigatorButtonSet);
  protected
    { .... }
  public
    { ..... }
  published
    { .... }
    property ButtonSet: TNavigatorButtonSet read FButtonSet write SetButtonSet;
  end;

procedure register;

implementation

///
/// register the extended navigator buttons
///
procedure register;
begin
  RegisterComponents('TOOLS', [TDBShortNavigator]);
end;

///
/// How should Navigator button look like
///
procedure TDBShortNavigator.SetButtonSet(const value: TNavigatorButtonSet);
const
  FULL_SET = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEDit,
              nbPOst, nbCancel, nbRefresh];
  PARTIAL_SET = [nbFirst, nbPrior, nbNext, nbLast];
  REFRESH_SET =[nbRefresh];
  SETS: Array [TNavigatorButtonSet] of TButtonSet = (FULL_SET, PARTIAL_SET, REFRESH_SET);
begin
  if (FButtonSet = value) then
               exit; // no need to do anything
  FButtonSet := value;
  VisibleButtons := SETS[FButtonSet];
end;

AFAIK heißt der Typ TNavButtonSet. Und benutze doch bitte Delphi-Tags.

Danke , mit folgender kleinen Erweiterung kann ich sogar D7 und D XE2 kompilieren ....

markieren

Delphi-Quellcode:

/// add missing support of TNAVBUTTON to DELPHI 7 ....
  {$IF COMPILERVERSION < 20 }
  TNavButtonSet = set of TNavigateBtn;
  {$IFEND}

Zitat von bernhard_LA:

Danke , mit folgender kleinen Erweiterung kann ich sogar D7 und D XE2 kompilieren ....

markieren

Delphi-Quellcode:

/// add missing support of TNAVBUTTON to DELPHI 7 ....
  {$IF COMPILERVERSION < 20 }
  TNavButtonSet = set of TNavigateBtn;
  {$IFEND}

Ist doch immern noch in (Vcl.)DBCtrls.pas definiert.