AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

DELPHI XE2 TButtonSet verschwunden

Ein Thema von bernhard_LA · begonnen am 8. Nov 2011 · letzter Beitrag vom 8. Nov 2011
Antwort Antwort
bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.068 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

DELPHI XE2 TButtonSet verschwunden

  Alt 8. Nov 2011, 11:16
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



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;

Geändert von SirThornberry ( 8. Nov 2011 um 13:24 Uhr) Grund: Delphi-Tags ergänzt - nächstes mal bitte selbst die Delphi-Tags setzen.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.463 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: DELPHI XE2 TButtonSet verschwunden

  Alt 8. Nov 2011, 11:27
AFAIK heißt der Typ TNavButtonSet. Und benutze doch bitte Delphi-Tags.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.068 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#3

AW: DELPHI XE2 TButtonSet verschwunden

  Alt 8. Nov 2011, 14:34
Danke , mit folgender kleinen Erweiterung kann ich sogar D7 und D XE2 kompilieren ....

Delphi-Quellcode:

/// add missing support of TNAVBUTTON to DELPHI 7 ....
  {$IF COMPILERVERSION < 20 }
  TNavButtonSet = set of TNavigateBtn;
  {$IFEND}
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.103 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: DELPHI XE2 TButtonSet verschwunden

  Alt 8. Nov 2011, 14:40
Danke , mit folgender kleinen Erweiterung kann ich sogar D7 und D XE2 kompilieren ....

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.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf