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

LCL: fixed message dialog standard captions localization, bug #19757

Browse Source 
git-svn-id: trunk@31727 -
This commit is contained in:
maxim 2011-07-17 18:04:39 +00:00
parent 0566afca02
commit 0faebc761a
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/dialogs.pp
View File

@ -569,9 +569,6 @@ const
bkOk, bkCancel, bkHelp, bkYes, bkNo, bkClose, bkAbort, bkRetry, bkOk, bkCancel, bkHelp, bkYes, bkNo, bkClose, bkAbort, bkRetry,
bkIgnore, bkAll, bkYesToAll, bkNoToAll); bkIgnore, bkAll, bkYesToAll, bkNoToAll);
MsgDlgCaptions: Array[mtWarning..mtCustom] of String = (rsMtWarning, rsMtError,
rsMtInformation, rsMtConfirmation, rsMtCustom);
DialogResName: array[idDialogWarning..idDialogConfirm] of String = DialogResName: array[idDialogWarning..idDialogConfirm] of String =
( (
{idDialogWarning} 'dialog_warning', {idDialogWarning} 'dialog_warning',
@ -580,7 +577,6 @@ const
{idDialogConfirm} 'dialog_confirmation' {idDialogConfirm} 'dialog_confirmation'
); );
type type
TBitBtnAccess = class(TBitBtn); TBitBtnAccess = class(TBitBtn);

2
lcl/include/promptdialog.inc
View File

@ -506,6 +506,8 @@ var
aCaption: String; aCaption: String;
Btns: PLongInt; Btns: PLongInt;
CancelValue, DefaultIndex, ButtonCount: Longint; CancelValue, DefaultIndex, ButtonCount: Longint;
MsgDlgCaptions: Array[mtWarning..mtCustom] of String = (rsMtWarning, rsMtError,
rsMtInformation, rsMtConfirmation, rsMtCustom);
begin begin
if DlgType <> mtCustom then if DlgType <> mtCustom then
aCaption := MsgDlgCaptions[DlgType] aCaption := MsgDlgCaptions[DlgType]