mirror of
https://github.com/moparisthebest/Simba
synced 2024-10-31 15:35:12 -04:00
Compare commits
21 Commits
simba-0.97
...
master
Author | SHA1 | Date | |
---|---|---|---|
03c94f443a | |||
|
b9fe547613 | ||
|
e60a542c45 | ||
|
5e7cf81f13 | ||
|
2833b60142 | ||
|
b11cf8bd53 | ||
|
c7a6f55b66 | ||
|
d6117264d2 | ||
|
ab08afd9c1 | ||
|
b1f02535ff | ||
|
c899b4e61b | ||
|
65c4fdbd08 | ||
|
1ea613bfb5 | ||
|
41e580273c | ||
|
7d2ef3bff6 | ||
|
23e518f531 | ||
|
96025597f9 | ||
|
4be1b4009d | ||
|
058f6bef69 | ||
|
93f44aa95e | ||
|
d25b86624d |
55
Doc/Makefile
55
Doc/Makefile
@ -1,39 +1,16 @@
|
|||||||
|
.PHONY: default clean tarball
|
||||||
.PHONY: default clean intro psbook html all
|
|
||||||
|
core = client ocr
|
||||||
intro_ := mufasa_intro
|
|
||||||
psbook_ := mufasa_ps_handbook
|
all:
|
||||||
book_ := mufasa_handbook
|
@python docgen.py `echo $(core) | sed -r \
|
||||||
dev_ := mufasa_developers
|
's/(\w+)/..\/Units\/MMLCore\/\1.pas/g'` > /dev/null
|
||||||
|
@make -C sphinx/ html
|
||||||
default: tex
|
|
||||||
|
clean:
|
||||||
clean:
|
@rm -f `echo $(core) | sed -r 's/(\w+)/sphinx\/\1.rst/g'`
|
||||||
rm -rvf $(intro_)
|
@make -C sphinx/ clean
|
||||||
rm -rvf $(psbook_)
|
|
||||||
rm -rvf $(book_)
|
tarball:
|
||||||
rm -rvf $(dev_)
|
@$(MAKE) all
|
||||||
find -iname "$(intro_)*" | grep -v svn | grep -v tex | xargs rm -vf
|
@tar cjf doc.tar.bz2 -C sphinx/_build/ html
|
||||||
find -iname "$(psbook_)*" | grep -v svn | grep -v tex | xargs rm -vf
|
|
||||||
find -iname "$(book_)*" | grep -v svn | grep -v tex | xargs rm -vf
|
|
||||||
find -iname "$(dev_)*" | grep -v svn | grep -v tex | xargs rm -vf
|
|
||||||
$(MAKE) -C Pics/ clean
|
|
||||||
|
|
||||||
tex:
|
|
||||||
$(MAKE) -C Pics/
|
|
||||||
texi2pdf $(intro_).tex #--silent
|
|
||||||
texi2pdf $(psbook_).tex #--silent
|
|
||||||
texi2pdf $(book_).tex #--silent
|
|
||||||
texi2pdf $(dev_).tex #--silent
|
|
||||||
|
|
||||||
|
|
||||||
html:
|
|
||||||
$(MAKE) -C Pics/
|
|
||||||
latex2html $(intro_).tex -local_icons -nofootnode
|
|
||||||
latex2html $(psbook_).tex -local_icons -nofootnode
|
|
||||||
latex2html $(book_).tex -local_icons -nofootnode
|
|
||||||
latex2html $(dev_).tex -local_icons -nofootnode
|
|
||||||
|
|
||||||
sphinx:
|
|
||||||
$(MAKE) -C Pics/
|
|
||||||
$(MAKE) html -C sphinx
|
|
||||||
|
39
Doc/Makefile_outdated
Normal file
39
Doc/Makefile_outdated
Normal file
@ -0,0 +1,39 @@
|
|||||||
|
|
||||||
|
.PHONY: default clean intro psbook html all
|
||||||
|
|
||||||
|
intro_ := mufasa_intro
|
||||||
|
psbook_ := mufasa_ps_handbook
|
||||||
|
book_ := mufasa_handbook
|
||||||
|
dev_ := mufasa_developers
|
||||||
|
|
||||||
|
default: tex
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -rvf $(intro_)
|
||||||
|
rm -rvf $(psbook_)
|
||||||
|
rm -rvf $(book_)
|
||||||
|
rm -rvf $(dev_)
|
||||||
|
find -iname "$(intro_)*" | grep -v svn | grep -v tex | xargs rm -vf
|
||||||
|
find -iname "$(psbook_)*" | grep -v svn | grep -v tex | xargs rm -vf
|
||||||
|
find -iname "$(book_)*" | grep -v svn | grep -v tex | xargs rm -vf
|
||||||
|
find -iname "$(dev_)*" | grep -v svn | grep -v tex | xargs rm -vf
|
||||||
|
$(MAKE) -C Pics/ clean
|
||||||
|
|
||||||
|
tex:
|
||||||
|
$(MAKE) -C Pics/
|
||||||
|
texi2pdf $(intro_).tex #--silent
|
||||||
|
texi2pdf $(psbook_).tex #--silent
|
||||||
|
texi2pdf $(book_).tex #--silent
|
||||||
|
texi2pdf $(dev_).tex #--silent
|
||||||
|
|
||||||
|
|
||||||
|
html:
|
||||||
|
$(MAKE) -C Pics/
|
||||||
|
latex2html $(intro_).tex -local_icons -nofootnode
|
||||||
|
latex2html $(psbook_).tex -local_icons -nofootnode
|
||||||
|
latex2html $(book_).tex -local_icons -nofootnode
|
||||||
|
latex2html $(dev_).tex -local_icons -nofootnode
|
||||||
|
|
||||||
|
sphinx:
|
||||||
|
$(MAKE) -C Pics/
|
||||||
|
$(MAKE) html -C sphinx
|
22
Doc/docgen.py
Normal file
22
Doc/docgen.py
Normal file
@ -0,0 +1,22 @@
|
|||||||
|
import re
|
||||||
|
from sys import argv
|
||||||
|
|
||||||
|
files = argv[1:]
|
||||||
|
|
||||||
|
commentregex = re.compile('\(\*.+?\*\)', re.DOTALL)
|
||||||
|
|
||||||
|
for file in files:
|
||||||
|
print file
|
||||||
|
f = open(file)
|
||||||
|
p = file.rfind('/')
|
||||||
|
filetrim = file[p+1:]
|
||||||
|
p = filetrim.rfind('.pas')
|
||||||
|
filetrim2 = filetrim[:p]
|
||||||
|
|
||||||
|
o = open('sphinx/mmlref/%s.rst' % filetrim2, 'w+')
|
||||||
|
c = ''.join([x for x in f])
|
||||||
|
res = commentregex.findall(c)
|
||||||
|
for y in res:
|
||||||
|
o.write(y[2:][:-2])
|
||||||
|
o.close()
|
||||||
|
f.close()
|
@ -1,5 +1,27 @@
|
|||||||
# Change a minus to a plus when something is being worked on.
|
Check scriptref/dtm.rst, it look overly complicated with all the different
|
||||||
# Remove it when you are done.
|
types. (MDTM, DDTM, TSDTM)....
|
||||||
|
Add examples to files in scriptref:
|
||||||
|
|
||||||
|
- [ ] bitmaps.rst
|
||||||
|
- [ ] colourconverting.rst
|
||||||
|
- [ ] colourfinding.rst
|
||||||
|
- [ ] dtm.rst
|
||||||
|
- [ ] files.rst
|
||||||
|
- [/] mouseandkeyboard.rst
|
||||||
|
- [ ] ocr.rst
|
||||||
|
- [ ] sound.rst
|
||||||
|
- [ ] string.rst
|
||||||
|
- [ ] tpa.rst
|
||||||
|
- [ ] web.rst
|
||||||
|
- [ ] window.rst
|
||||||
|
|
||||||
|
# ADDING CONTENT
|
||||||
|
|
||||||
|
- Create a list of Simba Extensions. If the extension has a doc on it's own,
|
||||||
|
dont forget to link to it.
|
||||||
|
- Write mmlref / article (only for developers of Simba)
|
||||||
|
- Write tutorial?
|
||||||
|
- Write about Simba Stable/Unstable.
|
||||||
|
|
||||||
# GENERAL
|
# GENERAL
|
||||||
|
|
||||||
@ -12,13 +34,3 @@
|
|||||||
seems to use it).
|
seems to use it).
|
||||||
- Find stuff to add to this list.
|
- Find stuff to add to this list.
|
||||||
|
|
||||||
# ADDING CONTENT
|
|
||||||
|
|
||||||
- Create a list of Simba Extensions. If the extension has a doc on it's own,
|
|
||||||
dont forget to link to it.
|
|
||||||
- Create scriptref/ articles. A lot of functionality that Simba exposes to the
|
|
||||||
Scripters is currently not documented.
|
|
||||||
- Write mmlref/ article (only for developers of Simba)
|
|
||||||
- Write tutorial?
|
|
||||||
- Fix up articles?
|
|
||||||
- Write about Simba Stable/Unstable.
|
|
||||||
|
@ -18,10 +18,12 @@ an integer:
|
|||||||
.. code-block:: pascal
|
.. code-block:: pascal
|
||||||
|
|
||||||
var bmp, x, y: integer;
|
var bmp, x, y: integer;
|
||||||
bmp := CreateBitmap(10, 10); // Create a bitmap of size (10, 10)
|
begin
|
||||||
if FindBitmapIn(bmp, x, y, 0, 0, 300, 300) then
|
bmp := CreateBitmap(10, 10); // Create a bitmap of size (10, 10)
|
||||||
writeln('Found it!');
|
if FindBitmapIn(bmp, x, y, 0, 0, 300, 300) then
|
||||||
FreeBitmap(bmp); // Don't forget to free it when we are done.
|
writeln('Found it!');
|
||||||
|
FreeBitmap(bmp); // Don't forget to free it when we are done.
|
||||||
|
end;
|
||||||
|
|
||||||
Note that the previous example doesn't make a lot of sense as the bitmap has
|
Note that the previous example doesn't make a lot of sense as the bitmap has
|
||||||
only been created and not filled with any colours, they are as of yet,
|
only been created and not filled with any colours, they are as of yet,
|
||||||
@ -33,7 +35,7 @@ function.
|
|||||||
Word of caution on bitmap creation
|
Word of caution on bitmap creation
|
||||||
----------------------------------
|
----------------------------------
|
||||||
|
|
||||||
Bitmaps in Simba are internally all instances of *TMufasBitmap*. Scripts should
|
Bitmaps in Simba are internally all instances of *TMufasaBitmap*. Scripts should
|
||||||
generally access bitmaps using their *handle*: an integer. All functions
|
generally access bitmaps using their *handle*: an integer. All functions
|
||||||
referenced here either require a bitmap *handle* or return one.
|
referenced here either require a bitmap *handle* or return one.
|
||||||
|
|
||||||
@ -46,7 +48,9 @@ free it again)
|
|||||||
.. code-block:: pascal
|
.. code-block:: pascal
|
||||||
|
|
||||||
var bmp: TMufasaBitmap;
|
var bmp: TMufasaBitmap;
|
||||||
bmp := TMufasBitmap.Create;
|
begin
|
||||||
|
bmp := TMufasBitmap.Create;
|
||||||
|
end;
|
||||||
|
|
||||||
Because there is no way to get a *handle* to this bitmap; as it will not be
|
Because there is no way to get a *handle* to this bitmap; as it will not be
|
||||||
managed by Simba internally. (All Bitmaps created by *CreateBitmap* are managed
|
managed by Simba internally. (All Bitmaps created by *CreateBitmap* are managed
|
||||||
@ -75,10 +79,12 @@ then call this function to get the class reference.
|
|||||||
|
|
||||||
var bmp: TMufasaBitmap;
|
var bmp: TMufasaBitmap;
|
||||||
bmph: integer;
|
bmph: integer;
|
||||||
bmph := CreateBitmap(100, 100);
|
begin;
|
||||||
bmp := GetMufasaBitmap(bmph);
|
bmph := CreateBitmap(100, 100);
|
||||||
|
bmp := GetMufasaBitmap(bmph);
|
||||||
|
|
||||||
bmp.SetSize(150,150); // also changes bmph, as they are the same bitmap.
|
bmp.SetSize(150,150); // also changes bmph, as they are the same bitmap.
|
||||||
|
end;
|
||||||
|
|
||||||
.. _scriptref-createbitmapstring:
|
.. _scriptref-createbitmapstring:
|
||||||
|
|
||||||
|
@ -11,6 +11,8 @@ Quicksort
|
|||||||
|
|
||||||
procedure Quicksort(var Arr : TIntegerArray);
|
procedure Quicksort(var Arr : TIntegerArray);
|
||||||
|
|
||||||
|
Sorts a TIntegerArray using the Quicksort algorithm
|
||||||
|
|
||||||
|
|
||||||
tSwap
|
tSwap
|
||||||
-----
|
-----
|
||||||
@ -19,6 +21,8 @@ tSwap
|
|||||||
|
|
||||||
procedure tSwap(var a, b: TPoint);
|
procedure tSwap(var a, b: TPoint);
|
||||||
|
|
||||||
|
Swaps the values of a and b around
|
||||||
|
|
||||||
|
|
||||||
tpaSwap
|
tpaSwap
|
||||||
-------
|
-------
|
||||||
@ -27,6 +31,8 @@ tpaSwap
|
|||||||
|
|
||||||
procedure tpaSwap(var a, b: TPointArray);
|
procedure tpaSwap(var a, b: TPointArray);
|
||||||
|
|
||||||
|
Swaps the values of a and b around
|
||||||
|
|
||||||
|
|
||||||
SwapE
|
SwapE
|
||||||
-----
|
-----
|
||||||
@ -35,6 +41,8 @@ SwapE
|
|||||||
|
|
||||||
procedure SwapE(var a, b: Extended);
|
procedure SwapE(var a, b: Extended);
|
||||||
|
|
||||||
|
Swaps the values of a and b around
|
||||||
|
|
||||||
|
|
||||||
RAaSTPAEx
|
RAaSTPAEx
|
||||||
---------
|
---------
|
||||||
@ -43,6 +51,7 @@ RAaSTPAEx
|
|||||||
|
|
||||||
procedure RAaSTPAEx(var a: TPointArray; const w, h: Integer);
|
procedure RAaSTPAEx(var a: TPointArray; const w, h: Integer);
|
||||||
|
|
||||||
|
Leaves one point per box with side lengths W and H to the TPA
|
||||||
|
|
||||||
RAaSTPA
|
RAaSTPA
|
||||||
-------
|
-------
|
||||||
@ -51,6 +60,8 @@ RAaSTPA
|
|||||||
|
|
||||||
procedure RAaSTPA(var a: TPointArray; const Dist: Integer);
|
procedure RAaSTPA(var a: TPointArray; const Dist: Integer);
|
||||||
|
|
||||||
|
Leaves one point per box with the side length Dist
|
||||||
|
|
||||||
|
|
||||||
NearbyPointInArrayEx
|
NearbyPointInArrayEx
|
||||||
--------------------
|
--------------------
|
||||||
@ -59,6 +70,8 @@ NearbyPointInArrayEx
|
|||||||
|
|
||||||
function NearbyPointInArrayEx(const P: TPoint; w, h:Integer;const a: TPointArray): Boolean;
|
function NearbyPointInArrayEx(const P: TPoint; w, h:Integer;const a: TPointArray): Boolean;
|
||||||
|
|
||||||
|
Returns true if the point P is near a point in the TPA a with the
|
||||||
|
|
||||||
|
|
||||||
NearbyPointInArray
|
NearbyPointInArray
|
||||||
------------------
|
------------------
|
||||||
@ -67,6 +80,8 @@ NearbyPointInArray
|
|||||||
|
|
||||||
function NearbyPointInArray(const P: TPoint; Dist:Integer;const a: TPointArray): Boolean;
|
function NearbyPointInArray(const P: TPoint; Dist:Integer;const a: TPointArray): Boolean;
|
||||||
|
|
||||||
|
Returns true if the point P is near a point in the TPA a with the
|
||||||
|
|
||||||
|
|
||||||
QuickTPASort
|
QuickTPASort
|
||||||
------------
|
------------
|
||||||
@ -91,6 +106,8 @@ SortTPAFrom
|
|||||||
|
|
||||||
procedure SortTPAFrom(var a: TPointArray; const From: TPoint);
|
procedure SortTPAFrom(var a: TPointArray; const From: TPoint);
|
||||||
|
|
||||||
|
Sorts the TPA a from the TPoint From
|
||||||
|
|
||||||
|
|
||||||
SortATPAFrom
|
SortATPAFrom
|
||||||
------------
|
------------
|
||||||
@ -99,6 +116,8 @@ SortATPAFrom
|
|||||||
|
|
||||||
procedure SortATPAFrom(var a: T2DPointArray; const From: TPoint);
|
procedure SortATPAFrom(var a: T2DPointArray; const From: TPoint);
|
||||||
|
|
||||||
|
Sorts the T2DPointArray a from the TPoint From
|
||||||
|
|
||||||
|
|
||||||
SortATPAFromFirstPoint
|
SortATPAFromFirstPoint
|
||||||
----------------------
|
----------------------
|
||||||
@ -115,6 +134,8 @@ InvertTPA
|
|||||||
|
|
||||||
procedure InvertTPA(var a: TPointArray);
|
procedure InvertTPA(var a: TPointArray);
|
||||||
|
|
||||||
|
Reverses the TPA
|
||||||
|
|
||||||
|
|
||||||
InvertATPA
|
InvertATPA
|
||||||
----------
|
----------
|
||||||
@ -123,6 +144,8 @@ InvertATPA
|
|||||||
|
|
||||||
procedure InvertATPA(var a: T2DPointArray);
|
procedure InvertATPA(var a: T2DPointArray);
|
||||||
|
|
||||||
|
Reverses the T2dPointArray
|
||||||
|
|
||||||
|
|
||||||
MiddleTPAEx
|
MiddleTPAEx
|
||||||
-----------
|
-----------
|
||||||
@ -131,6 +154,8 @@ MiddleTPAEx
|
|||||||
|
|
||||||
function MiddleTPAEx(const TPA: TPointArray; var x, y: Integer): Boolean;
|
function MiddleTPAEx(const TPA: TPointArray; var x, y: Integer): Boolean;
|
||||||
|
|
||||||
|
Stores the middle point from the TPA in x and y
|
||||||
|
|
||||||
|
|
||||||
MiddleTPA
|
MiddleTPA
|
||||||
---------
|
---------
|
||||||
@ -139,6 +164,8 @@ MiddleTPA
|
|||||||
|
|
||||||
function MiddleTPA(const tpa: TPointArray): TPoint;
|
function MiddleTPA(const tpa: TPointArray): TPoint;
|
||||||
|
|
||||||
|
Returns the middle TPA in the result
|
||||||
|
|
||||||
|
|
||||||
SortATPASize
|
SortATPASize
|
||||||
------------
|
------------
|
||||||
@ -147,6 +174,8 @@ SortATPASize
|
|||||||
|
|
||||||
procedure SortATPASize(var a: T2DPointArray; const BigFirst: Boolean);
|
procedure SortATPASize(var a: T2DPointArray; const BigFirst: Boolean);
|
||||||
|
|
||||||
|
Sorts the T2dPointArray from largest to smallest if BigFirst is true or smallest to largest if BigFirst is false
|
||||||
|
|
||||||
|
|
||||||
SortATPAFromSize
|
SortATPAFromSize
|
||||||
----------------
|
----------------
|
||||||
@ -155,6 +184,8 @@ SortATPAFromSize
|
|||||||
|
|
||||||
procedure SortATPAFromSize(var a: T2DPointArray; const Size: Integer; CloseFirst: Boolean);
|
procedure SortATPAFromSize(var a: T2DPointArray; const Size: Integer; CloseFirst: Boolean);
|
||||||
|
|
||||||
|
Sorts the T2DPointArray from Size by the closest first if CloseFirst is true
|
||||||
|
|
||||||
|
|
||||||
InIntArrayEx
|
InIntArrayEx
|
||||||
------------
|
------------
|
||||||
@ -163,6 +194,8 @@ InIntArrayEx
|
|||||||
|
|
||||||
function InIntArrayEx(const a: TIntegerArray; var Where: Integer; const Number: Integer): Boolean;
|
function InIntArrayEx(const a: TIntegerArray; var Where: Integer; const Number: Integer): Boolean;
|
||||||
|
|
||||||
|
Returns true if Number was found in the TIntegerArray a and returns its location in Where
|
||||||
|
|
||||||
|
|
||||||
InIntArray
|
InIntArray
|
||||||
----------
|
----------
|
||||||
@ -171,6 +204,8 @@ InIntArray
|
|||||||
|
|
||||||
function InIntArray(const a: TIntegerArray; Number: Integer): Boolean;
|
function InIntArray(const a: TIntegerArray; Number: Integer): Boolean;
|
||||||
|
|
||||||
|
Returns true if Number is found in the TintegerArray a
|
||||||
|
|
||||||
|
|
||||||
ClearSameIntegers
|
ClearSameIntegers
|
||||||
-----------------
|
-----------------
|
||||||
@ -179,6 +214,8 @@ ClearSameIntegers
|
|||||||
|
|
||||||
procedure ClearSameIntegers(var a: TIntegerArray);
|
procedure ClearSameIntegers(var a: TIntegerArray);
|
||||||
|
|
||||||
|
Deletes the indexes in the TintegerArray a which are duplicated
|
||||||
|
|
||||||
|
|
||||||
ClearSameIntegersAndTPA
|
ClearSameIntegersAndTPA
|
||||||
-----------------------
|
-----------------------
|
||||||
@ -187,6 +224,8 @@ ClearSameIntegersAndTPA
|
|||||||
|
|
||||||
procedure ClearSameIntegersAndTPA(var a: TIntegerArray; var p: TPointArray);
|
procedure ClearSameIntegersAndTPA(var a: TIntegerArray; var p: TPointArray);
|
||||||
|
|
||||||
|
Deletes the indexes in the TIntegerArray a and TPointArray p which are duplicated
|
||||||
|
|
||||||
|
|
||||||
SplitTPAEx
|
SplitTPAEx
|
||||||
----------
|
----------
|
||||||
@ -195,6 +234,8 @@ SplitTPAEx
|
|||||||
|
|
||||||
function SplitTPAEx(const arr: TPointArray; w, h: Integer): T2DPointArray;
|
function SplitTPAEx(const arr: TPointArray; w, h: Integer): T2DPointArray;
|
||||||
|
|
||||||
|
Splits the points with max X and Y distances W and H to their
|
||||||
|
|
||||||
|
|
||||||
SplitTPA
|
SplitTPA
|
||||||
--------
|
--------
|
||||||
@ -203,6 +244,8 @@ SplitTPA
|
|||||||
|
|
||||||
function SplitTPA(const arr: TPointArray; Dist: Integer): T2DPointArray;
|
function SplitTPA(const arr: TPointArray; Dist: Integer): T2DPointArray;
|
||||||
|
|
||||||
|
Splits the points with max distance Dist to their own TPointArrays
|
||||||
|
|
||||||
|
|
||||||
FloodFillTPA
|
FloodFillTPA
|
||||||
------------
|
------------
|
||||||
@ -219,6 +262,9 @@ FilterPointsPie
|
|||||||
|
|
||||||
procedure FilterPointsPie(var Points: TPointArray; const SD, ED, MinR, MaxR: Extended; Mx, My: Integer);
|
procedure FilterPointsPie(var Points: TPointArray; const SD, ED, MinR, MaxR: Extended; Mx, My: Integer);
|
||||||
|
|
||||||
|
Removes the points that are in the TPointArray Points that are not within the the degrees SD (Strat Degrees) and
|
||||||
|
ED (End Degrees) and the radius' MinR (Min Radius) and MaxR (Max Radius) from the origin Mx and My
|
||||||
|
|
||||||
|
|
||||||
FilterPointsLine
|
FilterPointsLine
|
||||||
----------------
|
----------------
|
||||||
@ -227,6 +273,8 @@ FilterPointsLine
|
|||||||
|
|
||||||
procedure FilterPointsLine(var Points: TPointArray; Radial: Extended; Radius, MX, MY: Integer);
|
procedure FilterPointsLine(var Points: TPointArray; Radial: Extended; Radius, MX, MY: Integer);
|
||||||
|
|
||||||
|
Returns the result in the TPointArray Points. Returns the points from the TPointArray Points that are on the line Radial from the center mx, my that is with the radius Radius
|
||||||
|
|
||||||
|
|
||||||
FilterPointsDist
|
FilterPointsDist
|
||||||
----------------
|
----------------
|
||||||
@ -235,6 +283,9 @@ FilterPointsDist
|
|||||||
|
|
||||||
procedure FilterPointsDist(var Points: TPointArray; const MinDist, MaxDist: Extended; Mx, My: Integer);
|
procedure FilterPointsDist(var Points: TPointArray; const MinDist, MaxDist: Extended; Mx, My: Integer);
|
||||||
|
|
||||||
|
Removes the points from the TPointArray Points that are not within the radius MinDist (Min Distance) and MaxDist
|
||||||
|
from the origin Mx and My
|
||||||
|
|
||||||
|
|
||||||
GetATPABounds
|
GetATPABounds
|
||||||
-------------
|
-------------
|
||||||
@ -243,6 +294,8 @@ GetATPABounds
|
|||||||
|
|
||||||
function GetATPABounds(const ATPA: T2DPointArray): TBox;
|
function GetATPABounds(const ATPA: T2DPointArray): TBox;
|
||||||
|
|
||||||
|
Returns the boundaries of the T2DPointArray ATPA as a TBox
|
||||||
|
|
||||||
|
|
||||||
GetTPABounds
|
GetTPABounds
|
||||||
------------
|
------------
|
||||||
@ -251,6 +304,8 @@ GetTPABounds
|
|||||||
|
|
||||||
function GetTPABounds(const TPA: TPointArray): TBox;
|
function GetTPABounds(const TPA: TPointArray): TBox;
|
||||||
|
|
||||||
|
Returns the boundaries of the TPointArray TPA as a TBox
|
||||||
|
|
||||||
|
|
||||||
FindTPAinTPA
|
FindTPAinTPA
|
||||||
------------
|
------------
|
||||||
@ -259,6 +314,8 @@ FindTPAinTPA
|
|||||||
|
|
||||||
function FindTPAinTPA(const SearchTPA, TotalTPA: TPointArray; var Matches: TPointArray): Boolean;
|
function FindTPAinTPA(const SearchTPA, TotalTPA: TPointArray; var Matches: TPointArray): Boolean;
|
||||||
|
|
||||||
|
Looks for the TPoints from SearchTPA inside TotalTPA and stores the matches inside the TPointArray Matches
|
||||||
|
|
||||||
|
|
||||||
GetSamePointsATPA
|
GetSamePointsATPA
|
||||||
-----------------
|
-----------------
|
||||||
@ -267,6 +324,8 @@ GetSamePointsATPA
|
|||||||
|
|
||||||
function GetSamePointsATPA(const ATPA : T2DPointArray; var Matches : TPointArray) : boolean;
|
function GetSamePointsATPA(const ATPA : T2DPointArray; var Matches : TPointArray) : boolean;
|
||||||
|
|
||||||
|
Finds duplicate Points inside the T2DPointArray ATPA and stores the results inside the TPointArray Matches
|
||||||
|
|
||||||
|
|
||||||
FindTextTPAinTPA
|
FindTextTPAinTPA
|
||||||
----------------
|
----------------
|
||||||
@ -275,6 +334,8 @@ FindTextTPAinTPA
|
|||||||
|
|
||||||
function FindTextTPAinTPA(Height : integer;const SearchTPA, TotalTPA: TPointArray; var Matches: TPointArray): Boolean;
|
function FindTextTPAinTPA(Height : integer;const SearchTPA, TotalTPA: TPointArray; var Matches: TPointArray): Boolean;
|
||||||
|
|
||||||
|
Looks for the TPoints from SearchTPA inside TotalTPA with a maximum y distance of Height and stores the matches inside the TPointArray Matches
|
||||||
|
|
||||||
|
|
||||||
SortCircleWise
|
SortCircleWise
|
||||||
--------------
|
--------------
|
||||||
@ -283,6 +344,8 @@ SortCircleWise
|
|||||||
|
|
||||||
procedure SortCircleWise(var tpa: TPointArray; const cx, cy, StartDegree: Integer; SortUp, ClockWise: Boolean);
|
procedure SortCircleWise(var tpa: TPointArray; const cx, cy, StartDegree: Integer; SortUp, ClockWise: Boolean);
|
||||||
|
|
||||||
|
Sorts the TPointArray tpa from the point cx, cy if Sortup is true. Starting at StartDegree going clockwise if Clockwise is True
|
||||||
|
|
||||||
|
|
||||||
LinearSort
|
LinearSort
|
||||||
----------
|
----------
|
||||||
@ -291,6 +354,8 @@ LinearSort
|
|||||||
|
|
||||||
procedure LinearSort(var tpa: TPointArray; cx, cy, sd: Integer; SortUp: Boolean);
|
procedure LinearSort(var tpa: TPointArray; cx, cy, sd: Integer; SortUp: Boolean);
|
||||||
|
|
||||||
|
Sorts the TPointArray tpa from cx, cy if Sortup is true on the degree angle sd
|
||||||
|
|
||||||
|
|
||||||
RotatePoint
|
RotatePoint
|
||||||
-----------
|
-----------
|
||||||
@ -299,6 +364,8 @@ RotatePoint
|
|||||||
|
|
||||||
function RotatePoint(Const p: TPoint; angle, mx, my: Extended): TPoint;
|
function RotatePoint(Const p: TPoint; angle, mx, my: Extended): TPoint;
|
||||||
|
|
||||||
|
Rotates the TPoint p around the center mx, my with the angle
|
||||||
|
|
||||||
|
|
||||||
ChangeDistPT
|
ChangeDistPT
|
||||||
------------
|
------------
|
||||||
@ -307,6 +374,8 @@ ChangeDistPT
|
|||||||
|
|
||||||
function ChangeDistPT(const PT : TPoint; mx,my : integer; newdist : extended) : TPoint;
|
function ChangeDistPT(const PT : TPoint; mx,my : integer; newdist : extended) : TPoint;
|
||||||
|
|
||||||
|
Returns a TPoint with the distance newdist from the point mx, my based on the position of the TPoint TP
|
||||||
|
|
||||||
|
|
||||||
ChangeDistTPA
|
ChangeDistTPA
|
||||||
-------------
|
-------------
|
||||||
@ -315,6 +384,8 @@ ChangeDistTPA
|
|||||||
|
|
||||||
function ChangeDistTPA(var TPA : TPointArray; mx,my : integer; newdist : extended) : boolean;
|
function ChangeDistTPA(var TPA : TPointArray; mx,my : integer; newdist : extended) : boolean;
|
||||||
|
|
||||||
|
Returns the result in the TPointArray TPA with the distance newdist from mx, my based on the current position TPA
|
||||||
|
|
||||||
|
|
||||||
FindGapsTPA
|
FindGapsTPA
|
||||||
-----------
|
-----------
|
||||||
@ -323,6 +394,8 @@ FindGapsTPA
|
|||||||
|
|
||||||
function FindGapsTPA(const TPA: TPointArray; MinPixels: Integer): T2DPointArray;
|
function FindGapsTPA(const TPA: TPointArray; MinPixels: Integer): T2DPointArray;
|
||||||
|
|
||||||
|
Finds the possible gaps in the TPointArray TPA and results the gaps as a T2DPointArray. Considers as a gap if the gap length is >= MinPixels
|
||||||
|
|
||||||
|
|
||||||
RemoveDistTPointArray
|
RemoveDistTPointArray
|
||||||
---------------------
|
---------------------
|
||||||
@ -331,6 +404,8 @@ RemoveDistTPointArray
|
|||||||
|
|
||||||
function RemoveDistTPointArray(x, y, dist: Integer;const ThePoints: TPointArray; RemoveHigher: Boolean): TPointArray;
|
function RemoveDistTPointArray(x, y, dist: Integer;const ThePoints: TPointArray; RemoveHigher: Boolean): TPointArray;
|
||||||
|
|
||||||
|
Finds the possible gaps in the TPointArray TPA and removes the gaps. Considers as a gap if the gap length is >= MinPixels
|
||||||
|
|
||||||
|
|
||||||
CombineTPA
|
CombineTPA
|
||||||
----------
|
----------
|
||||||
@ -339,6 +414,8 @@ CombineTPA
|
|||||||
|
|
||||||
function CombineTPA(const Ar1, Ar2: TPointArray): TPointArray;
|
function CombineTPA(const Ar1, Ar2: TPointArray): TPointArray;
|
||||||
|
|
||||||
|
Attaches the TPointArray Ar2 onto the end of Ar1 and returns it as the result
|
||||||
|
|
||||||
|
|
||||||
ReArrangeandShortenArrayEx
|
ReArrangeandShortenArrayEx
|
||||||
--------------------------
|
--------------------------
|
||||||
@ -347,6 +424,8 @@ ReArrangeandShortenArrayEx
|
|||||||
|
|
||||||
function ReArrangeandShortenArrayEx(const a: TPointArray; w, h: Integer): TPointArray;
|
function ReArrangeandShortenArrayEx(const a: TPointArray; w, h: Integer): TPointArray;
|
||||||
|
|
||||||
|
Results the TPointArray a with one point per box with side lengths W and H left
|
||||||
|
|
||||||
|
|
||||||
ReArrangeandShortenArray
|
ReArrangeandShortenArray
|
||||||
------------------------
|
------------------------
|
||||||
@ -355,6 +434,8 @@ ReArrangeandShortenArray
|
|||||||
|
|
||||||
function ReArrangeandShortenArray(const a: TPointArray; Dist: Integer): TPointArray;
|
function ReArrangeandShortenArray(const a: TPointArray; Dist: Integer): TPointArray;
|
||||||
|
|
||||||
|
Results the TPointArray a with one point per box with side length Dist left
|
||||||
|
|
||||||
|
|
||||||
TPAtoATPAEx
|
TPAtoATPAEx
|
||||||
-----------
|
-----------
|
||||||
@ -363,6 +444,8 @@ TPAtoATPAEx
|
|||||||
|
|
||||||
function TPAtoATPAEx(const TPA: TPointArray; w, h: Integer): T2DPointArray;
|
function TPAtoATPAEx(const TPA: TPointArray; w, h: Integer): T2DPointArray;
|
||||||
|
|
||||||
|
Splits the TPA to boxes with sidelengths W and H and results them as a T2DPointArray
|
||||||
|
|
||||||
|
|
||||||
TPAtoATPA
|
TPAtoATPA
|
||||||
---------
|
---------
|
||||||
@ -371,6 +454,8 @@ TPAtoATPA
|
|||||||
|
|
||||||
function TPAtoATPA(const TPA: TPointArray; Dist: Integer): T2DPointArray;
|
function TPAtoATPA(const TPA: TPointArray; Dist: Integer): T2DPointArray;
|
||||||
|
|
||||||
|
Splits the TPA to boxes with sidelength Dist and results them as a T2DPointArray
|
||||||
|
|
||||||
|
|
||||||
CombineIntArray
|
CombineIntArray
|
||||||
---------------
|
---------------
|
||||||
@ -379,6 +464,8 @@ CombineIntArray
|
|||||||
|
|
||||||
function CombineIntArray(const Ar1, Ar2: TIntegerArray): TIntegerArray;
|
function CombineIntArray(const Ar1, Ar2: TIntegerArray): TIntegerArray;
|
||||||
|
|
||||||
|
Attaches the TIntegerArray Ar2 onto the end of Ar1 and returns it as the result
|
||||||
|
|
||||||
|
|
||||||
MergeATPA
|
MergeATPA
|
||||||
---------
|
---------
|
||||||
@ -387,6 +474,8 @@ MergeATPA
|
|||||||
|
|
||||||
function MergeATPA(const ATPA : T2DPointArray) : TPointArray;
|
function MergeATPA(const ATPA : T2DPointArray) : TPointArray;
|
||||||
|
|
||||||
|
Combines all the TPointArrays from the T2DPointArray ATPA into the result
|
||||||
|
|
||||||
|
|
||||||
AppendTPA
|
AppendTPA
|
||||||
---------
|
---------
|
||||||
@ -395,6 +484,8 @@ AppendTPA
|
|||||||
|
|
||||||
procedure AppendTPA(var TPA: TPointArray; const ToAppend: TPointArray);
|
procedure AppendTPA(var TPA: TPointArray; const ToAppend: TPointArray);
|
||||||
|
|
||||||
|
Attaches the TPointArray ToAppend onto the end of TPA
|
||||||
|
|
||||||
|
|
||||||
TPAFromBox
|
TPAFromBox
|
||||||
----------
|
----------
|
||||||
@ -403,6 +494,8 @@ TPAFromBox
|
|||||||
|
|
||||||
function TPAFromBox(const Box : TBox) : TPointArray;
|
function TPAFromBox(const Box : TBox) : TPointArray;
|
||||||
|
|
||||||
|
Create a TPointArray from the top left and the bottom right of the TBox Box
|
||||||
|
|
||||||
|
|
||||||
RotatePoints
|
RotatePoints
|
||||||
------------
|
------------
|
||||||
@ -411,6 +504,8 @@ RotatePoints
|
|||||||
|
|
||||||
function RotatePoints(Const P: TPointArray; A, cx, cy: Extended): TPointArray ;
|
function RotatePoints(Const P: TPointArray; A, cx, cy: Extended): TPointArray ;
|
||||||
|
|
||||||
|
Rotates the TPointArray P around the center cx, cy with the angle a
|
||||||
|
|
||||||
|
|
||||||
FindTPAEdges
|
FindTPAEdges
|
||||||
------------
|
------------
|
||||||
@ -419,6 +514,8 @@ FindTPAEdges
|
|||||||
|
|
||||||
function FindTPAEdges(const p: TPointArray): TPointArray;
|
function FindTPAEdges(const p: TPointArray): TPointArray;
|
||||||
|
|
||||||
|
Returns a TPointArray of the edge points of the TPointArray p
|
||||||
|
|
||||||
|
|
||||||
ClearTPAFromTPA
|
ClearTPAFromTPA
|
||||||
---------------
|
---------------
|
||||||
@ -427,6 +524,8 @@ ClearTPAFromTPA
|
|||||||
|
|
||||||
function ClearTPAFromTPA(const arP, ClearPoints: TPointArray): TPointArray;
|
function ClearTPAFromTPA(const arP, ClearPoints: TPointArray): TPointArray;
|
||||||
|
|
||||||
|
Removes the points in TPointArray ClearPoints from arP
|
||||||
|
|
||||||
|
|
||||||
ReturnPointsNotInTPA
|
ReturnPointsNotInTPA
|
||||||
--------------------
|
--------------------
|
||||||
@ -435,6 +534,8 @@ ReturnPointsNotInTPA
|
|||||||
|
|
||||||
function ReturnPointsNotInTPA(Const TotalTPA: TPointArray; const Box: TBox): TPointArray;
|
function ReturnPointsNotInTPA(Const TotalTPA: TPointArray; const Box: TBox): TPointArray;
|
||||||
|
|
||||||
|
All the points from the TPointArray TotalTPA that are not in the TBox Box are returned in the TPointArray Res
|
||||||
|
|
||||||
|
|
||||||
PointInTPA
|
PointInTPA
|
||||||
----------
|
----------
|
||||||
@ -443,6 +544,8 @@ PointInTPA
|
|||||||
|
|
||||||
function PointInTPA(p: TPoint;const arP: TPointArray): Boolean;
|
function PointInTPA(p: TPoint;const arP: TPointArray): Boolean;
|
||||||
|
|
||||||
|
Returns true if the TPoint p is found in the TPointArray arP
|
||||||
|
|
||||||
|
|
||||||
ClearDoubleTPA
|
ClearDoubleTPA
|
||||||
--------------
|
--------------
|
||||||
@ -451,6 +554,8 @@ ClearDoubleTPA
|
|||||||
|
|
||||||
procedure ClearDoubleTPA(var TPA: TPointArray);
|
procedure ClearDoubleTPA(var TPA: TPointArray);
|
||||||
|
|
||||||
|
Deletes duplicate TPAs int he TPointArray TPA
|
||||||
|
|
||||||
|
|
||||||
TPACountSort
|
TPACountSort
|
||||||
------------
|
------------
|
||||||
@ -475,6 +580,8 @@ InvertTIA
|
|||||||
|
|
||||||
procedure InvertTIA(var tI: TIntegerArray);
|
procedure InvertTIA(var tI: TIntegerArray);
|
||||||
|
|
||||||
|
Reverses the TIntegerArray tI
|
||||||
|
|
||||||
|
|
||||||
SumIntegerArray
|
SumIntegerArray
|
||||||
---------------
|
---------------
|
||||||
@ -483,6 +590,8 @@ SumIntegerArray
|
|||||||
|
|
||||||
function SumIntegerArray(const Ints : TIntegerArray): Integer;
|
function SumIntegerArray(const Ints : TIntegerArray): Integer;
|
||||||
|
|
||||||
|
Retuns the sum of all the integers in the TIntegerArray Ints
|
||||||
|
|
||||||
|
|
||||||
AverageTIA
|
AverageTIA
|
||||||
----------
|
----------
|
||||||
@ -491,6 +600,8 @@ AverageTIA
|
|||||||
|
|
||||||
function AverageTIA(const tI: TIntegerArray): Integer;
|
function AverageTIA(const tI: TIntegerArray): Integer;
|
||||||
|
|
||||||
|
Gives an average of the sum of the integers in the TIntegerArray tI
|
||||||
|
|
||||||
|
|
||||||
AverageExtended
|
AverageExtended
|
||||||
---------------
|
---------------
|
||||||
@ -499,6 +610,8 @@ AverageExtended
|
|||||||
|
|
||||||
function AverageExtended(const tE: TExtendedArray): Extended;
|
function AverageExtended(const tE: TExtendedArray): Extended;
|
||||||
|
|
||||||
|
Gives an average of the sum of the extendeds in the TExtendedArray tI
|
||||||
|
|
||||||
|
|
||||||
SplitTPAExWrap
|
SplitTPAExWrap
|
||||||
--------------
|
--------------
|
||||||
@ -507,6 +620,8 @@ SplitTPAExWrap
|
|||||||
|
|
||||||
procedure SplitTPAExWrap(const arr: TPointArray; w, h: Integer; var res : T2DPointArray);
|
procedure SplitTPAExWrap(const arr: TPointArray; w, h: Integer; var res : T2DPointArray);
|
||||||
|
|
||||||
|
Splits the points with max X and Y distances W and H to their and returns the result in the T2DPointArray Res
|
||||||
|
|
||||||
|
|
||||||
SplitTPAWrap
|
SplitTPAWrap
|
||||||
------------
|
------------
|
||||||
@ -515,6 +630,8 @@ SplitTPAWrap
|
|||||||
|
|
||||||
procedure SplitTPAWrap(const arr: TPointArray; Dist: Integer; var res: T2DPointArray);
|
procedure SplitTPAWrap(const arr: TPointArray; Dist: Integer; var res: T2DPointArray);
|
||||||
|
|
||||||
|
Splits the points with max distance Dist to their own TPointArrays and returns the result in the T2DPointArray Res
|
||||||
|
|
||||||
|
|
||||||
FindGapsTPAWrap
|
FindGapsTPAWrap
|
||||||
---------------
|
---------------
|
||||||
@ -523,6 +640,8 @@ FindGapsTPAWrap
|
|||||||
|
|
||||||
procedure FindGapsTPAWrap(const TPA: TPointArray; MinPixels: Integer; var Res : T2DPointArray);
|
procedure FindGapsTPAWrap(const TPA: TPointArray; MinPixels: Integer; var Res : T2DPointArray);
|
||||||
|
|
||||||
|
Finds the possible gaps in the TPointArray TPA and the result is returned in the T2DPointArray Res. Considers as a gap if the gap length is >= MinPixels
|
||||||
|
|
||||||
|
|
||||||
RemoveDistTPointArrayWrap
|
RemoveDistTPointArrayWrap
|
||||||
-------------------------
|
-------------------------
|
||||||
@ -531,6 +650,8 @@ RemoveDistTPointArrayWrap
|
|||||||
|
|
||||||
procedure RemoveDistTPointArrayWrap(x, y, dist: Integer;const ThePoints: TPointArray; RemoveHigher: Boolean; var Res : TPointArray);
|
procedure RemoveDistTPointArrayWrap(x, y, dist: Integer;const ThePoints: TPointArray; RemoveHigher: Boolean; var Res : TPointArray);
|
||||||
|
|
||||||
|
Finds the possible gaps in the TPointArray TPA and removes the gaps. Considers as a gap if the gap length is >= MinPixels and returns the result in the TPointArray Res
|
||||||
|
|
||||||
|
|
||||||
CombineTPAWrap
|
CombineTPAWrap
|
||||||
--------------
|
--------------
|
||||||
@ -539,6 +660,8 @@ CombineTPAWrap
|
|||||||
|
|
||||||
procedure CombineTPAWrap(const Ar1, Ar2: TPointArray; var Res : TPointArray);
|
procedure CombineTPAWrap(const Ar1, Ar2: TPointArray; var Res : TPointArray);
|
||||||
|
|
||||||
|
Attaches the TPointArray Ar2 onto the end of Ar1 and returns the result in the TPointArray Res
|
||||||
|
|
||||||
|
|
||||||
ReArrangeandShortenArrayExWrap
|
ReArrangeandShortenArrayExWrap
|
||||||
------------------------------
|
------------------------------
|
||||||
@ -547,6 +670,8 @@ ReArrangeandShortenArrayExWrap
|
|||||||
|
|
||||||
procedure ReArrangeandShortenArrayExWrap(const a: TPointArray; w, h: Integer; var Res : TPointArray);
|
procedure ReArrangeandShortenArrayExWrap(const a: TPointArray; w, h: Integer; var Res : TPointArray);
|
||||||
|
|
||||||
|
Results the TPointArray a with one point per box with side lengths W and H left and puts the result in Res
|
||||||
|
|
||||||
|
|
||||||
ReArrangeandShortenArrayWrap
|
ReArrangeandShortenArrayWrap
|
||||||
----------------------------
|
----------------------------
|
||||||
@ -555,6 +680,8 @@ ReArrangeandShortenArrayWrap
|
|||||||
|
|
||||||
procedure ReArrangeandShortenArrayWrap(const a: TPointArray; Dist: Integer; var Res : TPointArray);
|
procedure ReArrangeandShortenArrayWrap(const a: TPointArray; Dist: Integer; var Res : TPointArray);
|
||||||
|
|
||||||
|
Results the TPointArray a with one point per box with side length Dist left and puts the result in Res
|
||||||
|
|
||||||
|
|
||||||
TPAtoATPAExWrap
|
TPAtoATPAExWrap
|
||||||
---------------
|
---------------
|
||||||
@ -563,6 +690,8 @@ TPAtoATPAExWrap
|
|||||||
|
|
||||||
procedure TPAtoATPAExWrap(const TPA: TPointArray; w, h: Integer; var Res : T2DPointArray);
|
procedure TPAtoATPAExWrap(const TPA: TPointArray; w, h: Integer; var Res : T2DPointArray);
|
||||||
|
|
||||||
|
Splits the TPA to boxes with sidelengths W and H and results them as a T2DPointArray in Res
|
||||||
|
|
||||||
|
|
||||||
TPAtoATPAWrap
|
TPAtoATPAWrap
|
||||||
-------------
|
-------------
|
||||||
@ -571,6 +700,8 @@ TPAtoATPAWrap
|
|||||||
|
|
||||||
procedure TPAtoATPAWrap(const TPA: TPointArray; Dist: Integer; var Res : T2DPointArray);
|
procedure TPAtoATPAWrap(const TPA: TPointArray; Dist: Integer; var Res : T2DPointArray);
|
||||||
|
|
||||||
|
Splits the TPA to boxes with sidelength Dist and results them as a T2DPointArray in Res
|
||||||
|
|
||||||
|
|
||||||
CombineIntArrayWrap
|
CombineIntArrayWrap
|
||||||
-------------------
|
-------------------
|
||||||
@ -579,6 +710,8 @@ CombineIntArrayWrap
|
|||||||
|
|
||||||
procedure CombineIntArrayWrap(const Ar1, Ar2: TIntegerArray; var Res : TIntegerArray);
|
procedure CombineIntArrayWrap(const Ar1, Ar2: TIntegerArray; var Res : TIntegerArray);
|
||||||
|
|
||||||
|
Attaches the TIntegerArray Ar2 onto the end of Ar1 and returns it in the TIntegerArray Res
|
||||||
|
|
||||||
|
|
||||||
ReturnPointsNotInTPAWrap
|
ReturnPointsNotInTPAWrap
|
||||||
------------------------
|
------------------------
|
||||||
@ -587,6 +720,8 @@ ReturnPointsNotInTPAWrap
|
|||||||
|
|
||||||
procedure ReturnPointsNotInTPAWrap(Const TotalTPA: TPointArray; const Box: TBox; var Res : TPointArray);
|
procedure ReturnPointsNotInTPAWrap(Const TotalTPA: TPointArray; const Box: TBox; var Res : TPointArray);
|
||||||
|
|
||||||
|
All the points from the TPointArray TotalTPA that are not in the TBox Box are returned in the TPointArray Res
|
||||||
|
|
||||||
|
|
||||||
MergeATPAWrap
|
MergeATPAWrap
|
||||||
-------------
|
-------------
|
||||||
@ -595,6 +730,8 @@ MergeATPAWrap
|
|||||||
|
|
||||||
procedure MergeATPAWrap(const ATPA : T2DPointArray; var Res: TPointArray);
|
procedure MergeATPAWrap(const ATPA : T2DPointArray; var Res: TPointArray);
|
||||||
|
|
||||||
|
Combines all the TPointArrays from the T2DPointArray ATPA into the TPointArray Res
|
||||||
|
|
||||||
|
|
||||||
TPAFromBoxWrap
|
TPAFromBoxWrap
|
||||||
--------------
|
--------------
|
||||||
@ -603,6 +740,8 @@ TPAFromBoxWrap
|
|||||||
|
|
||||||
procedure TPAFromBoxWrap(const Box : TBox; var Res : TPointArray);
|
procedure TPAFromBoxWrap(const Box : TBox; var Res : TPointArray);
|
||||||
|
|
||||||
|
Create a TPointArray from the top left and the bottom right of the TBox Box and returns the result in Res
|
||||||
|
|
||||||
|
|
||||||
RotatePointsWrap
|
RotatePointsWrap
|
||||||
----------------
|
----------------
|
||||||
@ -611,6 +750,8 @@ RotatePointsWrap
|
|||||||
|
|
||||||
procedure RotatePointsWrap(Const P: TPointArray; A, cx, cy: Extended; var Res : TPointArray);
|
procedure RotatePointsWrap(Const P: TPointArray; A, cx, cy: Extended; var Res : TPointArray);
|
||||||
|
|
||||||
|
Rotates the TPointArray P around the center cx, cy with the angle a and returns the result in Res
|
||||||
|
|
||||||
|
|
||||||
FindTPAEdgesWrap
|
FindTPAEdgesWrap
|
||||||
----------------
|
----------------
|
||||||
@ -619,6 +760,8 @@ FindTPAEdgesWrap
|
|||||||
|
|
||||||
procedure FindTPAEdgesWrap(const p: TPointArray; var Res : TPointArray);
|
procedure FindTPAEdgesWrap(const p: TPointArray; var Res : TPointArray);
|
||||||
|
|
||||||
|
Returns a TPointArray of the edge points of the TPointArray p and returns the result in the TPointArray Res
|
||||||
|
|
||||||
|
|
||||||
ClearTPAFromTPAWrap
|
ClearTPAFromTPAWrap
|
||||||
-------------------
|
-------------------
|
||||||
@ -627,6 +770,8 @@ ClearTPAFromTPAWrap
|
|||||||
|
|
||||||
procedure ClearTPAFromTPAWrap(const arP, ClearPoints: TPointArray; var Res : TPointArray);
|
procedure ClearTPAFromTPAWrap(const arP, ClearPoints: TPointArray; var Res : TPointArray);
|
||||||
|
|
||||||
|
Removes the points in TPointArray ClearPoints from arP and returns the results in Res
|
||||||
|
|
||||||
|
|
||||||
SameTPA
|
SameTPA
|
||||||
-------
|
-------
|
||||||
@ -635,6 +780,8 @@ SameTPA
|
|||||||
|
|
||||||
function SameTPA(const aTPA, bTPA: TPointArray): Boolean;
|
function SameTPA(const aTPA, bTPA: TPointArray): Boolean;
|
||||||
|
|
||||||
|
Returns true if the TPointArray aTPA is the same as bTPA
|
||||||
|
|
||||||
|
|
||||||
TPAInATPA
|
TPAInATPA
|
||||||
---------
|
---------
|
||||||
@ -643,6 +790,8 @@ TPAInATPA
|
|||||||
|
|
||||||
function TPAInATPA(const TPA: TPointArray;const InATPA: T2DPointArray; var Index: LongInt): Boolean;
|
function TPAInATPA(const TPA: TPointArray;const InATPA: T2DPointArray; var Index: LongInt): Boolean;
|
||||||
|
|
||||||
|
Returns true if the TPointArray TPA is found in the T2DPointArray InATPA and stores the index in Index
|
||||||
|
|
||||||
|
|
||||||
OffsetTPA
|
OffsetTPA
|
||||||
---------
|
---------
|
||||||
@ -651,6 +800,8 @@ OffsetTPA
|
|||||||
|
|
||||||
procedure OffsetTPA(var TPA : TPointArray; const Offset : TPoint);
|
procedure OffsetTPA(var TPA : TPointArray; const Offset : TPoint);
|
||||||
|
|
||||||
|
Offsets all the TPAs int the TPointArray TPA but the TPoint Offset
|
||||||
|
|
||||||
|
|
||||||
OffsetATPA
|
OffsetATPA
|
||||||
----------
|
----------
|
||||||
@ -659,6 +810,8 @@ OffsetATPA
|
|||||||
|
|
||||||
procedure OffsetATPA(var ATPA : T2DPointArray; const Offset : TPoint);
|
procedure OffsetATPA(var ATPA : T2DPointArray; const Offset : TPoint);
|
||||||
|
|
||||||
|
Offsets all the TPAs int the T2DPointArray ATPA but the TPoint Offset
|
||||||
|
|
||||||
|
|
||||||
CopyTPA
|
CopyTPA
|
||||||
-------
|
-------
|
||||||
@ -667,6 +820,8 @@ CopyTPA
|
|||||||
|
|
||||||
function CopyTPA(const TPA : TPointArray) : TPointArray;
|
function CopyTPA(const TPA : TPointArray) : TPointArray;
|
||||||
|
|
||||||
|
Returns the TPointArray TPA
|
||||||
|
|
||||||
|
|
||||||
CopyATPA
|
CopyATPA
|
||||||
--------
|
--------
|
||||||
@ -675,4 +830,5 @@ CopyATPA
|
|||||||
|
|
||||||
function CopyATPA(const ATPA : T2DPointArray) : T2DPointArray;
|
function CopyATPA(const ATPA : T2DPointArray) : T2DPointArray;
|
||||||
|
|
||||||
|
Returns the T2DPointArray ATPA
|
||||||
|
|
||||||
|
@ -142,6 +142,8 @@ GetRawHeaders returns a string of headers from the specified client.
|
|||||||
Socket Functions
|
Socket Functions
|
||||||
----------------
|
----------------
|
||||||
|
|
||||||
|
Simba's Socket Functions. Examples required; if you have one, please let u know.
|
||||||
|
|
||||||
CreateSocket
|
CreateSocket
|
||||||
~~~~~~~~~~~~
|
~~~~~~~~~~~~
|
||||||
|
|
||||||
@ -190,7 +192,6 @@ ListenSocket
|
|||||||
|
|
||||||
ListenSocket allows for a client socket to accept connections.
|
ListenSocket allows for a client socket to accept connections.
|
||||||
|
|
||||||
|
|
||||||
AcceptSocket
|
AcceptSocket
|
||||||
~~~~~~~~~~~~
|
~~~~~~~~~~~~
|
||||||
|
|
||||||
@ -249,15 +250,15 @@ SendSocket
|
|||||||
|
|
||||||
SendSocket sends a string of data to a bound client socket.
|
SendSocket sends a string of data to a bound client socket.
|
||||||
|
|
||||||
SetTimeout
|
SetSocketTimeout
|
||||||
~~~~~~~~~~
|
~~~~~~~~~~
|
||||||
|
|
||||||
.. code-block:: pascal
|
.. code-block:: pascal
|
||||||
|
|
||||||
procedure SetTimeout(Client, Time: integer);
|
procedure SetSocketTimeout(Client, Time: integer);
|
||||||
|
|
||||||
SetTimeout sets a maximum amount of time for a bound client socket to wait for
|
SetTimeout sets a maximum amount of time for a bound client socket to wait for
|
||||||
data from another socket.
|
data from another socket. Time is in *milliseconds*.
|
||||||
|
|
||||||
SocketInfo
|
SocketInfo
|
||||||
~~~~~~~~~~
|
~~~~~~~~~~
|
||||||
|
@ -44,7 +44,7 @@ Source: "C:\Simba\Extensions\paster.sex"; DestDir: "{app}\Extensions"; Flags: ig
|
|||||||
Source: "C:\Simba\Extensions\CRov.sex"; DestDir: "{app}\Extensions"; Flags: ignoreversion
|
Source: "C:\Simba\Extensions\CRov.sex"; DestDir: "{app}\Extensions"; Flags: ignoreversion
|
||||||
Source: "C:\Simba\Extensions\Updater.sei"; DestDir: "{app}\Extensions"; Flags: ignoreversion
|
Source: "C:\Simba\Extensions\Updater.sei"; DestDir: "{app}\Extensions"; Flags: ignoreversion
|
||||||
Source: "C:\Simba\Includes\mml.simba"; DestDir: "{app}\Includes"; Flags: ignoreversion
|
Source: "C:\Simba\Includes\mml.simba"; DestDir: "{app}\Includes"; Flags: ignoreversion
|
||||||
Source: "C:\Simba\settings.xml"; DestDir: "{app}\"; Flags: ignoreversion
|
; Source: "C:\Simba\settings.xml"; DestDir: "{app}\"; Flags: ignoreversion
|
||||||
; XXX Make sure to use a MINIMAL settings.xml XXX
|
; XXX Make sure to use a MINIMAL settings.xml XXX
|
||||||
|
|
||||||
; Source: "C:\Simba\Fonts\*"; DestDir: "{app}\Fonts"; Flags: ignoreversion recursesubdirs createallsubdirs
|
; Source: "C:\Simba\Fonts\*"; DestDir: "{app}\Fonts"; Flags: ignoreversion recursesubdirs createallsubdirs
|
||||||
|
154
Projects/SMARTLoader/project1.lpi
Normal file
154
Projects/SMARTLoader/project1.lpi
Normal file
@ -0,0 +1,154 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="9"/>
|
||||||
|
<General>
|
||||||
|
<Flags>
|
||||||
|
<MainUnitHasCreateFormStatements Value="False"/>
|
||||||
|
</Flags>
|
||||||
|
<MainUnit Value="0"/>
|
||||||
|
<ResourceType Value="res"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<Icon Value="0"/>
|
||||||
|
<ActiveWindowIndexAtStart Value="0"/>
|
||||||
|
</General>
|
||||||
|
<i18n>
|
||||||
|
<EnableI18N LFM="False"/>
|
||||||
|
</i18n>
|
||||||
|
<VersionInfo>
|
||||||
|
<StringTable ProductVersion=""/>
|
||||||
|
</VersionInfo>
|
||||||
|
<BuildModes Count="1" Active="Default">
|
||||||
|
<Item1 Name="Default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||||
|
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<local>
|
||||||
|
<FormatVersion Value="1"/>
|
||||||
|
<LaunchingApplication PathPlusParams="/usr/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||||
|
</local>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="1">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="FCL"/>
|
||||||
|
</Item1>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="5">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="project1.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<UnitName Value="project1"/>
|
||||||
|
<IsVisibleTab Value="True"/>
|
||||||
|
<EditorIndex Value="0"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="52"/>
|
||||||
|
<CursorPos X="3" Y="87"/>
|
||||||
|
<UsageCount Value="21"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="../../Units/MMLAddon/plugins.pas"/>
|
||||||
|
<UnitName Value="plugins"/>
|
||||||
|
<EditorIndex Value="1"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="6"/>
|
||||||
|
<CursorPos X="26" Y="37"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit1>
|
||||||
|
<Unit2>
|
||||||
|
<Filename Value="../../../fpc/rtl/inc/dynlibs.pas"/>
|
||||||
|
<UnitName Value="dynlibs"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<CursorPos X="1" Y="1"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit2>
|
||||||
|
<Unit3>
|
||||||
|
<Filename Value="../../Units/Linux/keybinder.pas"/>
|
||||||
|
<UnitName Value="keybinder"/>
|
||||||
|
<EditorIndex Value="2"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<CursorPos X="61" Y="24"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit3>
|
||||||
|
<Unit4>
|
||||||
|
<Filename Value="../../Units/Linux/xinput.pas"/>
|
||||||
|
<UnitName Value="xinput"/>
|
||||||
|
<EditorIndex Value="3"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<CursorPos X="1" Y="1"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit4>
|
||||||
|
</Units>
|
||||||
|
<JumpHistory Count="6" HistoryIndex="5">
|
||||||
|
<Position1>
|
||||||
|
<Filename Value="../../Units/MMLAddon/plugins.pas"/>
|
||||||
|
<Caret Line="37" Column="26" TopLine="27"/>
|
||||||
|
</Position1>
|
||||||
|
<Position2>
|
||||||
|
<Filename Value="project1.lpr"/>
|
||||||
|
<Caret Line="69" Column="17" TopLine="40"/>
|
||||||
|
</Position2>
|
||||||
|
<Position3>
|
||||||
|
<Filename Value="project1.lpr"/>
|
||||||
|
<Caret Line="16" Column="93" TopLine="1"/>
|
||||||
|
</Position3>
|
||||||
|
<Position4>
|
||||||
|
<Filename Value="project1.lpr"/>
|
||||||
|
<Caret Line="11" Column="10" TopLine="1"/>
|
||||||
|
</Position4>
|
||||||
|
<Position5>
|
||||||
|
<Filename Value="../../Units/MMLAddon/plugins.pas"/>
|
||||||
|
<Caret Line="37" Column="26" TopLine="6"/>
|
||||||
|
</Position5>
|
||||||
|
<Position6>
|
||||||
|
<Filename Value="project1.lpr"/>
|
||||||
|
<Caret Line="53" Column="3" TopLine="25"/>
|
||||||
|
</Position6>
|
||||||
|
</JumpHistory>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="10"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="project1"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<OtherUnitFiles Value="../../Units/MMLCore"/>
|
||||||
|
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Options>
|
||||||
|
<PassLinkerOptions Value="True"/>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
<Other>
|
||||||
|
<CompilerMessages>
|
||||||
|
<UseMsgFile Value="True"/>
|
||||||
|
</CompilerMessages>
|
||||||
|
<CompilerPath Value="$(CompPath)"/>
|
||||||
|
</Other>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="3">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
95
Projects/SMARTLoader/project1.lpr
Normal file
95
Projects/SMARTLoader/project1.lpr
Normal file
@ -0,0 +1,95 @@
|
|||||||
|
program project1;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}{$ENDIF}
|
||||||
|
Classes, SysUtils, CustApp,
|
||||||
|
{ you can add units after this }
|
||||||
|
dynlibs;
|
||||||
|
|
||||||
|
const libSmart = 'smart';
|
||||||
|
|
||||||
|
|
||||||
|
procedure std_setup (ServerURL, SecondParam: PChar; sizeX, sizeY: Integer; SomeStr: PChar); cdecl; external libSmart;
|
||||||
|
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TMyApplication }
|
||||||
|
|
||||||
|
TMyApplication = class(TCustomApplication)
|
||||||
|
protected
|
||||||
|
procedure DoRun; override;
|
||||||
|
public
|
||||||
|
constructor Create(TheOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
procedure WriteHelp; virtual;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure LoadSmart;
|
||||||
|
begin
|
||||||
|
std_setup('http://world19.runescape.com/', 'plugin.js?param=o0,a1,m0', 765, 503, 's');
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TMyApplication }
|
||||||
|
|
||||||
|
procedure TMyApplication.DoRun;
|
||||||
|
var
|
||||||
|
ErrorMsg: String;
|
||||||
|
begin
|
||||||
|
// quick check parameters
|
||||||
|
ErrorMsg:=CheckOptions('h','help');
|
||||||
|
if ErrorMsg<>'' then begin
|
||||||
|
ShowException(Exception.Create(ErrorMsg));
|
||||||
|
Terminate;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// parse parameters
|
||||||
|
if HasOption('h','help') then begin
|
||||||
|
WriteHelp;
|
||||||
|
Terminate;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
LoadSmart;
|
||||||
|
sleep(100000);
|
||||||
|
|
||||||
|
{ add your program here }
|
||||||
|
|
||||||
|
// stop program loop
|
||||||
|
Terminate;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TMyApplication.Create(TheOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(TheOwner);
|
||||||
|
StopOnException:=True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TMyApplication.Destroy;
|
||||||
|
begin
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMyApplication.WriteHelp;
|
||||||
|
begin
|
||||||
|
{ add your help code here }
|
||||||
|
writeln('Usage: ',ExeName,' -h');
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Application: TMyApplication;
|
||||||
|
|
||||||
|
//{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application:=TMyApplication.Create(nil);
|
||||||
|
Application.Run;
|
||||||
|
Application.Free;
|
||||||
|
end.
|
||||||
|
|
@ -399,7 +399,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
if InitScript then
|
if InitScript then
|
||||||
mDebugLn('Init procedure succesfully called')
|
mDebugLn('Init procedure successfully called')
|
||||||
else
|
else
|
||||||
mDebugLn('Init procedure didn''t execute right, or couldn''t be found');
|
mDebugLn('Init procedure didn''t execute right, or couldn''t be found');
|
||||||
Enabled:= FWorking;
|
Enabled:= FWorking;
|
||||||
|
74
Projects/Simba/settings_const.inc
Normal file
74
Projects/Simba/settings_const.inc
Normal file
@ -0,0 +1,74 @@
|
|||||||
|
ssSettings = 'Settings/';
|
||||||
|
ssLastConfig = 'LastConfig/';
|
||||||
|
|
||||||
|
ssUpdater = 'Updater/';
|
||||||
|
ssFonts = 'Fonts/';
|
||||||
|
ssIncludes = 'Includes/';
|
||||||
|
ssInterpreter = 'Interpreter/';
|
||||||
|
ssTabs = 'Tabs/';
|
||||||
|
ssColourPicker = 'ColourPicker/';
|
||||||
|
ssScripts = 'Scripts/';
|
||||||
|
ssExtensions = 'Extensions/';
|
||||||
|
ssMainForm = 'MainForm/';
|
||||||
|
ssSourceEditor = 'SourceEditor/';
|
||||||
|
ssTray = 'Tray/';
|
||||||
|
ssConsole = 'Console/';
|
||||||
|
ssNews = 'News/';
|
||||||
|
ssPlugins = 'Plugins/';
|
||||||
|
|
||||||
|
ssCheckUpdate = ssSettings + ssUpdater + 'CheckForUpdates';
|
||||||
|
ssCheckUpdateMinutes = ssSettings + ssUpdater + 'CheckEveryXMinutes';
|
||||||
|
ssUpdaterLink = ssSettings + ssUpdater + 'RemoteLink';
|
||||||
|
ssUpdaterVersionLink = ssSettings + ssUpdater + 'RemoteVersionLink';
|
||||||
|
|
||||||
|
|
||||||
|
ssLoadFontsOnStart = ssSettings + ssFonts + 'LoadOnStartUp';
|
||||||
|
ssFontsVersion = ssSettings + ssFonts + 'Version';
|
||||||
|
ssFontsLink = ssSettings + ssFonts + 'UpdateLink';
|
||||||
|
ssFontsVersionLink = ssSettings + ssFonts + 'VersionLink';
|
||||||
|
ssFontsPath = ssSettings + ssFonts + 'Path';
|
||||||
|
|
||||||
|
ssIncludesPath = ssSettings + ssIncludes + 'Path';
|
||||||
|
ssInterpreterType = ssSettings + ssInterpreter + 'Type';
|
||||||
|
|
||||||
|
ssTabsOpenNextOnClose = ssSettings + ssTabs + 'OpenNextOnClose';
|
||||||
|
ssTabsOpenScriptInNewTab = ssSettings + ssTabs + 'OpenScriptInNewTab';
|
||||||
|
ssTabsCheckBeforeOpen = ssSettings + ssTabs + 'CheckTabsBeforeOpen';
|
||||||
|
|
||||||
|
ssColourPickerShowHistoryOnPick = ssSettings + ssColourPicker + 'ShowHistoryOnPick';
|
||||||
|
ssColourPickerAddToHistoryOnPick = ssSettings + ssColourPicker + 'AddToHistoryOnPick';
|
||||||
|
|
||||||
|
|
||||||
|
ssScriptsPath = ssSettings + ssScripts + 'Path';
|
||||||
|
|
||||||
|
ssCodeHintsShowAutomatically = ssSettings + 'CodeHints/ShowAutomatically';
|
||||||
|
ssCodeCompletionShowAutomatically = ssSettings + 'CodeCompletion/ShowAutomatically';
|
||||||
|
|
||||||
|
|
||||||
|
ssSourceEditorLazColors = ssSettings + ssSourceEditor + 'LazColors';
|
||||||
|
ssSourceEditorDefScriptPath = ssSettings + ssSourceEditor + 'DefScriptPath';
|
||||||
|
|
||||||
|
ssNewsLink = ssSettings + ssNews + 'URL';
|
||||||
|
ssPluginsPath = ssSettings + ssPlugins + 'Path';
|
||||||
|
|
||||||
|
ssExtensionsExtensionN = ssExtensions + 'Extension';
|
||||||
|
ssExtensionsPath = ssSettings + ssExtensions + 'Path';
|
||||||
|
ssExtensionsCount = ssExtensions + 'ExtensionCount';
|
||||||
|
ssExtensionsFileExtension = ssSettings + ssExtensions + 'FileExtension';
|
||||||
|
|
||||||
|
ssTrayAlwaysVisible = ssSettings + ssTray + 'AlwaysVisible';
|
||||||
|
|
||||||
|
ssConsoleVisible = ssLastConfig + ssConsole + 'Visible';
|
||||||
|
|
||||||
|
ssMainFormPosition = ssLastConfig + ssMainForm + 'Position';
|
||||||
|
ssMainFormState = ssLastConfig + ssMainForm + 'State';
|
||||||
|
ssMainFormNormalSize = ssSettings + ssMainForm + 'NormalSize';
|
||||||
|
ssFunctionListShown = ssLastConfig + ssMainForm + 'FunctionListShown';
|
||||||
|
|
||||||
|
ssFunctionListShowOnStart = ssSettings + 'FunctionList/ShowOnStart';
|
||||||
|
|
||||||
|
ssMaxRecentFiles = ssSettings + 'General/MaxRecentFiles';
|
||||||
|
ssRecentFiles = ssLastConfig + ssMainForm + 'RecentFiles';
|
||||||
|
ssRecentFilesCount = ssLastConfig + ssMainForm + 'RecentFiles/Count';
|
||||||
|
ssRecentFileN = ssLastConfig + ssMainForm + 'RecentFiles/File';
|
||||||
|
|
@ -62,7 +62,7 @@ uses
|
|||||||
settings, updater;
|
settings, updater;
|
||||||
|
|
||||||
const
|
const
|
||||||
SimbaVersion = 970;
|
SimbaVersion = 972;
|
||||||
|
|
||||||
interp_PS = 0; //PascalScript
|
interp_PS = 0; //PascalScript
|
||||||
interp_RT = 1; //RUTIS
|
interp_RT = 1; //RUTIS
|
||||||
@ -82,6 +82,8 @@ const
|
|||||||
shortcut_PickColourKey = VK_P;
|
shortcut_PickColourKey = VK_P;
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
|
{$I settings_const.inc}
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
{ TMufasaTab }
|
{ TMufasaTab }
|
||||||
@ -768,7 +770,7 @@ end;
|
|||||||
|
|
||||||
function TSimbaForm.GetInterpreter: Integer;
|
function TSimbaForm.GetInterpreter: Integer;
|
||||||
begin
|
begin
|
||||||
result := StrToIntDef(LoadSettingDef('Settings/Interpreter/Type','0'),0);
|
result := StrToIntDef(LoadSettingDef(ssInterpreterType, '0'),0);
|
||||||
if (result < 0) or (result > 2) then
|
if (result < 0) or (result > 2) then
|
||||||
begin
|
begin
|
||||||
SetInterpreter(0);
|
SetInterpreter(0);
|
||||||
@ -778,12 +780,12 @@ end;
|
|||||||
|
|
||||||
function TSimbaForm.GetDefScriptPath: string;
|
function TSimbaForm.GetDefScriptPath: string;
|
||||||
begin
|
begin
|
||||||
result :=LoadSettingDef('Settings/SourceEditor/DefScriptPath', ExpandFileName(MainDir+DS+'default.simba'));
|
result :=LoadSettingDef(ssSourceEditorDefScriptPath, ExpandFileName(MainDir+DS+'default.simba'));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TSimbaForm.GetScriptPath: string;
|
function TSimbaForm.GetScriptPath: string;
|
||||||
begin
|
begin
|
||||||
result :=IncludeTrailingPathDelimiter(LoadSettingDef('Settings/Scripts/Path', ExpandFileName(MainDir+DS+'Scripts' + DS)));
|
result :=IncludeTrailingPathDelimiter(LoadSettingDef(ssScriptsPath, ExpandFileName(MainDir+DS+'Scripts' + DS)));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TSimbaForm.HandleOpenFileData;
|
procedure TSimbaForm.HandleOpenFileData;
|
||||||
@ -992,7 +994,7 @@ var
|
|||||||
begin
|
begin
|
||||||
UpdateTimer.Interval:= MaxInt;
|
UpdateTimer.Interval:= MaxInt;
|
||||||
FontUpdate;
|
FontUpdate;
|
||||||
chk := LowerCase(LoadSettingDef('Settings/Updater/CheckForUpdates','True'));
|
chk := LowerCase(LoadSettingDef(ssCheckUpdate, 'True'));
|
||||||
|
|
||||||
if chk <> 'true' then
|
if chk <> 'true' then
|
||||||
Exit;
|
Exit;
|
||||||
@ -1008,7 +1010,7 @@ begin
|
|||||||
mDebugLn(format('Current Simba version: %d',[SimbaVersion]));
|
mDebugLn(format('Current Simba version: %d',[SimbaVersion]));
|
||||||
mDebugLn('Latest Simba Version: ' + IntToStr(LatestVersion));
|
mDebugLn('Latest Simba Version: ' + IntToStr(LatestVersion));
|
||||||
end;
|
end;
|
||||||
time := StrToIntDef(LoadSettingDef('Settings/Updater/CheckEveryXMinutes','30'),30);
|
time := StrToIntDef(LoadSettingDef(ssCheckUpdateMinutes, '30'),30);
|
||||||
UpdateTimer.Interval:= time {mins} * 60 {secs} * 1000 {ms};//Every half hour
|
UpdateTimer.Interval:= time {mins} * 60 {secs} * 1000 {ms};//Every half hour
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -1154,7 +1156,7 @@ begin
|
|||||||
OldIndex := PageControl1.TabIndex;
|
OldIndex := PageControl1.TabIndex;
|
||||||
if TabIndex = OldIndex then
|
if TabIndex = OldIndex then
|
||||||
begin;
|
begin;
|
||||||
if lowercase(LoadSettingDef('Settings/Tabs/OpenNextOnClose','False')) = 'false' then
|
if lowercase(LoadSettingDef(ssTabsOpenNextOnClose, 'False')) = 'false' then
|
||||||
OldIndex := LastTab //We are closing the 'current' tab, lets go back in history
|
OldIndex := LastTab //We are closing the 'current' tab, lets go back in history
|
||||||
else
|
else
|
||||||
OldIndex := Min(Tabs.Count - 1,OldIndex + 1);
|
OldIndex := Min(Tabs.Count - 1,OldIndex + 1);
|
||||||
@ -1364,43 +1366,52 @@ procedure TSimbaForm.CreateDefaultEnvironment;
|
|||||||
var
|
var
|
||||||
PluginsPath,extensionsPath : string;
|
PluginsPath,extensionsPath : string;
|
||||||
begin
|
begin
|
||||||
CreateSetting('Settings/Updater/CheckForUpdates','True');
|
CreateSetting(ssCheckUpdate, 'True');
|
||||||
CreateSetting('Settings/Updater/CheckEveryXMinutes','30');
|
CreateSetting(ssCheckUpdateMinutes, '30');
|
||||||
CreateSetting('Settings/Interpreter/Type', '0');
|
CreateSetting(ssInterpreterType, '0');
|
||||||
CreateSetting('Settings/Fonts/LoadOnStartUp', 'True');
|
CreateSetting(ssLoadFontsOnStart, 'True');
|
||||||
CreateSetting('Settings/Fonts/Version','-1');
|
CreateSetting(ssFontsVersion, '-1');
|
||||||
CreateSetting('Settings/Tabs/OpenNextOnClose','False');
|
CreateSetting(ssTabsOpenNextOnClose, 'False');
|
||||||
CreateSetting('Settings/Tabs/OpenScriptInNewTab','True');
|
CreateSetting(ssTabsOpenScriptInNewTab, 'True');
|
||||||
CreateSetting('Settings/Tabs/CheckTabsBeforeOpen','True');
|
CreateSetting(ssTabsCheckBeforeOpen, 'True');
|
||||||
CreateSetting('Settings/ColourPicker/ShowHistoryOnPick', 'True');
|
CreateSetting(ssColourPickerShowHistoryOnPick, 'True');
|
||||||
CreateSetting('Settings/General/MaxRecentFiles','10');
|
CreateSetting(ssMaxRecentFiles, '10');
|
||||||
CreateSetting('Settings/MainForm/NormalSize','739:555');
|
CreateSetting(ssMainFormNormalSize, '739:555');
|
||||||
CreateSetting('Settings/FunctionList/ShowOnStart','True');
|
CreateSetting(ssFunctionListShowOnStart, 'True');
|
||||||
CreateSetting('Settings/CodeHints/ShowAutomatically','True');
|
CreateSetting(ssCodeHintsShowAutomatically, 'True');
|
||||||
CreateSetting('Settings/CodeCompletion/ShowAutomatically','True');
|
CreateSetting(ssCodeCompletionShowAutomatically, 'True');
|
||||||
CreateSetting('Settings/SourceEditor/LazColors','True');
|
CreateSetting(ssSourceEditorLazColors, 'True');
|
||||||
{$IFDEF USE_EXTENSIONS}CreateSetting('Settings/Extensions/FileExtension','sex');{$ENDIF}
|
|
||||||
|
|
||||||
CreateSetting('Settings/Updater/RemoteLink',SimbaURL + 'Simba'{$IFDEF WINDOWS} +'.exe'{$ENDIF});
|
{$IFDEF USE_EXTENSIONS}
|
||||||
CreateSetting('Settings/Updater/RemoteVersionLink',SimbaURL + 'Version');
|
CreateSetting(ssExtensionsFileExtension, 'sex');
|
||||||
CreateSetting('Settings/Fonts/VersionLink', FontURL + 'Version');
|
{$ENDIF}
|
||||||
CreateSetting('Settings/Fonts/UpdateLink', FontURL + 'Fonts.tar.bz2');
|
|
||||||
|
|
||||||
CreateSetting('Settings/News/URL', 'http://simba.villavu.com/bin/news');
|
CreateSetting(ssUpdaterLink, SimbaURL + 'Simba'{$IFDEF WINDOWS} +'.exe'{$ENDIF});
|
||||||
|
CreateSetting(ssUpdaterVersionLink, SimbaURL + 'Version');
|
||||||
|
CreateSetting(ssFontsVersionLink, FontURL + 'Version');
|
||||||
|
CreateSetting(ssFontsLink, FontURL + 'Fonts.tar.bz2');
|
||||||
|
|
||||||
|
CreateSetting(ssNewsLink, 'http://simba.villavu.com/bin/news');
|
||||||
|
|
||||||
{Creates the paths and returns the path}
|
{Creates the paths and returns the path}
|
||||||
PluginsPath := CreateSetting('Settings/Plugins/Path', ExpandFileName(MainDir+ DS+ 'Plugins' + DS));
|
PluginsPath := CreateSetting(ssPluginsPath, ExpandFileName(MainDir + DS + 'Plugins' + DS));
|
||||||
|
|
||||||
{$IFDEF USE_EXTENSIONS}
|
{$IFDEF USE_EXTENSIONS}
|
||||||
extensionsPath := CreateSetting('Settings/Extensions/Path',ExpandFileName(MainDir +DS + 'Extensions' + DS));
|
extensionsPath := CreateSetting(ssExtensionsPath,
|
||||||
CreateSetting('Extensions/ExtensionCount','0');
|
ExpandFileName(MainDir +DS + 'Extensions' + DS));
|
||||||
|
CreateSetting(ssExtensionsCount, '0');
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
CreateSetting('LastConfig/MainForm/Position','');
|
|
||||||
CreateSetting('LastConfig/MainForm/State','Normal');
|
CreateSetting(ssMainFormPosition, '');
|
||||||
|
CreateSetting(ssMainFormState, 'Normal');
|
||||||
|
|
||||||
{$ifdef MSWindows}
|
{$ifdef MSWindows}
|
||||||
CreateSetting('LastConfig/Console/Visible','False');
|
CreateSetting(ssConsoleVisible, 'False');
|
||||||
ShowConsole(False);
|
ShowConsole(False);
|
||||||
{$endif}
|
{$endif}
|
||||||
CreateSetting('Settings/Tray/AlwaysVisible', 'True');
|
|
||||||
|
CreateSetting(ssTrayAlwaysVisible, 'True');
|
||||||
|
|
||||||
if not DirectoryExists(IncludePath) then
|
if not DirectoryExists(IncludePath) then
|
||||||
CreateDir(IncludePath);
|
CreateDir(IncludePath);
|
||||||
if not DirectoryExists(FontPath) then
|
if not DirectoryExists(FontPath) then
|
||||||
@ -1429,7 +1440,7 @@ var
|
|||||||
i,ii : integer;
|
i,ii : integer;
|
||||||
begin
|
begin
|
||||||
self.BeginFormUpdate;
|
self.BeginFormUpdate;
|
||||||
str := LoadSettingDef('LastConfig/MainForm/Position','');
|
str := LoadSettingDef(ssMainFormPosition, '');
|
||||||
if str <> '' then
|
if str <> '' then
|
||||||
begin;
|
begin;
|
||||||
Data := Explode(':',str);
|
Data := Explode(':',str);
|
||||||
@ -1440,36 +1451,38 @@ begin
|
|||||||
Self.Width:= StrToIntDef(Data[2],self.width);
|
Self.Width:= StrToIntDef(Data[2],self.width);
|
||||||
Self.Height:= StrToIntDef(Data[3],self.height);
|
Self.Height:= StrToIntDef(Data[3],self.height);
|
||||||
end;
|
end;
|
||||||
str := lowercase(LoadSettingDef('LastConfig/MainForm/State','Normal'));
|
str := lowercase(LoadSettingDef(ssMainFormState, 'Normal'));
|
||||||
if str = 'maximized' then
|
if str = 'maximized' then
|
||||||
self.windowstate := wsMaximized
|
self.windowstate := wsMaximized
|
||||||
else
|
else
|
||||||
// if str = 'normal' then
|
// if str = 'normal' then
|
||||||
Self.WindowState := wsNormal;
|
Self.WindowState := wsNormal;
|
||||||
if SettingExists('LastConfig/MainForm/RecentFiles/Count') then
|
if SettingExists(ssRecentFilesCount) then
|
||||||
begin;
|
begin;
|
||||||
ii := StrToIntDef(LoadSettingDef('LastConfig/MainForm/RecentFiles/Count','-1'),-1);
|
ii := StrToIntDef(LoadSettingDef(ssRecentFilesCount, '-1'), -1);
|
||||||
for i := 0 to ii do
|
for i := 0 to ii do
|
||||||
begin
|
begin
|
||||||
str := LoadSettingDef('LastConfig/MainForm/RecentFiles/File' + inttostr(I),'');
|
str := LoadSettingDef(ssRecentFileN + inttostr(I),'');
|
||||||
if str <> '' then
|
if str <> '' then
|
||||||
AddRecentFile(str);
|
AddRecentFile(str);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
str := LowerCase(LoadSettingDef('Settings/FunctionList/ShowOnStart','True'));
|
str := LowerCase(LoadSettingDef(ssFunctionListShowOnStart, 'True'));
|
||||||
str2 := lowercase(LoadSettingDef('LastConfig/MainForm/FunctionListShown',''));
|
str2 := lowercase(LoadSettingDef(ssFunctionListShown, ''));
|
||||||
if (str = 'true') or (str2 = 'true') then
|
if (str = 'true') or (str2 = 'true') then
|
||||||
FunctionListShown(True)
|
FunctionListShown(True)
|
||||||
else
|
else
|
||||||
FunctionListShown(false);
|
FunctionListShown(false);
|
||||||
|
|
||||||
{$ifdef MSWindows}
|
{$ifdef MSWindows}
|
||||||
str := LowerCase(LoadSettingDef('LastConfig/Console/Visible','True'));
|
str := LowerCase(LoadSettingDef(ssConsoleVisible, 'True'));
|
||||||
if str = 'true' then
|
if str = 'true' then
|
||||||
ShowConsole(True)
|
ShowConsole(True)
|
||||||
else
|
else
|
||||||
ShowConsole(false);
|
ShowConsole(false);
|
||||||
{$endif}
|
{$endif}
|
||||||
if Lowercase(LoadSettingDef('Settings/Tray/AlwaysVisible', 'True')) <> 'true' then
|
|
||||||
|
if Lowercase(LoadSettingDef(ssTrayAlwaysVisible, 'True')) <> 'true' then
|
||||||
begin
|
begin
|
||||||
MTrayIcon.Hide;
|
MTrayIcon.Hide;
|
||||||
writeln('Hiding tray.');
|
writeln('Hiding tray.');
|
||||||
@ -1488,36 +1501,36 @@ begin
|
|||||||
with SettingsForm.Settings do
|
with SettingsForm.Settings do
|
||||||
begin
|
begin
|
||||||
if Self.WindowState = wsMaximized then
|
if Self.WindowState = wsMaximized then
|
||||||
SetSetting('LastConfig/MainForm/State','maximized')
|
SetSetting(ssMainFormState, 'maximized')
|
||||||
else
|
else
|
||||||
begin; //Only save the form position if its not maximized.
|
begin; //Only save the form position if its not maximized.
|
||||||
SetSetting('LastConfig/MainForm/State','normal');
|
SetSetting(ssMainFormState, 'normal');
|
||||||
Data := ConvArr([inttostr(Self.left),inttostr(self.top),inttostr(self.width),inttostr(self.height)]);
|
Data := ConvArr([inttostr(Self.left),inttostr(self.top),inttostr(self.width),inttostr(self.height)]);
|
||||||
SetSetting('LastConfig/MainForm/Position', Implode(':',Data ));
|
SetSetting(ssMainFormPosition, Implode(':',Data ));
|
||||||
end;
|
end;
|
||||||
DeleteKey('LastConfig/MainForm/RecentFiles');
|
DeleteKey(ssRecentFiles);
|
||||||
if RecentFiles.Count > 0 then
|
if RecentFiles.Count > 0 then
|
||||||
begin
|
begin
|
||||||
SetSetting('LastConfig/MainForm/RecentFiles/Count',inttostr(RecentFiles.Count));
|
SetSetting(ssRecentFiles + '/Count', inttostr(RecentFiles.Count));
|
||||||
SetLength(data,RecentFiles.Count);
|
SetLength(data,RecentFiles.Count);
|
||||||
for i := 0 to RecentFiles.Count - 1 do
|
for i := 0 to RecentFiles.Count - 1 do
|
||||||
SetSetting('LastConfig/MainForm/RecentFiles/File'+inttostr(i),RecentFiles[i]);
|
SetSetting(ssRecentFileN + inttostr(i),RecentFiles[i]);
|
||||||
end;
|
end;
|
||||||
if MenuItemFunctionList.Checked then
|
if MenuItemFunctionList.Checked then
|
||||||
SetSetting('LastConfig/MainForm/FunctionListShown','True')
|
SetSetting(ssFunctionListShown, 'True')
|
||||||
else
|
else
|
||||||
SetSetting('LastConfig/MainForm/FunctionListShown','False');
|
SetSetting(ssFunctionListShown, 'False');
|
||||||
{$ifdef MSWindows}
|
{$ifdef MSWindows}
|
||||||
if ConsoleVisible then
|
if ConsoleVisible then
|
||||||
SetSetting('LastConfig/Console/Visible','True')
|
SetSetting(ssConsoleVisible, 'True')
|
||||||
else
|
else
|
||||||
SetSetting('LastConfig/Console/Visible','False');
|
SetSetting(ssConsoleVisible, 'False');
|
||||||
{$endif}
|
{$endif}
|
||||||
{$IFDEF USE_EXTENSIONS}
|
{$IFDEF USE_EXTENSIONS}
|
||||||
SetSetting('Extensions/ExtensionCount',inttostr(ExtManager.Extensions.Count));
|
SetSetting(ssExtensionsCount, inttostr(ExtManager.Extensions.Count));
|
||||||
for i := 0 to ExtManager.Extensions.Count-1 do
|
for i := 0 to ExtManager.Extensions.Count-1 do
|
||||||
begin;
|
begin;
|
||||||
path :='Extensions/Extension' + inttostr(I);
|
path := ssExtensionsExtensionN + inttostr(I);
|
||||||
SetSetting(Path + '/Path',TVirtualSimbaExtension(ExtManager.Extensions[i]).Filename);
|
SetSetting(Path + '/Path',TVirtualSimbaExtension(ExtManager.Extensions[i]).Filename);
|
||||||
SetSetting(Path + '/Enabled',BoolToStr(TVirtualSimbaExtension(ExtManager.Extensions[i]).Enabled,True));
|
SetSetting(Path + '/Enabled',BoolToStr(TVirtualSimbaExtension(ExtManager.Extensions[i]).Enabled,True));
|
||||||
end;
|
end;
|
||||||
@ -1539,7 +1552,7 @@ var
|
|||||||
result := false;
|
result := false;
|
||||||
if (number < 0) or (number >= extCount) then
|
if (number < 0) or (number >= extCount) then
|
||||||
exit;
|
exit;
|
||||||
path := 'Extensions/Extension' + inttostr(number);
|
path := ssExtensionsExtensionN + inttostr(number);
|
||||||
if SettingExists(Path) = false then
|
if SettingExists(Path) = false then
|
||||||
exit;
|
exit;
|
||||||
ExtPath := LoadSettingDef(Path + '/Path','');
|
ExtPath := LoadSettingDef(Path + '/Path','');
|
||||||
@ -1555,11 +1568,11 @@ var
|
|||||||
i : integer;
|
i : integer;
|
||||||
path : string;
|
path : string;
|
||||||
begin;
|
begin;
|
||||||
path := 'Extensions/Extension';
|
path := ssExtensionsExtensionN;
|
||||||
SettingsForm.Settings.DeleteKey(path + inttostr(number));
|
SettingsForm.Settings.DeleteKey(path + inttostr(number));
|
||||||
for i := number + 1 to extCount - 1 do
|
for i := number + 1 to extCount - 1 do
|
||||||
SettingsForm.Settings.RenameKey(path + inttostr(i),'Extension' + inttostr(i-1));
|
SettingsForm.Settings.RenameKey(path + inttostr(i),'Extension' + inttostr(i-1));
|
||||||
SetSetting('Extensions/ExtensionCount',inttostr(extCount - 1),true);
|
SetSetting(ssExtensionsCount, inttostr(extCount - 1),true);
|
||||||
dec(extCount);
|
dec(extCount);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -1567,13 +1580,13 @@ var
|
|||||||
str,str2 : string;
|
str,str2 : string;
|
||||||
i : integer;
|
i : integer;
|
||||||
begin
|
begin
|
||||||
extCount := StrToIntDef(LoadSettingDef('Extensions/ExtensionCount/','0'),0);
|
extCount := StrToIntDef(LoadSettingDef(ssExtensionsCount, '0'),0);
|
||||||
for i := 0 to extCount - 1 do
|
for i := 0 to extCount - 1 do
|
||||||
while (i < extCount) and not LoadExtension(i) do
|
while (i < extCount) and not LoadExtension(i) do
|
||||||
DeleteExtension(i);
|
DeleteExtension(i);
|
||||||
SetSetting('Extensions/ExtensionCount',inttostr(extCount));
|
SetSetting(ssExtensionsCount, inttostr(extCount));
|
||||||
str := LoadSettingDef('Settings/Extensions/Path',ExpandFileName(MainDir +DS + 'Extensions' + DS));
|
str := LoadSettingDef(ssExtensionsPath, ExpandFileName(MainDir +DS + 'Extensions' + DS));
|
||||||
str2 := LoadSettingDef('Settings/Extensions/FileExtension','sex');
|
str2 := LoadSettingDef(ssExtensionsFileExtension, 'sex');
|
||||||
ExtManager.LoadPSExtensionsDir(str,str2);
|
ExtManager.LoadPSExtensionsDir(str,str2);
|
||||||
{$ELSE}
|
{$ELSE}
|
||||||
begin
|
begin
|
||||||
@ -1585,7 +1598,7 @@ var
|
|||||||
MaxRecentFiles : integer;
|
MaxRecentFiles : integer;
|
||||||
Len,i : integer;
|
Len,i : integer;
|
||||||
begin
|
begin
|
||||||
MaxRecentFiles:= StrToIntDef(LoadSettingDef('Settings/General/MaxRecentFiles','10'),10);
|
MaxRecentFiles:= StrToIntDef(LoadSettingDef(ssMaxRecentFiles, '10'), 10);
|
||||||
i := RecentFiles.IndexOf(filename);
|
i := RecentFiles.IndexOf(filename);
|
||||||
if i <> -1 then
|
if i <> -1 then
|
||||||
RecentFiles.Delete(i);
|
RecentFiles.Delete(i);
|
||||||
@ -1674,7 +1687,7 @@ begin
|
|||||||
if selector.haspicked then
|
if selector.haspicked then
|
||||||
Thread.Client.IOManager.SetTarget(Selector.LastPick);
|
Thread.Client.IOManager.SetTarget(Selector.LastPick);
|
||||||
|
|
||||||
loadFontsOnScriptStart := (lowercase(LoadSettingDef('Settings/Fonts/LoadOnStartUp', 'True')) = 'true');
|
loadFontsOnScriptStart := (lowercase(LoadSettingDef(ssLoadFontsOnStart, 'True')) = 'true');
|
||||||
|
|
||||||
if (loadFontsOnScriptStart) then
|
if (loadFontsOnScriptStart) then
|
||||||
begin
|
begin
|
||||||
@ -1930,12 +1943,12 @@ var
|
|||||||
SizeStr : string;
|
SizeStr : string;
|
||||||
Data : TStringArray;
|
Data : TStringArray;
|
||||||
begin
|
begin
|
||||||
SizeStr := LoadSettingDef('Settings/MainForm/NormalSize','739:555');
|
SizeStr := LoadSettingDef(ssMainFormNormalSize, '739:555');
|
||||||
Data := Explode(':',SizeStr);
|
Data := Explode(':',SizeStr);
|
||||||
if length(Data) = 2 then
|
if length(Data) = 2 then
|
||||||
begin
|
begin
|
||||||
Self.Width:= StrToIntDef(Data[0],739);
|
Self.Width:= StrToIntDef(Data[0], 739);
|
||||||
Self.Height:= StrToIntDef(Data[1],555);
|
Self.Height:= StrToIntDef(Data[1], 555);
|
||||||
end else
|
end else
|
||||||
begin;
|
begin;
|
||||||
self.width := 739;
|
self.width := 739;
|
||||||
@ -2812,7 +2825,7 @@ end;
|
|||||||
procedure TSimbaForm.MTrayIconClick(Sender: TObject);
|
procedure TSimbaForm.MTrayIconClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
self.Show;
|
self.Show;
|
||||||
if Lowercase(LoadSettingDef('Settings/Tray/AlwaysVisible', 'True')) <> 'true' then
|
if Lowercase(LoadSettingDef(ssTrayAlwaysVisible, 'True')) <> 'true' then
|
||||||
MTrayIcon.Hide;
|
MTrayIcon.Hide;
|
||||||
if Self.CanFocus then
|
if Self.CanFocus then
|
||||||
self.SetFocus;
|
self.SetFocus;
|
||||||
@ -2822,7 +2835,7 @@ function TSimbaForm.GetSimbaNews: String;
|
|||||||
var
|
var
|
||||||
t: TDownloadThread;
|
t: TDownloadThread;
|
||||||
begin
|
begin
|
||||||
t := TDownloadThread.Create(LoadSettingDef('Settings/News/URL', 'http://Simba.villavu.com/bin/news'),
|
t := TDownloadThread.Create(LoadSettingDef(ssNewsLink, 'http://Simba.villavu.com/bin/news'),
|
||||||
@Result);
|
@Result);
|
||||||
t.Resume;
|
t.Resume;
|
||||||
while not t.done do
|
while not t.done do
|
||||||
@ -2834,13 +2847,13 @@ end;
|
|||||||
|
|
||||||
procedure TSimbaForm.SetDefScriptPath(const AValue: string);
|
procedure TSimbaForm.SetDefScriptPath(const AValue: string);
|
||||||
begin
|
begin
|
||||||
SetSetting('Settings/SourceEditor/DefScriptPath',AValue,True);
|
SetSetting(ssSourceEditorDefScriptPath, AValue,True);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{$IFDEF USE_EXTENSIONS}
|
{$IFDEF USE_EXTENSIONS}
|
||||||
procedure TSimbaForm.SetExtPath(const AValue: string);
|
procedure TSimbaForm.SetExtPath(const AValue: string);
|
||||||
begin
|
begin
|
||||||
SetSetting('Settings/Extensions/Path',AValue,true);
|
SetSetting(ssExtensionsPath, AValue,true);
|
||||||
end;
|
end;
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
@ -2881,10 +2894,10 @@ begin
|
|||||||
cobj := TColourPickerObject.Create(c, Classes.Point(x,y), '');
|
cobj := TColourPickerObject.Create(c, Classes.Point(x,y), '');
|
||||||
|
|
||||||
{ TODO: This should be no problem if the form is hidden? }
|
{ TODO: This should be no problem if the form is hidden? }
|
||||||
if lowercase(LoadSettingDef('Settings/ColourPicker/AddToHistoryOnPick', 'True')) = 'true' then
|
if lowercase(LoadSettingDef(ssColourPickerAddToHistoryOnPick, 'True')) = 'true' then
|
||||||
ColourHistoryForm.AddColObj(cobj, true);
|
ColourHistoryForm.AddColObj(cobj, true);
|
||||||
|
|
||||||
if lowercase(LoadSettingDef('Settings/ColourPicker/ShowHistoryOnPick', 'True')) = 'true' then
|
if lowercase(LoadSettingDef(ssColourPickerShowHistoryOnPick, 'True')) = 'true' then
|
||||||
ColourHistoryForm.Show;
|
ColourHistoryForm.Show;
|
||||||
|
|
||||||
FormWritelnEx('Picked colour: ' + inttostr(c) + ' at (' + inttostr(x) + ', ' + inttostr(y) + ')');
|
FormWritelnEx('Picked colour: ' + inttostr(c) + ' at (' + inttostr(x) + ', ' + inttostr(y) + ')');
|
||||||
@ -3004,34 +3017,34 @@ end;
|
|||||||
|
|
||||||
function TSimbaForm.GetShowParamHintAuto: boolean;
|
function TSimbaForm.GetShowParamHintAuto: boolean;
|
||||||
begin
|
begin
|
||||||
Result := LowerCase(LoadSettingDef('Settings/CodeHints/ShowAutomatically','True')) = 'true';
|
Result := LowerCase(LoadSettingDef(ssCodeHintsShowAutomatically, 'True')) = 'true';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TSimbaForm.GetShowCodeCompletionAuto: boolean;
|
function TSimbaForm.GetShowCodeCompletionAuto: boolean;
|
||||||
begin
|
begin
|
||||||
Result := LowerCase(LoadSettingDef('Settings/CodeCompletion/ShowAutomatically','True')) = 'true';
|
Result := LowerCase(LoadSettingDef(ssCodeCompletionShowAutomatically, 'True')) = 'true';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TSimbaForm.SetFontPath(const AValue: String);
|
procedure TSimbaForm.SetFontPath(const AValue: String);
|
||||||
begin
|
begin
|
||||||
SetSetting('Settings/Fonts/Path',AValue,true);
|
SetSetting(ssFontsPath, AValue,true);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TSimbaForm.GetFontPath: String;
|
function TSimbaForm.GetFontPath: String;
|
||||||
begin
|
begin
|
||||||
Result := IncludeTrailingPathDelimiter(LoadSettingDef('Settings/Fonts/Path', ExpandFileName(MainDir+DS+'Fonts' + DS)));
|
Result := IncludeTrailingPathDelimiter(LoadSettingDef(ssFontsPath, ExpandFileName(MainDir+DS+'Fonts' + DS)));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{$IFDEF USE_EXTENSIONS}
|
{$IFDEF USE_EXTENSIONS}
|
||||||
function TSimbaForm.GetExtPath: string;
|
function TSimbaForm.GetExtPath: string;
|
||||||
begin
|
begin
|
||||||
Result := IncludeTrailingPathDelimiter(LoadSettingDef('Settings/Extensions/Path', ExpandFileName(MainDir+DS+'Extensions' + DS)));
|
Result := IncludeTrailingPathDelimiter(LoadSettingDef(ssExtensionsPath, ExpandFileName(MainDir+DS+'Extensions' + DS)));
|
||||||
end;
|
end;
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
function TSimbaForm.GetHighlighter: TSynCustomHighlighter;
|
function TSimbaForm.GetHighlighter: TSynCustomHighlighter;
|
||||||
begin
|
begin
|
||||||
if lowercase(LoadSettingDef('Settings/SourceEditor/LazColors','True')) = 'true' then
|
if lowercase(LoadSettingDef(ssSourceEditorLazColors, 'True')) = 'true' then
|
||||||
result := LazHighlighter
|
result := LazHighlighter
|
||||||
else
|
else
|
||||||
result := SCARHighlighter;
|
result := SCARHighlighter;
|
||||||
@ -3039,17 +3052,17 @@ end;
|
|||||||
|
|
||||||
function TSimbaForm.GetIncludePath: String;
|
function TSimbaForm.GetIncludePath: String;
|
||||||
begin
|
begin
|
||||||
Result := IncludeTrailingPathDelimiter(LoadSettingDef('Settings/Includes/Path', ExpandFileName(MainDir+DS+'Includes' + DS)));
|
Result := IncludeTrailingPathDelimiter(LoadSettingDef(ssIncludesPath, ExpandFileName(MainDir+DS+'Includes' + DS)));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TSimbaForm.GetPluginPath: string;
|
function TSimbaForm.GetPluginPath: string;
|
||||||
begin
|
begin
|
||||||
Result := IncludeTrailingPathDelimiter(LoadSettingDef('Settings/Plugins/Path', ExpandFileName(MainDir+DS+'Plugins' + DS)));
|
Result := IncludeTrailingPathDelimiter(LoadSettingDef(ssPluginsPath, ExpandFileName(MainDir+DS+'Plugins' + DS)));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TSimbaForm.SetIncludePath(const AValue: String);
|
procedure TSimbaForm.SetIncludePath(const AValue: String);
|
||||||
begin
|
begin
|
||||||
SetSetting('Settings/Includes/Path',AValue,true);
|
SetSetting(ssIncludesPath, AValue,true);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TSimbaForm.SetInterpreter(const AValue: Integer);
|
procedure TSimbaForm.SetInterpreter(const AValue: Integer);
|
||||||
@ -3061,7 +3074,7 @@ begin
|
|||||||
with CurrScript.Synedit do
|
with CurrScript.Synedit do
|
||||||
if (Lines.text = DefaultScript) and not(CanUndo or CanRedo) then
|
if (Lines.text = DefaultScript) and not(CanUndo or CanRedo) then
|
||||||
UpdateCurrScript := true;
|
UpdateCurrScript := true;
|
||||||
SetSetting('Settings/Interpreter/Type',Inttostr(AValue),true);
|
SetSetting(ssInterpreterType, Inttostr(AValue),true);
|
||||||
UpdateInterpreter;
|
UpdateInterpreter;
|
||||||
if UpdateCurrScript then
|
if UpdateCurrScript then
|
||||||
CurrScript.SynEdit.Lines.text := DefaultScript;
|
CurrScript.SynEdit.Lines.text := DefaultScript;
|
||||||
@ -3069,12 +3082,12 @@ end;
|
|||||||
|
|
||||||
procedure TSimbaForm.SetPluginPath(const AValue: string);
|
procedure TSimbaForm.SetPluginPath(const AValue: string);
|
||||||
begin
|
begin
|
||||||
SetSetting('Settings/Plugins/Path',AValue,true);
|
SetSetting(ssPluginsPath, AValue,true);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TSimbaForm.SetScriptPath(const AValue: string);
|
procedure TSimbaForm.SetScriptPath(const AValue: string);
|
||||||
begin
|
begin
|
||||||
SetSetting('Settings/Scripts/Path',AValue,True);
|
SetSetting(ssScriptsPath, AValue,True);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TSimbaForm.SetScriptState(const State: TScriptState);
|
procedure TSimbaForm.SetScriptState(const State: TScriptState);
|
||||||
@ -3147,12 +3160,12 @@ begin
|
|||||||
if UpdatingFonts then
|
if UpdatingFonts then
|
||||||
exit;
|
exit;
|
||||||
UpdatingFonts := True;
|
UpdatingFonts := True;
|
||||||
CurrVersion := StrToIntDef(LoadSettingDef('Settings/Fonts/Version','-1'),-1);
|
CurrVersion := StrToIntDef(LoadSettingDef(ssFontsVersion, '-1'), -1);
|
||||||
LatestVersion := SimbaUpdateForm.GetLatestFontVersion;
|
LatestVersion := SimbaUpdateForm.GetLatestFontVersion;
|
||||||
if LatestVersion > CurrVersion then
|
if LatestVersion > CurrVersion then
|
||||||
begin;
|
begin;
|
||||||
formWriteln(format('New fonts available. Current version: %d. Latest version: %d',[CurrVersion,LatestVersion]));
|
formWriteln(format('New fonts available. Current version: %d. Latest version: %d',[CurrVersion,LatestVersion]));
|
||||||
FontDownload := TDownloadThread.Create(LoadSettingDef('Settings/Fonts/UpdateLink',FontURL + 'Fonts.tar.bz2'),
|
FontDownload := TDownloadThread.Create(LoadSettingDef(ssFontsLink, FontURL + 'Fonts.tar.bz2'),
|
||||||
@Fonts);
|
@Fonts);
|
||||||
FontDownload.resume;
|
FontDownload.resume;
|
||||||
while FontDownload.Done = false do
|
while FontDownload.Done = false do
|
||||||
@ -3172,8 +3185,8 @@ begin
|
|||||||
Idler;
|
Idler;
|
||||||
if UnTarrer.Result then
|
if UnTarrer.Result then
|
||||||
begin;
|
begin;
|
||||||
FormWriteln('Succesfully installed the new fonts!');
|
FormWriteln('Successfully installed the new fonts!');
|
||||||
SetSetting('Settings/Fonts/Version',IntToStr(LatestVersion),true);
|
SetSetting(ssFontsVersion, IntToStr(LatestVersion),true);
|
||||||
if Assigned(self.OCR_Fonts) then
|
if Assigned(self.OCR_Fonts) then
|
||||||
self.OCR_Fonts.Free;
|
self.OCR_Fonts.Free;
|
||||||
FormWriteln('Freeing the current fonts. Creating new ones now');
|
FormWriteln('Freeing the current fonts. Creating new ones now');
|
||||||
@ -3202,12 +3215,12 @@ end;
|
|||||||
|
|
||||||
procedure TSimbaForm.SetShowParamHintAuto(const AValue: boolean);
|
procedure TSimbaForm.SetShowParamHintAuto(const AValue: boolean);
|
||||||
begin
|
begin
|
||||||
SetSetting('Settings/CodeHints/ShowAutomatically', Booltostr(AValue,true));
|
SetSetting(ssCodeHintsShowAutomatically, Booltostr(AValue,true));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TSimbaForm.SetShowCodeCompletionAuto(const AValue: boolean);
|
procedure TSimbaForm.SetShowCodeCompletionAuto(const AValue: boolean);
|
||||||
begin
|
begin
|
||||||
SetSetting('Settings/CodeCompletion/ShowAutomatically', Booltostr(AValue,true));
|
SetSetting(ssCodeCompletionShowAutomatically, Booltostr(AValue,true));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{$ifdef mswindows}
|
{$ifdef mswindows}
|
||||||
@ -3335,7 +3348,7 @@ var
|
|||||||
OpenInNewTab : boolean;
|
OpenInNewTab : boolean;
|
||||||
begin
|
begin
|
||||||
Result := False;
|
Result := False;
|
||||||
OpenInNewTab:= (LowerCase(LoadSettingDef('Settings/Tabs/OpenScriptInNewTab','True')) = 'true');
|
OpenInNewTab:= (LowerCase(LoadSettingDef(ssTabsOpenScriptInNewTab, 'True')) = 'true');
|
||||||
if not OpenInNewTab then
|
if not OpenInNewTab then
|
||||||
if CanExitOrOpen = false then
|
if CanExitOrOpen = false then
|
||||||
Exit;
|
Exit;
|
||||||
@ -3347,7 +3360,7 @@ begin
|
|||||||
InitialDir := ScriptDir;
|
InitialDir := ScriptDir;
|
||||||
Options := [ofAllowMultiSelect, ofExtensionDifferent, ofPathMustExist, ofFileMustExist, ofEnableSizing, ofViewDetail];
|
Options := [ofAllowMultiSelect, ofExtensionDifferent, ofPathMustExist, ofFileMustExist, ofEnableSizing, ofViewDetail];
|
||||||
Filter:= 'Simba Files|*.simba;*.simb;*.cogat;*.mufa;*.txt' +
|
Filter:= 'Simba Files|*.simba;*.simb;*.cogat;*.mufa;*.txt' +
|
||||||
{$IFDEF USE_EXTENSIONS}';*.' + LoadSettingDef('Settings/Extensions/FileExtension', 'sex') + {$ENDIF}
|
{$IFDEF USE_EXTENSIONS}';*.' + LoadSettingDef(ssExtensionsFileExtension, 'sex') + {$ENDIF}
|
||||||
'|Any files|*.*';
|
'|Any files|*.*';
|
||||||
if Execute then
|
if Execute then
|
||||||
begin
|
begin
|
||||||
@ -3376,11 +3389,11 @@ begin
|
|||||||
if AlwaysOpenInNewTab then
|
if AlwaysOpenInNewTab then
|
||||||
OpenInNewTab := true
|
OpenInNewTab := true
|
||||||
else
|
else
|
||||||
OpenInNewTab:= (LowerCase(LoadSettingDef('Settings/Tabs/OpenScriptInNewTab','True')) = 'true');
|
OpenInNewTab:= (LowerCase(LoadSettingDef(ssTabsOpenScriptInNewTab,'True')) = 'true');
|
||||||
if CheckOtherTabs then
|
if CheckOtherTabs then
|
||||||
CheckTabsFirst := True
|
CheckTabsFirst := True
|
||||||
else
|
else
|
||||||
CheckTabsFirst := (Lowercase(LoadSettingDef('Settings/Tabs/CheckTabsBeforeOpen','True')) = 'true');
|
CheckTabsFirst := (Lowercase(LoadSettingDef(ssTabsCheckBeforeOpen, 'True')) = 'true');
|
||||||
if FileExistsUTF8(FileName) then
|
if FileExistsUTF8(FileName) then
|
||||||
begin;
|
begin;
|
||||||
if CheckTabsFirst then
|
if CheckTabsFirst then
|
||||||
@ -3455,7 +3468,7 @@ begin
|
|||||||
else
|
else
|
||||||
InitialDir := ScriptDir;
|
InitialDir := ScriptDir;
|
||||||
filter := 'Simba Files|*.simba;*.simb;*.cogat;*.mufa;*.txt' +
|
filter := 'Simba Files|*.simba;*.simb;*.cogat;*.mufa;*.txt' +
|
||||||
{$IFDEF USE_EXTENSIONS}';*.' + LoadSettingDef('Settings/Extensions/FileExtension','sex') + {$ENDIF}
|
{$IFDEF USE_EXTENSIONS}';*.' + LoadSettingDef(ssExtensionsFileExtension, 'sex') + {$ENDIF}
|
||||||
'|Any files|*.*';
|
'|Any files|*.*';
|
||||||
if Execute then
|
if Execute then
|
||||||
begin;
|
begin;
|
||||||
|
@ -241,7 +241,8 @@ begin
|
|||||||
FCancelling := False;
|
FCancelling := False;
|
||||||
FCancelled := True;
|
FCancelled := True;
|
||||||
DownloadSpeed.Visible := false;
|
DownloadSpeed.Visible := false;
|
||||||
Self.UpdateLog.Lines.Add('Download stopped at '+inttostr(DownloadProgress.Position)+'%... Simba did not succesfully update.');
|
Self.UpdateLog.Lines.Add('Download stopped at '+inttostr(DownloadProgress.Position)+
|
||||||
|
'%... Simba did not successfully update.');
|
||||||
// more detailed info
|
// more detailed info
|
||||||
mDebugLn('EXCEPTION IN UPDATEFORM: We either hit Cancel, or something went wrong with files');
|
mDebugLn('EXCEPTION IN UPDATEFORM: We either hit Cancel, or something went wrong with files');
|
||||||
if FileExists(Updater.BasePath + Updater.ReplacementFile + '_') then
|
if FileExists(Updater.BasePath + Updater.ReplacementFile + '_') then
|
||||||
|
1
README
1
README
@ -1,2 +1,3 @@
|
|||||||
This file is a stub. For more information, see http://wizzup.org/simba/
|
This file is a stub. For more information, see http://wizzup.org/simba/
|
||||||
|
|
||||||
|
bob
|
||||||
|
39
TODO
39
TODO
@ -3,31 +3,24 @@ Simple stuff, not required, may not be possible/useful:
|
|||||||
- Coloured writeln [ ]
|
- Coloured writeln [ ]
|
||||||
- Make an TAction for the Colour Picker. [ ]
|
- Make an TAction for the Colour Picker. [ ]
|
||||||
- Portable install (needs fiddling with settings and such) [ ]
|
- Portable install (needs fiddling with settings and such) [ ]
|
||||||
|
- Settings rewrite [ ]
|
||||||
- --no-extensions flag for Simba. [ ]
|
- --no-extensions flag for Simba. [ ]
|
||||||
|
|
||||||
|
- CTS/finder speedups and changes [X]
|
||||||
|
|
||||||
- CTS/finder speedups and changes [ ]
|
|
||||||
General ideas:
|
|
||||||
- everything subprocedure (lots of code)
|
|
||||||
|
|
||||||
- jit + comparison function (per cts) generated, call in loop
|
|
||||||
|
|
||||||
- comparison function (per cts), not generated, call in loop
|
|
||||||
|
|
||||||
- JIT (Generate comparison functions) [ ]
|
|
||||||
- Comparison functions for HSL/XYZ/L*a*b should check for
|
- Comparison functions for HSL/XYZ/L*a*b should check for
|
||||||
match on each component before calculating the next.
|
match on each component before calculating the next.
|
||||||
(see FindColorsToleranceOptimised)
|
(see FindColorsToleranceOptimised)
|
||||||
|
|
||||||
- Pass color information in struct [ ]
|
- Pass color information in struct [X]
|
||||||
- Precalculate screen bitmap in current cts / keep a cache
|
- Precalculate screen bitmap in current cts / keep a cache
|
||||||
to save comparisons [ ]
|
to save comparisons [X]
|
||||||
- Add CTS 3 [ ]
|
- Add CTS 3 [/]
|
||||||
- Add a direct RGB -> CIE L*a*b conversion [ ]
|
- Add a direct RGB -> CIE L*a*b conversion [/]
|
||||||
- Make sure colour conversions are inline [ ]
|
|
||||||
|
|
||||||
- More documentation:
|
- More documentation:
|
||||||
- Cover all functions by at least mentioning the definition [ ]
|
- Cover all functions by at least mentioning the definition [/]
|
||||||
|
- Imported functions as well?
|
||||||
- Write tutorial [ ]
|
- Write tutorial [ ]
|
||||||
- In depth documentation per function [ ]
|
- In depth documentation per function [ ]
|
||||||
|
|
||||||
@ -36,17 +29,17 @@ Simple stuff, not required, may not be possible/useful:
|
|||||||
- Lape! [ ]
|
- Lape! [ ]
|
||||||
|
|
||||||
- Integrate script manager [ ]
|
- Integrate script manager [ ]
|
||||||
- Basic support. (Install scripts) [ ]
|
- Basic support. (Install scripts) [X]
|
||||||
- Update functionality [ ]
|
- Update functionality [X]
|
||||||
- Uninstall scripts [ ]
|
- Uninstall scripts [X]
|
||||||
- Better storage / more stable storage [ ]
|
- Better storage / more stable storage [?]
|
||||||
- Pretty GUI [ ]
|
- Pretty GUI [/]
|
||||||
- Merging / storing usernames when updating [ ]
|
- Merging / storing usernames when updating [?]
|
||||||
|
|
||||||
- Make Simba more ``modular'':
|
- Make Simba more ``modular'':
|
||||||
- Fonts [ ]
|
- Fonts [ ]
|
||||||
- Interpreters [ ]
|
- Interpreters [/]
|
||||||
- Code completion/hints [ ]
|
- Code completion/hints [ ]
|
||||||
- Extensions [ ]
|
- Extensions [X]
|
||||||
- Interpreter system overhaul? [ ]
|
- Interpreter system overhaul? [ ]
|
||||||
|
|
||||||
|
@ -101,6 +101,11 @@ begin
|
|||||||
result := GetDirectories(path);
|
result := GetDirectories(path);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function ps_DeleteFile(const Filename: string): Boolean; extdecl;
|
||||||
|
begin
|
||||||
|
Result := CurrThread.Client.MFiles.DeleteFile(Filename);
|
||||||
|
end;
|
||||||
|
|
||||||
procedure ps_WriteINI(const Section, KeyName, NewString, FileName: string);extdecl;
|
procedure ps_WriteINI(const Section, KeyName, NewString, FileName: string);extdecl;
|
||||||
var
|
var
|
||||||
tempini : TIniFile;
|
tempini : TIniFile;
|
||||||
|
@ -172,12 +172,12 @@ begin;
|
|||||||
result := (((x >= Box.x1) and(x <= Box.x2)) and ((y >= box.y1) and (y <= box.y2)));
|
result := (((x >= Box.x1) and(x <= Box.x2)) and ((y >= box.y1) and (y <= box.y2)));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function ps_PointToBox(PT1,PT2 : TPoint) : TBox; extdecl;
|
function ps_PointToBox(topLeft,bottomRight: TPoint): TBox; extdecl;
|
||||||
begin;
|
begin;
|
||||||
result.x1 := PT1.x;
|
result.x1 := topLeft.x;
|
||||||
result.y1 := PT1.y;
|
result.y1 := topLeft.y;
|
||||||
result.x2 := PT2.x;
|
result.x2 := bottomRight.x;
|
||||||
result.y2 := PT2.y;
|
result.y2 := bottomRight.y;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function ps_PointInBox(PT : TPoint; Box: TBox): Boolean; extdecl;
|
function ps_PointInBox(PT : TPoint; Box: TBox): Boolean; extdecl;
|
||||||
|
@ -69,7 +69,7 @@ AddFunction(@ps_iAbs,'function iAbs(a : integer) : integer;');
|
|||||||
AddFunction(@ps_ArcTan2,'function ArcTan2(y,x : extended) : extended;');
|
AddFunction(@ps_ArcTan2,'function ArcTan2(y,x : extended) : extended;');
|
||||||
AddFunction(@ps_IntToBox,'function IntToBox(xs,ys,xe,ye : integer) : TBox;');
|
AddFunction(@ps_IntToBox,'function IntToBox(xs,ys,xe,ye : integer) : TBox;');
|
||||||
AddFunction(@ps_IntInBox,'function IntInBox(x, y: Integer; Box: TBox): Boolean;');
|
AddFunction(@ps_IntInBox,'function IntInBox(x, y: Integer; Box: TBox): Boolean;');
|
||||||
AddFunction(@ps_PointToBox,'function PointToBox(PT1,PT2 : TPoint): TBox;');
|
AddFunction(@ps_PointToBox,'function PointToBox(topLeft,bottomRight: TPoint): TBox;');
|
||||||
AddFunction(@ps_PointInBox,'function PointInBox(PT : TPoint; Box: TBox): Boolean;');
|
AddFunction(@ps_PointInBox,'function PointInBox(PT : TPoint; Box: TBox): Boolean;');
|
||||||
AddFunction(@ps_sqr,'function Sqr(e : extended) : extended;');
|
AddFunction(@ps_sqr,'function Sqr(e : extended) : extended;');
|
||||||
AddFunction(@ps_point,'function Point(x,y:integer) : TPoint;');
|
AddFunction(@ps_point,'function Point(x,y:integer) : TPoint;');
|
||||||
@ -156,6 +156,7 @@ AddFunction(@ps_FileExists,'function FileExists (const FileName : string ) : Boo
|
|||||||
AddFunction(@ps_ForceDirectores,'function ForceDirectories(const dir : string) : boolean;');
|
AddFunction(@ps_ForceDirectores,'function ForceDirectories(const dir : string) : boolean;');
|
||||||
AddFunction(@ps_GetFiles,'function GetFiles(const Path, Ext : string) : TStringArray;');
|
AddFunction(@ps_GetFiles,'function GetFiles(const Path, Ext : string) : TStringArray;');
|
||||||
AddFunction(@ps_GetDirectories,'function GetDirectories(const path : string) : TStringArray;');
|
AddFunction(@ps_GetDirectories,'function GetDirectories(const path : string) : TStringArray;');
|
||||||
|
AddFunction(@ps_DeleteFile, 'function DeleteFile(const Filename: string): Boolean;');
|
||||||
AddFunction(@ps_WriteINI,'procedure WriteINI(const Section, KeyName, NewString, FileName: string);');
|
AddFunction(@ps_WriteINI,'procedure WriteINI(const Section, KeyName, NewString, FileName: string);');
|
||||||
AddFunction(@ps_ReadINI,'function ReadINI(const Section, KeyName, FileName: string): string;');
|
AddFunction(@ps_ReadINI,'function ReadINI(const Section, KeyName, FileName: string): string;');
|
||||||
AddFunction(@ps_DeleteINI,'procedure DeleteINI(const Section, KeyName, FileName: string);');
|
AddFunction(@ps_DeleteINI,'procedure DeleteINI(const Section, KeyName, FileName: string);');
|
||||||
|
@ -964,7 +964,7 @@ begin
|
|||||||
if PSScript.Compile then
|
if PSScript.Compile then
|
||||||
begin
|
begin
|
||||||
OutputMessages;
|
OutputMessages;
|
||||||
psWriteln('Compiled succesfully in ' + IntToStr(GetTickCount - Starttime) + ' ms.');
|
psWriteln('Compiled successfully in ' + IntToStr(GetTickCount - Starttime) + ' ms.');
|
||||||
if CompileOnly then
|
if CompileOnly then
|
||||||
exit;
|
exit;
|
||||||
// if not (ScriptState = SCompiling) then
|
// if not (ScriptState = SCompiling) then
|
||||||
@ -1208,7 +1208,7 @@ begin
|
|||||||
RUTIS.Compile;
|
RUTIS.Compile;
|
||||||
if not RUTIS.CompilerError then
|
if not RUTIS.CompilerError then
|
||||||
begin
|
begin
|
||||||
psWriteln('Compiled succesfully in ' + IntToStr(GetTickCount - Starttime) + ' ms.');
|
psWriteln('Compiled successfully in ' + IntToStr(GetTickCount - Starttime) + ' ms.');
|
||||||
if CompileOnly then
|
if CompileOnly then
|
||||||
exit;
|
exit;
|
||||||
RUTIS.Run;
|
RUTIS.Run;
|
||||||
|
@ -34,10 +34,31 @@ uses
|
|||||||
{$IFDEF MSWINDOWS} os_windows {$ENDIF}
|
{$IFDEF MSWINDOWS} os_windows {$ENDIF}
|
||||||
{$IFDEF LINUX} os_linux {$ENDIF};
|
{$IFDEF LINUX} os_linux {$ENDIF};
|
||||||
|
|
||||||
{
|
(*
|
||||||
TClient is a full-blown instance of the MML.
|
|
||||||
It binds all the components together.
|
Client Class
|
||||||
}
|
============
|
||||||
|
|
||||||
|
The ``TClient`` class is the class that glues all other MML classes together
|
||||||
|
into one usable class. Internally, quite some MML classes require other MML
|
||||||
|
classes, and they access these other classes through their "parent"
|
||||||
|
``TClient``
|
||||||
|
class.
|
||||||
|
|
||||||
|
An image tells more than a thousands words:
|
||||||
|
|
||||||
|
.. image:: ../../Pics/Client_Classes.png
|
||||||
|
|
||||||
|
|
||||||
|
And the class dependency graph: (An arrow indicates a dependency)
|
||||||
|
|
||||||
|
.. image:: ../../Pics/client_classes_dependencies.png
|
||||||
|
|
||||||
|
The client class does not do much else except creating the classes when it
|
||||||
|
is
|
||||||
|
created and destroying the classes when it is being destroyed.
|
||||||
|
|
||||||
|
*)
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
@ -57,9 +78,31 @@ type
|
|||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
(*
|
||||||
|
Properties:
|
||||||
|
|
||||||
|
- IOManager
|
||||||
|
- MFiles
|
||||||
|
- MFinder
|
||||||
|
- MBitmaps
|
||||||
|
- MDTMs
|
||||||
|
- MOCR
|
||||||
|
- WriteLnProc
|
||||||
|
*)
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
|
|
||||||
|
(*
|
||||||
|
|
||||||
|
TClient.WriteLn
|
||||||
|
~~~~~~~~~~~~~~~
|
||||||
|
|
||||||
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
procedure TClient.WriteLn(s: string);
|
||||||
|
|
||||||
|
*)
|
||||||
|
|
||||||
procedure TClient.WriteLn(s: string);
|
procedure TClient.WriteLn(s: string);
|
||||||
begin
|
begin
|
||||||
@ -69,6 +112,17 @@ begin
|
|||||||
mDebugLn(s);
|
mDebugLn(s);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
(*
|
||||||
|
|
||||||
|
TClient.Create
|
||||||
|
~~~~~~~~~~~~~~
|
||||||
|
|
||||||
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
constructor TClient.Create(const plugin_dir: string = ''; const UseIOManager : TIOManager = nil);
|
||||||
|
|
||||||
|
*)
|
||||||
|
|
||||||
// Possibly pass arguments to a default window.
|
// Possibly pass arguments to a default window.
|
||||||
constructor TClient.Create(const plugin_dir: string = ''; const UseIOManager : TIOManager = nil);
|
constructor TClient.Create(const plugin_dir: string = ''; const UseIOManager : TIOManager = nil);
|
||||||
begin
|
begin
|
||||||
@ -86,6 +140,17 @@ begin
|
|||||||
MOCR := TMOCR.Create(self);
|
MOCR := TMOCR.Create(self);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
(*
|
||||||
|
|
||||||
|
TClient.Destroy
|
||||||
|
~~~~~~~~~~~~~~~
|
||||||
|
|
||||||
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
destructor TClient.Destroy;
|
||||||
|
|
||||||
|
*)
|
||||||
|
|
||||||
destructor TClient.Destroy;
|
destructor TClient.Destroy;
|
||||||
begin
|
begin
|
||||||
if FOwnIOManager then
|
if FOwnIOManager then
|
||||||
|
@ -45,6 +45,7 @@ type
|
|||||||
function OpenFile(Path: string; Shared: Boolean): Integer;
|
function OpenFile(Path: string; Shared: Boolean): Integer;
|
||||||
function RewriteFile(Path: string; Shared: Boolean): Integer;
|
function RewriteFile(Path: string; Shared: Boolean): Integer;
|
||||||
function AppendFile(Path: string): Integer;
|
function AppendFile(Path: string): Integer;
|
||||||
|
function DeleteFile(Filename: string): Boolean;
|
||||||
procedure CloseFile(FileNum: Integer);
|
procedure CloseFile(FileNum: Integer);
|
||||||
function EndOfFile(FileNum: Integer): Boolean;
|
function EndOfFile(FileNum: Integer): Boolean;
|
||||||
function FileSizeMuf(FileNum: Integer): LongInt;
|
function FileSizeMuf(FileNum: Integer): LongInt;
|
||||||
@ -334,6 +335,21 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function TMFiles.DeleteFile(Filename: string): Boolean;
|
||||||
|
var
|
||||||
|
Continue : Boolean;
|
||||||
|
begin
|
||||||
|
if Assigned(WriteFileEvent) then
|
||||||
|
begin;
|
||||||
|
Continue := true;
|
||||||
|
WriteFileEvent(Self, Filename, continue);
|
||||||
|
if not Continue then
|
||||||
|
exit(False);
|
||||||
|
end;
|
||||||
|
Result := DeleteFileUTF8(Filename);
|
||||||
|
end;
|
||||||
|
|
||||||
{/\
|
{/\
|
||||||
Free's the given File at the given index.
|
Free's the given File at the given index.
|
||||||
/\}
|
/\}
|
||||||
|
@ -33,6 +33,18 @@ uses
|
|||||||
graphtype, intfgraphics,graphics;
|
graphtype, intfgraphics,graphics;
|
||||||
{End To-Remove unit}
|
{End To-Remove unit}
|
||||||
|
|
||||||
|
(*
|
||||||
|
.. _mmlref-ocr:
|
||||||
|
|
||||||
|
TMOCR Class
|
||||||
|
===========
|
||||||
|
|
||||||
|
The TMOCR class uses the powerful ``ocrutil`` unit to create some default but
|
||||||
|
useful functions that can be used to create and identify text. It also contains
|
||||||
|
some functions used in special cases to filter noise. Specifically, these are
|
||||||
|
all the ``Filter*`` functions.
|
||||||
|
|
||||||
|
*)
|
||||||
|
|
||||||
type
|
type
|
||||||
{ TMOCR }
|
{ TMOCR }
|
||||||
@ -131,10 +143,18 @@ begin
|
|||||||
inherited Destroy;
|
inherited Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{
|
(*
|
||||||
InitTOCR loads all fonts in path
|
InitTOCR
|
||||||
We don't do this in the constructor because we may not yet have the path.
|
~~~~~~~~
|
||||||
}
|
|
||||||
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
function TMOCR.InitTOCR(const path: string): boolean;
|
||||||
|
|
||||||
|
InitTOCR loads all fonts in path
|
||||||
|
We don't do this in the constructor because we may not yet have the path.
|
||||||
|
|
||||||
|
*)
|
||||||
function TMOCR.InitTOCR(const path: string): boolean;
|
function TMOCR.InitTOCR(const path: string): boolean;
|
||||||
var
|
var
|
||||||
dirs: array of string;
|
dirs: array of string;
|
||||||
@ -188,6 +208,7 @@ begin
|
|||||||
Self.FFonts := NewFonts.Copy(Self.Client);
|
Self.FFonts := NewFonts.Copy(Self.Client);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
{
|
{
|
||||||
Filter UpText by a very rough colour comparison / range check.
|
Filter UpText by a very rough colour comparison / range check.
|
||||||
We first convert the colour to RGB, and if it falls into the following
|
We first convert the colour to RGB, and if it falls into the following
|
||||||
@ -208,6 +229,16 @@ end;
|
|||||||
We will match shadow as well; we need it later on.
|
We will match shadow as well; we need it later on.
|
||||||
}
|
}
|
||||||
|
|
||||||
|
(*
|
||||||
|
FilterUpTextByColour
|
||||||
|
~~~~~~~~~~~~~~~~~~~~
|
||||||
|
|
||||||
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
procedure TMOCR.FilterUpTextByColour(bmp: TMufasaBitmap);
|
||||||
|
|
||||||
|
*)
|
||||||
|
|
||||||
procedure TMOCR.FilterUpTextByColour(bmp: TMufasaBitmap);
|
procedure TMOCR.FilterUpTextByColour(bmp: TMufasaBitmap);
|
||||||
var
|
var
|
||||||
x, y,r, g, b: Integer;
|
x, y,r, g, b: Integer;
|
||||||
@ -351,6 +382,16 @@ end;
|
|||||||
We don't need to do this from the right bottom to left top.
|
We don't need to do this from the right bottom to left top.
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
(*
|
||||||
|
FilterUpTextByCharacteristics
|
||||||
|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||||||
|
|
||||||
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
procedure TMOCR.FilterUpTextByCharacteristics(bmp: TMufasaBitmap; w,h: integer);
|
||||||
|
*)
|
||||||
|
|
||||||
procedure TMOCR.FilterUpTextByCharacteristics(bmp: TMufasaBitmap; w,h: integer);
|
procedure TMOCR.FilterUpTextByCharacteristics(bmp: TMufasaBitmap; w,h: integer);
|
||||||
var
|
var
|
||||||
x,y: Integer;
|
x,y: Integer;
|
||||||
@ -457,7 +498,18 @@ begin
|
|||||||
setlength(result,c);
|
setlength(result,c);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ Remove anything but the shadows on the bitmap (Shadow = clPurple, remember?) }
|
|
||||||
|
(*
|
||||||
|
FilterShadowBitmap
|
||||||
|
~~~~~~~~~~~~~~~~~~
|
||||||
|
|
||||||
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
procedure TMOCR.FilterShadowBitmap(bmp: TMufasaBitmap);
|
||||||
|
|
||||||
|
Remove anything but the shadows on the bitmap (Shadow = clPurple)
|
||||||
|
*)
|
||||||
|
|
||||||
procedure TMOCR.FilterShadowBitmap(bmp: TMufasaBitmap);
|
procedure TMOCR.FilterShadowBitmap(bmp: TMufasaBitmap);
|
||||||
var
|
var
|
||||||
x,y:integer;
|
x,y:integer;
|
||||||
@ -473,13 +525,20 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{
|
(*
|
||||||
Remove all but uptext colours clWhite,clGreen, etc.
|
|
||||||
See constants above.
|
|
||||||
|
|
||||||
This assumes that the bitmap only consists of colour 0, and the other
|
FilterCharsBitmap
|
||||||
constants founds above the functionss
|
~~~~~~~~~~~~~~~~~
|
||||||
}
|
|
||||||
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
procedure TMOCR.FilterCharsBitmap(bmp: TMufasaBitmap);
|
||||||
|
|
||||||
|
Remove all but uptext colours clWhite,clGreen, etc.
|
||||||
|
|
||||||
|
This assumes that the bitmap only consists of colour 0, and the other
|
||||||
|
constants founds above the functions
|
||||||
|
*)
|
||||||
procedure TMOCR.FilterCharsBitmap(bmp: TMufasaBitmap);
|
procedure TMOCR.FilterCharsBitmap(bmp: TMufasaBitmap);
|
||||||
var
|
var
|
||||||
x,y: integer;
|
x,y: integer;
|
||||||
@ -509,17 +568,27 @@ end;
|
|||||||
|
|
||||||
|
|
||||||
{
|
{
|
||||||
This uses the two filters, and performs a split on the bitmap.
|
}
|
||||||
A split per character, that is. So we can more easily identify it.
|
(*
|
||||||
|
getTextPointsIn
|
||||||
|
~~~~~~~~~~~~~~~
|
||||||
|
|
||||||
TODO:
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
function TMOCR.getTextPointsIn(sx, sy, w, h: Integer; shadow: boolean;
|
||||||
|
var _chars, _shadows: T2DPointArray): Boolean;
|
||||||
|
|
||||||
|
This uses the two filters, and performs a split on the bitmap.
|
||||||
|
A split per character, that is. So we can more easily identify it.
|
||||||
|
|
||||||
|
TODO:
|
||||||
*
|
*
|
||||||
Remove more noise after we have split, it should be possible to identify
|
Remove more noise after we have split, it should be possible to identify
|
||||||
noise; weird positions or boxes compared to the rest, etc.
|
noise; weird positions or boxes compared to the rest, etc.
|
||||||
*
|
*
|
||||||
Split each colours seperately, and combine only later, after removing noise.
|
Split each colours seperately, and combine only later, after removing noise.
|
||||||
|
*)
|
||||||
|
|
||||||
}
|
|
||||||
function TMOCR.getTextPointsIn(sx, sy, w, h: Integer; shadow: boolean;
|
function TMOCR.getTextPointsIn(sx, sy, w, h: Integer; shadow: boolean;
|
||||||
var _chars, _shadows: T2DPointArray): Boolean;
|
var _chars, _shadows: T2DPointArray): Boolean;
|
||||||
var
|
var
|
||||||
@ -685,14 +754,20 @@ begin
|
|||||||
Result := true;
|
Result := true;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{
|
(*
|
||||||
GetUpTextAtEx combines/uses the functions above.
|
GetUpTextAtEx
|
||||||
|
~~~~~~~~~~~~~
|
||||||
|
|
||||||
It will identify each character, and also keep track of the previous
|
.. code-block:: pascal
|
||||||
chars' final `x' bounds. If the difference between the .x2 of the previous
|
|
||||||
character and the .x1 of the current character is bigger than 5, then there
|
function TMOCR.GetUpTextAtEx(atX, atY: integer; shadow: boolean): string;
|
||||||
was a space between them. (Add ' ' to result)
|
|
||||||
}
|
|
||||||
|
GetUpTextAtEx will identify each character, and also keep track of the previous
|
||||||
|
chars' final *x* bounds. If the difference between the .x2 of the previous
|
||||||
|
character and the .x1 of the current character is bigger than 5, then there
|
||||||
|
was a space between them. (Add ' ' to result)
|
||||||
|
*)
|
||||||
|
|
||||||
function TMOCR.GetUpTextAtEx(atX, atY: integer; shadow: boolean): string;
|
function TMOCR.GetUpTextAtEx(atX, atY: integer; shadow: boolean): string;
|
||||||
var
|
var
|
||||||
@ -763,6 +838,17 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
(*
|
||||||
|
GetUpTextAt
|
||||||
|
~~~~~~~~~~~
|
||||||
|
|
||||||
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
function TMOCR.GetUpTextAt(atX, atY: integer; shadow: boolean): string;
|
||||||
|
|
||||||
|
Retreives the (special) uptext.
|
||||||
|
|
||||||
|
*)
|
||||||
function TMOCR.GetUpTextAt(atX, atY: integer; shadow: boolean): string;
|
function TMOCR.GetUpTextAt(atX, atY: integer; shadow: boolean): string;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
@ -772,6 +858,18 @@ begin
|
|||||||
result := GetUpTextAtEx(atX, atY, false);
|
result := GetUpTextAtEx(atX, atY, false);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
(*
|
||||||
|
GetTextATPA
|
||||||
|
~~~~~~~~~~~
|
||||||
|
|
||||||
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
function TMOCR.GetTextATPA(const ATPA : T2DPointArray;const maxvspacing : integer; font: string): string;
|
||||||
|
|
||||||
|
Returns the text defined by the ATPA. Each TPA represents one character,
|
||||||
|
approximately.
|
||||||
|
*)
|
||||||
|
|
||||||
function TMOCR.GetTextATPA(const ATPA : T2DPointArray;const maxvspacing : integer; font: string): string;
|
function TMOCR.GetTextATPA(const ATPA : T2DPointArray;const maxvspacing : integer; font: string): string;
|
||||||
var
|
var
|
||||||
b, lb: TBox;
|
b, lb: TBox;
|
||||||
@ -831,6 +929,17 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
(*
|
||||||
|
GetTextAt
|
||||||
|
~~~~~~~~~
|
||||||
|
|
||||||
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
function TMOCR.GetTextAt(xs, ys, xe,ye, minvspacing, maxvspacing, hspacing,
|
||||||
|
color, tol: integer; font: string): string;
|
||||||
|
|
||||||
|
General text-finding function.
|
||||||
|
*)
|
||||||
function TMOCR.GetTextAt(xs, ys, xe,ye, minvspacing, maxvspacing, hspacing,
|
function TMOCR.GetTextAt(xs, ys, xe,ye, minvspacing, maxvspacing, hspacing,
|
||||||
color, tol: integer; font: string): string;
|
color, tol: integer; font: string): string;
|
||||||
var
|
var
|
||||||
@ -851,6 +960,17 @@ begin;
|
|||||||
result := gettextatpa(STPA,maxvspacing,font);
|
result := gettextatpa(STPA,maxvspacing,font);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
(*
|
||||||
|
GetTextAt (2)
|
||||||
|
~~~~~~~~~~~~~
|
||||||
|
|
||||||
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
function TMOCR.GetTextAt(atX, atY, minvspacing, maxvspacing, hspacing,
|
||||||
|
color, tol, len: integer; font: string): string;
|
||||||
|
|
||||||
|
General text-finding function. Different parameters than other GetTextAt.
|
||||||
|
*)
|
||||||
function TMOCR.GetTextAt(atX, atY, minvspacing, maxvspacing, hspacing,
|
function TMOCR.GetTextAt(atX, atY, minvspacing, maxvspacing, hspacing,
|
||||||
color, tol, len: integer; font: string): string;
|
color, tol, len: integer; font: string): string;
|
||||||
var
|
var
|
||||||
@ -873,6 +993,19 @@ begin
|
|||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
(*
|
||||||
|
TextToFontTPA
|
||||||
|
~~~~~~~~~~~~~
|
||||||
|
|
||||||
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
function TMOCR.TextToFontTPA(Text, font: String; out w, h: integer): TPointArray;
|
||||||
|
|
||||||
|
Returns a TPA of a specific *Text* of the specified *Font*.
|
||||||
|
|
||||||
|
*)
|
||||||
|
|
||||||
|
|
||||||
function TMOCR.TextToFontTPA(Text, font: String; out w, h: integer): TPointArray;
|
function TMOCR.TextToFontTPA(Text, font: String; out w, h: integer): TPointArray;
|
||||||
|
|
||||||
var
|
var
|
||||||
@ -918,6 +1051,17 @@ begin
|
|||||||
{ writeln('C: ' + inttostr(c)); }
|
{ writeln('C: ' + inttostr(c)); }
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
(*
|
||||||
|
TextToFontBitmap
|
||||||
|
~~~~~~~~~~~~~~~~
|
||||||
|
|
||||||
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
function TMOCR.TextToFontBitmap(Text, font: String): TMufasaBitmap;
|
||||||
|
|
||||||
|
Returns a Bitmap of the specified *Text* of the specified *Font*.
|
||||||
|
*)
|
||||||
|
|
||||||
function TMOCR.TextToFontBitmap(Text, font: String): TMufasaBitmap;
|
function TMOCR.TextToFontBitmap(Text, font: String): TMufasaBitmap;
|
||||||
var
|
var
|
||||||
TPA: TPointArray;
|
TPA: TPointArray;
|
||||||
@ -968,3 +1112,179 @@ end;
|
|||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
(*
|
||||||
|
|
||||||
|
.. _uptext-filter:
|
||||||
|
|
||||||
|
Uptext
|
||||||
|
======
|
||||||
|
|
||||||
|
To read the UpText, the TMOCR class applies several filters on the client data
|
||||||
|
before performing the actual OCR. We will take a look at the two filters first.
|
||||||
|
|
||||||
|
Filter 1: The Colour Filter
|
||||||
|
~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||||||
|
|
||||||
|
We first filter the raw client image with a very rough and tolerant colour
|
||||||
|
comparison / check.
|
||||||
|
We first convert the colour to RGB, and if it falls into the following
|
||||||
|
defined ranges, it may be part of the uptext. We also get the possible
|
||||||
|
shadows.
|
||||||
|
|
||||||
|
|
||||||
|
We will iterate over each pixel in the bitmap, and if it matches any of the
|
||||||
|
*rules* for the colour; we will set it to a constant colour which
|
||||||
|
represents this colour (and corresponding rule). Usually the *base*
|
||||||
|
colour. If it doesn't match any of the rules, it will be painted black.
|
||||||
|
We won't just check for colours, but also for differences between specific
|
||||||
|
R, G, B values. For example, if the colour is white; R, G and B should all
|
||||||
|
lie very close to each other. (That's what makes a colour white.)
|
||||||
|
|
||||||
|
The tolerance for getting the pixels is quite large. The reasons for the
|
||||||
|
high tolerance is because the uptext colour vary quite a lot. They're also
|
||||||
|
transparent and vary thus per background.
|
||||||
|
We will store/match shadow as well; we need it later on in filter 2.
|
||||||
|
|
||||||
|
To my knowledge this algorithm doesn't remove any *valid* points. It does
|
||||||
|
not remove *all* invalid points either; but that is simply not possible
|
||||||
|
based purely on the colour. (If someone has a good idea, let me know)
|
||||||
|
|
||||||
|
In code:
|
||||||
|
|
||||||
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
for y := 0 to bmp.Height - 1 do
|
||||||
|
for x := 0 to bmp.Width - 1 do
|
||||||
|
begin
|
||||||
|
colortorgb(bmp.fastgetpixel(x,y),r,g,b);
|
||||||
|
|
||||||
|
if (r < ocr_Limit_Low) and (g < ocr_Limit_Low) and
|
||||||
|
(b < ocr_Limit_Low) then
|
||||||
|
begin
|
||||||
|
bmp.FastSetPixel(x,y, ocr_Purple);
|
||||||
|
continue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Black if no match
|
||||||
|
bmp.fastsetpixel(x,y,0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
Filter 2: The Characteristics Filter
|
||||||
|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||||||
|
|
||||||
|
This second filter is easy to understand but also very powerful:
|
||||||
|
|
||||||
|
- It removes *all* false shadow pixels.
|
||||||
|
- It removes uptext pixels that can't be uptext according to specific
|
||||||
|
rules. These rules are specifically designed so that it will never
|
||||||
|
throw away proper points.
|
||||||
|
|
||||||
|
It also performs another filter right at the start, but we'll disregard that
|
||||||
|
filter for now.
|
||||||
|
|
||||||
|
Removing shadow points is trivial if one understands the following insight.
|
||||||
|
|
||||||
|
If there some pixel is shadow on *x, y*, then it's neighbour *x+1, y+1*
|
||||||
|
may not be a shadow pixel. A shadow is always only one pixel *thick*.
|
||||||
|
|
||||||
|
With this in mind, we can easily define an algorithm which removes all false
|
||||||
|
shadow pixels. In code:
|
||||||
|
|
||||||
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
{
|
||||||
|
The tricky part of the algorithm is that it starts at the bottom,
|
||||||
|
removing shadow point x,y if x-1,y-1 is also shadow. This is
|
||||||
|
more efficient than the obvious way. (It is also easier to implement)
|
||||||
|
}
|
||||||
|
|
||||||
|
for y := bmp.Height - 1 downto 1 do
|
||||||
|
for x := bmp.Width - 1 downto 1 do
|
||||||
|
begin
|
||||||
|
// Is it shadow?
|
||||||
|
if bmp.fastgetpixel(x,y) <> clPurple then
|
||||||
|
continue;
|
||||||
|
// Is the point at x-1,y-1 shadow? If it is
|
||||||
|
// then x, y cannot be shadow.
|
||||||
|
if bmp.fastgetpixel(x,y) = bmp.fastgetpixel(x-1,y-1) then
|
||||||
|
begin
|
||||||
|
bmp.fastsetpixel(x,y,clSilver);
|
||||||
|
continue;
|
||||||
|
end;
|
||||||
|
if bmp.fastgetpixel(x-1,y-1) = 0 then
|
||||||
|
bmp.fastsetpixel(x,y,clSilver);
|
||||||
|
end;
|
||||||
|
|
||||||
|
We are now left with only proper shadow pixels.
|
||||||
|
Now it is time to filter out false Uptext pixels.
|
||||||
|
|
||||||
|
Realize:
|
||||||
|
|
||||||
|
- If *x, y* is uptext, then *x+1, y+1* must be either uptext or shadow.
|
||||||
|
|
||||||
|
In code:
|
||||||
|
|
||||||
|
.. code-block:: pascal
|
||||||
|
|
||||||
|
for y := bmp.Height - 2 downto 0 do
|
||||||
|
for x := bmp.Width - 2 downto 0 do
|
||||||
|
begin
|
||||||
|
if bmp.fastgetpixel(x,y) = clPurple then
|
||||||
|
continue;
|
||||||
|
if bmp.fastgetpixel(x,y) = clBlack then
|
||||||
|
continue;
|
||||||
|
|
||||||
|
// Is the other pixel also uptext?
|
||||||
|
// NOTE THAT IT ALSO HAS TO BE THE SAME COLOUR
|
||||||
|
// UPTEXT IN THIS CASE.
|
||||||
|
// I'm still not sure if this is a good idea or not.
|
||||||
|
// Perhaps it should match *any* uptext colour.
|
||||||
|
if (bmp.fastgetpixel(x,y) = bmp.fastgetpixel(x+1,y+1) ) then
|
||||||
|
continue;
|
||||||
|
|
||||||
|
// If it isn't shadow (and not the same colour uptext, see above)
|
||||||
|
// then it is not uptext.
|
||||||
|
if bmp.fastgetpixel(x+1,y+1) <> clPurple then
|
||||||
|
begin
|
||||||
|
bmp.fastsetpixel(x,y,clOlive);
|
||||||
|
continue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// If we make it to here, it means the pixel is part of the uptext.
|
||||||
|
end;
|
||||||
|
|
||||||
|
Identifying characters
|
||||||
|
~~~~~~~~~~~~~~~~~~~~~~
|
||||||
|
|
||||||
|
.. note::
|
||||||
|
This part of the documentation is a bit vague and incomplete.
|
||||||
|
|
||||||
|
To actually identify the text we split it up into single character and then
|
||||||
|
pass each character to the OCR engine.
|
||||||
|
|
||||||
|
In the function *getTextPointsIn* we will use both the filters mentioned above.
|
||||||
|
After these have been applied, we will make a bitmap that only contains the
|
||||||
|
shadows as well as a bitmap that only contains the uptext chars (not the
|
||||||
|
shadows)
|
||||||
|
|
||||||
|
Now it is a good idea to count the occurances of all colours
|
||||||
|
(on the character bitmap); we will also use this later on.
|
||||||
|
To split the characters we use the well known *splittpaex* function.
|
||||||
|
|
||||||
|
We will then sort the points for in each character TPA, as this makes
|
||||||
|
makes looping over them and comparing distances easier. We will also
|
||||||
|
calculate the bounding box of each characters TPA.
|
||||||
|
|
||||||
|
.. note::
|
||||||
|
Some more hackery is then used to seperate the characters and find
|
||||||
|
spaces; but isn't yet documented here.
|
||||||
|
|
||||||
|
Normal OCR
|
||||||
|
----------
|
||||||
|
|
||||||
|
.. note::
|
||||||
|
To do :-)
|
||||||
|
A large part is already explained above.
|
||||||
|
Most of the other OCR functions are simply used for plain identifying
|
||||||
|
and have no filtering tasks.
|
||||||
|
*)
|
||||||
|
@ -311,7 +311,7 @@ begin T := Self.TabIndex; end;
|
|||||||
|
|
||||||
(*----------------------------------------------------------------------------*)
|
(*----------------------------------------------------------------------------*)
|
||||||
procedure TTabControlNoteBookStringsNoteBook_R(Self: TTabControlNoteBookStrings; var T: TNoteBook);
|
procedure TTabControlNoteBookStringsNoteBook_R(Self: TTabControlNoteBookStrings; var T: TNoteBook);
|
||||||
begin T := TNoteBook(Self.NoteBook); end;
|
begin T := Self.NoteBook; end;
|
||||||
|
|
||||||
(*----------------------------------------------------------------------------*)
|
(*----------------------------------------------------------------------------*)
|
||||||
procedure TTabControlStringsTabWidth_W(Self: TTabControlStrings; const T: Smallint);
|
procedure TTabControlStringsTabWidth_W(Self: TTabControlStrings; const T: Smallint);
|
||||||
|
@ -85,14 +85,14 @@ procedure RIRegisterTPANEL(Cl: TPSRuntimeClassImporter);
|
|||||||
begin
|
begin
|
||||||
Cl.Add(TPANEL);
|
Cl.Add(TPANEL);
|
||||||
end;
|
end;
|
||||||
procedure TPagePageIndex_R(Self: TCustomPage; var T: INTEGER); begin T := Self.PageIndex; end;
|
procedure TPagePageIndex_R(Self: TPAGE; var T: INTEGER); begin T := Self.PageIndex; end;
|
||||||
procedure TPagePageIndex_W(Self: TCustomPage; T: INTEGER); begin Self.PageIndex := T; end;
|
procedure TPagePageIndex_W(Self: TPAGE; T: INTEGER); begin Self.PageIndex := T; end;
|
||||||
procedure TPageOnShow_R(Self: TCustomPage; var T: TNotifyEvent); begin T := Self.OnShow; end;
|
procedure TPageOnShow_R(Self: TPAGE; var T: TNotifyEvent); begin T := Self.OnShow; end;
|
||||||
procedure TPageOnShow_W(Self: TCustomPage; T: TNotifyEvent); begin Self.OnShow := T; end;
|
procedure TPageOnShow_W(Self: TPAGE; T: TNotifyEvent); begin Self.OnShow := T; end;
|
||||||
{$IFNDEF CLX}
|
{$IFNDEF CLX}
|
||||||
procedure RIRegisterTPAGE(Cl: TPSRuntimeClassImporter);
|
procedure RIRegisterTPAGE(Cl: TPSRuntimeClassImporter);
|
||||||
begin
|
begin
|
||||||
with Cl.Add(TCustomPage) do
|
with Cl.Add(TPAGE) do
|
||||||
begin
|
begin
|
||||||
RegisterPropertyHelper(@TPagePageIndex_R,@TPagePageIndex_W,'PageIndex');
|
RegisterPropertyHelper(@TPagePageIndex_R,@TPagePageIndex_W,'PageIndex');
|
||||||
RegisterEventPropertyHelper(@TPageOnShow_R,@TPageOnShow_W,'OnShow');
|
RegisterEventPropertyHelper(@TPageOnShow_R,@TPageOnShow_W,'OnShow');
|
||||||
@ -106,7 +106,7 @@ begin
|
|||||||
with Cl.Add(TNOTEBOOK) do
|
with Cl.Add(TNOTEBOOK) do
|
||||||
begin
|
begin
|
||||||
{$IFDEF FPC}
|
{$IFDEF FPC}
|
||||||
// RegisterMethod(@TNoteBook.TabIndexAtClientPos,'TABINDEXATCLIENTPOS');
|
RegisterMethod(@TNoteBook.TabIndexAtClientPos,'TABINDEXATCLIENTPOS');
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
RegisterPropertyHelper(@TNoteBookPageCount_R,nil,'PAGECOUNT');
|
RegisterPropertyHelper(@TNoteBookPageCount_R,nil,'PAGECOUNT');
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user