moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

libMML: Changed the indentation.

This commit is contained in:
Merlijn Wajer 2011-07-17 19:51:16 +02:00
parent 8abd502580
commit 153025f080
1 changed files with 356 additions and 353 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Projects/libmml/libmml.lpr
View File

@ -15,6 +15,11 @@ Const
MOUSE_UP = 0;
MOUSE_DOWN = 1;
{
Global variables.
To actually read the last_error, make sure you copy it to a safe place
directly after the function call.
}
var
last_error: String;
debug: boolean;
@ -144,9 +149,7 @@ function get_mouse_pos(C: TClient; var t: tpoint): integer; cdecl;
begin
if not validate_client(C) then
begin
exit(RESULT_ERROR);
end;
try
C.IOManager.GetMousePos(t.x,t.y);
@ -515,7 +518,7 @@ begin
cts := C.MFinder.GetToleranceSpeed;
result := RESULT_OK;
except on e: Exception do
begin;
begin
set_last_error(e.message);
result := RESULT_ERROR;
end
@ -529,7 +532,7 @@ begin
C.MFinder.SetToleranceSpeed2Modifiers(nHue, nSat);
result := RESULT_OK;
except on e : Exception do
begin;
begin
set_last_error(e.message);
result := RESULT_ERROR;
end;
@ -547,7 +550,7 @@ begin
satMod := s;
result := RESULT_OK;
except on e : Exception do
begin;
begin
set_last_error(e.message);
result := RESULT_ERROR;
end;
@ -677,7 +680,7 @@ begin
C.IOManager.SetTarget(Arr, Size);
result := RESULT_OK;
except on e : Exception do
begin;
begin
set_last_error(e.message);
result := RESULT_FALSE;
end;