moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-30 23:00:18 -05:00
Code Issues Releases Wiki Activity

Resolve Mantis 26

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@411 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2010-01-13 22:35:20 +00:00
parent 6c20e1a390
commit fedc6a635e
1 changed files with 18 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
Projects/SAMufasaGUI/testunit.pas
View File

@ -912,8 +912,8 @@ begin
CurrScript.SynEdit.CopyToClipboard
else if Memo1.Focused then
Memo1.CopyToClipboard
else
Writeln(Sender.ToString);
{ else
Writeln(Sender.ToString); }
end;
procedure TForm1.ActionCutExecute(Sender: TObject);
@ -1813,23 +1813,25 @@ begin;
if ScriptState <> ss_Stopping then
begin
result := False;
Case MessageBox(0,pchar('Do you want to stop the script?'), Pchar('Script is still running.'),
MB_YESNOCANCEL or MB_ICONQUESTION) of
IDYES : StopScript;
end;
case MessageDlg('Script is still running', 'Do you want to stop the script?',
mtConfirmation, mbYesNoCancel, 0) of
mrYes: StopScript;
end;
end else
Case MessageBox(0,pchar('Do you want to terminate the script?'), Pchar('Script is stopping.'),
MB_YESNOCANCEL or MB_ICONQUESTION) of
IDNO,IDCancel: Result := false;
IDYES : StopScript;
end;
case MessageDlg('Script is stopping.', 'Do you want to terminate the script?',
mtConfirmation, mbYesNoCancel, 0) of
mrNo, mrCancel: Result := false;
mrYes: StopScript;
end;
end;
if Result and (CurrScript.StartText <> CurrScript.SynEdit.Lines.text) then
Case MessageBox(0,pchar('Do you want to save the script?'), Pchar('Script has been modified.'),
MB_YESNOCANCEL or MB_ICONQUESTION) of
IDCANCEL : Result := False;
IDYES : Result := SaveCurrentScript;
end;
begin
case MessageDlg('Script has been modified.', 'Do you want to save the script?',
mtConfirmation, mbYesNoCancel, 0) of
mrCancel : Result := False;
mrYes : Result := SaveCurrentScript;
end;
end;
Self.Enabled := True;
if Self.CanFocus then
Self.SetFocus;