Unit DBBtnCmn

Classes

TDBBtnDataLink -

Functions

IsStandardBtnCaption -

Types

TAfterActionEvent
TBeforeActionEvent
TDBBDisableReason
TDBBDisableReasons
TDBButtonLanguage
TDBButtonType
TEvent
TGetQuestionEvent

Constants

BtnCaption
BtnName
BtnNeedsTimer
BtnTypeName
LastSelectedDBBLanguage
StandardDBBLanguage
StandardDBBLanguage
StandardDBBLanguage
StandardDBBLanguage
StandardDBBLanguage
StandardDBBLanguage
TimerInitRepeatPause
TimerRepeatPause

Variables


Functions


function IsStandardBtnCaption(s: string; Language: TDBButtonLanguage): Boolean;


Types


TAfterActionEvent =
    procedure (Sender: TObject; var Error: Boolean) of object

TBeforeActionEvent =
    procedure (Sender: TObject; var ActionIsDone: Boolean) of object

TDBBDisableReason = (
    drBOF, drEOF, drReadonly,
    drNotEditing, drEditing, drEmpty);

TDBBDisableReasons = set of TDBBDisableReason

TDBButtonLanguage = (
    blUSEnglish,
    blDutch,
    blHebrew,
    blPortugues,
    blGerman,
    blSpanish);

TDBButtonType = (
    nbCustom,
    nbFirst, nbPrior, nbNext, nbLast,
    nbInsert, nbAppend, nbDelete,
    nbEdit,
    nbPost, nbCancel,
    nbRefresh);
Used by TDBBitBtn and TDBSpeedButton Delphi 1 - 3 Version 1.62 Jan-24-1998 (C) 1997 Christoph R. Kirchner { Choose language for default button captions: } {$DEFINE USEnglish} { $DEFINE Dutch } { $DEFINE Hebrew } { $DEFINE Portugues} { $DEFINE German} { $DEFINE Spanish
TEvent =
    procedure of object
TDBBtnDataLink
TGetQuestionEvent =
    procedure (Sender: TObject;
               var Question: string;
               var Buttons: TMsgDlgButtons;
               var HelpCtx: Longint) of object

Constants

BtnCaption = ( { USEnglish: } ('', 'First', 'Prior', 'Next', 'Last', 'New', 'New', 'Delete', 'Edit', 'Save', 'Cancel', 'Refresh'), { Dutch: } ('', 'Eerste', 'Vorige', 'Volgende', 'Laatste', 'Nieuw', 'Nieuw', 'Verwijder', 'Bewerken', 'Opslaan', 'Annuleren', 'Vernieuw'), { Hebrew: } ('', 'øàùåðä', 'ä÷åãîú', 'äáàä', 'äàçøåðä', 'çãùä', 'çãùä', 'îçé÷ä', 'òøéëä', 'ùîéøä', 'áéèåì', 'øòðåï'), { Portugues: } ('', 'Primeiro', 'Anterior', 'Próximo', 'Último', 'Insere', 'Insere', 'Exclui', 'Edita', 'Salva', 'Cancela', 'Atualiza'), { German: } ('', 'Anfang', 'Zurück', 'Vor', 'Ende', 'Neu', 'Neu', 'Löschen', 'Ändern', 'Sichern', 'Abbrechen', 'Aktualisieren'), { Spanish: } ('', 'Primero', 'Anterior', 'Siguiente', 'Último', 'Insertar', 'Insertar', 'Borrar', 'Editar', 'Guardar', 'Cancelar', 'Actualizar') )

interval (ms)} { Caption / Hint:

BtnName = ('', 'First', 'Prior', 'Next', 'Last', 'New', 'Append', 'Delete', 'Edit', 'Save', 'Cancel', 'Refresh')

Component.Name:

BtnNeedsTimer = (false, false, true, true, false, false, false, false, false, false, false, false)

BtnTypeName = ('', 'FIRST', 'PRIOR', 'NEXT', 'LAST', 'INSERT', 'INSERT', 'DELETE', 'EDIT', 'POST', 'CANCEL', 'REFRESH')

for internal use:

LastSelectedDBBLanguage = StandardDBBLanguage

StandardDBBLanguage = blGerman

StandardDBBLanguage = blSpanish

StandardDBBLanguage = blDutch

StandardDBBLanguage = blUSEnglish

Spanish:

StandardDBBLanguage = blPortugues

StandardDBBLanguage = blHebrew

TimerInitRepeatPause = 400

timer:

TimerRepeatPause = 100

pause before repeat timer (ms)

Variables