Skip to content

Commit c01f97a

Browse files
ollydevollydev
committed
Update examples
1 parent 6af4d92 commit c01f97a

File tree

8 files changed

+70
-64
lines changed

8 files changed

+70
-64
lines changed

‎Examples/form_imagebox.simba‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22

33
procedure ImgBoxPaint(Sender: TImageBox; Canvas: TImageBoxCanvas; R: TLazRect);
44
begin
5-
Canvas.DrawCircleFilled(Sender.MousePoint, 5, Colors.YELLOW);
5+
Canvas.DrawCircleFilled(Sender.MouseXY, 5, Colors.YELLOW);
66

77
// if 300,300 is visible in the paint rect
88
if (300 >= R.Left) and (300 >= R.Top) and (300 <= R.Right) and (300 <= R.Bottom) then

‎Examples/json_read.simba‎

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -8,12 +8,13 @@ const
88
'}';
99

1010
var
11-
json: TJSONItem;
11+
json: TJSONParser;
1212
I: Integer;
1313
street: String;
1414
postal: Int64;
1515
begin
16-
json := ParseJSON(SOME_JSON);
16+
json := new TJSONParser();
17+
json.Parse(SOME_JSON);
1718

1819
// if you the structure ...
1920
if json.GetString('streetAddress', street) then
@@ -38,6 +39,4 @@ begin
3839
EJSONType.STR: WriteLn(' Value = ', json.Item[i].AsString);
3940
end;
4041
end;
41-
42-
json.Free();
4342
end;

‎Examples/json_write.simba‎

Lines changed: 4 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,25 +1,23 @@
11
var
22
json, jsonArr, jsonObj: TJSONItem;
33
begin
4-
json := NewJSONObject();
4+
json := new TJSONObject();
55
json.AddString('str', 'str');
66
json.AddInt('int', 12345);
77
json.AddFloat('float', 1.23);
88
json.AddBool('bool', True);
99

10-
jsonArr := NewJSONArray();
10+
jsonArr := new TJSONArray();
1111
jsonArr.AddInt('', 1);
1212
jsonArr.AddInt('', 2);
1313
jsonArr.AddBool('', True);
1414
jsonArr.AddFloat('', 1.23);
1515

16-
jsonObj := NewJSONObject();
16+
jsonObj := new TJSONObject();
1717
jsonObj.AddString('key', 'value');
1818

1919
json.AddArray('array', jsonArr);
2020
json.AddObject('obj', jsonObj);
2121

22-
WriteLn json.ToJSON;
23-
24-
json.Free();
22+
WriteLn json.Format();
2523
end;

‎Examples/mouse_path.simba‎

Lines changed: 26 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,26 @@
1+
var
2+
Paths: T2DPointArray; // stores the teleport events so we can view at the end
3+
4+
procedure MouseTeleportEvent(Target: TTarget; Data: TTargetEventData);
5+
begin
6+
Paths[High(Paths)] += [Data.MouseTeleport.X, Data.MouseTeleport.Y];
7+
end;
8+
9+
var img: TImage;
10+
begin
11+
// uncomment the following for a consistent result every run!
12+
//RandSeed := 123;
13+
14+
Target.AddEvent(ETargetEvent.MOUSE_TELEPORT, @MouseTeleportEvent);
15+
16+
for 1 to 5 do
17+
begin
18+
SetLength(Paths, Length(Paths) + 1);
19+
Target.MouseTeleport([200,200]);
20+
Target.MouseMove([1400,800]);
21+
end;
22+
23+
img := new TImage(1800, 1200);
24+
img.DrawATPA(Paths);
25+
img.Show();
26+
end;

‎Examples/mouse_teleport_event.simba‎

Lines changed: 0 additions & 21 deletions
This file was deleted.

‎Source/Simba.lpi‎

