paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 13:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

*fix for MessageBox error by Berthold Studemund

Browse Source
This commit is contained in:
pierre 2004-02-18 05:50:38 +00:00
parent b38d7f59f4
commit a26413a78a
2 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fv/msgbox.pas
View File

@ -277,10 +277,10 @@ begin
ButtonName[1] := Labels^.Get(slNo); ButtonName[1] := Labels^.Get(slNo);
ButtonName[2] := Labels^.Get(slOk); ButtonName[2] := Labels^.Get(slOk);
ButtonName[3] := Labels^.Get(slCancel); ButtonName[3] := Labels^.Get(slCancel);
Titles[0] := Labels^.Get(sWarning); Titles[0] := Strings^.Get(sWarning);
Titles[1] := Labels^.Get(sError); Titles[1] := Strings^.Get(sError);
Titles[2] := Labels^.Get(sInformation); Titles[2] := Strings^.Get(sInformation);
Titles[3] := Labels^.Get(sConfirm); Titles[3] := Strings^.Get(sConfirm);
end; end;
procedure DoneMsgBox; procedure DoneMsgBox;
@ -291,7 +291,10 @@ END.
{ {
$Log$ $Log$
Revision 1.4 2002-09-07 15:06:38 peter Revision 1.5 2004-02-18 05:50:38 pierre
*fix for MessageBox error by Berthold Studemund
Revision 1.4 2002/09/07 15:06:38 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
} }

13
fvision/msgbox.pas
View File

@ -277,10 +277,10 @@ begin
ButtonName[1] := Labels^.Get(slNo); ButtonName[1] := Labels^.Get(slNo);
ButtonName[2] := Labels^.Get(slOk); ButtonName[2] := Labels^.Get(slOk);
ButtonName[3] := Labels^.Get(slCancel); ButtonName[3] := Labels^.Get(slCancel);
Titles[0] := Labels^.Get(sWarning); Titles[0] := Strings^.Get(sWarning);
Titles[1] := Labels^.Get(sError); Titles[1] := Strings^.Get(sError);
Titles[2] := Labels^.Get(sInformation); Titles[2] := Strings^.Get(sInformation);
Titles[3] := Labels^.Get(sConfirm); Titles[3] := Strings^.Get(sConfirm);
end; end;
procedure DoneMsgBox; procedure DoneMsgBox;
@ -291,7 +291,10 @@ END.
{ {
$Log$ $Log$
Revision 1.4 2002-09-07 15:06:38 peter Revision 1.5 2004-02-18 05:50:38 pierre
*fix for MessageBox error by Berthold Studemund
Revision 1.4 2002/09/07 15:06:38 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
} }