moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-24 02:02:17 -05:00
Code Issues Releases Wiki Activity

libMML: Changed the indentation.

Browse Source
This commit is contained in:
Merlijn Wajer 2011-07-17 19:51:16 +02:00
parent 62ee91ab89
commit 851c5a8b36
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_UP = 0;
MOUSE_DOWN = 1; 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 var
last_error: String; last_error: String;
debug: boolean; debug: boolean;
@ -144,9 +149,7 @@ function get_mouse_pos(C: TClient; var t: tpoint): integer; cdecl;
begin begin
if not validate_client(C) then if not validate_client(C) then
begin
exit(RESULT_ERROR); exit(RESULT_ERROR);
end;
try try
C.IOManager.GetMousePos(t.x,t.y); C.IOManager.GetMousePos(t.x,t.y);
@ -515,7 +518,7 @@ begin
cts := C.MFinder.GetToleranceSpeed; cts := C.MFinder.GetToleranceSpeed;
result := RESULT_OK; result := RESULT_OK;
except on e: Exception do except on e: Exception do
begin; begin
set_last_error(e.message); set_last_error(e.message);
result := RESULT_ERROR; result := RESULT_ERROR;
end end
@ -529,7 +532,7 @@ begin
C.MFinder.SetToleranceSpeed2Modifiers(nHue, nSat); C.MFinder.SetToleranceSpeed2Modifiers(nHue, nSat);
result := RESULT_OK; result := RESULT_OK;
except on e : Exception do except on e : Exception do
begin; begin
set_last_error(e.message); set_last_error(e.message);
result := RESULT_ERROR; result := RESULT_ERROR;
end; end;
@ -547,7 +550,7 @@ begin
satMod := s; satMod := s;
result := RESULT_OK; result := RESULT_OK;
except on e : Exception do except on e : Exception do
begin; begin
set_last_error(e.message); set_last_error(e.message);
result := RESULT_ERROR; result := RESULT_ERROR;
end; end;
@ -677,7 +680,7 @@ begin
C.IOManager.SetTarget(Arr, Size); C.IOManager.SetTarget(Arr, Size);
result := RESULT_OK; result := RESULT_OK;
except on e : Exception do except on e : Exception do
begin; begin
set_last_error(e.message); set_last_error(e.message);
result := RESULT_FALSE; result := RESULT_FALSE;
end; end;