Lines changed: 30 additions & 26 deletions
Original file line numberDiff line numberDiff line change
@@ -20,32 +20,32 @@
2020
<Resources Count="28">
2121
<Resource_0 FileName="..\Examples\array.simba" Type="RCDATA" ResourceName="EXAMPLE_ARRAY"/>
2222
<Resource_1 FileName="..\Examples\function.simba" Type="RCDATA" ResourceName="EXAMPLE_FUNCTION"/>
23-
<Resource_2 FileName="..\Examples\loop.simba" Type="RCDATA" ResourceName="EXAMPLE_LOOP"/>
24-
<Resource_3 FileName="..\Examples\stopwatch.simba" Type="RCDATA" ResourceName="EXAMPLE_STOPWATCH"/>
25-
<Resource_4 FileName="..\Examples\image.simba" Type="RCDATA" ResourceName="EXAMPLE_IMAGE"/>
26-
<Resource_10 FileName="..\Examples\image_drawtext.simba" Type="RCDATA" ResourceName="EXAMPLE_IMAGE_DRAW_TEXT"/>
27-
<Resource_5 FileName="..\Examples\cluster_points.simba" Type="RCDATA" ResourceName="EXAMPLE_CLUSTER_POINTS"/>
28-
<Resource_6 FileName="..\Examples\mouse_teleport_event.simba" Type="RCDATA" ResourceName="EXAMPLE_MOUSE_TELEPORT_EVENT"/>
29-
<Resource_7 FileName="..\Examples\static_method.simba" Type="RCDATA" ResourceName="EXAMPLE_STATIC_METHOD"/>
23+
<Resource_2 FileName="..\Examples\static_method.simba" Type="RCDATA" ResourceName="EXAMPLE_STATIC_METHOD"/>
24+
<Resource_3 FileName="..\Examples\loop.simba" Type="RCDATA" ResourceName="EXAMPLE_LOOP"/>
25+
<Resource_4 FileName="..\Examples\stopwatch.simba" Type="RCDATA" ResourceName="EXAMPLE_STOPWATCH"/>
26+
<Resource_5 FileName="..\Examples\image.simba" Type="RCDATA" ResourceName="EXAMPLE_IMAGE"/>
27+
<Resource_6 FileName="..\Examples\image_drawtext.simba" Type="RCDATA" ResourceName="EXAMPLE_IMAGE_DRAW_TEXT"/>
28+
<Resource_7 FileName="..\Examples\cluster_points.simba" Type="RCDATA" ResourceName="EXAMPLE_CLUSTER_POINTS"/>
3029
<Resource_8 FileName="..\Examples\form.simba" Type="RCDATA" ResourceName="EXAMPLE_FORM"/>
31-
<Resource_11 FileName="..\Examples\form_imagebox.simba" Type="RCDATA" ResourceName="EXAMPLE_FORM_IMAGEBOX"/>
32-
<Resource_26 FileName="..\Examples\form_dragablepanel.simba" Type="RCDATA" ResourceName="EXAMPLE_FORM_DRAGABLE_PANEL"/>
33-
<Resource_9 FileName="..\Examples\irc.simba" Type="RCDATA" ResourceName="EXAMPLE_IRC"/>
34-
<Resource_12 FileName="..\Examples\randomleft.simba" Type="RCDATA" ResourceName="EXAMPLE_RANDOM_LEFT"/>
35-
<Resource_13 FileName="..\Examples\method-property.simba" Type="RCDATA" ResourceName="EXAMPLE_METHOD_PROPERTY"/>
36-
<Resource_14 FileName="..\Examples\method-property-index.simba" Type="RCDATA" ResourceName="EXAMPLE_METHOD_PROPERTY_INDEX"/>
37-
<Resource_15 FileName="..\Examples\json_read.simba" Type="RCDATA" ResourceName="EXAMPLE_JSON_READ"/>
38-
<Resource_16 FileName="..\Examples\json_write.simba" Type="RCDATA" ResourceName="EXAMPLE_JSON_WRITE"/>
39-
<Resource_17 FileName="..\Images\tick.png" Type="RCDATA" ResourceName="TICK"/>
40-
<Resource_18 FileName="..\Images\tick_150.png" Type="RCDATA" ResourceName="TICK_150"/>
41-
<Resource_19 FileName="..\Images\tick_200.png" Type="RCDATA" ResourceName="TICK_200"/>
42-
<Resource_20 FileName="..\Images\arrow_down.png" Type="RCDATA" ResourceName="ARROW_DOWN"/>
43-
<Resource_21 FileName="..\Images\arrow_down_150.png" Type="RCDATA" ResourceName="ARROW_DOWN_150"/>
44-
<Resource_22 FileName="..\Images\arrow_down_200.png" Type="RCDATA" ResourceName="ARROW_DOWN_200"/>
45-
<Resource_23 FileName="..\Images\arrow_right.png" Type="RCDATA" ResourceName="ARROW_RIGHT"/>
46-
<Resource_24 FileName="..\Images\arrow_right_150.png" Type="RCDATA" ResourceName="ARROW_RIGHT_150"/>
47-
<Resource_25 FileName="..\Images\arrow_right_200.png" Type="RCDATA" ResourceName="ARROW_RIGHT_200"/>
48-
<Resource_27 FileName="..\Examples\asyncmouse.simba" Type="RCDATA" ResourceName="EXAMPLE_ASYNCMOUSE"/>
30+
<Resource_9 FileName="..\Examples\form_dragablepanel.simba" Type="RCDATA" ResourceName="EXAMPLE_FORM_DRAGABLE_PANEL"/>
31+
<Resource_10 FileName="..\Examples\form_imagebox.simba" Type="RCDATA" ResourceName="EXAMPLE_FORM_IMAGEBOX"/>
32+
<Resource_11 FileName="..\Examples\irc.simba" Type="RCDATA" ResourceName="EXAMPLE_IRC"/>
33+
<Resource_12 FileName="..\Examples\asyncmouse.simba" Type="RCDATA" ResourceName="EXAMPLE_ASYNCMOUSE"/>
34+
<Resource_13 FileName="..\Examples\mouse_path.simba" Type="RCDATA" ResourceName="MOUSE_PATH"/>
35+
<Resource_14 FileName="..\Examples\randomleft.simba" Type="RCDATA" ResourceName="EXAMPLE_RANDOM_LEFT"/>
36+
<Resource_15 FileName="..\Examples\method-property.simba" Type="RCDATA" ResourceName="EXAMPLE_METHOD_PROPERTY"/>
37+
<Resource_16 FileName="..\Examples\method-property-index.simba" Type="RCDATA" ResourceName="EXAMPLE_METHOD_PROPERTY_INDEX"/>
38+
<Resource_17 FileName="..\Examples\json_read.simba" Type="RCDATA" ResourceName="EXAMPLE_JSON_READ"/>
39+
<Resource_18 FileName="..\Examples\json_write.simba" Type="RCDATA" ResourceName="EXAMPLE_JSON_WRITE"/>
40+
<Resource_19 FileName="..\Images\tick.png" Type="RCDATA" ResourceName="TICK"/>
41+
<Resource_20 FileName="..\Images\tick_150.png" Type="RCDATA" ResourceName="TICK_150"/>
42+
<Resource_21 FileName="..\Images\tick_200.png" Type="RCDATA" ResourceName="TICK_200"/>
43+
<Resource_22 FileName="..\Images\arrow_down.png" Type="RCDATA" ResourceName="ARROW_DOWN"/>
44+
<Resource_23 FileName="..\Images\arrow_down_150.png" Type="RCDATA" ResourceName="ARROW_DOWN_150"/>
45+
<Resource_24 FileName="..\Images\arrow_down_200.png" Type="RCDATA" ResourceName="ARROW_DOWN_200"/>
46+
<Resource_25 FileName="..\Images\arrow_right.png" Type="RCDATA" ResourceName="ARROW_RIGHT"/>
47+
<Resource_26 FileName="..\Images\arrow_right_150.png" Type="RCDATA" ResourceName="ARROW_RIGHT_150"/>
48+
<Resource_27 FileName="..\Images\arrow_right_200.png" Type="RCDATA" ResourceName="ARROW_RIGHT_200"/>
4949
</Resources>
5050
</General>
5151
<VersionInfo>
@@ -477,7 +477,7 @@
477477
<PackageName Value="LCL"/>
478478
</Item5>
479479
</RequiredPackages>
480-
<Units Count="88">
480+
<Units Count="89">
481481
<Unit0>
482482
<Filename Value="Simba.lpr"/>
483483
<IsPartOfProject Value="True"/>
@@ -881,6 +881,10 @@
881881
<Filename Value="simba.target_asyncmovemouse.pas"/>
882882
<IsPartOfProject Value="True"/>
883883
</Unit87>
884+
<Unit88>
885+
<Filename Value="simba.multiprocessing.pas"/>
886+
<IsPartOfProject Value="True"/>
887+
</Unit88>
884888
</Units>
885889
</ProjectOptions>
886890
<CompilerOptions>

