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

changed mbOk to mbYes for asking to add unit to project

Browse Source 
git-svn-id: trunk@5188 -
This commit is contained in:
mattias 2004-02-10 00:45:50 +00:00
parent 235b2e1884
commit 61e525b79d
1 changed files with 4 additions and 1 deletions

5
ide/main.pp
View File

@ -5620,7 +5620,7 @@ begin
lisUnableToAddToProjectBecauseThereIsAlreadyAUnitWith, [s]),
mtInformation, [mbOk], 0);
end else begin
if MessageDlg(Format(lisAddToProject, [s]), mtConfirmation, [mbOk,
if MessageDlg(Format(lisAddToProject, [s]), mtConfirmation, [mbYes,
mbCancel], 0)
=mrOk then
begin
@ -10316,6 +10316,9 @@ end.
{ =============================================================================
$Log$
Revision 1.710 2004/02/10 00:45:50 mattias
changed mbOk to mbYes for asking to add unit to project
Revision 1.709 2004/02/04 13:40:18 mattias
ShortCutToText now deletes any modifier