paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 10:00:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: improved streaming error handling

Browse Source 
git-svn-id: trunk@2278 -
This commit is contained in:
lazarus 2002-08-17 23:41:12 +00:00
parent a74fa24fef
commit 8224ea0b03
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/buttons.pp
View File

@ -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