From 8224ea0b030e7f82ace115b9a3d446ec357ddf7c Mon Sep 17 00:00:00 2001 From: lazarus Date: Sat, 17 Aug 2002 23:41:12 +0000 Subject: [PATCH] MG: improved streaming error handling git-svn-id: trunk@2278 - --- lcl/buttons.pp | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lcl/buttons.pp b/lcl/buttons.pp index fee2728d21..ba5a0ef313 100644 --- a/lcl/buttons.pp +++ b/lcl/buttons.pp @@ -237,10 +237,12 @@ implementation uses lclstrconsts; const - BitBtnModalResults : array[TBitBtnKind] of TModalResult = (0, mrOK, mrCancel, 0, mrYes, mrNo, + BitBtnModalResults : array[TBitBtnKind] of TModalResult = ( + 0, mrOK, mrCancel, 0, mrYes, mrNo, 0, mrAbort, mrRetry, mrIgnore, mrAll); - BitbtnCaption : array[TBitBtnKind] of String = ('', rsmbOK, rsmbCancel, rsmbHelp, rsmbYes, rsmbNo, + BitbtnCaption : array[TBitBtnKind] of String = ( + '', rsmbOK, rsmbCancel, rsmbHelp, rsmbYes, rsmbNo, rsmbClose, rsmbAbort, rsmbRetry, rsmbIgnore, rsmbAll); @@ -269,7 +271,11 @@ end. { ============================================================================= $Log$ + Revision 1.24 2002/09/04 09:32:17 lazarus + MG: improved streaming error handling + Revision 1.23 2002/09/03 11:32:49 lazarus + Added shortcut keys to labels Support for alphabetically sorting the properties Standardize message and add shortcuts ala Kylix