‎Source/simba.res‎

-108 Bytes
Binary file not shown.

‎Tests/target_brightness.simba‎

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -11,12 +11,12 @@ begin
1111
Target.SetImage(img);
1212

1313
// entire target
14-
Assert(Target.GetBrightness(ETargetBrightnessAlgo.MEAN) = 14);
15-
Assert(Target.GetBrightness(ETargetBrightnessAlgo.MIN) = 13);
16-
Assert(Target.GetBrightness(ETargetBrightnessAlgo.MAX) = 147);
14+
Assert(Target.GetBrightness(EBrightnessAlgo.MEAN) = 14);
15+
Assert(Target.GetBrightness(EBrightnessAlgo.MIN) = 13);
16+
Assert(Target.GetBrightness(EBrightnessAlgo.MAX) = 147);
1717

1818
// just the green
19-
Assert(Target.GetBrightness(ETargetBrightnessAlgo.MEAN, [10,10,15,15]) = 147);
20-
Assert(Target.GetBrightness(ETargetBrightnessAlgo.MIN, [10,10,15,15]) = 147);
21-
Assert(Target.GetBrightness(ETargetBrightnessAlgo.MAX, [10,10,15,15]) = 147);
19+
Assert(Target.GetBrightness(EBrightnessAlgo.MEAN, [10,10,15,15]) = 147);
20+
Assert(Target.GetBrightness(EBrightnessAlgo.MIN, [10,10,15,15]) = 147);
21+
Assert(Target.GetBrightness(EBrightnessAlgo.MAX, [10,10,15,15]) = 147);
2222
end.

0 commit comments

Comments
 (0)