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

designer: replace "Cancel" button on all error dialogs with "Ok" button

Browse Source 
git-svn-id: trunk@22814 -
This commit is contained in:
paul 2009-11-27 02:35:29 +00:00
parent 5c523c50a9
commit 3058df5224
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
designer/designer.pp
View File

@ -807,7 +807,7 @@ function TDesigner.CopySelectionToStream(AllComponentsStream: TStream): boolean;
if CurParent=nil then begin if CurParent=nil then begin
MessageDlg(lisCanNotCopyTopLevelComponent, MessageDlg(lisCanNotCopyTopLevelComponent,
lisCopyingAWholeFormIsNotImplemented, lisCopyingAWholeFormIsNotImplemented,
mtError,[mbCancel],0); mtError,[mbOk],0);
exit; exit;
end; end;
@ -866,7 +866,7 @@ begin
MessageDlg(lisUnableToStreamSelectedComponents, MessageDlg(lisUnableToStreamSelectedComponents,
Format(lisThereWasAnErrorDuringWritingTheSelectedComponent, [ Format(lisThereWasAnErrorDuringWritingTheSelectedComponent, [
CurComponent.Name, CurComponent.ClassName, #13, E.Message]), CurComponent.Name, CurComponent.ClassName, #13, E.Message]),
mtError,[mbCancel],0); mtError,[mbOk],0);
exit; exit;
end; end;
end; end;
@ -879,7 +879,7 @@ begin
MessageDlg(lisUnableConvertBinaryStreamToText, MessageDlg(lisUnableConvertBinaryStreamToText,
Format(lisThereWasAnErrorWhileConvertingTheBinaryStreamOfThe, [ Format(lisThereWasAnErrorWhileConvertingTheBinaryStreamOfThe, [
CurComponent.Name, CurComponent.ClassName, #13, E.Message]), CurComponent.Name, CurComponent.ClassName, #13, E.Message]),
mtError,[mbCancel],0); mtError,[mbOk],0);
exit; exit;
end; end;
end; end;
@ -927,7 +927,7 @@ begin
MessageDlg(lisUnableCopyComponentsToClipboard, MessageDlg(lisUnableCopyComponentsToClipboard,
Format(lisThereWasAnErrorWhileCopyingTheComponentStreamToCli, [#13, Format(lisThereWasAnErrorWhileCopyingTheComponentStreamToCli, [#13,
E.Message]), E.Message]),
mtError,[mbCancel],0); mtError,[mbOk],0);
exit; exit;
end; end;
end; end;
@ -1831,7 +1831,7 @@ var
IDEMessageDialog(lisInvalidCircle, IDEMessageDialog(lisInvalidCircle,
Format(lisIsAThisCircleDependencyIsNotAllowed, [dbgsName(LookupRoot), Format(lisIsAThisCircleDependencyIsNotAllowed, [dbgsName(LookupRoot),
dbgsName(NewComponentClass), #13]), dbgsName(NewComponentClass), #13]),
mtError,[mbCancel],''); mtError,[mbOk],'');
exit; exit;
end; end;
@ -2320,7 +2320,7 @@ begin
if ControlSelection.Count>1 then if ControlSelection.Count>1 then
MessageDlg(lisInvalidDelete, MessageDlg(lisInvalidDelete,
lisTheRootComponentCanNotBeDeleted, mtInformation, lisTheRootComponentCanNotBeDeleted, mtInformation,
[mbCancel],0); [mbOk],0);
exit; exit;
end; end;
// check if a selected component is inherited (can not be deleted) // check if a selected component is inherited (can not be deleted)
@ -2332,7 +2332,7 @@ begin
MessageDlg(lisInvalidDelete, MessageDlg(lisInvalidDelete,
Format(lisTheComponentIsInheritedFromToDeleteAnInheritedComp, [dbgsName( Format(lisTheComponentIsInheritedFromToDeleteAnInheritedComp, [dbgsName(
ControlSelection[i].Persistent), dbgsName(AncestorRoot), #13]), ControlSelection[i].Persistent), dbgsName(AncestorRoot), #13]),
mtInformation, [mbCancel],0); mtInformation, [mbOk],0);
exit; exit;
end; end;
end; end;
@ -2344,7 +2344,7 @@ begin
MessageDlg(lisInvalidDelete, MessageDlg(lisInvalidDelete,
Format(lisTheComponentCanNotBeDeletedBecauseItIsNotOwnedBy, [dbgsName( Format(lisTheComponentCanNotBeDeletedBecauseItIsNotOwnedBy, [dbgsName(
ControlSelection[i].Persistent), dbgsName(FLookupRoot)]), ControlSelection[i].Persistent), dbgsName(FLookupRoot)]),
mtInformation, [mbCancel],0); mtInformation, [mbOk],0);
exit; exit;
end; end;
end; end;