paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 06:20:45 +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,
bkIgnore, bkAll, bkYesToAll, bkNoToAll);
MsgDlgCaptions: Array[mtWarning..mtCustom] of String = (rsMtWarning, rsMtError,
rsMtInformation, rsMtConfirmation, rsMtCustom);
DialogResName: array[idDialogWarning..idDialogConfirm] of String =
(
{idDialogWarning} 'dialog_warning',
@ -580,7 +577,6 @@ const
{idDialogConfirm} 'dialog_confirmation'
);
type
TBitBtnAccess = class(TBitBtn);

2
lcl/include/promptdialog.inc
View File

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