TDBBtnDataLink -
IsStandardBtnCaption -
TAfterActionEvent
TBeforeActionEvent
TDBBDisableReason
TDBBDisableReasons
TDBButtonLanguage
TDBButtonType
TEvent
TGetQuestionEvent
BtnCaption
BtnName
BtnNeedsTimer
BtnTypeName
LastSelectedDBBLanguage
StandardDBBLanguage
StandardDBBLanguage
StandardDBBLanguage
StandardDBBLanguage
StandardDBBLanguage
StandardDBBLanguage
TimerInitRepeatPause
TimerRepeatPause
function IsStandardBtnCaption(s: string; Language: TDBButtonLanguage): Boolean;
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
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)