diff --git a/DocGen/doccomments.simba b/DocGen/doccomments.simba index d8dfe6f07..88d3abacb 100644 --- a/DocGen/doccomments.simba +++ b/DocGen/doccomments.simba @@ -27,7 +27,7 @@ var end; begin - Contents := FileRead('Source/script/imports/simba/simba.import_file.pas'); + Contents := FileRead('Source/script/imports/simbaclasses/simba.import_class_json.pas'); for DocComment in Contents.BetweenAll('(*','*)') do begin diff --git a/DocGen/docgen.simba b/DocGen/docgen.simba index c9a3517ea..5f63864f8 100644 --- a/DocGen/docgen.simba +++ b/DocGen/docgen.simba @@ -1,3 +1,9 @@ +// To run to locally build docs you need: +// +// 1) Python installed, on PATH too so Simba can execute "Python" +// 2) "sphinx" and "sphinx_rtd_theme" installed: +// pip3 install sphinx sphinx_rtd_theme + var SourceFiles: array of record FileName: String; @@ -5,29 +11,29 @@ var end; begin - SourceFiles += ['simba.import_point.pas', 'TPoint' ]; - SourceFiles += ['simba.import_tpa.pas', 'TPointArray' ]; - SourceFiles += ['simba.import_atpa.pas', 'T2DPointArray' ]; - SourceFiles += ['simba.import_box.pas', 'TBox' ]; - SourceFiles += ['simba.import_boxarray.pas', 'TBoxArray' ]; - SourceFiles += ['simba.import_quad.pas', 'TQuad' ]; - SourceFiles += ['simba.import_windowhandle.pas', 'TWindowHandle' ]; - SourceFiles += ['simba.import_debugimage.pas', 'Debug Image' ]; - SourceFiles += ['simba.import_variant.pas', 'Variant' ]; - SourceFiles += ['simba.import_script.pas', 'Script' ]; - SourceFiles += ['simba.import_random.pas', 'Random' ]; - SourceFiles += ['simba.import_class_bitmap.pas', 'TMufasaBitmap' ]; - SourceFiles += ['simba.import_class_dtm.pas', 'TDTM' ]; - SourceFiles += ['simba.import_input.pas', 'Input' ]; - SourceFiles += ['simba.import_finder.pas', 'Finder' ]; - SourceFiles += ['simba.import_target.pas', 'Target' ]; - SourceFiles += ['simba.import_internet.pas', 'Intenet' ]; - SourceFiles += ['simba.import_file.pas', 'File' ]; + SourceFiles += ['Source\script\imports\simba\simba.import_point.pas', 'TPoint' ]; + SourceFiles += ['Source\script\imports\simba\simba.import_tpa.pas', 'TPointArray' ]; + SourceFiles += ['Source\script\imports\simba\simba.import_atpa.pas', 'T2DPointArray' ]; + SourceFiles += ['Source\script\imports\simba\simba.import_box.pas', 'TBox' ]; + SourceFiles += ['Source\script\imports\simba\simba.import_boxarray.pas', 'TBoxArray' ]; + SourceFiles += ['Source\script\imports\simba\simba.import_quad.pas', 'TQuad' ]; + SourceFiles += ['Source\script\imports\simba\simba.import_windowhandle.pas', 'TWindowHandle' ]; + SourceFiles += ['Source\script\imports\simba\simba.import_debugimage.pas', 'Debug Image' ]; + SourceFiles += ['Source\script\imports\simba\simba.import_variant.pas', 'Variant' ]; + SourceFiles += ['Source\script\imports\simba\simba.import_script.pas', 'Script' ]; + SourceFiles += ['Source\script\imports\simba\simba.import_random.pas', 'Random' ]; + SourceFiles += ['Source\script\imports\simba\simba.import_input.pas', 'Input' ]; + SourceFiles += ['Source\script\imports\simba\simba.import_finder.pas', 'Finder' ]; + SourceFiles += ['Source\script\imports\simba\simba.import_target.pas', 'Target' ]; + SourceFiles += ['Source\script\imports\simba\simba.import_web.pas', 'Web' ]; + SourceFiles += ['Source\script\imports\simba\simba.import_file.pas', 'File' ]; + + SourceFiles += ['Source\script\imports\simbaclasses\simba.import_class_json.pas', 'JSON' ]; + SourceFiles += ['Source\script\imports\simbaclasses\simba.import_class_bitmap.pas', 'Image' ]; + SourceFiles += ['Source\script\imports\simbaclasses\simba.import_class_dtm.pas', 'DTM' ]; end; const - SOURCE_ROOT_DIR = 'Source/script/imports/'; - OUTPUT_DIR = 'DocGen/output/'; INPUT_DIR = 'DocGen/input/'; @@ -129,30 +135,23 @@ procedure Test; } procedure MakeCodeHeaders(var Str: String); var - Start, Stop: Integer; - P: Integer; - Header: String; + I: Integer; + Lines: TStringArray; begin - Start := 1; - - for Header in ['function', 'procedure', 'operator', 'var', 'const'] do + Lines := Str.Split(LINE_SEP); + while (I < Length(Lines)) do begin - Start := 1; - - while ((Start := Str.IndexOf(Header, Start)) > 0) do + if Lines[I].StartsWith('> ') then begin - if Str.Copy(Start - Length(LINE_SEP), Length(LINE_SEP)) = LINE_SEP then - begin - Str.Insert('```', Start); - Start := Str.IndexOf(LINE_SEP, Start); - if (Start = 0) then - Exit; - Str.Insert('```', Start); - end; - - Start += 1; + Lines[I].Delete(1,2); + Lines.Insert('```', I); + Lines.Insert('```', I+2); + Inc(I,2); end; + Inc(I); end; + + Str := LINE_SEP.Join(Lines); end; function ParseComments(FileName, Name: String): Boolean; @@ -182,29 +181,9 @@ begin end; end; -procedure Build; -var - I, J: Integer; - Files: TStringArray; -begin - Files := DirList(SOURCE_ROOT_DIR, True); - for I := 0 to High(SourceFiles) do - for J := 0 to High(Files) do - begin - // ignore files in lazarus backup/ dirs - if DirParent(PathExtractDir(Files[J])) = 'backup' then - Continue; - - if (SourceFiles[I].FileName = PathExtractName(Files[J])) then - begin - ParseComments(Files[J], SourceFiles[I].Title); - Break; - end; - end; -end; - var Str: String; + I: Integer; begin ClearDebug(); @@ -217,7 +196,8 @@ begin FileWrite(INPUT_DIR + 'conf.py', CONFIG_FILE); FileWrite(INPUT_DIR + 'layout.html', TEMPLATE_FILE); - Build(); + for I := 0 to High(SourceFiles) do + ParseComments(SourceFiles[I].FileName, SourceFiles[I].Title); WriteLn('Sphinx exit code: ', RunCommand('sphinx-build', ['-q', '-E', INPUT_DIR, OUTPUT_DIR], Str)); if (Str <> '') then diff --git a/Source/script/imports/simba/simba.import_atpa.pas b/Source/script/imports/simba/simba.import_atpa.pas index 992e07dc0..a1d2d12db 100644 --- a/Source/script/imports/simba/simba.import_atpa.pas +++ b/Source/script/imports/simba/simba.import_atpa.pas @@ -25,7 +25,7 @@ implementation (* T2DPointArray.Offset ~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.Offset(P: TPoint): T2DPointArray; +> function T2DPointArray.Offset(P: TPoint): T2DPointArray; *) procedure _LapeATPA_Offset1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -35,7 +35,7 @@ procedure _LapeATPA_Offset1(const Params: PParamArray; const Result: Pointer); L (* T2DPointArray.Offset ~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.Offset(X, Y: Integer): T2DPointArray; +> function T2DPointArray.Offset(X, Y: Integer): T2DPointArray; *) procedure _LapeATPA_Offset2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -45,7 +45,7 @@ procedure _LapeATPA_Offset2(const Params: PParamArray; const Result: Pointer); L (* T2DPointArray.Sort ~~~~~~~~~~~~~~~~~~ -function T2DPointArray.Sort(Weights: TIntegerArray; LowToHigh: Boolean = True): T2DPointArray; +> function T2DPointArray.Sort(Weights: TIntegerArray; LowToHigh: Boolean = True): T2DPointArray; *) procedure _LapeATPA_Sort1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -55,7 +55,7 @@ procedure _LapeATPA_Sort1(const Params: PParamArray; const Result: Pointer); LAP (* T2DPointArray.Sort ~~~~~~~~~~~~~~~~~~ -function T2DPointArray.Sort(Weights: TDoubleArray; LowToHigh: Boolean = True): T2DPointArray; +> function T2DPointArray.Sort(Weights: TDoubleArray; LowToHigh: Boolean = True): T2DPointArray; *) procedure _LapeATPA_Sort2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -65,7 +65,7 @@ procedure _LapeATPA_Sort2(const Params: PParamArray; const Result: Pointer); LAP (* T2DPointArray.SortFromSize ~~~~~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.SortFromSize(Size: Integer): T2DPointArray; +> function T2DPointArray.SortFromSize(Size: Integer): T2DPointArray; *) procedure _LapeATPA_SortFromSize(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -75,7 +75,7 @@ procedure _LapeATPA_SortFromSize(const Params: PParamArray; const Result: Pointe (* T2DPointArray.SortFromIndex ~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.SortFromIndex(From: TPoint; Index: Integer = 0): T2DPointArray; +> function T2DPointArray.SortFromIndex(From: TPoint; Index: Integer = 0): T2DPointArray; *) procedure _LapeATPA_SortFromIndex(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -85,7 +85,7 @@ procedure _LapeATPA_SortFromIndex(const Params: PParamArray; const Result: Point (* T2DPointArray.SortFromFirstPoint ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.SortFromFirstPoint(From: TPoint): T2DPointArray; +> function T2DPointArray.SortFromFirstPoint(From: TPoint): T2DPointArray; *) procedure _LapeATPA_SortFromFirstPoint(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -95,7 +95,7 @@ procedure _LapeATPA_SortFromFirstPoint(const Params: PParamArray; const Result: (* T2DPointArray.SortFromFirstPointX ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.SortFromFirstPointX(From: TPoint): T2DPointArray; +> function T2DPointArray.SortFromFirstPointX(From: TPoint): T2DPointArray; *) procedure _LapeATPA_SortFromFirstPointX(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -105,7 +105,7 @@ procedure _LapeATPA_SortFromFirstPointX(const Params: PParamArray; const Result: (* T2DPointArray.SortFromFirstPointY ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.SortFromFirstPointY(From: TPoint): T2DPointArray; +> function T2DPointArray.SortFromFirstPointY(From: TPoint): T2DPointArray; *) procedure _LapeATPA_SortFromFirstPointY(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -115,7 +115,7 @@ procedure _LapeATPA_SortFromFirstPointY(const Params: PParamArray; const Result: (* T2DPointArray.SortFrom ~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.SortFrom(From: TPoint): T2DPointArray; +> function T2DPointArray.SortFrom(From: TPoint): T2DPointArray; *) procedure _LapeATPA_SortFrom(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -125,7 +125,7 @@ procedure _LapeATPA_SortFrom(const Params: PParamArray; const Result: Pointer); (* T2DPointArray.SortByArea ~~~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.SortByArea(LowToHigh: Boolean): T2DPointArray; +> function T2DPointArray.SortByArea(LowToHigh: Boolean): T2DPointArray; *) procedure _LapeATPA_SortByArea(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -135,7 +135,7 @@ procedure _LapeATPA_SortByArea(const Params: PParamArray; const Result: Pointer) (* T2DPointArray.SortBySize ~~~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.SortBySize(LowToHigh: Boolean): T2DPointArray; +> function T2DPointArray.SortBySize(LowToHigh: Boolean): T2DPointArray; *) procedure _LapeATPA_SortBySize(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -145,7 +145,7 @@ procedure _LapeATPA_SortBySize(const Params: PParamArray; const Result: Pointer) (* T2DPointArray.SortByDensity ~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.SortByDensity(LowToHigh: Boolean): T2DPointArray; +> function T2DPointArray.SortByDensity(LowToHigh: Boolean): T2DPointArray; *) procedure _LapeATPA_SortByDensity(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -155,7 +155,7 @@ procedure _LapeATPA_SortByDensity(const Params: PParamArray; const Result: Point (* T2DPointArray.SortByX ~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.SortByX(LowToHigh: Boolean): T2DPointArray; +> function T2DPointArray.SortByX(LowToHigh: Boolean): T2DPointArray; *) procedure _LapeATPA_SortByX(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -165,7 +165,7 @@ procedure _LapeATPA_SortByX(const Params: PParamArray; const Result: Pointer); L (* T2DPointArray.SortByY ~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.SortByY(LowToHigh: Boolean): T2DPointArray; +> function T2DPointArray.SortByY(LowToHigh: Boolean): T2DPointArray; *) procedure _LapeATPA_SortByY(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -175,7 +175,7 @@ procedure _LapeATPA_SortByY(const Params: PParamArray; const Result: Pointer); L (* T2DPointArray.SortByShortSide ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.SortByShortSide(LowToHigh: Boolean): T2DPointArray; +> function T2DPointArray.SortByShortSide(LowToHigh: Boolean): T2DPointArray; *) procedure _LapeATPA_SortByShortSide(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -185,7 +185,7 @@ procedure _LapeATPA_SortByShortSide(const Params: PParamArray; const Result: Poi (* T2DPointArray.SortByLongSide ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.SortByLongSide(LowToHigh: Boolean): T2DPointArray; +> function T2DPointArray.SortByLongSide(LowToHigh: Boolean): T2DPointArray; *) procedure _LapeATPA_SortByLongSide(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -195,7 +195,7 @@ procedure _LapeATPA_SortByLongSide(const Params: PParamArray; const Result: Poin (* T2DPointArray.ExcludeSize ~~~~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.ExcludeSize(Len: Integer; KeepIf: EComparator): T2DPointArray; +> function T2DPointArray.ExcludeSize(Len: Integer; KeepIf: EComparator): T2DPointArray; *) procedure _LapeATPA_ExcludeSize1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -205,7 +205,7 @@ procedure _LapeATPA_ExcludeSize1(const Params: PParamArray; const Result: Pointe (* T2DPointArray.ExcludeSize ~~~~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.ExcludeSize(MinLen, MaxLen: Integer): T2DPointArray; +> function T2DPointArray.ExcludeSize(MinLen, MaxLen: Integer): T2DPointArray; *) procedure _LapeATPA_ExcludeSize2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -215,7 +215,7 @@ procedure _LapeATPA_ExcludeSize2(const Params: PParamArray; const Result: Pointe (* T2DPointArray.ExcludeSizeEx ~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.ExcludeSizeEx(MaxLen: Integer): T2DPointArray; +> function T2DPointArray.ExcludeSizeEx(MaxLen: Integer): T2DPointArray; *) procedure _LapeATPA_ExcludeSizeEx(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -225,7 +225,7 @@ procedure _LapeATPA_ExcludeSizeEx(const Params: PParamArray; const Result: Point (* T2DPointArray.ExcludeDimensions ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.ExcludeDimensions(MinShortSide, MinLongSide, MaxShortSide, MaxLongSide: Integer): T2DPointArray; +> function T2DPointArray.ExcludeDimensions(MinShortSide, MinLongSide, MaxShortSide, MaxLongSide: Integer): T2DPointArray; *) procedure _LapeATPA_ExcludeDimensions(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -235,7 +235,7 @@ procedure _LapeATPA_ExcludeDimensions(const Params: PParamArray; const Result: P (* T2DPointArray.ExcludeDimensionsEx ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.ExcludeDimensionsEx(MaxShortSide, MaxLongSide: Integer): T2DPointArray; +> function T2DPointArray.ExcludeDimensionsEx(MaxShortSide, MaxLongSide: Integer): T2DPointArray; *) procedure _LapeATPA_ExcludeDimensionsEx(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -245,7 +245,7 @@ procedure _LapeATPA_ExcludeDimensionsEx(const Params: PParamArray; const Result: (* T2DPointArray.Smallest ~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.Smallest: TPointArray; +> function T2DPointArray.Smallest: TPointArray; *) procedure _LapeATPA_Smallest(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -255,7 +255,7 @@ procedure _LapeATPA_Smallest(const Params: PParamArray; const Result: Pointer); (* T2DPointArray.Largest ~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.Largest: TPointArray; +> function T2DPointArray.Largest: TPointArray; *) procedure _LapeATPA_Largest(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -265,7 +265,7 @@ procedure _LapeATPA_Largest(const Params: PParamArray; const Result: Pointer); L (* T2DPointArray.Bounds ~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.Bounds: TBox; +> function T2DPointArray.Bounds: TBox; *) procedure _LapeATPA_Bounds(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -275,7 +275,7 @@ procedure _LapeATPA_Bounds(const Params: PParamArray; const Result: Pointer); LA (* T2DPointArray.BoundsArray ~~~~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.BoundsArray: TBoxArray; +> function T2DPointArray.BoundsArray: TBoxArray; *) procedure _LapeATPA_BoundsArray(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -285,7 +285,7 @@ procedure _LapeATPA_BoundsArray(const Params: PParamArray; const Result: Pointer (* T2DPointArray.Mean ~~~~~~~~~~~~~~~~~~ -function T2DPointArray.Mean: TPoint; +> function T2DPointArray.Mean: TPoint; *) procedure _LapeATPA_Mean(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -295,7 +295,7 @@ procedure _LapeATPA_Mean(const Params: PParamArray; const Result: Pointer); LAPE (* T2DPointArray.Means ~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.Means: TPointArray; +> function T2DPointArray.Means: TPointArray; *) procedure _LapeATPA_Means(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -305,7 +305,7 @@ procedure _LapeATPA_Means(const Params: PParamArray; const Result: Pointer); LAP (* T2DPointArray.Merge ~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.Merge: TPointArray; +> function T2DPointArray.Merge: TPointArray; *) procedure _LapeATPA_Merge(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -315,7 +315,7 @@ procedure _LapeATPA_Merge(const Params: PParamArray; const Result: Pointer); LAP (* T2DPointArray.Intersection ~~~~~~~~~~~~~~~~~~~~~~~~~~ -function T2DPointArray.Intersection: TPointArray; +> function T2DPointArray.Intersection: TPointArray; Returns the points which exist in all arrays. *) @@ -374,5 +374,4 @@ procedure ImportATPA(Compiler: TSimbaScript_Compiler); end; end; -end. - +end. \ No newline at end of file diff --git a/Source/script/imports/simba/simba.import_box.pas b/Source/script/imports/simba/simba.import_box.pas index b284968ef..6441a4bd7 100644 --- a/Source/script/imports/simba/simba.import_box.pas +++ b/Source/script/imports/simba/simba.import_box.pas @@ -24,7 +24,7 @@ implementation (* Box ~~~ -function Box(X1, Y1, X2, Y2: Integer): TBox; +> function Box(X1, Y1, X2, Y2: Integer): TBox; *) procedure _LapeBox1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -34,7 +34,7 @@ procedure _LapeBox1(const Params: PParamArray; const Result: Pointer); LAPE_WRAP (* Box ~~~ -function Box(Mid: TPoint; XRad, YRad: Integer): TBox; +> function Box(Mid: TPoint; XRad, YRad: Integer): TBox; *) procedure _LapeBox2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -44,7 +44,7 @@ procedure _LapeBox2(const Params: PParamArray; const Result: Pointer); LAPE_WRAP (* TBox.Create ~~~~~~~~~~~ -function TBox.Create(X1, Y1, X2, Y2: Integer): TBox; static; +> function TBox.Create(X1, Y1, X2, Y2: Integer): TBox; static; *) procedure _LapeBox_Create1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -54,7 +54,7 @@ procedure _LapeBox_Create1(const Params: PParamArray; const Result: Pointer); LA (* TBox.Create ~~~~~~~~~~~ -function TBox.Create(Center: TPoint; XRad, YRad: Integer): TBox; static; +> function TBox.Create(Center: TPoint; XRad, YRad: Integer): TBox; static; *) procedure _LapeBox_Create2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -64,7 +64,7 @@ procedure _LapeBox_Create2(const Params: PParamArray; const Result: Pointer); LA (* TBox.EqualDimensions ~~~~~~~~~~~~~~~~~~~~ -function TBox.EqualDimensions(Other: TBox): Boolean; +> function TBox.EqualDimensions(Other: TBox): Boolean; *) procedure _LapeBox_EqualDimensions(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -74,7 +74,7 @@ procedure _LapeBox_EqualDimensions(const Params: PParamArray; const Result: Poin (* TBox.Area ~~~~~~~~~ -function TBox.Area: Integer; +> function TBox.Area: Integer; *) procedure _LapeBox_Area(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -84,7 +84,7 @@ procedure _LapeBox_Area(const Params: PParamArray; const Result: Pointer); LAPE_ (* TBox.Expand ~~~~~~~~~~~ -function TBox.Expand(SizeMod: Integer): TBox; +> function TBox.Expand(SizeMod: Integer): TBox; *) procedure _LapeBox_Expand1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -94,7 +94,7 @@ procedure _LapeBox_Expand1(const Params: PParamArray; const Result: Pointer); LA (* TBox.Expand ~~~~~~~~~~~ -function TBox.Expand(WidMod, HeiMod: Integer): TBox; +> function TBox.Expand(WidMod, HeiMod: Integer): TBox; *) procedure _LapeBox_Expand2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -104,7 +104,7 @@ procedure _LapeBox_Expand2(const Params: PParamArray; const Result: Pointer); LA (* TBox.Expand ~~~~~~~~~~~ -function TBox.Expand(SizeMod: Integer; MaxBounds: TBox): TBox; +> function TBox.Expand(SizeMod: Integer; MaxBounds: TBox): TBox; *) procedure _LapeBox_Expand3(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -114,7 +114,7 @@ procedure _LapeBox_Expand3(const Params: PParamArray; const Result: Pointer); LA (* TBox.Expand ~~~~~~~~~~~ -function TBox.Expand(WidMod, HeiMod: Integer; MaxBounds: TBox): TBox; +> function TBox.Expand(WidMod, HeiMod: Integer; MaxBounds: TBox): TBox; *) procedure _LapeBox_Expand4(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -124,7 +124,7 @@ procedure _LapeBox_Expand4(const Params: PParamArray; const Result: Pointer); LA (* TBox.Extract ~~~~~~~~~~~~ -function TBox.Extract(Points: TPointArray): TPointArray; +> function TBox.Extract(Points: TPointArray): TPointArray; Returns all points that *are inside* the box. *) @@ -136,7 +136,7 @@ procedure _LapeBox_Extract(const Params: PParamArray; const Result: Pointer); LA (* TBox.Exclude ~~~~~~~~~~~~ -function TBox.Exclude(Points: TPointArray): TPointArray; +> function TBox.Exclude(Points: TPointArray): TPointArray; Returns all points that are *not inside* the box. *) @@ -148,7 +148,7 @@ procedure _LapeBox_Exclude(const Params: PParamArray; const Result: Pointer); LA (* TBox.Contains ~~~~~~~~~~~~~ -function TBox.Contains(Other: TBox): Boolean; +> function TBox.Contains(Other: TBox): Boolean; *) procedure _LapeBox_Contains1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -158,7 +158,7 @@ procedure _LapeBox_Contains1(const Params: PParamArray; const Result: Pointer); (* TBox.Contains ~~~~~~~~~~~~~ -function TBox.Contains(Other: TPoint): Boolean; +> function TBox.Contains(Other: TPoint): Boolean; *) procedure _LapeBox_Contains2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -168,7 +168,7 @@ procedure _LapeBox_Contains2(const Params: PParamArray; const Result: Pointer); (* TBox.Contains ~~~~~~~~~~~~~ -function TBox.Contains(X, Y: Integer): Boolean; +> function TBox.Contains(X, Y: Integer): Boolean; *) procedure _LapeBox_Contains3(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -178,7 +178,7 @@ procedure _LapeBox_Contains3(const Params: PParamArray; const Result: Pointer); (* TBox.Contains ~~~~~~~~~~~~~ -function TBox.Contains(Other: TQuad): Boolean; +> function TBox.Contains(Other: TQuad): Boolean; *) procedure _LapeBox_Contains4(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -188,7 +188,7 @@ procedure _LapeBox_Contains4(const Params: PParamArray; const Result: Pointer); (* TBox.Partition ~~~~~~~~~~~~~~ -function TBox.Partition(Rows, Cols: Integer): TBoxArray; +> function TBox.Partition(Rows, Cols: Integer): TBoxArray; *) procedure _LapeBox_Partition(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -198,7 +198,7 @@ procedure _LapeBox_Partition(const Params: PParamArray; const Result: Pointer); (* TBox.Offset ~~~~~~~~~~~ -function TBox.Offset(X, Y: Integer): TBox; +> function TBox.Offset(X, Y: Integer): TBox; *) procedure _LapeBox_Offset1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -208,7 +208,7 @@ procedure _LapeBox_Offset1(const Params: PParamArray; const Result: Pointer); LA (* TBox.Offset ~~~~~~~~~~~ -function TBox.Offset(P: TPoint): TBox; +> function TBox.Offset(P: TPoint): TBox; *) procedure _LapeBox_Offset2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -218,7 +218,7 @@ procedure _LapeBox_Offset2(const Params: PParamArray; const Result: Pointer); LA (* TBox.Combine ~~~~~~~~~~~~ -function TBox.Combine(Other: TBox): TBox; +> function TBox.Combine(Other: TBox): TBox; *) procedure _LapeBox_Combine(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -228,7 +228,7 @@ procedure _LapeBox_Combine(const Params: PParamArray; const Result: Pointer); LA (* TBox.Invert ~~~~~~~~~~~ -function TBox.Invert(Area: TBox): TBoxArray; +> function TBox.Invert(Area: TBox): TBoxArray; *) procedure _LapeBox_Invert(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -238,7 +238,7 @@ procedure _LapeBox_Invert(const Params: PParamArray; const Result: Pointer); LAP (* TBox.NearestEdge ~~~~~~~~~~~~~~~~ -function TBox.NearestEdge(P: TPoint): TPoint; +> function TBox.NearestEdge(P: TPoint): TPoint; *) procedure _LapeBox_NearestEdge(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -248,7 +248,7 @@ procedure _LapeBox_NearestEdge(const Params: PParamArray; const Result: Pointer) (* TBox.Intersect ~~~~~~~~~~~~~~ -function TBox.Intersect(P: TPoint): TPoint; +> function TBox.Intersect(P: TPoint): TPoint; *) procedure _LapeBox_Intersect(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -258,7 +258,7 @@ procedure _LapeBox_Intersect(const Params: PParamArray; const Result: Pointer); (* TBox.Clip ~~~~~~~~~ -function TBox.Clip(Other: TBox): TBox; +> function TBox.Clip(Other: TBox): TBox; *) procedure _LapeBox_Clip(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -268,7 +268,7 @@ procedure _LapeBox_Clip(const Params: PParamArray; const Result: Pointer); LAPE_ (* TBox.Normalize ~~~~~~~~~~~~~~ -function TBox.Normalize: TBox; +> function TBox.Normalize: TBox; *) procedure _LapeBox_Normalize(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -278,7 +278,7 @@ procedure _LapeBox_Normalize(const Params: PParamArray; const Result: Pointer); (* TBox.Width ~~~~~~~~~~ -function TBox.Width: Integer; +> function TBox.Width: Integer; *) procedure _LapeBox_Width(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -288,7 +288,7 @@ procedure _LapeBox_Width(const Params: PParamArray; const Result: Pointer); LAPE (* TBox.Height ~~~~~~~~~~~ -function TBox.Height: Integer; +> function TBox.Height: Integer; *) procedure _LapeBox_Height(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -298,7 +298,7 @@ procedure _LapeBox_Height(const Params: PParamArray; const Result: Pointer); LAP (* TBox.Center ~~~~~~~~~~~ -function TBox.Center: TPoint; +> function TBox.Center: TPoint; *) procedure _LapeBox_Center(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -308,7 +308,7 @@ procedure _LapeBox_Center(const Params: PParamArray; const Result: Pointer); LAP (* TBox.Corners ~~~~~~~~~~~~ -function TBox.Corners: TPointArray; +> function TBox.Corners: TPointArray; *) procedure _LapeBox_Corners(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -318,7 +318,7 @@ procedure _LapeBox_Corners(const Params: PParamArray; const Result: Pointer); LA (* TBox.ToQuad ~~~~~~~~~~~ -function TBox.ToQuad: TQuad; +> function TBox.ToQuad: TQuad; Converts the TBox to a TQuad type. *) @@ -330,7 +330,7 @@ procedure _LapeBox_ToQuad(const Params: PParamArray; const Result: Pointer); LAP (* TBox.RandomPoint ~~~~~~~~~~~~~~~~ -function TBox.RandomPoint: TPoint; +> function TBox.RandomPoint: TPoint; Returns a completely random point in the box. *) @@ -342,7 +342,7 @@ procedure _LapeBox_RandomPoint(const Params: PParamArray; const Result: Pointer) (* TBox.RandomPointCenter ~~~~~~~~~~~~~~~~~~~~~~ -function TBox.RandomPointCenter: TPoint; +> function TBox.RandomPointCenter: TPoint; Returns a random point in the box which is weighted torwards the box center. *) @@ -400,5 +400,4 @@ procedure ImportBox(Compiler: TSimbaScript_Compiler); end; end; -end. - +end. \ No newline at end of file diff --git a/Source/script/imports/simba/simba.import_boxarray.pas b/Source/script/imports/simba/simba.import_boxarray.pas index 6917d94cc..5fd76ca67 100644 --- a/Source/script/imports/simba/simba.import_boxarray.pas +++ b/Source/script/imports/simba/simba.import_boxarray.pas @@ -25,7 +25,7 @@ implementation (* TBoxArray.Create ~~~~~~~~~~~~~~~~ -function TBoxArray.Create(Start: TPoint; Columns, Rows, Width, Height: Integer; Spacing: TPoint): TBoxArray; static; +> function TBoxArray.Create(Start: TPoint; Columns, Rows, Width, Height: Integer; Spacing: TPoint): TBoxArray; static; *) procedure _LapeBoxArray_Create(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -35,7 +35,7 @@ procedure _LapeBoxArray_Create(const Params: PParamArray; const Result: Pointer) (* TBoxArray.Pack ~~~~~~~~~~~~~~ -function TBoxArray.Pack: TBoxArray; +> function TBoxArray.Pack: TBoxArray; *) procedure _LapeBoxArray_Pack(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -45,7 +45,7 @@ procedure _LapeBoxArray_Pack(const Params: PParamArray; const Result: Pointer); (* TBoxArray.SortFrom ~~~~~~~~~~~~~~~~~~ -function TBoxArray.SortFrom(From: TPoint): TBoxArray; +> function TBoxArray.SortFrom(From: TPoint): TBoxArray; *) procedure _LapeBoxArray_SortFrom(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -55,7 +55,7 @@ procedure _LapeBoxArray_SortFrom(const Params: PParamArray; const Result: Pointe (* TBoxArray.SortByX ~~~~~~~~~~~~~~~~~ -function TBoxArray.SortByX(LowToHigh: Boolean): TBoxArray; +> function TBoxArray.SortByX(LowToHigh: Boolean): TBoxArray; *) procedure _LapeBoxArray_SortByX(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -65,7 +65,7 @@ procedure _LapeBoxArray_SortByX(const Params: PParamArray; const Result: Pointer (* TBoxArray.SortByY ~~~~~~~~~~~~~~~~~ -function TBoxArray.SortByY(LowToHigh: Boolean; const Result: Pointer): TBoxArray; +> function TBoxArray.SortByY(LowToHigh: Boolean; const Result: Pointer): TBoxArray; *) procedure _LapeBoxArray_SortByY(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -75,7 +75,7 @@ procedure _LapeBoxArray_SortByY(const Params: PParamArray; const Result: Pointer (* TBoxArray.SortByWidth ~~~~~~~~~~~~~~~~~~~~~ -function TBoxArray.SortByWidth(LowToHigh: Boolean; const Result: Pointer): TBoxArray; +> function TBoxArray.SortByWidth(LowToHigh: Boolean; const Result: Pointer): TBoxArray; *) procedure _LapeBoxArray_SortByWidth(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -85,7 +85,7 @@ procedure _LapeBoxArray_SortByWidth(const Params: PParamArray; const Result: Poi (* TBoxArray.SortByHeight ~~~~~~~~~~~~~~~~~~~~~~ -function TBoxArray.SortByHeight(LowToHigh: Boolean; const Result: Pointer): TBoxArray; +> function TBoxArray.SortByHeight(LowToHigh: Boolean; const Result: Pointer): TBoxArray; *) procedure _LapeBoxArray_SortByHeight(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -95,7 +95,7 @@ procedure _LapeBoxArray_SortByHeight(const Params: PParamArray; const Result: Po (* TBoxArray.SortByArea ~~~~~~~~~~~~~~~~~~~~ -function TBoxArray.SortByArea(LowToHigh: Boolean; const Result: Pointer): TBoxArray; +> function TBoxArray.SortByArea(LowToHigh: Boolean; const Result: Pointer): TBoxArray; *) procedure _LapeBoxArray_SortByArea(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -105,7 +105,7 @@ procedure _LapeBoxArray_SortByArea(const Params: PParamArray; const Result: Poin (* TBoxArray.Merge ~~~~~~~~~~~~~~~ -function TBoxArray.Merge: TBox; +> function TBoxArray.Merge: TBox; *) procedure _LapeBoxArray_Merge(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -115,7 +115,7 @@ procedure _LapeBoxArray_Merge(const Params: PParamArray; const Result: Pointer); (* TBoxArray.Centers ~~~~~~~~~~~~~~~~~ -function TBoxArray.Centers: TPointArray; +> function TBoxArray.Centers: TPointArray; *) procedure _LapeBoxArray_Centers(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -125,7 +125,7 @@ procedure _LapeBoxArray_Centers(const Params: PParamArray; const Result: Pointer (* TBoxArray.Offset ~~~~~~~~~~~~~~~~ -function TBoxArray.Offset(P: TPoint): TBoxArray; +> function TBoxArray.Offset(P: TPoint): TBoxArray; *) procedure _LapeBoxArray_Offset1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -135,7 +135,7 @@ procedure _LapeBoxArray_Offset1(const Params: PParamArray; const Result: Pointer (* TBoxArray.Offset ~~~~~~~~~~~~~~~~ -function TBoxArray.Offset(X, Y: Integer): TBoxArray; +> function TBoxArray.Offset(X, Y: Integer): TBoxArray; *) procedure _LapeBoxArray_Offset2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -145,7 +145,7 @@ procedure _LapeBoxArray_Offset2(const Params: PParamArray; const Result: Pointer (* TBoxArray.Expand ~~~~~~~~~~~~~~~~ -function TBoxArray.Expand(SizeMod: Integer): TBoxArray; +> function TBoxArray.Expand(SizeMod: Integer): TBoxArray; *) procedure _LapeBoxArray_Expand1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -155,7 +155,7 @@ procedure _LapeBoxArray_Expand1(const Params: PParamArray; const Result: Pointer (* TBoxArray.Expand ~~~~~~~~~~~~~~~~ -function TBoxArray.Expand(WidMod, HeiMod: Integer): TBoxArray; +> function TBoxArray.Expand(WidMod, HeiMod: Integer): TBoxArray; *) procedure _LapeBoxArray_Expand2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -165,7 +165,7 @@ procedure _LapeBoxArray_Expand2(const Params: PParamArray; const Result: Pointer (* TBoxArray.ContainsPoint ~~~~~~~~~~~~~~~~~~~~~~~ -function TBoxArray.ContainsPoint(P: TPoint; out Index: Integer): Boolean; +> function TBoxArray.ContainsPoint(P: TPoint; out Index: Integer): Boolean; *) procedure _LapeBoxArray_ContainsPoint1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -175,7 +175,7 @@ procedure _LapeBoxArray_ContainsPoint1(const Params: PParamArray; const Result: (* TBoxArray.ContainsPoint ~~~~~~~~~~~~~~~~~~~~~~~ -function TBoxArray.ContainsPoint(P: TPoint): Boolean; overload; +> function TBoxArray.ContainsPoint(P: TPoint): Boolean; overload; *) procedure _LapeBoxArray_ContainsPoint2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -185,7 +185,7 @@ procedure _LapeBoxArray_ContainsPoint2(const Params: PParamArray; const Result: (* TBoxArray.Sort ~~~~~~~~~~~~~~ -function TBoxArray.Sort(Weights: TIntegerArray; LowToHigh: Boolean = True): TBoxArray +> function TBoxArray.Sort(Weights: TIntegerArray; LowToHigh: Boolean = True): TBoxArray *) procedure _LapeBoxArray_Sort1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -195,7 +195,7 @@ procedure _LapeBoxArray_Sort1(const Params: PParamArray; const Result: Pointer); (* TBoxArray.Sort ~~~~~~~~~~~~~~ -function TBoxArray.Sort(Weights: TDoubleArray; LowToHigh: Boolean = True): TBoxArray +> function TBoxArray.Sort(Weights: TDoubleArray; LowToHigh: Boolean = True): TBoxArray *) procedure _LapeBoxArray_Sort2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -205,7 +205,7 @@ procedure _LapeBoxArray_Sort2(const Params: PParamArray; const Result: Pointer); (* TBoxArray.SymmetricDifference ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TBoxArray.SymmetricDifference(Other: TBoxArray): TBoxArray; +> function TBoxArray.SymmetricDifference(Other: TBoxArray): TBoxArray; *) procedure _Lape_Box_SymmetricDifference(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -215,7 +215,7 @@ procedure _Lape_Box_SymmetricDifference(const Params: PParamArray; const Result: (* TBoxArray.Difference ~~~~~~~~~~~~~~~~~~~~ -function TBoxArray.Difference(Other: TBoxArray): TBoxArray; +> function TBoxArray.Difference(Other: TBoxArray): TBoxArray; *) procedure _Lape_Box_Difference(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -225,7 +225,7 @@ procedure _Lape_Box_Difference(const Params: PParamArray; const Result: Pointer) (* TBoxArray.Intersection ~~~~~~~~~~~~~~~~~~~~~~ -function TBoxArray.Intersection(Other: TBoxArray): TBoxArray; +> function TBoxArray.Intersection(Other: TBoxArray): TBoxArray; *) procedure _Lape_Box_Intersection(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -270,5 +270,4 @@ procedure ImportBoxArray(Compiler: TSimbaScript_Compiler); end; end; -end. - +end. \ No newline at end of file diff --git a/Source/script/imports/simba/simba.import_debugimage.pas b/Source/script/imports/simba/simba.import_debugimage.pas index b1ceb245d..e5135562b 100644 --- a/Source/script/imports/simba/simba.import_debugimage.pas +++ b/Source/script/imports/simba/simba.import_debugimage.pas @@ -26,91 +26,91 @@ implementation (* Show ~~~~ -procedure Show(Matrix: TIntegerMatrix); +> procedure Show(Matrix: TIntegerMatrix); *) (* Show ~~~~ -procedure Show(Matrix: TSingleMatrix; ColorMapID: Integer = 0); +> procedure Show(Matrix: TSingleMatrix; ColorMapID: Integer = 0); *) (* Show ~~~~ -procedure Show(Boxes: TBoxArray; Filled: Boolean = False); +> procedure Show(Boxes: TBoxArray; Filled: Boolean = False); *) (* Show ~~~~ -procedure Show(Box: TBox; Filled: Boolean = False); +> procedure Show(Box: TBox; Filled: Boolean = False); *) (* Show ~~~~ -procedure Show(Quads: TQuadArray; Filled: Boolean = False); +> procedure Show(Quads: TQuadArray; Filled: Boolean = False); *) (* Show ~~~~ -procedure Show(Quad: TQuad; Filled: Boolean = False); +> procedure Show(Quad: TQuad; Filled: Boolean = False); *) (* Show ~~~~ -procedure Show(TPA: TPointArray; Color: Integer = $0000FF); +> procedure Show(TPA: TPointArray; Color: Integer = $0000FF); *) (* Show ~~~~ -procedure Show(ATPA: T2DPointArray; Color: Integer = $0000FF); +> procedure Show(ATPA: T2DPointArray; Color: Integer = $0000FF); *) (* ShowOnClient ~~~~~~~~~~~~ -procedure ShowOnClient(Boxes: TBoxArray; Filled: Boolean = False); +> procedure ShowOnClient(Boxes: TBoxArray; Filled: Boolean = False); *) (* ShowOnClient ~~~~~~~~~~~~ -procedure ShowOnClient(Box: TBox; Filled: Boolean = False); +> procedure ShowOnClient(Box: TBox; Filled: Boolean = False); *) (* ShowOnClient ~~~~~~~~~~~~ -procedure ShowOnClient(Quads: TQuadArray; Filled: Boolean = False); +> procedure ShowOnClient(Quads: TQuadArray; Filled: Boolean = False); *) (* ShowOnClient ~~~~~~~~~~~~ -procedure ShowOnClient(Quad: TQuad; Filled: Boolean = False); +> procedure ShowOnClient(Quad: TQuad; Filled: Boolean = False); *) (* ShowOnClient ~~~~~~~~~~~~ -procedure ShowOnClient(TPA: TPointArray; Color: Integer = $0000FF); +> procedure ShowOnClient(TPA: TPointArray; Color: Integer = $0000FF); *) (* ShowOnClient ~~~~~~~~~~~~ -procedure ShowOnClient(ATPA: T2DPointArray; Color: Integer = $0000FF); +> procedure ShowOnClient(ATPA: T2DPointArray; Color: Integer = $0000FF); *) (* Show ~~~~ -procedure Show(Bitmap: TSimbaImage; EnsureVisible: Boolean = True); +> procedure Show(Bitmap: TSimbaImage; EnsureVisible: Boolean = True); *) procedure _LapeShowBitmap(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -123,7 +123,7 @@ procedure _LapeShowBitmap(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV (* UpdateDebugImage ~~~~~~~~~~~~~~~~ -procedure UpdateDebugImage(Bitmap: TSimbaImage); +> procedure UpdateDebugImage(Bitmap: TSimbaImage); *) procedure _LapeUpdateDebugImage(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -136,7 +136,7 @@ procedure _LapeUpdateDebugImage(const Params: PParamArray); LAPE_WRAPPER_CALLING (* ShowDebugImage ~~~~~~~~~~~~~~ -procedure ShowDebugImage(Width, Height: Integer); +> procedure ShowDebugImage(Width, Height: Integer); *) procedure _LapeShowDebugImage1(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -149,7 +149,7 @@ procedure _LapeShowDebugImage1(const Params: PParamArray); LAPE_WRAPPER_CALLING_ (* ShowDebugImage ~~~~~~~~~~~~~~ -procedure ShowDebugImage(X, Y,Width, Height: Integer); +> procedure ShowDebugImage(X, Y,Width, Height: Integer); *) procedure _LapeShowDebugImage2(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -162,7 +162,7 @@ procedure _LapeShowDebugImage2(const Params: PParamArray); LAPE_WRAPPER_CALLING_ (* SetDebugImageMaxSize ~~~~~~~~~~~~~~~~~~~~ -procedure SetDebugImageMaxSize(MaxWidth, MaxHeight: Integer); +> procedure SetDebugImageMaxSize(MaxWidth, MaxHeight: Integer); *) procedure _LapeSetDebugImageMaxSize(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -175,7 +175,7 @@ procedure _LapeSetDebugImageMaxSize(const Params: PParamArray); LAPE_WRAPPER_CAL (* HideDebugImage ~~~~~~~~~~~~~~ -procedure HideDebugImage; +> procedure HideDebugImage; *) procedure _LapeHideDebugImage(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -381,5 +381,4 @@ procedure ImportDebugImage(Compiler: TSimbaScript_Compiler); end; end; -end. - +end. \ No newline at end of file diff --git a/Source/script/imports/simba/simba.import_file.pas b/Source/script/imports/simba/simba.import_file.pas index a0a771b70..70fdc9fbd 100644 --- a/Source/script/imports/simba/simba.import_file.pas +++ b/Source/script/imports/simba/simba.import_file.pas @@ -33,7 +33,7 @@ implementation (* INIFileWrite ~~~~~~~~~~~~~ -function INIFileWrite(FileName: String; Section, Key, Value: String): Boolean +> function INIFileWrite(FileName: String; Section, Key, Value: String): Boolean *) procedure _LapeINIFileWrite(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -43,7 +43,7 @@ procedure _LapeINIFileWrite(const Params: PParamArray; const Result: Pointer); L (* INIFileRead ~~~~~~~~~~~~~ -function INIFileRead(FileName: String; Section, Key, Value: String): String +> function INIFileRead(FileName: String; Section, Key, Value: String): String *) procedure _LapeINIFileRead(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -53,7 +53,7 @@ procedure _LapeINIFileRead(const Params: PParamArray; const Result: Pointer); LA (* INIFileDelete ~~~~~~~~~~~~~ -function INIFileDelete(FileName: String; Section, Key: String): Boolean +> function INIFileDelete(FileName: String; Section, Key: String): Boolean *) procedure _LapeINIFileDelete(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -63,7 +63,7 @@ procedure _LapeINIFileDelete(const Params: PParamArray; const Result: Pointer); (* INIFileKeys ~~~~~~~~~~~ -function INIFileKeys(FileName: String; Section: String): TStringArray +> function INIFileKeys(FileName: String; Section: String): TStringArray *) procedure _LapeINIFileKeys(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -73,7 +73,7 @@ procedure _LapeINIFileKeys(const Params: PParamArray; const Result: Pointer); LA (* INIFileSections ~~~~~~~~~~~~~~~ -function INIFileSections(FileName: String): TStringArray +> function INIFileSections(FileName: String): TStringArray *) procedure _LapeINIFileSections(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -83,7 +83,7 @@ procedure _LapeINIFileSections(const Params: PParamArray; const Result: Pointer) (* ZipExtractAll ~~~~~~~~~~~~~ -function ZipExtractAll(ZipFileName, OutputDir: String): Boolean; +> function ZipExtractAll(ZipFileName, OutputDir: String): Boolean; *) procedure _LapeZipExtractAll(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -93,7 +93,7 @@ procedure _LapeZipExtractAll(const Params: PParamArray; const Result: Pointer); (* ZipExtractOne ~~~~~~~~~~~~~ -function ZipExtractOne(ZipFileName, FileName, OutputDir: String): Boolean; +> function ZipExtractOne(ZipFileName, FileName, OutputDir: String): Boolean; *) procedure _LapeZipExtractOne(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -103,7 +103,7 @@ procedure _LapeZipExtractOne(const Params: PParamArray; const Result: Pointer); (* ZipFiles ~~~~~~~~ -function ZipFiles(ZipFileName: String; Files: TStringArray): Boolean; +> function ZipFiles(ZipFileName: String; Files: TStringArray): Boolean; *) procedure _LapeZipFiles(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -113,7 +113,7 @@ procedure _LapeZipFiles(const Params: PParamArray; const Result: Pointer); LAPE_ (* ZipEntries ~~~~~~~~~~ -function ZipEntries(ZipFileName: String): TStringArray; +> function ZipEntries(ZipFileName: String): TStringArray; *) procedure _LapeZipEntries(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -123,7 +123,7 @@ procedure _LapeZipEntries(const Params: PParamArray; const Result: Pointer); LAP (* FileAppend ~~~~~~~~~~ -function FileAppend(FileName: String; Text: String): Boolean; +> function FileAppend(FileName: String; Text: String): Boolean; *) procedure _LapeFileAppend(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -133,7 +133,7 @@ procedure _LapeFileAppend(const Params: PParamArray; const Result: Pointer); LAP (* FileWrite ~~~~~~~~~ -function FileWrite(FileName: String; Text: String): Boolean; +> function FileWrite(FileName: String; Text: String): Boolean; *) procedure _LapeFileWrite(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -143,7 +143,7 @@ procedure _LapeFileWrite(const Params: PParamArray; const Result: Pointer); LAPE (* FileCopy ~~~~~~~~ -function FileCopy(SourceFileName, DestFileName: String; OverwriteIfExists: Boolean = True): Boolean; +> function FileCopy(SourceFileName, DestFileName: String; OverwriteIfExists: Boolean = True): Boolean; *) procedure _LapeFileCopy(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -153,7 +153,7 @@ procedure _LapeFileCopy(const Params: PParamArray; const Result: Pointer); LAPE_ (* FileRename ~~~~~~~~~~ -function FileRename(SourceFileName, DestFileName: String): Boolean; +> function FileRename(SourceFileName, DestFileName: String): Boolean; *) procedure _LapeFileRename(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -163,7 +163,7 @@ procedure _LapeFileRename(const Params: PParamArray; const Result: Pointer); LAP (* FileDelete ~~~~~~~~~~ -function FileDelete(FileName: String): Boolean; +> function FileDelete(FileName: String): Boolean; *) procedure _LapeFileDelete(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -173,7 +173,7 @@ procedure _LapeFileDelete(const Params: PParamArray; const Result: Pointer); LAP (* FileRead ~~~~~~~~ -function FileRead(FileName: String): String; +> function FileRead(FileName: String): String; *) procedure _LapeFileRead(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -183,7 +183,7 @@ procedure _LapeFileRead(const Params: PParamArray; const Result: Pointer); LAPE_ (* FileReadEx ~~~~~~~~~~ -function FileReadEx(FileName: String; Offset: Integer): String; +> function FileReadEx(FileName: String; Offset: Integer): String; *) procedure _LapeFileReadEx(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -193,7 +193,7 @@ procedure _LapeFileReadEx(const Params: PParamArray; const Result: Pointer); LAP (* FileReadLines ~~~~~~~~~~~~~ -function FileReadLines(FileName: String): TStringArray; +> function FileReadLines(FileName: String): TStringArray; *) procedure _LapeFileReadLines(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -203,7 +203,7 @@ procedure _LapeFileReadLines(const Params: PParamArray; const Result: Pointer); (* FileReadBytes ~~~~~~~~~~~~~ -function FileReadBytes(FileName: String): TByteArray; +> function FileReadBytes(FileName: String): TByteArray; *) procedure _LapeFileReadBytes(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -213,7 +213,7 @@ procedure _LapeFileReadBytes(const Params: PParamArray; const Result: Pointer); (* FileReadBytesEx ~~~~~~~~~~~~~~~ -function FileReadBytesEx(FileName: String; Offset: Integer): TByteArray; +> function FileReadBytesEx(FileName: String; Offset: Integer): TByteArray; *) procedure _LapeFileReadBytesEx(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -223,7 +223,7 @@ procedure _LapeFileReadBytesEx(const Params: PParamArray; const Result: Pointer) (* FileWriteBytes ~~~~~~~~~~~~~~ -function FileWriteBytes(FileName: String; Bytes: TByteArray): Boolean; +> function FileWriteBytes(FileName: String; Bytes: TByteArray): Boolean; *) procedure _LapeFileWriteBytes(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -233,7 +233,7 @@ procedure _LapeFileWriteBytes(const Params: PParamArray; const Result: Pointer); (* FileAppendBytes ~~~~~~~~~~~~~~~ -function FileAppendBytes(FileName: String; Bytes: TByteArray): Boolean; +> function FileAppendBytes(FileName: String; Bytes: TByteArray): Boolean; *) procedure _LapeFileAppendBytes(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -243,7 +243,7 @@ procedure _LapeFileAppendBytes(const Params: PParamArray; const Result: Pointer) (* FileCreate ~~~~~~~~~~ -function FileCreate(FileName: String): Boolean; +> function FileCreate(FileName: String): Boolean; *) procedure _LapeFileCreate(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -253,7 +253,7 @@ procedure _LapeFileCreate(const Params: PParamArray; const Result: Pointer); LAP (* FileExists ~~~~~~~~~~ -function FileExists(FileName: String): Boolean; +> function FileExists(FileName: String): Boolean; *) procedure _LapeFileExists(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -263,7 +263,7 @@ procedure _LapeFileExists(const Params: PParamArray; const Result: Pointer); LAP (* FileCreationTime ~~~~~~~~~~~~~~~~ -function FileCreationTime(FileName: String): TDateTime; +> function FileCreationTime(FileName: String): TDateTime; *) procedure _LapeFileCreationTime(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -273,7 +273,7 @@ procedure _LapeFileCreationTime(const Params: PParamArray; const Result: Pointer (* FileLastWriteTime ~~~~~~~~~~~~~~~~~ -function FileLastWriteTime(FileName: String): TDateTime; +> function FileLastWriteTime(FileName: String): TDateTime; *) procedure _LapeFileLastWriteTime(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -283,7 +283,7 @@ procedure _LapeFileLastWriteTime(const Params: PParamArray; const Result: Pointe (* FileSize ~~~~~~~~ -function FileSize(FileName: String): Int64; +> function FileSize(FileName: String): Int64; *) procedure _LapeFileSize(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -293,7 +293,7 @@ procedure _LapeFileSize(const Params: PParamArray; const Result: Pointer); LAPE_ (* FileSizeInMegaBytes ~~~~~~~~~~~~~~~~~~~ -function FileSizeInMegaBytes(FileName: String): Single; +> function FileSizeInMegaBytes(FileName: String): Single; *) procedure _LapeFileSizeInMegaBytes(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -303,7 +303,7 @@ procedure _LapeFileSizeInMegaBytes(const Params: PParamArray; const Result: Poin (* FileHash ~~~~~~~~ -function FileHash(FileName: String; HashType: String = "SHA1"): String; +> function FileHash(FileName: String; HashType: String = 'SHA1'): String; *) procedure _LapeFileHash(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -313,7 +313,7 @@ procedure _LapeFileHash(const Params: PParamArray; const Result: Pointer); LAPE_ (* PathExists ~~~~~~~~~~ -function PathExists(Path: String): Boolean; +> function PathExists(Path: String): Boolean; *) procedure _LapePathExists(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -323,7 +323,7 @@ procedure _LapePathExists(const Params: PParamArray; const Result: Pointer); LAP (* PathNormalize ~~~~~~~~~~~~~ -function PathNormalize(Path: String): String; +> function PathNormalize(Path: String): String; *) procedure _LapePathNormalize(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -333,7 +333,7 @@ procedure _LapePathNormalize(const Params: PParamArray; const Result: Pointer); (* PathIsFile ~~~~~~~~~~ -function PathIsFile(Path: String): Boolean; +> function PathIsFile(Path: String): Boolean; *) procedure _LapePathIsFile(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -343,7 +343,7 @@ procedure _LapePathIsFile(const Params: PParamArray; const Result: Pointer); LAP (* PathIsDirectory ~~~~~~~~~~~~~~~ -function PathIsDirectory(Path: String): Boolean; +> function PathIsDirectory(Path: String): Boolean; *) procedure _LapePathIsDirectory(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -353,7 +353,7 @@ procedure _LapePathIsDirectory(const Params: PParamArray; const Result: Pointer) (* PathExtractName ~~~~~~~~~~~~~~~ -function PathExtractName(Path: String): String; +> function PathExtractName(Path: String): String; *) procedure _LapePathExtractName(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -363,7 +363,7 @@ procedure _LapePathExtractName(const Params: PParamArray; const Result: Pointer) (* PathExtractNameWithoutExt ~~~~~~~~~~~~~~~~~~~~~~~~~ -function PathExtractNameWithoutExt(Path: String): String; +> function PathExtractNameWithoutExt(Path: String): String; *) procedure _LapePathExtractNameWithoutExt(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -373,7 +373,7 @@ procedure _LapePathExtractNameWithoutExt(const Params: PParamArray; const Result (* PathExtractExt ~~~~~~~~~~~~~~ -function PathExtractExt(Path: String): String; +> function PathExtractExt(Path: String): String; *) procedure _LapePathExtractExt(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -383,7 +383,7 @@ procedure _LapePathExtractExt(const Params: PParamArray; const Result: Pointer); (* PathExtractDir ~~~~~~~~~~~~~~ -function PathExtractDir(Path: String): String; +> function PathExtractDir(Path: String): String; *) procedure _LapePathExtractDir(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -393,7 +393,7 @@ procedure _LapePathExtractDir(const Params: PParamArray; const Result: Pointer); (* PathJoin ~~~~~~~~ -function PathJoin(Paths: TStringArray): String; +> function PathJoin(Paths: TStringArray): String; *) procedure _LapePathJoin(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -403,7 +403,7 @@ procedure _LapePathJoin(const Params: PParamArray; const Result: Pointer); LAPE_ (* PathSetSeperators ~~~~~~~~~~~~~~~~~ -function PathSetSeperators(Path: String): String; +> function PathSetSeperators(Path: String): String; *) procedure _LapePathSetSeperators(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -413,7 +413,7 @@ procedure _LapePathSetSeperators(const Params: PParamArray; const Result: Pointe (* PathExcludeTrailingSep ~~~~~~~~~~~~~~~~~~~~~~ -function PathExcludeTrailingSep(Path: String): String; +> function PathExcludeTrailingSep(Path: String): String; *) procedure _LapePathExcludeTrailingSep(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -423,7 +423,7 @@ procedure _LapePathExcludeTrailingSep(const Params: PParamArray; const Result: P (* PathIncludeTrailingSep ~~~~~~~~~~~~~~~~~~~~~~ -function PathIncludeTrailingSep(Path: String): String; +> function PathIncludeTrailingSep(Path: String): String; *) procedure _LapePathIncludeTrailingSep(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -433,7 +433,7 @@ procedure _LapePathIncludeTrailingSep(const Params: PParamArray; const Result: P (* PathExcludeLeadingSep ~~~~~~~~~~~~~~~~~~~~~ -function PathExcludeLeadingSep(Path: String): String; +> function PathExcludeLeadingSep(Path: String): String; *) procedure _LapePathExcludeLeadingSep(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -443,7 +443,7 @@ procedure _LapePathExcludeLeadingSep(const Params: PParamArray; const Result: Po (* PathIncludeLeadingSep ~~~~~~~~~~~~~~~~~~~~~ -function PathIncludeLeadingSep(Path: String): String; +> function PathIncludeLeadingSep(Path: String): String; *) procedure _LapePathIncludeLeadingSep(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -453,7 +453,7 @@ procedure _LapePathIncludeLeadingSep(const Params: PParamArray; const Result: Po (* PathExtractRelative ~~~~~~~~~~~~~~~~~~~ -function PathExtractRelative(BasePath, DestPath: String): String; +> function PathExtractRelative(BasePath, DestPath: String): String; *) procedure _LapePathExtractRelative(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -463,7 +463,7 @@ procedure _LapePathExtractRelative(const Params: PParamArray; const Result: Poin (* DirList ~~~~~~~ -function DirList(Path: String; Recursive: Boolean = False): TStringArray; +> function DirList(Path: String; Recursive: Boolean = False): TStringArray; *) procedure _LapeDirList(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -473,7 +473,7 @@ procedure _LapeDirList(const Params: PParamArray; const Result: Pointer); LAPE_W (* DirSearch ~~~~~~~~~ -function DirSearch(Path: String; Mask: String; Recursive: Boolean = False): TStringArray; +> function DirSearch(Path: String; Mask: String; Recursive: Boolean = False): TStringArray; *) procedure _LapeDirSearch(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -483,7 +483,7 @@ procedure _LapeDirSearch(const Params: PParamArray; const Result: Pointer); LAPE (* DirCreate ~~~~~~~~~ -function DirCreate(Path: String): Boolean; +> function DirCreate(Path: String): Boolean; *) procedure _LapeDirCreate(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -493,7 +493,7 @@ procedure _LapeDirCreate(const Params: PParamArray; const Result: Pointer); LAPE (* DirDelete ~~~~~~~~~ -function DirDelete(Path: String; OnlyChildren: Boolean): Boolean; +> function DirDelete(Path: String; OnlyChildren: Boolean): Boolean; *) procedure _LapeDirDelete(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -503,7 +503,7 @@ procedure _LapeDirDelete(const Params: PParamArray; const Result: Pointer); LAPE (* DirExists ~~~~~~~~~ -function DirExists(Path: String): Boolean; +> function DirExists(Path: String): Boolean; *) procedure _LapeDirExists(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -513,7 +513,7 @@ procedure _LapeDirExists(const Params: PParamArray; const Result: Pointer); LAPE (* DirParent ~~~~~~~~~ -function DirParent(Path: String): String; +> function DirParent(Path: String): String; *) procedure _LapeDirParent(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -523,7 +523,7 @@ procedure _LapeDirParent(const Params: PParamArray; const Result: Pointer); LAPE (* DirIsEmpty ~~~~~~~~~~ -function DirIsEmpty(Path: String): Boolean; +> function DirIsEmpty(Path: String): Boolean; *) procedure _LapeDirIsEmpty(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -533,7 +533,7 @@ procedure _LapeDirIsEmpty(const Params: PParamArray; const Result: Pointer); LAP (* DirSize ~~~~~~~ -function DirSize(Path: String): Int64; +> function DirSize(Path: String): Int64; *) procedure _LapeDirSize(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -543,7 +543,7 @@ procedure _LapeDirSize(const Params: PParamArray; const Result: Pointer); LAPE_W (* DirSizeInMegaBytes ~~~~~~~~~~~~~~~~~~ -function DirSizeInMegaBytes(Path: String): Single; +> function DirSizeInMegaBytes(Path: String): Single; *) procedure _LapeDirSizeInMegaBytes(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -553,7 +553,7 @@ procedure _LapeDirSizeInMegaBytes(const Params: PParamArray; const Result: Point (* GetUserDir ~~~~~~~~~~ -function GetUserDir: String; +> function GetUserDir: String; *) procedure _LapeGetUserDir(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -563,7 +563,7 @@ procedure _LapeGetUserDir(const Params: PParamArray; const Result: Pointer); LAP (* GetTempDir ~~~~~~~~~~ -function GetTempDir: String; +> function GetTempDir: String; *) procedure _LapeGetTempDir(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -573,7 +573,7 @@ procedure _LapeGetTempDir(const Params: PParamArray; const Result: Pointer); LAP (* GetTempFileName ~~~~~~~~~~~~~~~ -function GetTempFileName: String; +> function GetTempFileName: String; *) procedure _LapeGetTempFileName(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -664,5 +664,3 @@ procedure ImportFile(Compiler: TSimbaScript_Compiler); end; end. - - diff --git a/Source/script/imports/simba/simba.import_finder.pas b/Source/script/imports/simba/simba.import_finder.pas index 1e671b656..1a09052ff 100644 --- a/Source/script/imports/simba/simba.import_finder.pas +++ b/Source/script/imports/simba/simba.import_finder.pas @@ -42,7 +42,7 @@ implementation (* TSimbaFinder.FindEdges ~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.FindEdges(MinDiff: Single; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; +> function TSimbaFinder.FindEdges(MinDiff: Single; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; *) procedure _LapeSimbaFinder_FindEdges1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -52,7 +52,7 @@ procedure _LapeSimbaFinder_FindEdges1(const Params: PParamArray; const Result: P (* TSimbaFinder.FindEdges ~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.FindEdges(MinDiff: Single; ColorSpace: EColorSpace; Multipliers: TChannelMultipliers; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; +> function TSimbaFinder.FindEdges(MinDiff: Single; ColorSpace: EColorSpace; Multipliers: TChannelMultipliers; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; *) procedure _LapeSimbaFinder_FindEdges2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -62,7 +62,7 @@ procedure _LapeSimbaFinder_FindEdges2(const Params: PParamArray; const Result: P (* TSimbaFinder.FindDTMEx ~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.FindDTMEx(DTM: TDTM; MaxToFind: Integer = 1; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; +> function TSimbaFinder.FindDTMEx(DTM: TDTM; MaxToFind: Integer = 1; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; *) procedure _LapeSimbaFinder_FindDTMEx(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -72,7 +72,7 @@ procedure _LapeSimbaFinder_FindDTMEx(const Params: PParamArray; const Result: Po (* TSimbaFinder.FindDTMRotatedEx ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.FindDTMRotatedEx(DTM: TDTM; StartDegrees, EndDegrees: Double; Step: Double; out FoundDegrees: TDoubleArray; MaxToFind: Integer = 1; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; +> function TSimbaFinder.FindDTMRotatedEx(DTM: TDTM; StartDegrees, EndDegrees: Double; Step: Double; out FoundDegrees: TDoubleArray; MaxToFind: Integer = 1; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; *) procedure _LapeSimbaFinder_FindDTMRotatedEx(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -82,7 +82,7 @@ procedure _LapeSimbaFinder_FindDTMRotatedEx(const Params: PParamArray; const Res (* TSimbaFinder.FindDTM ~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.FindDTM(DTM: TDTM; Bounds: TBox = [-1,-1,-1,-1]): TPoint; +> function TSimbaFinder.FindDTM(DTM: TDTM; Bounds: TBox = [-1,-1,-1,-1]): TPoint; *) procedure _LapeSimbaFinder_FindDTM(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -92,7 +92,7 @@ procedure _LapeSimbaFinder_FindDTM(const Params: PParamArray; const Result: Poin (* TSimbaFinder.FindDTMRotated ~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.FindDTMRotated(DTM: TDTM; StartDegrees, EndDegrees: Double; Step: Double; out FoundDegrees: TDoubleArray; Bounds: TBox = [-1,-1,-1,-1]): TPoint; +> function TSimbaFinder.FindDTMRotated(DTM: TDTM; StartDegrees, EndDegrees: Double; Step: Double; out FoundDegrees: TDoubleArray; Bounds: TBox = [-1,-1,-1,-1]): TPoint; *) procedure _LapeSimbaFinder_FindDTMRotated(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -102,7 +102,7 @@ procedure _LapeSimbaFinder_FindDTMRotated(const Params: PParamArray; const Resul (* TSimbaFinder.FindImageEx ~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.FindImageEx(Bitmap: TImage; Tolerance: Single; MaxToFind: Integer = -1; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; +> function TSimbaFinder.FindImageEx(Bitmap: TImage; Tolerance: Single; MaxToFind: Integer = -1; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; *) procedure _LapeSimbaFinder_FindImageEx1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -112,7 +112,7 @@ procedure _LapeSimbaFinder_FindImageEx1(const Params: PParamArray; const Result: (* TSimbaFinder.FindImageEx ~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.FindImageEx(Bitmap: TImage; Tolerance: Single; ColorSpace: EColorSpace; Multipliers: TChannelMultipliers; MaxToFind: Integer = -1; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; +> function TSimbaFinder.FindImageEx(Bitmap: TImage; Tolerance: Single; ColorSpace: EColorSpace; Multipliers: TChannelMultipliers; MaxToFind: Integer = -1; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; *) procedure _LapeSimbaFinder_FindImageEx2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -122,7 +122,7 @@ procedure _LapeSimbaFinder_FindImageEx2(const Params: PParamArray; const Result: (* TSimbaFinder.FindImage ~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.FindImage(Bitmap: TImage; Tolerance: Single; Bounds: TBox = [-1,-1,-1,-1]): TPoint; +> function TSimbaFinder.FindImage(Bitmap: TImage; Tolerance: Single; Bounds: TBox = [-1,-1,-1,-1]): TPoint; *) procedure _LapeSimbaFinder_FindImage1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -132,7 +132,7 @@ procedure _LapeSimbaFinder_FindImage1(const Params: PParamArray; const Result: P (* TSimbaFinder.FindImage ~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.FindImage(Bitmap: TImage; Tolerance: Single; ColorSpace: EColorSpace; Multipliers: TChannelMultipliers; Bounds: TBox = [-1,-1,-1,-1]): TPoint; +> function TSimbaFinder.FindImage(Bitmap: TImage; Tolerance: Single; ColorSpace: EColorSpace; Multipliers: TChannelMultipliers; Bounds: TBox = [-1,-1,-1,-1]): TPoint; *) procedure _LapeSimbaFinder_FindImage2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -142,7 +142,7 @@ procedure _LapeSimbaFinder_FindImage2(const Params: PParamArray; const Result: P (* TSimbaFinder.MatchColor ~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.MatchColor(Color: TColor; ColorSpace: EColorSpace; Multipliers: TChannelMultipliers; Bounds: TBox = [-1,-1,-1,-1]): TSingleMatrix; +> function TSimbaFinder.MatchColor(Color: TColor; ColorSpace: EColorSpace; Multipliers: TChannelMultipliers; Bounds: TBox = [-1,-1,-1,-1]): TSingleMatrix; *) procedure _LapeSimbaFinder_MatchColor(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -152,7 +152,7 @@ procedure _LapeSimbaFinder_MatchColor(const Params: PParamArray; const Result: P (* TSimbaFinder.FindColor ~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.FindColor(Color: TColor; Tolerance: Single; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; +> function TSimbaFinder.FindColor(Color: TColor; Tolerance: Single; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; *) procedure _LapeSimbaFinder_FindColor1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -162,7 +162,7 @@ procedure _LapeSimbaFinder_FindColor1(const Params: PParamArray; const Result: P (* TSimbaFinder.FindColor ~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.FindColor(Color: TColor; Tolerance: Single; ColorSpace: EColorSpace; Multipliers: TChannelMultipliers; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; +> function TSimbaFinder.FindColor(Color: TColor; Tolerance: Single; ColorSpace: EColorSpace; Multipliers: TChannelMultipliers; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; *) procedure _LapeSimbaFinder_FindColor2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -172,7 +172,7 @@ procedure _LapeSimbaFinder_FindColor2(const Params: PParamArray; const Result: P (* TSimbaFinder.FindColor ~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.FindColor(Color: TColorTolerance; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; +> function TSimbaFinder.FindColor(Color: TColorTolerance; Bounds: TBox = [-1,-1,-1,-1]): TPointArray; *) procedure _LapeSimbaFinder_FindColor3(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -182,7 +182,7 @@ procedure _LapeSimbaFinder_FindColor3(const Params: PParamArray; const Result: P (* TSimbaFinder.CountColor ~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.CountColor(Color: TColor; Tolerance: Single; Bounds: TBox = [-1,-1,-1,-1]): Integer; +> function TSimbaFinder.CountColor(Color: TColor; Tolerance: Single; Bounds: TBox = [-1,-1,-1,-1]): Integer; *) procedure _LapeSimbaFinder_CountColor1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -192,7 +192,7 @@ procedure _LapeSimbaFinder_CountColor1(const Params: PParamArray; const Result: (* TSimbaFinder.CountColor ~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.CountColor(Color: TColor; Tolerance: Single; ColorSpace: EColorSpace; Multipliers: TChannelMultipliers; Bounds: TBox = [-1,-1,-1,-1]): Integer; +> function TSimbaFinder.CountColor(Color: TColor; Tolerance: Single; ColorSpace: EColorSpace; Multipliers: TChannelMultipliers; Bounds: TBox = [-1,-1,-1,-1]): Integer; *) procedure _LapeSimbaFinder_CountColor2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -202,7 +202,7 @@ procedure _LapeSimbaFinder_CountColor2(const Params: PParamArray; const Result: (* TSimbaFinder.CountColor ~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.CountColor(Color: TColorTolerance; Bounds: TBox = [-1,-1,-1,-1]): Integer; +> function TSimbaFinder.CountColor(Color: TColorTolerance; Bounds: TBox = [-1,-1,-1,-1]): Integer; *) procedure _LapeSimbaFinder_CountColor3(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -212,7 +212,7 @@ procedure _LapeSimbaFinder_CountColor3(const Params: PParamArray; const Result: (* TSimbaFinder.GetColor ~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.GetColor(X, Y: Integer): TColor; +> function TSimbaFinder.GetColor(X, Y: Integer): TColor; *) procedure _LapeSimbaFinder_GetColor1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -222,7 +222,7 @@ procedure _LapeSimbaFinder_GetColor1(const Params: PParamArray; const Result: Po (* TSimbaFinder.GetColor ~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.GetColor(P: TPoint): TColor; +> function TSimbaFinder.GetColor(P: TPoint): TColor; *) procedure _LapeSimbaFinder_GetColor2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -232,7 +232,7 @@ procedure _LapeSimbaFinder_GetColor2(const Params: PParamArray; const Result: Po (* TSimbaFinder.GetColors ~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.GetColors(Points: TPointArray): TIntegerArray; +> function TSimbaFinder.GetColors(Points: TPointArray): TIntegerArray; *) procedure _LapeSimbaFinder_GetColors(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -242,7 +242,7 @@ procedure _LapeSimbaFinder_GetColors(const Params: PParamArray; const Result: Po (* TSimbaFinder.GetColorsMatrix ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.GetColorsMatrix(Bounds: TBox = [-1,-1,-1,-1]): TIntegerMatrix; +> function TSimbaFinder.GetColorsMatrix(Bounds: TBox = [-1,-1,-1,-1]): TIntegerMatrix; *) procedure _LapeSimbaFinder_GetColorsMatrix(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -252,7 +252,7 @@ procedure _LapeSimbaFinder_GetColorsMatrix(const Params: PParamArray; const Resu (* TSimbaFinder.GetPixelDifference ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.GetPixelDifference(WaitTime: Integer; Area: TBox = [-1,-1,-1,-1]): Integer; +> function TSimbaFinder.GetPixelDifference(WaitTime: Integer; Area: TBox = [-1,-1,-1,-1]): Integer; *) procedure _LapeSimbaFinder_GetPixelDifference1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -262,7 +262,7 @@ procedure _LapeSimbaFinder_GetPixelDifference1(const Params: PParamArray; const (* TSimbaFinder.GetPixelDifference ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.GetPixelDifference(WaitTime, Tolerance: Integer; Area: TBox = [-1,-1,-1,-1]): Integer; +> function TSimbaFinder.GetPixelDifference(WaitTime, Tolerance: Integer; Area: TBox = [-1,-1,-1,-1]): Integer; *) procedure _LapeSimbaFinder_GetPixelDifference2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -272,7 +272,7 @@ procedure _LapeSimbaFinder_GetPixelDifference2(const Params: PParamArray; const (* TSimbaFinder.GetPixelDifferenceTPA ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.GetPixelDifferenceTPA(WaitTime: Integer; Area: TBox = [-1,-1,-1,-1]): TPointArray; +> function TSimbaFinder.GetPixelDifferenceTPA(WaitTime: Integer; Area: TBox = [-1,-1,-1,-1]): TPointArray; *) procedure _LapeSimbaFinder_GetPixelDifferenceTPA1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -282,7 +282,7 @@ procedure _LapeSimbaFinder_GetPixelDifferenceTPA1(const Params: PParamArray; con (* TSimbaFinder.GetPixelDifferenceTPA ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.GetPixelDifferenceTPA(WaitTime, Tolerance: Integer; Area: TBox = [-1,-1,-1,-1]): TPointArray; +> function TSimbaFinder.GetPixelDifferenceTPA(WaitTime, Tolerance: Integer; Area: TBox = [-1,-1,-1,-1]): TPointArray; *) procedure _LapeSimbaFinder_GetPixelDifferenceTPA2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -292,7 +292,7 @@ procedure _LapeSimbaFinder_GetPixelDifferenceTPA2(const Params: PParamArray; con (* TSimbaFinder.AverageBrightness ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.AverageBrightness(Area: TBox = [-1,-1,-1,-1]): Integer; +> function TSimbaFinder.AverageBrightness(Area: TBox = [-1,-1,-1,-1]): Integer; *) procedure _LapeSimbaFinder_AverageBrightness(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -302,7 +302,7 @@ procedure _LapeSimbaFinder_AverageBrightness(const Params: PParamArray; const Re (* TSimbaFinder.PeakBrightness ~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.PeakBrightness(Area: TBox = [-1,-1,-1,-1]): Integer; +> function TSimbaFinder.PeakBrightness(Area: TBox = [-1,-1,-1,-1]): Integer; *) procedure _LapeSimbaFinder_PeakBrightness(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -312,7 +312,7 @@ procedure _LapeSimbaFinder_PeakBrightness(const Params: PParamArray; const Resul (* TSimbaFinder.FindTemplate ~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaFinder.FindTemplate(Bitmap: TImage; MinMatch: Single; Bounds: TBox = [-1,-1,-1,-1]): TPoint; +> function TSimbaFinder.FindTemplate(Bitmap: TImage; MinMatch: Single; Bounds: TBox = [-1,-1,-1,-1]): TPoint; *) procedure _LapeSimbaFinder_FindTemplate(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -441,5 +441,4 @@ procedure ImportFinder(Compiler: TSimbaScript_Compiler); end; end; -end. - +end. \ No newline at end of file diff --git a/Source/script/imports/simba/simba.import_input.pas b/Source/script/imports/simba/simba.import_input.pas index 26a8c399f..4b70905fc 100644 --- a/Source/script/imports/simba/simba.import_input.pas +++ b/Source/script/imports/simba/simba.import_input.pas @@ -226,7 +226,7 @@ implementation (* TSimbaInput.MousePosition ~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaInput.MousePosition: TPoint; +> function TSimbaInput.MousePosition: TPoint; *) procedure _LapeSimbaInput_MousePosition(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -236,7 +236,7 @@ procedure _LapeSimbaInput_MousePosition(const Params: PParamArray; const Result: (* TSimbaInput.MousePressed ~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaInput.MousePressed(Button: MouseButton): Boolean; +> function TSimbaInput.MousePressed(Button: MouseButton): Boolean; *) procedure _LapeSimbaInput_MousePressed(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -246,7 +246,7 @@ procedure _LapeSimbaInput_MousePressed(const Params: PParamArray; const Result: (* TSimbaInput.MouseTeleport ~~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaInput.MouseTeleport(P: TPoint); +> procedure TSimbaInput.MouseTeleport(P: TPoint); Instantly moves the mouse to `P` *) @@ -258,7 +258,7 @@ procedure _LapeSimbaInput_MouseTeleport(const Params: PParamArray); LAPE_WRAPPER (* TSimbaInput.MouseClick ~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaInput.MouseClick(Button: MouseButton); +> procedure TSimbaInput.MouseClick(Button: MouseButton); *) procedure _LapeSimbaInput_MouseClick(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -268,7 +268,7 @@ procedure _LapeSimbaInput_MouseClick(const Params: PParamArray); LAPE_WRAPPER_CA (* TSimbaInput.MouseDown ~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaInput.MouseDown(Button: MouseButton); +> procedure TSimbaInput.MouseDown(Button: MouseButton); *) procedure _LapeSimbaInput_MouseDown(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -278,7 +278,7 @@ procedure _LapeSimbaInput_MouseDown(const Params: PParamArray); LAPE_WRAPPER_CAL (* TSimbaInput.MouseUp ~~~~~~~~~~~~~~~~~~~ -procedure TSimbaInput.MouseUp(Button: MouseButton); +> procedure TSimbaInput.MouseUp(Button: MouseButton); *) procedure _LapeSimbaInput_MouseUp(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -288,7 +288,7 @@ procedure _LapeSimbaInput_MouseUp(const Params: PParamArray); LAPE_WRAPPER_CALLI (* TSimbaInput.MouseScroll ~~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaInput.MouseScroll(Scrolls: Integer); +> procedure TSimbaInput.MouseScroll(Scrolls: Integer); *) procedure _LapeSimbaInput_MouseScroll(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -298,7 +298,7 @@ procedure _LapeSimbaInput_MouseScroll(const Params: PParamArray); LAPE_WRAPPER_C (* TSimbaInput.MouseMove ~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaInput.MouseMove(Dest: TPoint); +> procedure TSimbaInput.MouseMove(Dest: TPoint); Move the mouse in a human-like way. @@ -314,7 +314,7 @@ procedure _LapeSimbaInput_MouseMove(const Params: PParamArray); LAPE_WRAPPER_CAL (* TSimbaInput.KeyDown ~~~~~~~~~~~~~~~~~~~ -procedure TSimbaInput.KeyDown(Key: KeyCode); +> procedure TSimbaInput.KeyDown(Key: KeyCode); *) procedure _LapeSimbaInput_KeyDown(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -324,7 +324,7 @@ procedure _LapeSimbaInput_KeyDown(const Params: PParamArray); LAPE_WRAPPER_CALLI (* TSimbaInput.KeyUp ~~~~~~~~~~~~~~~~~ -procedure TSimbaInput.KeyUp(Key: KeyCode); +> procedure TSimbaInput.KeyUp(Key: KeyCode); *) procedure _LapeSimbaInput_KeyUp(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -334,7 +334,7 @@ procedure _LapeSimbaInput_KeyUp(const Params: PParamArray); LAPE_WRAPPER_CALLING (* TSimbaInput.KeyPress ~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaInput.KeyPress(Key: KeyCode); +> procedure TSimbaInput.KeyPress(Key: KeyCode); *) procedure _LapeSimbaInput_KeyPress(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -344,7 +344,7 @@ procedure _LapeSimbaInput_KeyPress(const Params: PParamArray); LAPE_WRAPPER_CALL (* TSimbaInput.KeyPressed ~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaInput.KeyPressed(Key: KeyCode): Boolean; +> function TSimbaInput.KeyPressed(Key: KeyCode): Boolean; *) procedure _LapeSimbaInput_KeyPressed(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -354,7 +354,7 @@ procedure _LapeSimbaInput_KeyPressed(const Params: PParamArray; const Result: Po (* TSimbaInput.KeySend ~~~~~~~~~~~~~~~~~~~ -procedure TSimbaInput.KeySend(Text: String); +> procedure TSimbaInput.KeySend(Text: String); *) procedure _LapeSimbaInput_KeySend(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -364,7 +364,7 @@ procedure _LapeSimbaInput_KeySend(const Params: PParamArray); LAPE_WRAPPER_CALLI (* TSimbaInput.CharToKeyCode ~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaInput.CharToKeyCode(C: Char): KeyCode; +> function TSimbaInput.CharToKeyCode(C: Char): KeyCode; *) procedure _LapeSimbaInput_CharToKeyCode(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -625,5 +625,4 @@ procedure ImportInput(Compiler: TSimbaScript_Compiler); end; end; -end. - +end. \ No newline at end of file diff --git a/Source/script/imports/simba/simba.import_point.pas b/Source/script/imports/simba/simba.import_point.pas index 6488503ac..c5af168c2 100644 --- a/Source/script/imports/simba/simba.import_point.pas +++ b/Source/script/imports/simba/simba.import_point.pas @@ -24,7 +24,7 @@ implementation (* Point ~~~~~ -function Point(X, Y: Integer): TPoint; +> function Point(X, Y: Integer): TPoint; *) procedure _LapePoint(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -34,7 +34,7 @@ procedure _LapePoint(const Params: PParamArray; const Result: Pointer); LAPE_WRA (* TPoint.Create ~~~~~~~~~~~~~ -function TPoint.Create(X, Y: Integer): TPoint; static; +> function TPoint.Create(X, Y: Integer): TPoint; static; *) procedure _LapePoint_Create(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -44,7 +44,7 @@ procedure _LapePoint_Create(const Params: PParamArray; const Result: Pointer); L (* TPoint.InPolygon ~~~~~~~~~~~~~~~~ -function TPoint.InPolygon(Poly: TPointArray): Boolean; +> function TPoint.InPolygon(Poly: TPointArray): Boolean; *) procedure _LapePoint_InPolygon(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -54,7 +54,7 @@ procedure _LapePoint_InPolygon(const Params: PParamArray; const Result: Pointer) (* TPoint.InCircle ~~~~~~~~~~~~~~~ -function TPoint.InCircle(Center: TPoint; Radius: Double): Boolean; +> function TPoint.InCircle(Center: TPoint; Radius: Double): Boolean; *) procedure _LapePoint_InCircle(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -64,7 +64,7 @@ procedure _LapePoint_InCircle(const Params: PParamArray; const Result: Pointer); (* TPoint.InTriangle ~~~~~~~~~~~~~~~~~ -function TPoint.InTriangle(A, B, C: TPoint): Boolean; +> function TPoint.InTriangle(A, B, C: TPoint): Boolean; *) procedure _LapePoint_InTriangle(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -74,7 +74,7 @@ procedure _LapePoint_InTriangle(const Params: PParamArray; const Result: Pointer (* TPoint.InBox ~~~~~~~~~~~~ -function TPoint.InBox(Box: TBox): Boolean; +> function TPoint.InBox(Box: TBox): Boolean; *) procedure _LapePoint_InBox(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -84,7 +84,7 @@ procedure _LapePoint_InBox(const Params: PParamArray; const Result: Pointer); LA (* TPoint.DistanceTo ~~~~~~~~~~~~~~~~~ -function TPoint.DistanceTo(Other: TPoint): Double; +> function TPoint.DistanceTo(Other: TPoint): Double; *) procedure _LapePoint_DistanceTo(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -94,7 +94,7 @@ procedure _LapePoint_DistanceTo(const Params: PParamArray; const Result: Pointer (* TPoint.Rotate ~~~~~~~~~~~~~ -function TPoint.Rotate(Radians: Double; Center: TPoint): TPoint; +> function TPoint.Rotate(Radians: Double; Center: TPoint): TPoint; *) procedure _LapePoint_Rotate(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -104,7 +104,7 @@ procedure _LapePoint_Rotate(const Params: PParamArray; const Result: Pointer); L (* TPoint.RotateFast ~~~~~~~~~~~~~~~~~ -function TPoint.RotateFast(Degrees: Integer; Center: TPoint): TPoint; +> function TPoint.RotateFast(Degrees: Integer; Center: TPoint): TPoint; *) procedure _LapePoint_RotateFast(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -114,7 +114,7 @@ procedure _LapePoint_RotateFast(const Params: PParamArray; const Result: Pointer (* TPoint.Magnitude ~~~~~~~~~~~~~~~~ -function TPoint.Magnitude: Double; +> function TPoint.Magnitude: Double; *) procedure _LapePoint_Magnitude(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -124,7 +124,7 @@ procedure _LapePoint_Magnitude(const Params: PParamArray; const Result: Pointer) (* TPoint.AngleBetween ~~~~~~~~~~~~~~~~~~~ -function TPoint.AngleBetween(Other: TPoint): Double; +> function TPoint.AngleBetween(Other: TPoint): Double; *) procedure _LapePoint_AngleBetween(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -134,7 +134,7 @@ procedure _LapePoint_AngleBetween(const Params: PParamArray; const Result: Point (* TPoint.Offset ~~~~~~~~~~~~~ -function TPoint.Offset(X, Y: Integer): TPoint; +> function TPoint.Offset(X, Y: Integer): TPoint; *) procedure _LapePoint_Offset1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -144,7 +144,7 @@ procedure _LapePoint_Offset1(const Params: PParamArray; const Result: Pointer); (* TPoint.Offset ~~~~~~~~~~~~~ -function TPoint.Offset(P: TPoint): TPoint; +> function TPoint.Offset(P: TPoint): TPoint; *) procedure _LapePoint_Offset2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -154,7 +154,7 @@ procedure _LapePoint_Offset2(const Params: PParamArray; const Result: Pointer); (* TPoint.Random ~~~~~~~~~~~~~ -function TPoint.Random(Min, Max: Integer): TPoint; +> function TPoint.Random(Min, Max: Integer): TPoint; *) procedure _LapePoint_Random1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -164,7 +164,7 @@ procedure _LapePoint_Random1(const Params: PParamArray; const Result: Pointer); (* TPoint.Random ~~~~~~~~~~~~~ -function TPoint.Random(Value: Integer): TPoint; +> function TPoint.Random(Value: Integer): TPoint; *) procedure _LapePoint_Random2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -174,7 +174,7 @@ procedure _LapePoint_Random2(const Params: PParamArray; const Result: Pointer); (* TPoint + ~~~~~~~~ -operator + (L, R: TPoint): TPoint; +> operator + (L, R: TPoint): TPoint; *) procedure _LapePoint_Plus_Point(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -184,7 +184,7 @@ procedure _LapePoint_Plus_Point(const Params: PParamArray; const Result: Pointer (* TPoint += ~~~~~~~~~ -operator += (var L: TPoint; R: TPoint): TPoint; +> operator += (var L: TPoint; R: TPoint): TPoint; *) procedure _LapePoint_PlusAssign_Point(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -195,7 +195,7 @@ procedure _LapePoint_PlusAssign_Point(const Params: PParamArray; const Result: P (* TPoint * ~~~~~~~~ -operator * (L: TPoint; R: Double): TPoint; +> operator * (L: TPoint; R: Double): TPoint; *) procedure _LapePoint_Multiply_Double(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -206,7 +206,7 @@ procedure _LapePoint_Multiply_Double(const Params: PParamArray; const Result: Po (* TPoint \*= ~~~~~~~~~~ -operator *= (var L: TPoint; R: Double): TPoint; +> operator *= (var L: TPoint; R: Double): TPoint; *) procedure _LapePoint_MultiplyAssign_Double(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -217,7 +217,7 @@ procedure _LapePoint_MultiplyAssign_Double(const Params: PParamArray; const Resu (* TPoint - ~~~~~~~~ -operator - (L, R: TPoint): TPoint; +> operator - (L, R: TPoint): TPoint; *) procedure _LapePoint_Minus_Point(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -227,7 +227,7 @@ procedure _LapePoint_Minus_Point(const Params: PParamArray; const Result: Pointe (* TPoint -= ~~~~~~~~~ -operator -= (var L: TPoint; R: TPoint): TPoint; +> operator -= (var L: TPoint; R: TPoint): TPoint; *) procedure _LapePoint_MinusAssign_Point(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -238,7 +238,7 @@ procedure _LapePoint_MinusAssign_Point(const Params: PParamArray; const Result: (* TPoint in ~~~~~~~~~ -operator in(Left: TPoint; Right: TBox): Boolean; +> operator in(Left: TPoint; Right: TBox): Boolean; *) procedure _LapePoint_IN_Box(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -280,5 +280,4 @@ procedure ImportPoint(Compiler: TSimbaScript_Compiler); end; end; -end. - +end. \ No newline at end of file diff --git a/Source/script/imports/simba/simba.import_quad.pas b/Source/script/imports/simba/simba.import_quad.pas index 53200f190..1b1865fcf 100644 --- a/Source/script/imports/simba/simba.import_quad.pas +++ b/Source/script/imports/simba/simba.import_quad.pas @@ -31,7 +31,7 @@ implementation (* TQuad.Create ~~~~~~~~~~~~ -function TQuad.Create(ATop, ARight, ABottom, ALeft: TPoint): TQuad; static; +> function TQuad.Create(ATop, ARight, ABottom, ALeft: TPoint): TQuad; static; *) procedure _LapeQuad_Create(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -41,7 +41,7 @@ procedure _LapeQuad_Create(const Params: PParamArray; const Result: Pointer); LA (* TQuad.Create ~~~~~~~~~~~~ -function TQuad.Create(Box: TBox): TQuad; static; +> function TQuad.Create(Box: TBox): TQuad; static; *) procedure _LapeQuad_CreateFromBox(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -51,7 +51,7 @@ procedure _LapeQuad_CreateFromBox(const Params: PParamArray; const Result: Point (* TQuad.Create ~~~~~~~~~~~~ -function TQuad.Create(Points: TPointArray): TQuad; static; +> function TQuad.Create(Points: TPointArray): TQuad; static; *) procedure _LapeQuad_CreateFromPoints(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -61,7 +61,7 @@ procedure _LapeQuad_CreateFromPoints(const Params: PParamArray; const Result: Po (* TQuad.ToTPA ~~~~~~~~~~~ -function TQuad.ToTPA: TPointArray; +> function TQuad.ToTPA: TPointArray; *) procedure _LapeQuad_ToTPA(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -71,7 +71,7 @@ procedure _LapeQuad_ToTPA(const Params: PParamArray; const Result: Pointer); LAP (* TQuad.Bounds ~~~~~~~~~~~~ -function TQuad.Bounds: TBox; +> function TQuad.Bounds: TBox; *) procedure _LapeQuad_Bounds(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -81,7 +81,7 @@ procedure _LapeQuad_Bounds(const Params: PParamArray; const Result: Pointer); LA (* TQuad.ShortSideLen ~~~~~~~~~~~~~~~~~~ -function TQuad.ShortSideLen: Integer; +> function TQuad.ShortSideLen: Integer; *) procedure _LapeQuad_ShortSideLen(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -91,7 +91,7 @@ procedure _LapeQuad_ShortSideLen(const Params: PParamArray; const Result: Pointe (* TQuad.LongSideLen ~~~~~~~~~~~~~~~~~ -function TQuad.LongSideLen: Integer; +> function TQuad.LongSideLen: Integer; *) procedure _LapeQuad_LongSideLen(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -101,7 +101,7 @@ procedure _LapeQuad_LongSideLen(const Params: PParamArray; const Result: Pointer (* TQuad.Mean ~~~~~~~~~~ -function TQuad.Mean: TPoint; +> function TQuad.Mean: TPoint; *) procedure _LapeQuad_Mean(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -111,7 +111,7 @@ procedure _LapeQuad_Mean(const Params: PParamArray; const Result: Pointer); LAPE (* TQuad.Rotate ~~~~~~~~~~~~ -function TQuad.Rotate(Angle: Double): TQuad; +> function TQuad.Rotate(Angle: Double): TQuad; *) procedure _LapeQuad_Rotate(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -121,7 +121,7 @@ procedure _LapeQuad_Rotate(const Params: PParamArray; const Result: Pointer); LA (* TQuad.Contains ~~~~~~~~~~~~~~ -function TQuad.Contains(P: TPoint): Boolean; +> function TQuad.Contains(P: TPoint): Boolean; *) procedure _LapeQuad_Contains1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -131,7 +131,7 @@ procedure _LapeQuad_Contains1(const Params: PParamArray; const Result: Pointer); (* TQuad.Contains ~~~~~~~~~~~~~~ -function TQuad.Contains(X, Y: Integer): Boolean; +> function TQuad.Contains(X, Y: Integer): Boolean; *) procedure _LapeQuad_Contains2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -141,7 +141,7 @@ procedure _LapeQuad_Contains2(const Params: PParamArray; const Result: Pointer); (* TQuad.Offset ~~~~~~~~~~~~ -function TQuad.Offset(P: TPoint): TQuad; +> function TQuad.Offset(P: TPoint): TQuad; *) procedure _LapeQuad_Offset1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -151,7 +151,7 @@ procedure _LapeQuad_Offset1(const Params: PParamArray; const Result: Pointer); L (* TQuad.Offset ~~~~~~~~~~~~ -function TQuad.Offset(X, Y: Integer): TQuad; +> function TQuad.Offset(X, Y: Integer): TQuad; *) procedure _LapeQuad_Offset2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -161,7 +161,7 @@ procedure _LapeQuad_Offset2(const Params: PParamArray; const Result: Pointer); L (* TQuad.Extract ~~~~~~~~~~~~~ -function TQuad.Extract(Points: TPointArray): TPointArray; +> function TQuad.Extract(Points: TPointArray): TPointArray; Returns all points that are in the quad. *) @@ -173,7 +173,7 @@ procedure _LapeQuad_Extract(const Params: PParamArray; const Result: Pointer); L (* TQuad.Exclude ~~~~~~~~~~~~~ -function TQuad.Exclude(Points: TPointArray): TPointArray; +> function TQuad.Exclude(Points: TPointArray): TPointArray; Returns all points that are *not inside* the quad. *) @@ -185,7 +185,7 @@ procedure _LapeQuad_Exclude(const Params: PParamArray; const Result: Pointer); L (* TQuad.Expand ~~~~~~~~~~~~ -function TQuad.Expand(Amount: Double): TQuad; +> function TQuad.Expand(Amount: Double): TQuad; *) procedure _LapeQuad_Expand(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -195,7 +195,7 @@ procedure _LapeQuad_Expand(const Params: PParamArray; const Result: Pointer); LA (* TQuad.NearestEdge ~~~~~~~~~~~~~~~~~ -function TQuad.NearestEdge(P: TPoint): TPoint; +> function TQuad.NearestEdge(P: TPoint): TPoint; *) procedure _LapeQuad_NearestEdge(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -205,7 +205,7 @@ procedure _LapeQuad_NearestEdge(const Params: PParamArray; const Result: Pointer (* TQuad.Area ~~~~~~~~~~ -function TQuad.Area: Integer; +> function TQuad.Area: Integer; *) procedure _LapeQuad_Area(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -215,7 +215,7 @@ procedure _LapeQuad_Area(const Params: PParamArray; const Result: Pointer); LAPE (* TQuad.Normalize ~~~~~~~~~~~~~~~ -function TQuad.Normalize: TQuad; +> function TQuad.Normalize: TQuad; *) procedure _LapeQuad_Normalize(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -225,7 +225,7 @@ procedure _LapeQuad_Normalize(const Params: PParamArray; const Result: Pointer); (* TQuad.RandomPoint ~~~~~~~~~~~~~~~~~ -function TQuad.RandomPoint: TPoint; +> function TQuad.RandomPoint: TPoint; Returns a completely random point in the quad. *) @@ -237,7 +237,7 @@ procedure _LapeQuad_RandomPoint(const Params: PParamArray; const Result: Pointer (* TQuad.RandomPointCenter ~~~~~~~~~~~~~~~~~~~~~~~ -function TQuad.RandomPointCenter: TPoint; +> function TQuad.RandomPointCenter: TPoint; Returns a random point in the quad which is weighted torwards the quad's center. *) @@ -249,7 +249,7 @@ procedure _LapeQuad_RandomPointCenter(const Params: PParamArray; const Result: P (* in ~~ -operator in(Left: TPoint; Right: TQuad): Boolean; +> operator in(Left: TPoint; Right: TQuad): Boolean; *) procedure _LapeQuad_IN_Quad(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -291,5 +291,4 @@ procedure ImportQuad(Compiler: TSimbaScript_Compiler); end; end; -end. - +end. \ No newline at end of file diff --git a/Source/script/imports/simba/simba.import_random.pas b/Source/script/imports/simba/simba.import_random.pas index cda4dfc59..8ff6bc6a4 100644 --- a/Source/script/imports/simba/simba.import_random.pas +++ b/Source/script/imports/simba/simba.import_random.pas @@ -39,7 +39,7 @@ implementation (* RandomCenterTPA ~~~~~~~~~~~~~~~ -function RandomCenterTPA(Amount: Integer; Box: TBox): TPointArray; +> function RandomCenterTPA(Amount: Integer; Box: TBox): TPointArray; Generates random points in `Box` weighted towards the center. *) @@ -51,7 +51,7 @@ procedure _LapeRandomCenterTPA(const Params: PParamArray; const Result: Pointer) (* RandomTPA ~~~~~~~~~ -function RandomTPA(Amount: Integer; Box: TBox): TPointArray; +> function RandomTPA(Amount: Integer; Box: TBox): TPointArray; Generates random points in `Box`. *) @@ -63,8 +63,8 @@ procedure _LapeRandomTPA(const Params: PParamArray; const Result: Pointer); LAPE (* RandomLeft ~~~~~~~~~~ -function RandomLeft(Lo, Hi: Double): Double; -function RandomLeft(Lo, Hi: Int64): Int64; +> function RandomLeft(Lo, Hi: Double): Double; +> function RandomLeft(Lo, Hi: Int64): Int64; Generates a random number between `Lo` and `Hi` weighted towards `Lo` *) @@ -81,8 +81,8 @@ procedure _LapeRandomLeftI(const Params: PParamArray; const Result: Pointer); LA (* RandomRight ~~~~~~~~~~~ -function RandomRight(Lo, Hi: Double): Double; -function RandomRight(Lo, Hi: Int64): Int64; +> function RandomRight(Lo, Hi: Double): Double; +> function RandomRight(Lo, Hi: Int64): Int64; Generates a random number between `Lo` and `Hi` weighted towards `Hi` *) @@ -99,8 +99,8 @@ procedure _LapeRandomRightI(const Params: PParamArray; const Result: Pointer); L (* RandomMean ~~~~~~~~~~ -function RandomMean(Lo, Hi: Double): Double; -function RandomMean(Lo, Hi: Int64): Int64; +> function RandomMean(Lo, Hi: Double): Double; +> function RandomMean(Lo, Hi: Int64): Int64; Generates a random number between `Lo` and `Hi` weighted towards the mean of Lo,Hi *) @@ -117,8 +117,8 @@ procedure _LapeRandomMeanI(const Params: PParamArray; const Result: Pointer); LA (* RandomMode ~~~~~~~~~~ -function RandomMode(Mode, Lo, Hi: Double): Double; -function RandomMode(Mode, Lo, Hi: Int64): Int64; +> function RandomMode(Mode, Lo, Hi: Double): Double; +> function RandomMode(Mode, Lo, Hi: Int64): Int64; Generates a random number between `Lo` and `Hi` weighted torwards `Mode` *) @@ -135,7 +135,7 @@ procedure _LapeRandomModeI(const Params: PParamArray; const Result: Pointer); LA (* GaussRand ~~~~~~~~~ -function GaussRand(Mean, Dev: Double): Double +> function GaussRand(Mean, Dev: Double): Double Generates a random gaussian/normal number. *) @@ -173,5 +173,4 @@ procedure ImportRandom(Compiler: TSimbaScript_Compiler); end; end; -end. - +end. \ No newline at end of file diff --git a/Source/script/imports/simba/simba.import_script.pas b/Source/script/imports/simba/simba.import_script.pas index d322c6812..a3ec79c06 100644 --- a/Source/script/imports/simba/simba.import_script.pas +++ b/Source/script/imports/simba/simba.import_script.pas @@ -25,8 +25,8 @@ implementation (* AddOnTerminate ~~~~~~~~~~~~~~ -procedure AddOnTerminate(Proc: procedure); -procedure AddOnTerminate(Proc: procedure of object); +> procedure AddOnTerminate(Proc: procedure); +> procedure AddOnTerminate(Proc: procedure of object); Adds a procedure to be called when the script is terminated. *) @@ -34,8 +34,8 @@ procedure AddOnTerminate(Proc: procedure of object); (* AddOnUserTerminate ~~~~~~~~~~~~~~~~~~ -procedure AddOnUserTerminate(Proc: procedure); -procedure AddOnUserTerminate(Proc: procedure of object); +> procedure AddOnUserTerminate(Proc: procedure); +> procedure AddOnUserTerminate(Proc: procedure of object); Adds a procedure to be called when the script is terminated with the stop button being clicked. *) @@ -43,8 +43,8 @@ procedure AddOnUserTerminate(Proc: procedure of object); (* AddOnPause ~~~~~~~~~~ -procedure AddOnPause(Proc: procedure); -procedure AddOnPause(Proc: procedure of object); +> procedure AddOnPause(Proc: procedure); +> procedure AddOnPause(Proc: procedure of object); Adds a procedure to be called when the script is paused. *) @@ -52,8 +52,8 @@ procedure AddOnPause(Proc: procedure of object); (* AddOnResume ~~~~~~~~~~~ -procedure AddOnResume(Proc: procedure); -procedure AddOnResume(Proc: procedure of object); +> procedure AddOnResume(Proc: procedure); +> procedure AddOnResume(Proc: procedure of object); Adds a procedure to be called when the script is resumed from pause. *) @@ -61,8 +61,8 @@ procedure AddOnResume(Proc: procedure of object); (* AddOnResume ~~~~~~~~~~~ -procedure AddOnResume(Proc: procedure); -procedure AddOnResume(Proc: procedure of object); +> procedure AddOnResume(Proc: procedure); +> procedure AddOnResume(Proc: procedure of object); Adds a procedure to be called when the script is resumed from pause. *) @@ -70,8 +70,8 @@ procedure AddOnResume(Proc: procedure of object); (* TerminateScript ~~~~~~~~~~~~~~~ -procedure TerminateScript; -procedure TerminateScript(Reason: String); +> procedure TerminateScript; +> procedure TerminateScript(Reason: String); Instantly terminates the script! *) @@ -79,7 +79,7 @@ procedure TerminateScript(Reason: String); (* PauseScript ~~~~~~~~~~~ -procedure PauseScript; +> procedure PauseScript; Programmatically pauses the script. The only way for the script to resumed is by the user clicking the play button. *) @@ -91,7 +91,7 @@ procedure _LapePauseScript(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV (* GetScriptPID ~~~~~~~~~~~~ -function GetScriptPID: TProcessID; +> function GetScriptPID: TProcessID; Returns the process ID of the running script. *) @@ -103,7 +103,7 @@ procedure _LapeGetScriptPID(const Params: PParamArray; const Result: Pointer); L (* GetScriptParameters ~~~~~~~~~~~~~~~~~~~ -function GetScriptParameters: TStringArray; +> function GetScriptParameters: TStringArray; Returns all command line parameters passed to the script. *) @@ -115,7 +115,7 @@ procedure _LapeGetScriptParameters(const Params: PParamArray; const Result: Poin (* GetScriptParameter ~~~~~~~~~~~~~~~~~~ -function GetScriptParameter(Name: String): String; +> function GetScriptParameter(Name: String): String; Returns a command line parameter value passed to the script. Parameters should be passed as a key-pair value: `Name=Value` @@ -128,7 +128,7 @@ procedure _LapeGetScriptParameter(const Params: PParamArray; const Result: Point (* RunScript ~~~~~~~~~ -function RunScript(Script: String; Parameters: TStringArray; out Output: String): TProcessExitStatus; +> function RunScript(Script: String; Parameters: TStringArray; out Output: String): TProcessExitStatus; Runs a simba script and **will wait** until the script has finished. @@ -143,7 +143,7 @@ procedure _LapeRunScript(const Params: PParamArray; const Result: Pointer); LAPE (* RunScript ~~~~~~~~~ -function RunScript(Script: String; Parameters: TStringArray): TProcessID; +> function RunScript(Script: String; Parameters: TStringArray): TProcessID; Runs a simba script and instantly returns the scripts PID. @@ -167,7 +167,7 @@ procedure _LapeRunScriptEx(const Params: PParamArray; const Result: Pointer); LA (* RunScriptOutputToFile ~~~~~~~~~~~~~~~~~~~~~ -function RunScriptOutputToFile(Script: String; Parameters: TStringArray; OutputFileName: String): TProcessID; +> function RunScriptOutputToFile(Script: String; Parameters: TStringArray; OutputFileName: String): TProcessID; - The script output will be redirected to the file `OutputFileName` - The script PID can be used with process methods. @@ -318,5 +318,4 @@ procedure ImportScript(Compiler: TSimbaScript_Compiler); end; end; -end. - +end. \ No newline at end of file diff --git a/Source/script/imports/simba/simba.import_target.pas b/Source/script/imports/simba/simba.import_target.pas index e7149f8e2..9d3f27f11 100644 --- a/Source/script/imports/simba/simba.import_target.pas +++ b/Source/script/imports/simba/simba.import_target.pas @@ -25,7 +25,7 @@ implementation (* TSimbaTarget.SetDesktop ~~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaTarget.SetDesktop; +> procedure TSimbaTarget.SetDesktop; Sets the desktop as the target. *) @@ -37,7 +37,7 @@ procedure _LapeSimbaTarget_SetDesktop(const Params: PParamArray); LAPE_WRAPPER_C (* TSimbaTarget.SetImage ~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaTarget.SetImage(TSimbaImage: TSimbaImage); +> procedure TSimbaTarget.SetImage(TSimbaImage: TSimbaImage); Sets the TSimbaImage as a target. @@ -51,7 +51,7 @@ procedure _LapeSimbaTarget_SetImage(const Params: PParamArray); LAPE_WRAPPER_CAL (* TSimbaTarget.SetWindow ~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaTarget.SetWindow(Window: TWindowHandle); +> procedure TSimbaTarget.SetWindow(Window: TWindowHandle); Sets a window handle as a target. *) @@ -63,7 +63,7 @@ procedure _LapeSimbaTarget_SetWindow(const Params: PParamArray); LAPE_WRAPPER_CA (* TSimbaTarget.SetEIOS ~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaTarget.SetEIOS(Plugin, Args: String); +> procedure TSimbaTarget.SetEIOS(Plugin, Args: String); Sets a plugin (via EIOS API) as the target. *) @@ -75,7 +75,7 @@ procedure _LapeSimbaTarget_SetEIOS(const Params: PParamArray); LAPE_WRAPPER_CALL (* TSimbaTarget.GetImage ~~~~~~~~~~~~~~~~~~~~~ -function TSimbaTarget.GetImage(Bounds: TBox = [-1,-1,-1,-1]): TSimbaImage; +> function TSimbaTarget.GetImage(Bounds: TBox = [-1,-1,-1,-1]): TSimbaImage; *) procedure _LapeSimbaTarget_GetImage(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -85,7 +85,7 @@ procedure _LapeSimbaTarget_GetImage(const Params: PParamArray; const Result: Poi (* TSimbaTarget.GetDimensions ~~~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaTarget.GetDimensions(out Width, Height: Integer); +> procedure TSimbaTarget.GetDimensions(out Width, Height: Integer); *) procedure _LapeSimbaTarget_GetDimensions(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -95,7 +95,7 @@ procedure _LapeSimbaTarget_GetDimensions(const Params: PParamArray); LAPE_WRAPPE (* TSimbaTarget.GetWidth ~~~~~~~~~~~~~~~~~~~~~ -function TSimbaTarget.GetWidth: Integer; +> function TSimbaTarget.GetWidth: Integer; *) procedure _LapeSimbaTarget_GetWidth(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -105,7 +105,7 @@ procedure _LapeSimbaTarget_GetWidth(const Params: PParamArray; const Result: Poi (* TSimbaTarget.GetHeight ~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaTarget.GetHeight: Integer; +> function TSimbaTarget.GetHeight: Integer; *) procedure _LapeSimbaTarget_GetHeight(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -115,7 +115,7 @@ procedure _LapeSimbaTarget_GetHeight(const Params: PParamArray; const Result: Po (* TSimbaTarget.IsValid ~~~~~~~~~~~~~~~~~~~~ -function TSimbaTarget.IsValid: Boolean; +> function TSimbaTarget.IsValid: Boolean; *) procedure _LapeSimbaTarget_IsValid(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -125,7 +125,7 @@ procedure _LapeSimbaTarget_IsValid(const Params: PParamArray; const Result: Poin (* TSimbaTarget.IsFocused ~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaTarget.IsFocused: Boolean; +> function TSimbaTarget.IsFocused: Boolean; *) procedure _LapeSimbaTarget_IsFocused(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -135,7 +135,7 @@ procedure _LapeSimbaTarget_IsFocused(const Params: PParamArray; const Result: Po (* TSimbaTarget.Focus ~~~~~~~~~~~~~~~~~~ -function TSimbaTarget.Focus: Boolean; +> function TSimbaTarget.Focus: Boolean; *) procedure _LapeSimbaTarget_Focus(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -145,7 +145,7 @@ procedure _LapeSimbaTarget_Focus(const Params: PParamArray; const Result: Pointe (* TSimbaTarget.IsWindowTarget ~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaTarget.IsWindowTarget: Boolean; +> function TSimbaTarget.IsWindowTarget: Boolean; *) procedure _LapeSimbaTarget_IsWindowTarget1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -155,7 +155,7 @@ procedure _LapeSimbaTarget_IsWindowTarget1(const Params: PParamArray; const Resu (* TSimbaTarget.IsWindowTarget ~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaTarget.IsWindowTarget(out Window: TWindowHandle): Boolean; +> function TSimbaTarget.IsWindowTarget(out Window: TWindowHandle): Boolean; *) procedure _LapeSimbaTarget_IsWindowTarget2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -165,7 +165,7 @@ procedure _LapeSimbaTarget_IsWindowTarget2(const Params: PParamArray; const Resu (* TSimbaTarget.IsImageTarget ~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaTarget.IsImageTarget: Boolean; +> function TSimbaTarget.IsImageTarget: Boolean; *) procedure _LapeSimbaTarget_IsImageTarget1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -175,7 +175,7 @@ procedure _LapeSimbaTarget_IsImageTarget1(const Params: PParamArray; const Resul (* TSimbaTarget.IsImageTarget ~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaTarget.IsImageTarget(out Image: TSimbaImage): Boolean; +> function TSimbaTarget.IsImageTarget(out Image: TSimbaImage): Boolean; *) procedure _LapeSimbaTarget_IsImageTarget2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -185,7 +185,7 @@ procedure _LapeSimbaTarget_IsImageTarget2(const Params: PParamArray; const Resul (* TSimbaTarget.IsEIOSTarget ~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaTarget.IsEIOSTarget: Boolean; +> function TSimbaTarget.IsEIOSTarget: Boolean; *) procedure _LapeSimbaTarget_IsEIOSTarget(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -195,7 +195,7 @@ procedure _LapeSimbaTarget_IsEIOSTarget(const Params: PParamArray; const Result: (* TSimbaTarget.IsDefault ~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaTarget.IsDefault: Boolean; +> function TSimbaTarget.IsDefault: Boolean; *) procedure _LapeSimbaTarget_IsDefault(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -333,5 +333,4 @@ procedure ImportTarget(Compiler: TSimbaScript_Compiler); end; end; -end. - +end. \ No newline at end of file diff --git a/Source/script/imports/simba/simba.import_tpa.pas b/Source/script/imports/simba/simba.import_tpa.pas index 8110f11e7..24f0ec651 100644 --- a/Source/script/imports/simba/simba.import_tpa.pas +++ b/Source/script/imports/simba/simba.import_tpa.pas @@ -26,7 +26,7 @@ implementation (* TPointArray.Difference ~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.Difference(Other: TPointArray): TPointArray; +> function TPointArray.Difference(Other: TPointArray): TPointArray; *) procedure _Lape_Point_Difference(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -36,7 +36,7 @@ procedure _Lape_Point_Difference(const Params: PParamArray; const Result: Pointe (* TPointArray.SymmetricDifference ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.SymmetricDifference(Other: TPointArray): TPointArray; +> function TPointArray.SymmetricDifference(Other: TPointArray): TPointArray; *) procedure _Lape_Point_SymmetricDifference(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -46,7 +46,7 @@ procedure _Lape_Point_SymmetricDifference(const Params: PParamArray; const Resul (* TPointArray.Intersection ~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.Intersection(Other: TPointArray): TPointArray; +> function TPointArray.Intersection(Other: TPointArray): TPointArray; *) procedure _Lape_Point_Intersection(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -56,7 +56,7 @@ procedure _Lape_Point_Intersection(const Params: PParamArray; const Result: Poin (* TPointArray.CreateFromBox ~~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.CreateFromBox(Box: TBox; Filled: Boolean): TPointArray; static; +> function TPointArray.CreateFromBox(Box: TBox; Filled: Boolean): TPointArray; static; *) procedure _LapeTPACreateFromBox(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -66,7 +66,7 @@ procedure _LapeTPACreateFromBox(const Params: PParamArray; const Result: Pointer (* TPointArray.CreateFromEllipse ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.CreateFromEllipse(Center: TPoint; RadiusX, RadiusY: Integer; Filled: Boolean): TPointArray; static; +> function TPointArray.CreateFromEllipse(Center: TPoint; RadiusX, RadiusY: Integer; Filled: Boolean): TPointArray; static; *) procedure _LapeTPACreateFromEllipse(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -76,7 +76,7 @@ procedure _LapeTPACreateFromEllipse(const Params: PParamArray; const Result: Poi (* TPointArray.CreateFromCircle ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.CreateFromCircle(Center: TPoint; Radius: Integer; Filled: Boolean): TPointArray; static; +> function TPointArray.CreateFromCircle(Center: TPoint; Radius: Integer; Filled: Boolean): TPointArray; static; *) procedure _LapeTPACreateFromCircle(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -86,7 +86,7 @@ procedure _LapeTPACreateFromCircle(const Params: PParamArray; const Result: Poin (* TPointArray.CreateFromLine ~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.CreateFromLine(Start, Stop: TPoint): TPointArray; static; +> function TPointArray.CreateFromLine(Start, Stop: TPoint): TPointArray; static; *) procedure _LapeTPACreateFromLine(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -96,7 +96,7 @@ procedure _LapeTPACreateFromLine(const Params: PParamArray; const Result: Pointe (* TPointArray.CreateFromPolygon ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.CreateFromPolygon(Poly: TPointArray; Filled: Boolean): TPointArray; static; +> function TPointArray.CreateFromPolygon(Poly: TPointArray; Filled: Boolean): TPointArray; static; *) procedure _LapeTPACreateFromPolygon(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -106,7 +106,7 @@ procedure _LapeTPACreateFromPolygon(const Params: PParamArray; const Result: Poi (* TPointArray.CreateFromSimplePolygon ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.CreateFromSimplePolygon(Center: TPoint; Sides: Integer; Size: Integer; Filled: Boolean): TPointArray; static; +> function TPointArray.CreateFromSimplePolygon(Center: TPoint; Sides: Integer; Size: Integer; Filled: Boolean): TPointArray; static; *) procedure _LapeTPACreateFromSimplePolygon(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -116,7 +116,7 @@ procedure _LapeTPACreateFromSimplePolygon(const Params: PParamArray; const Resul (* TPointArray.Rows ~~~~~~~~~~~~~~~~ -function TPointArray.Rows: T2DPointArray; +> function TPointArray.Rows: T2DPointArray; *) procedure _LapeTPARows(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -126,7 +126,7 @@ procedure _LapeTPARows(const Params: PParamArray; const Result: Pointer); LAPE_W (* TPointArray.Columns ~~~~~~~~~~~~~~~~~~~ -function TPointArray.Columns: T2DPointArray; +> function TPointArray.Columns: T2DPointArray; *) procedure _LapeTPAColumns(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -136,7 +136,7 @@ procedure _LapeTPAColumns(const Params: PParamArray; const Result: Pointer); LAP (* TPointArray.Offset ~~~~~~~~~~~~~~~~~~ -function TPointArray.Offset(P: TPoint): TPointArray; +> function TPointArray.Offset(P: TPoint): TPointArray; *) procedure _LapeTPAOffset1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -146,7 +146,7 @@ procedure _LapeTPAOffset1(const Params: PParamArray; const Result: Pointer); LAP (* TPointArray.Offset ~~~~~~~~~~~~~~~~~~ -function TPointArray.Offset(X, Y: Integer): TPointArray; +> function TPointArray.Offset(X, Y: Integer): TPointArray; *) procedure _LapeTPAOffset2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -156,7 +156,7 @@ procedure _LapeTPAOffset2(const Params: PParamArray; const Result: Pointer); LAP (* TPointArray.FloodFill ~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.FloodFill(const StartPoint: TPoint; const EightWay: Boolean): TPointArray; +> function TPointArray.FloodFill(const StartPoint: TPoint; const EightWay: Boolean): TPointArray; *) procedure _LapeTPAFloodFill(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -166,7 +166,7 @@ procedure _LapeTPAFloodFill(const Params: PParamArray; const Result: Pointer); L (* TPointArray.Invert ~~~~~~~~~~~~~~~~~~ -function TPointArray.Invert(Bounds: TBox): TPointArray; +> function TPointArray.Invert(Bounds: TBox): TPointArray; *) procedure _LapeTPAInvert1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -176,7 +176,7 @@ procedure _LapeTPAInvert1(const Params: PParamArray; const Result: Pointer); LAP (* TPointArray.Invert ~~~~~~~~~~~~~~~~~~ -function TPointArray.Invert: TPointArray; +> function TPointArray.Invert: TPointArray; *) procedure _LapeTPAInvert2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -186,7 +186,7 @@ procedure _LapeTPAInvert2(const Params: PParamArray; const Result: Pointer); LAP (* TPointArray.Bounds ~~~~~~~~~~~~~~~~~~ -function TPointArray.Bounds: TBox; +> function TPointArray.Bounds: TBox; *) procedure _LapeTPABounds(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -196,7 +196,7 @@ procedure _LapeTPABounds(const Params: PParamArray; const Result: Pointer); LAPE (* TPointArray.Mean ~~~~~~~~~~~~~~~~ -function TPointArray.Mean: TPoint; +> function TPointArray.Mean: TPoint; *) procedure _LapeTPAMean(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -206,7 +206,7 @@ procedure _LapeTPAMean(const Params: PParamArray; const Result: Pointer); LAPE_W (* TPointArray.ReduceByDistance ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.ReduceByDistance(Dist: Integer): TPointArray; +> function TPointArray.ReduceByDistance(Dist: Integer): TPointArray; *) procedure _LapeTPAReduceByDistance(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -216,7 +216,7 @@ procedure _LapeTPAReduceByDistance(const Params: PParamArray; const Result: Poin (* TPointArray.PointsNearby ~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.PointsNearby(Other: TPointArray; MinDist, MaxDist: Double): TPointArray; +> function TPointArray.PointsNearby(Other: TPointArray; MinDist, MaxDist: Double): TPointArray; *) procedure _LapeTPAPointsNearby1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -226,7 +226,7 @@ procedure _LapeTPAPointsNearby1(const Params: PParamArray; const Result: Pointer (* TPointArray.PointsNearby ~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.PointsNearby(Other: TPointArray; MinDistX, MinDistY, MaxDistX, MaxDistY: Double): TPointArray; +> function TPointArray.PointsNearby(Other: TPointArray; MinDistX, MinDistY, MaxDistX, MaxDistY: Double): TPointArray; *) procedure _LapeTPAPointsNearby2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -236,7 +236,7 @@ procedure _LapeTPAPointsNearby2(const Params: PParamArray; const Result: Pointer (* TPointArray.IsPointNearby ~~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.IsPointNearby(Other: TPoint; MinDist, MaxDist: Double): Boolean; +> function TPointArray.IsPointNearby(Other: TPoint; MinDist, MaxDist: Double): Boolean; *) procedure _LapeTPAIsPointNearby1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -246,7 +246,7 @@ procedure _LapeTPAIsPointNearby1(const Params: PParamArray; const Result: Pointe (* TPointArray.IsPointNearby ~~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.IsPointNearby(Other: TPoint; MinDistX, MinDistY, MaxDistX, MaxDistY: Double): Boolean; +> function TPointArray.IsPointNearby(Other: TPoint; MinDistX, MinDistY, MaxDistX, MaxDistY: Double): Boolean; *) procedure _LapeTPAIsPointNearby2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -256,7 +256,7 @@ procedure _LapeTPAIsPointNearby2(const Params: PParamArray; const Result: Pointe (* TPointArray.NearestPoint ~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.NearestPoint(Other: TPoint): TPoint; +> function TPointArray.NearestPoint(Other: TPoint): TPoint; *) procedure _LapeTPANearestPoint(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -266,7 +266,7 @@ procedure _LapeTPANearestPoint(const Params: PParamArray; const Result: Pointer) (* TPointArray.Density ~~~~~~~~~~~~~~~~~~~ -function TPointArray.Density: Double; +> function TPointArray.Density: Double; *) procedure _LapeTPADensity(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -276,7 +276,7 @@ procedure _LapeTPADensity(const Params: PParamArray; const Result: Pointer); LAP (* TPointArray.Connect ~~~~~~~~~~~~~~~~~~~ -function TPointArray.Connect: TPointArray; +> function TPointArray.Connect: TPointArray; *) procedure _LapeTPAConnect(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -286,7 +286,7 @@ procedure _LapeTPAConnect(const Params: PParamArray; const Result: Pointer); LAP (* TPointArray.Extremes ~~~~~~~~~~~~~~~~~~~~ -function TPointArray.Extremes: TPointArray; +> function TPointArray.Extremes: TPointArray; *) procedure _LapeTPAExtremes(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -296,7 +296,7 @@ procedure _LapeTPAExtremes(const Params: PParamArray; const Result: Pointer); LA (* TPointArray.Rotate ~~~~~~~~~~~~~~~~~~ -function TPointArray.Rotate(Radians: Double; Center: TPoint): TPointArray; +> function TPointArray.Rotate(Radians: Double; Center: TPoint): TPointArray; *) procedure _LapeTPARotate(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -306,7 +306,7 @@ procedure _LapeTPARotate(const Params: PParamArray; const Result: Pointer); LAPE (* TPointArray.RotateEx ~~~~~~~~~~~~~~~~~~~~ -function TPointArray.RotateEx(Radians: Double): TPointArray; +> function TPointArray.RotateEx(Radians: Double): TPointArray; *) procedure _LapeTPARotateEx(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -316,7 +316,7 @@ procedure _LapeTPARotateEx(const Params: PParamArray; const Result: Pointer); LA (* TPointArray.Sort ~~~~~~~~~~~~~~~~ -function TPointArray.Sort(Weights: TIntegerArray; LowToHigh: Boolean = True): TPointArray; +> function TPointArray.Sort(Weights: TIntegerArray; LowToHigh: Boolean = True): TPointArray; *) procedure _LapeTPASort1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -326,7 +326,7 @@ procedure _LapeTPASort1(const Params: PParamArray; const Result: Pointer); LAPE_ (* TPointArray.Sort ~~~~~~~~~~~~~~~~ -function TPointArray.Sort(Weights: TDoubleArray; LowToHigh: Boolean = True): TPointArray; +> function TPointArray.Sort(Weights: TDoubleArray; LowToHigh: Boolean = True): TPointArray; *) procedure _LapeTPASort2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -336,7 +336,7 @@ procedure _LapeTPASort2(const Params: PParamArray; const Result: Pointer); LAPE_ (* TPointArray.SortByX ~~~~~~~~~~~~~~~~~~~ -function TPointArray.SortByX(LowToHigh: Boolean = True): TPointArray; +> function TPointArray.SortByX(LowToHigh: Boolean = True): TPointArray; *) procedure _LapeTPASortByX(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -346,7 +346,7 @@ procedure _LapeTPASortByX(const Params: PParamArray; const Result: Pointer); LAP (* TPointArray.SortByY ~~~~~~~~~~~~~~~~~~~ -function TPointArray.SortByY(LowToHigh: Boolean = True): TPointArray; +> function TPointArray.SortByY(LowToHigh: Boolean = True): TPointArray; *) procedure _LapeTPASortByY(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -356,7 +356,7 @@ procedure _LapeTPASortByY(const Params: PParamArray; const Result: Pointer); LAP (* TPointArray.SortFrom ~~~~~~~~~~~~~~~~~~~~ -function TPointArray.SortFrom(From: TPoint): TPointArray; +> function TPointArray.SortFrom(From: TPoint): TPointArray; *) procedure _LapeTPASortFrom(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -366,7 +366,7 @@ procedure _LapeTPASortFrom(const Params: PParamArray; const Result: Pointer); LA (* TPointArray.SortByRow ~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.SortByRow(Reverse: Boolean = False): TPointArray; +> function TPointArray.SortByRow(Reverse: Boolean = False): TPointArray; *) procedure _LapeTPASortByRow(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -376,7 +376,7 @@ procedure _LapeTPASortByRow(const Params: PParamArray; const Result: Pointer); L (* TPointArray.SortByColumn ~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.SortByColumn(Reverse: Boolean = False): TPointArray; +> function TPointArray.SortByColumn(Reverse: Boolean = False): TPointArray; *) procedure _LapeTPASortByColumn(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -386,7 +386,7 @@ procedure _LapeTPASortByColumn(const Params: PParamArray; const Result: Pointer) (* TPointArray.ExcludePie ~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.ExcludePie(StartDegree, EndDegree, MinRadius, MaxRadius: Single; Center: TPoint): TPointArray; +> function TPointArray.ExcludePie(StartDegree, EndDegree, MinRadius, MaxRadius: Single; Center: TPoint): TPointArray; Returns all points from `Self` are **not** inside the "pie slice" defined by StartDegree, EndDegree and MinRadius, MaxRadius and Center. @@ -400,7 +400,7 @@ procedure _LapeTPAExcludePie(const Params: PParamArray; const Result: Pointer); (* TPointArray.ExcludeDist ~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.ExcludeDist(Center: TPoint; MinDist, MaxDist: Double): TPointArray; +> function TPointArray.ExcludeDist(Center: TPoint; MinDist, MaxDist: Double): TPointArray; Returns all points from `Self` that are **not** within `MinDist` and `MaxDist` from `Center` @@ -414,7 +414,7 @@ procedure _LapeTPAExcludeDist(const Params: PParamArray; const Result: Pointer); (* TPointArray.ExcludePoints ~~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.ExcludePoints(Points: TPointArray): TPointArray; +> function TPointArray.ExcludePoints(Points: TPointArray): TPointArray; Returns all points from `Self` that are **not** inside the `Points` array. *) @@ -426,7 +426,7 @@ procedure _LapeTPAExcludePoints(const Params: PParamArray; const Result: Pointer (* TPointArray.ExcludePolygon ~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.ExcludePolygon(Polygon: TPointArray): TPointArray; +> function TPointArray.ExcludePolygon(Polygon: TPointArray): TPointArray; Returns all points from `Self` that are **not** inside the polygon. @@ -440,7 +440,7 @@ procedure _LapeTPAExcludePolygon(const Params: PParamArray; const Result: Pointe (* TPointArray.ExcludeBox ~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.ExcludeBox(Box: TBox): TPointArray; +> function TPointArray.ExcludeBox(Box: TBox): TPointArray; Returns all points from `Self` that **not** inside the box. @@ -454,7 +454,7 @@ procedure _LapeTPAExcludeBox(const Params: PParamArray; const Result: Pointer); (* TPointArray.ExcludeQuad ~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.ExcludeQuad(Quad: TQuad): TPointArray; +> function TPointArray.ExcludeQuad(Quad: TQuad): TPointArray; Returns all points from `Self` that **not** inside the quad. @@ -468,7 +468,7 @@ procedure _LapeTPAExcludeQuad(const Params: PParamArray; const Result: Pointer); (* TPointArray.ExtractDist ~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.ExtractDist(Center: TPoint; MinDist, MaxDist: Double): TPointArray; +> function TPointArray.ExtractDist(Center: TPoint; MinDist, MaxDist: Double): TPointArray; Returns all points from `Self` that **are** within `MinDist` and `MaxDist` from `Center` @@ -482,7 +482,7 @@ procedure _LapeTPAExtractDist(const Params: PParamArray; const Result: Pointer); (* TPointArray.ExtractPolygon ~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.ExtractPolygon(Polygon: TPointArray): TPointArray; +> function TPointArray.ExtractPolygon(Polygon: TPointArray): TPointArray; Returns all points from `Self` that are **inside** the polygon. *) @@ -494,7 +494,7 @@ procedure _LapeTPAExtractPolygon(const Params: PParamArray; const Result: Pointe (* TPointArray.ExtractBox ~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.ExtractBox(Box: TBox): TPointArray; +> function TPointArray.ExtractBox(Box: TBox): TPointArray; Returns all points from `Self` that are **inside** the box. *) @@ -506,7 +506,7 @@ procedure _LapeTPAExtractBox(const Params: PParamArray; const Result: Pointer); (* TPointArray.ExtractQuad ~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.ExtractQuad(Quad: TQuad): TPointArray; +> function TPointArray.ExtractQuad(Quad: TQuad): TPointArray; Returns all points from `Self` that are **inside** the quad. *) @@ -518,7 +518,7 @@ procedure _LapeTPAExtractQuad(const Params: PParamArray; const Result: Pointer); (* TPointArray.ExtractPie ~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.ExtractPie(StartDegree, EndDegree, MinRadius, MaxRadius: Single; Center: TPoint): TPointArray; +> function TPointArray.ExtractPie(StartDegree, EndDegree, MinRadius, MaxRadius: Single; Center: TPoint): TPointArray; Returns all points from `Self` are **inside** the "pie slice" defined by StartDegree, EndDegree and MinRadius, MaxRadius and Center. *) @@ -530,7 +530,7 @@ procedure _LapeTPAExtractPie(const Params: PParamArray; const Result: Pointer); (* TPointArray.Skeleton ~~~~~~~~~~~~~~~~~~~~ -function TPointArray.Skeleton(FMin: Integer = 2; FMax: Integer = 6): TPointArray; +> function TPointArray.Skeleton(FMin: Integer = 2; FMax: Integer = 6): TPointArray; *) procedure _LapeTPASkeleton(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -540,7 +540,7 @@ procedure _LapeTPASkeleton(const Params: PParamArray; const Result: Pointer); LA (* TPointArray.Border ~~~~~~~~~~~~~~~~~~ -function TPointArray.Border: TPointArray; +> function TPointArray.Border: TPointArray; *) procedure _LapeTPABorder(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -550,7 +550,7 @@ procedure _LapeTPABorder(const Params: PParamArray; const Result: Pointer); LAPE (* TPointArray.Edges ~~~~~~~~~~~~~~~~~ -function TPointArray.Edges: TPointArray; +> function TPointArray.Edges: TPointArray; *) procedure _LapeTPAEdges(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -560,7 +560,7 @@ procedure _LapeTPAEdges(const Params: PParamArray; const Result: Pointer); LAPE_ (* TPointArray.ConvexHull ~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.ConvexHull: TPointArray; +> function TPointArray.ConvexHull: TPointArray; *) procedure _LapeTPAConvexHull(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -570,7 +570,7 @@ procedure _LapeTPAConvexHull(const Params: PParamArray; const Result: Pointer); (* TPointArray.ShapeFill ~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.ShapeFill: TPointArray; +> function TPointArray.ShapeFill: TPointArray; *) procedure _LapeTPAShapeFill(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -580,7 +580,7 @@ procedure _LapeTPAShapeFill(const Params: PParamArray; const Result: Pointer); L (* TPointArray.Unique ~~~~~~~~~~~~~~~~~~ -function TPointArray.Unique: TPointArray; override; +> function TPointArray.Unique: TPointArray; override; *) procedure _LapeTPAUnique(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -590,7 +590,7 @@ procedure _LapeTPAUnique(const Params: PParamArray; const Result: Pointer); LAPE (* TPointArray.Split ~~~~~~~~~~~~~~~~~ -function TPointArray.Split(Dist: Integer): T2DPointArray; +> function TPointArray.Split(Dist: Integer): T2DPointArray; *) procedure _LapeTPASplit1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -600,7 +600,7 @@ procedure _LapeTPASplit1(const Params: PParamArray; const Result: Pointer); LAPE (* TPointArray.Split ~~~~~~~~~~~~~~~~~ -function TPointArray.Split(DistX, DistY: Integer): T2DPointArray; +> function TPointArray.Split(DistX, DistY: Integer): T2DPointArray; *) procedure _LapeTPASplit2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -610,7 +610,7 @@ procedure _LapeTPASplit2(const Params: PParamArray; const Result: Pointer); LAPE (* TPointArray.Cluster ~~~~~~~~~~~~~~~~~~~ -function TPointArray.Cluster(Dist: Integer): T2DPointArray; +> function TPointArray.Cluster(Dist: Integer): T2DPointArray; *) procedure _LapeTPACluster1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -620,7 +620,7 @@ procedure _LapeTPACluster1(const Params: PParamArray; const Result: Pointer); LA (* TPointArray.Cluster ~~~~~~~~~~~~~~~~~~~ -function TPointArray.Cluster(DistX, DistY: Integer): T2DPointArray; +> function TPointArray.Cluster(DistX, DistY: Integer): T2DPointArray; *) procedure _LapeTPACluster2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -630,7 +630,7 @@ procedure _LapeTPACluster2(const Params: PParamArray; const Result: Pointer); LA (* TPointArray.MinAreaRect ~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.MinAreaRect: TQuad; +> function TPointArray.MinAreaRect: TQuad; *) procedure _LapeTPAMinAreaRect(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -640,7 +640,7 @@ procedure _LapeTPAMinAreaRect(const Params: PParamArray; const Result: Pointer); (* TPointArray.Erode ~~~~~~~~~~~~~~~~~ -function TPointArray.Erode(Iterations: Integer): TPointArray; +> function TPointArray.Erode(Iterations: Integer): TPointArray; *) procedure _LapeTPAErode(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -650,7 +650,7 @@ procedure _LapeTPAErode(const Params: PParamArray; const Result: Pointer); LAPE_ (* TPointArray.Grow ~~~~~~~~~~~~~~~~ -function TPointArray.Grow(Iterations: Integer): TPointArray; +> function TPointArray.Grow(Iterations: Integer): TPointArray; *) procedure _LapeTPAGrow(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -660,7 +660,7 @@ procedure _LapeTPAGrow(const Params: PParamArray; const Result: Pointer); LAPE_W (* TPointArray.Partition ~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.Partition(Dist: Integer): T2DPointArray; +> function TPointArray.Partition(Dist: Integer): T2DPointArray; *) procedure _LapeTPAPartition1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -670,7 +670,7 @@ procedure _LapeTPAPartition1(const Params: PParamArray; const Result: Pointer); (* TPointArray.Partition ~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.Partition(Width, Height: Integer): T2DPointArray; +> function TPointArray.Partition(Width, Height: Integer): T2DPointArray; *) procedure _LapeTPAPartition2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -680,7 +680,7 @@ procedure _LapeTPAPartition2(const Params: PParamArray; const Result: Pointer); (* TPointArray.PartitionEx ~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.PartitionEx(BoxWidth, BoxHeight: Integer): T2DPointArray; +> function TPointArray.PartitionEx(BoxWidth, BoxHeight: Integer): T2DPointArray; *) procedure _LapeTPAPartitionEx1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -690,7 +690,7 @@ procedure _LapeTPAPartitionEx1(const Params: PParamArray; const Result: Pointer) (* TPointArray.PartitionEx ~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.PartitionEx(BoxWidth, BoxHeight: Integer): T2DPointArray; +> function TPointArray.PartitionEx(BoxWidth, BoxHeight: Integer): T2DPointArray; PartitionEx with StartPoint. *) @@ -702,7 +702,7 @@ procedure _LapeTPAPartitionEx2(const Params: PParamArray; const Result: Pointer) (* TPointArray.SortCircular ~~~~~~~~~~~~~~~~~~~~~~~~ -function TPointArray.SortCircular(Center: TPoint; StartDegrees: Integer; Clockwise: Boolean): TPointArray; +> function TPointArray.SortCircular(Center: TPoint; StartDegrees: Integer; Clockwise: Boolean): TPointArray; *) procedure _LapeTPASortCircular(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -802,4 +802,4 @@ procedure ImportTPA(Compiler: TSimbaScript_Compiler); end; end; -end. +end. \ No newline at end of file diff --git a/Source/script/imports/simba/simba.import_variant.pas b/Source/script/imports/simba/simba.import_variant.pas index df4ffb6b7..d6f3b6bc5 100644 --- a/Source/script/imports/simba/simba.import_variant.pas +++ b/Source/script/imports/simba/simba.import_variant.pas @@ -37,7 +37,7 @@ implementation (* Variant.VarType ~~~~~~~~~~~~~~~ -function Variant.VarType: EVariantVarType; +> function Variant.VarType: EVariantVarType; Returns the variants var type. @@ -83,7 +83,7 @@ procedure _LapeVariantVarType(const Params: PParamArray; const Result: Pointer); (* Variant.IsNumeric ~~~~~~~~~~~~~~~~~ -function Variant.IsNumeric: Boolean; +> function Variant.IsNumeric: Boolean; *) procedure _LapeVariantIsNumeric(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -93,7 +93,7 @@ procedure _LapeVariantIsNumeric(const Params: PParamArray; const Result: Pointer (* Variant.IsString ~~~~~~~~~~~~~~~~ -function Variant.IsString: Boolean; +> function Variant.IsString: Boolean; *) procedure _LapeVariantIsString(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -103,7 +103,7 @@ procedure _LapeVariantIsString(const Params: PParamArray; const Result: Pointer) (* Variant.IsOrdinal ~~~~~~~~~~~~~~~~~ -function Variant.IsOrdinal: Boolean; +> function Variant.IsOrdinal: Boolean; *) procedure _LapeVariantIsOrdinal(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -113,7 +113,7 @@ procedure _LapeVariantIsOrdinal(const Params: PParamArray; const Result: Pointer (* Variant.IsFloat ~~~~~~~~~~~~~~~ -function Variant.IsFloat: Boolean; +> function Variant.IsFloat: Boolean; *) procedure _LapeVariantIsFloat(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -123,7 +123,7 @@ procedure _LapeVariantIsFloat(const Params: PParamArray; const Result: Pointer); (* Variant.IsBoolean ~~~~~~~~~~~~~~~~~ -function Variant.IsBoolean: Boolean; +> function Variant.IsBoolean: Boolean; *) procedure _LapeVariantIsBoolean(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -133,7 +133,7 @@ procedure _LapeVariantIsBoolean(const Params: PParamArray; const Result: Pointer (* Variant.Null ~~~~~~~~~~~~ -function Variant.Null: Variant; static; +> function Variant.Null: Variant; static; Static method that returns a null variant variable. @@ -151,7 +151,7 @@ procedure _LapeVariantNull(const Params: PParamArray; const Result: Pointer); LA (* Variant.Unassigned ~~~~~~~~~~~~~~~~~~ -function Variant.Unassigned: Variant; static; +> function Variant.Unassigned: Variant; static; Static method that returns a unassigned variant variable. @@ -189,5 +189,4 @@ procedure ImportVariant(Compiler: TSimbaScript_Compiler); end; end; -end. - +end. \ No newline at end of file diff --git a/Source/script/imports/simba/simba.import_web.pas b/Source/script/imports/simba/simba.import_web.pas index 9ff0dcd45..aed9354cd 100644 --- a/Source/script/imports/simba/simba.import_web.pas +++ b/Source/script/imports/simba/simba.import_web.pas @@ -28,7 +28,7 @@ implementation (* OpenURL ~~~~~~~ -procedure OpenURL(URL: String); +> procedure OpenURL(URL: String); Open a URL in the systems default internet browser. *) @@ -40,7 +40,7 @@ procedure _LapeOpenURL(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV (* GetPage ~~~~~~~ -function GetPage(URL: String): String; +> function GetPage(URL: String): String; Simple method to return the contents of a webpage. *) @@ -52,7 +52,7 @@ procedure _LapeGetPage(const Params: PParamArray; const Result: Pointer); LAPE_W (* EncodeURLElement ~~~~~~~~~~~~~~~~ -function EncodeURLElement(S: String): String; +> function EncodeURLElement(S: String): String; URL encode a string. For example a space character is changed to `%20`. *) @@ -64,7 +64,7 @@ procedure _LapeEncodeURLElement(const Params: PParamArray; const Result: Pointer (* DecodeURLElement ~~~~~~~~~~~~~~~~ -function DecodeURLElement(S: String): String; +> function DecodeURLElement(S: String): String; Inverse of EncodeURLElement. *) @@ -76,14 +76,14 @@ procedure _LapeDecodeURLElement(const Params: PParamArray; const Result: Pointer (* TSimbaHTTPClient.Create ~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaHTTPClient.Create: TSimbaHTTPClient; static; +> function TSimbaHTTPClient.Create: TSimbaHTTPClient; static; Create a SimbaHTTPClient. This must be freed. Example: ``` -var +> var AnotherHTTPClient: TSimbaHTTPClient; begin AnotherHTTPClient := TSimbaHTTPClient.Create(); @@ -100,7 +100,7 @@ procedure _LapeSimbaHTTPClient_Create(const Params: PParamArray; const Result: P (* TSimbaHTTPClient.Free ~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaHTTPClient.Free +> procedure TSimbaHTTPClient.Free *) procedure _LapeSimbaHTTPClient_Free(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -110,7 +110,7 @@ procedure _LapeSimbaHTTPClient_Free(const Params: PParamArray); LAPE_WRAPPER_CAL (* TSimbaHTTPClient.SetProxy ~~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaHTTPClient.SetProxy(Host: String; Port: Integer; UserName, Password: String); +> procedure TSimbaHTTPClient.SetProxy(Host: String; Port: Integer; UserName, Password: String); *) procedure _LapeSimbaHTTPClient_SetProxy(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -120,7 +120,7 @@ procedure _LapeSimbaHTTPClient_SetProxy(const Params: PParamArray); LAPE_WRAPPER (* TSimbaHTTPClient.ClearProxy ~~~~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaHTTPClient.ClearProxy; +> procedure TSimbaHTTPClient.ClearProxy; *) procedure _LapeSimbaHTTPClient_ClearProxy(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -130,7 +130,7 @@ procedure _LapeSimbaHTTPClient_ClearProxy(const Params: PParamArray); LAPE_WRAPP (* TSimbaHTTPClient.Reset ~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaHTTPClient.Reset; +> procedure TSimbaHTTPClient.Reset; *) procedure _LapeSimbaHTTPClient_Reset(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -140,7 +140,7 @@ procedure _LapeSimbaHTTPClient_Reset(const Params: PParamArray); LAPE_WRAPPER_CA (* TSimbaHTTPClient.Get ~~~~~~~~~~~~~~~~~~~~ -function TSimbaHTTPClient.Get(URL: String; AllowedStatusCodes: THTTPStatusArray = []): String; +> function TSimbaHTTPClient.Get(URL: String; AllowedStatusCodes: THTTPStatusArray = []): String; Return a webpages content as a string. @@ -155,7 +155,7 @@ procedure _LapeSimbaHTTPClient_Get(const Params: PParamArray; const Result: Poin (* TSimbaHTTPClient.GetFile ~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaHTTPClient.GetFile(URL, LocalFileName: String; AllowedStatusCodes: THTTPStatusArray = []); +> procedure TSimbaHTTPClient.GetFile(URL, LocalFileName: String; AllowedStatusCodes: THTTPStatusArray = []); Save a webpages content to a local file. @@ -170,7 +170,7 @@ procedure _LapeSimbaHTTPClient_GetFile(const Params: PParamArray); LAPE_WRAPPER_ (* TSimbaHTTPClient.GetZip ~~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaHTTPClient.GetZip(URL: String; OutputPath: String; Flat: Boolean; IgnoreList: TStringArray); +> procedure TSimbaHTTPClient.GetZip(URL: String; OutputPath: String; Flat: Boolean; IgnoreList: TStringArray); *) procedure _LapeSimbaHTTPClient_GetZIP(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -180,7 +180,7 @@ procedure _LapeSimbaHTTPClient_GetZIP(const Params: PParamArray); LAPE_WRAPPER_C (* TSimbaHTTPClient.Head ~~~~~~~~~~~~~~~~~~~~~ -function TSimbaHTTPClient.Head(URL: String): EHTTPStatus; +> function TSimbaHTTPClient.Head(URL: String): EHTTPStatus; Header request. Headers will be written to `HTTPClient.GetResponseHeaders()` *) @@ -192,7 +192,7 @@ procedure _LapeSimbaHTTPClient_Head(const Params: PParamArray; const Result: Poi (* TSimbaHTTPClient.GetCookies ~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaHTTPClient.GetCookies: TStringArray; +> function TSimbaHTTPClient.GetCookies: TStringArray; *) procedure _LapeSimbaHTTPClient_GetCookies(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -202,7 +202,7 @@ procedure _LapeSimbaHTTPClient_GetCookies(const Params: PParamArray; const Resul (* TSimbaHTTPClient.SetCookies ~~~~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaHTTPClient.SetCookies(Cookies: TStringArray); +> procedure TSimbaHTTPClient.SetCookies(Cookies: TStringArray); *) procedure _LapeSimbaHTTPClient_SetCookies(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -212,7 +212,7 @@ procedure _LapeSimbaHTTPClient_SetCookies(const Params: PParamArray); LAPE_WRAPP (* TSimbaHTTPClient.ResponseStatus ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaHTTPClient.ResponseStatus: EHTTPStatus; +> function TSimbaHTTPClient.ResponseStatus: EHTTPStatus; Returns the response status. @@ -229,7 +229,7 @@ procedure _LapeSimbaHTTPClient_ResponseStatus(const Params: PParamArray; const R (* TSimbaHTTPClient.GetResponseHeader ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaHTTPClient.GetResponseHeader(Name: String): String; +> function TSimbaHTTPClient.GetResponseHeader(Name: String): String; *) procedure _LapeSimbaHTTPClient_GetResponseHeader(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -239,7 +239,7 @@ procedure _LapeSimbaHTTPClient_GetResponseHeader(const Params: PParamArray; cons (* TSimbaHTTPClient.GetResponseHeaders ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaHTTPClient.GetResponseHeaders: TStringArray; +> function TSimbaHTTPClient.GetResponseHeaders: TStringArray; *) procedure _LapeSimbaHTTPClient_GetResponseHeaders(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -249,7 +249,7 @@ procedure _LapeSimbaHTTPClient_GetResponseHeaders(const Params: PParamArray; con (* TSimbaHTTPClient.GetRequestHeader ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaHTTPClient.GetRequestHeader(Name: String): String; +> function TSimbaHTTPClient.GetRequestHeader(Name: String): String; *) procedure _LapeSimbaHTTPClient_GetRequestHeader(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -259,7 +259,7 @@ procedure _LapeSimbaHTTPClient_GetRequestHeader(const Params: PParamArray; const (* TSimbaHTTPClient.SetRequestContentType ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaHTTPClient.SetRequestContentType(Value: String); +> procedure TSimbaHTTPClient.SetRequestContentType(Value: String); *) procedure _LapeSimbaHTTPClient_SetRequestContentType(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -269,7 +269,7 @@ procedure _LapeSimbaHTTPClient_SetRequestContentType(const Params: PParamArray); (* TSimbaHTTPClient.SetRequestHeader ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaHTTPClient.SetRequestHeader(Name, Value: String); +> procedure TSimbaHTTPClient.SetRequestHeader(Name, Value: String); *) procedure _LapeSimbaHTTPClient_SetRequestHeader(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -279,7 +279,7 @@ procedure _LapeSimbaHTTPClient_SetRequestHeader(const Params: PParamArray); LAPE (* TSimbaHTTPClient.Post ~~~~~~~~~~~~~~~~~~~~~ -function TSimbaHTTPClient.Post(URL: String; Data: String): String; +> function TSimbaHTTPClient.Post(URL: String; Data: String): String; HTTP post request. @@ -293,7 +293,7 @@ procedure _LapeSimbaHTTPClient_Post(const Params: PParamArray; const Result: Poi (* TSimbaHTTPClient.PostForm ~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaHTTPClient.PostForm(URL: String; Data: String): String; +> function TSimbaHTTPClient.PostForm(URL: String; Data: String): String; Post form data (www-urlencoded) *) @@ -305,7 +305,7 @@ procedure _LapeSimbaHTTPClient_PostForm(const Params: PParamArray; const Result: (* TSimbaHTTPClient.PostFormFile ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaHTTPClient.PostFormFile(const URL, FieldName, FileName: string): String; +> function TSimbaHTTPClient.PostFormFile(const URL, FieldName, FileName: string): String; Post form with a local file file *) @@ -317,7 +317,7 @@ procedure _LapeSimbaHTTPClient_PostFormFile(const Params: PParamArray; const Res (* TSimbaHTTPClient.Patch ~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaHTTPClient.Patch(URL, PostData: String): String; +> function TSimbaHTTPClient.Patch(URL, PostData: String): String; *) procedure _LapeSimbaHTTPClient_Patch(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -327,7 +327,7 @@ procedure _LapeSimbaHTTPClient_Patch(const Params: PParamArray; const Result: Po (* TSimbaHTTPClient.Put ~~~~~~~~~~~~~~~~~~~~ -function TSimbaHTTPClient.Put(URL, PostData: String): String; +> function TSimbaHTTPClient.Put(URL, PostData: String): String; *) procedure _LapeSimbaHTTPClient_Put(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -337,7 +337,7 @@ procedure _LapeSimbaHTTPClient_Put(const Params: PParamArray; const Result: Poin (* TSimbaHTTPClient.Delete ~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaHTTPClient.Delete(URL, PostData: String): String; +> function TSimbaHTTPClient.Delete(URL, PostData: String): String; *) procedure _LapeSimbaHTTPClient_Delete(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -347,7 +347,7 @@ procedure _LapeSimbaHTTPClient_Delete(const Params: PParamArray; const Result: P (* TSimbaHTTPClient.GetUserAgent ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaHTTPClient.GetUserAgent: String; +> function TSimbaHTTPClient.GetUserAgent: String; *) procedure _LapeSimbaHTTPClient_GetUserAgent(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -357,7 +357,7 @@ procedure _LapeSimbaHTTPClient_GetUserAgent(const Params: PParamArray; const Res (* TSimbaHTTPClient.SetUserAgent ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaHTTPClient.SetUserAgent(Value: String); +> procedure TSimbaHTTPClient.SetUserAgent(Value: String); *) procedure _LapeSimbaHTTPClient_SetUserAgent(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -367,7 +367,7 @@ procedure _LapeSimbaHTTPClient_SetUserAgent(const Params: PParamArray); LAPE_WRA (* TSimbaHTTPClient.GetOnDownloadProgress ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaHTTPClient.GetOnDownloadProgress: TSimbaHTTPDownloadingEvent; +> function TSimbaHTTPClient.GetOnDownloadProgress: TSimbaHTTPDownloadingEvent; *) procedure _LapeSimbaHTTPClient_OnDownloadProgress_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -377,7 +377,7 @@ procedure _LapeSimbaHTTPClient_OnDownloadProgress_Read(const Params: PParamArray (* TSimbaHTTPClient.SetOnDownloadProgress ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaHTTPClient.SetOnDownloadProgress(Value: TSimbaHTTPDownloadingEvent); +> procedure TSimbaHTTPClient.SetOnDownloadProgress(Value: TSimbaHTTPDownloadingEvent); *) procedure _LapeSimbaHTTPClient_OnDownloadProgress_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -387,7 +387,7 @@ procedure _LapeSimbaHTTPClient_OnDownloadProgress_Write(const Params: PParamArra (* TSimbaHTTPClient.GetOnExtractProgress ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TSimbaHTTPClient.GetOnExtractProgress: TSimbaHTTPExtractingEvent; +> function TSimbaHTTPClient.GetOnExtractProgress: TSimbaHTTPExtractingEvent; *) procedure _LapeSimbaHTTPClient_OnExtractProgress_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -397,7 +397,7 @@ procedure _LapeSimbaHTTPClient_OnExtractProgress_Read(const Params: PParamArray; (* TSimbaHTTPClient.SetOnExtractProgress ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TSimbaHTTPClient.SetOnExtractProgress(Value: TSimbaHTTPExtractingEvent); +> procedure TSimbaHTTPClient.SetOnExtractProgress(Value: TSimbaHTTPExtractingEvent); *) procedure _LapeSimbaHTTPClient_OnExtractProgress_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -545,5 +545,4 @@ procedure ImportWeb(Compiler: TSimbaScript_Compiler); end; end; -end. - +end. \ No newline at end of file diff --git a/Source/script/imports/simba/simba.import_windowhandle.pas b/Source/script/imports/simba/simba.import_windowhandle.pas index a7268c7e0..5aa7aa452 100644 --- a/Source/script/imports/simba/simba.import_windowhandle.pas +++ b/Source/script/imports/simba/simba.import_windowhandle.pas @@ -39,7 +39,7 @@ implementation (* TWindowHandle.Activate ~~~~~~~~~~~~~~~~~~~~~~ -function TWindowHandle.Activate: Boolean; +> function TWindowHandle.Activate: Boolean; *) procedure _LapeWindowHandle_Activate(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -49,7 +49,7 @@ procedure _LapeWindowHandle_Activate(const Params: PParamArray; const Result: Po (* TWindowHandle.IsValid ~~~~~~~~~~~~~~~~~~~~~ -function TWindowHandle.IsValid: Boolean; +> function TWindowHandle.IsValid: Boolean; *) procedure _LapeWindowHandle_IsValid(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -59,7 +59,7 @@ procedure _LapeWindowHandle_IsValid(const Params: PParamArray; const Result: Poi (* TWindowHandle.IsActive ~~~~~~~~~~~~~~~~~~~~~~ -function TWindowHandle.IsActive: Boolean; +> function TWindowHandle.IsActive: Boolean; *) procedure _LapeWindowHandle_IsActive(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -69,7 +69,7 @@ procedure _LapeWindowHandle_IsActive(const Params: PParamArray; const Result: Po (* TWindowHandle.IsVisible ~~~~~~~~~~~~~~~~~~~~~~~ -function TWindowHandle.IsVisible: Boolean; +> function TWindowHandle.IsVisible: Boolean; *) procedure _LapeWindowHandle_IsVisible(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -79,7 +79,7 @@ procedure _LapeWindowHandle_IsVisible(const Params: PParamArray; const Result: P (* TWindowHandle.GetPID ~~~~~~~~~~~~~~~~~~~~ -function TWindowHandle.GetPID: UInt32; +> function TWindowHandle.GetPID: UInt32; *) procedure _LapeWindowHandle_GetPID(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -89,7 +89,7 @@ procedure _LapeWindowHandle_GetPID(const Params: PParamArray; const Result: Poin (* TWindowHandle.GetRootWindow ~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TWindowHandle.GetRootWindow: TWindowHandle; +> function TWindowHandle.GetRootWindow: TWindowHandle; *) procedure _LapeWindowHandle_GetRootWindow(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -99,7 +99,7 @@ procedure _LapeWindowHandle_GetRootWindow(const Params: PParamArray; const Resul (* TWindowHandle.GetTitle ~~~~~~~~~~~~~~~~~~~~~~ -function TWindowHandle.GetTitle: String; +> function TWindowHandle.GetTitle: String; *) procedure _LapeWindowHandle_GetTitle(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -109,7 +109,7 @@ procedure _LapeWindowHandle_GetTitle(const Params: PParamArray; const Result: Po (* TWindowHandle.GetClassName ~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TWindowHandle.GetClassName: String; +> function TWindowHandle.GetClassName: String; *) procedure _LapeWindowHandle_GetClassName(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -119,7 +119,7 @@ procedure _LapeWindowHandle_GetClassName(const Params: PParamArray; const Result (* TWindowHandle.GetTitleW ~~~~~~~~~~~~~~~~~~~~~~~ -function TWindowHandle.GetTitleW: WideString; +> function TWindowHandle.GetTitleW: WideString; *) procedure _LapeWindowHandle_GetTitleW(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -129,7 +129,7 @@ procedure _LapeWindowHandle_GetTitleW(const Params: PParamArray; const Result: P (* TWindowHandle.GetClassNameW ~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TWindowHandle.GetClassNameW: WideString; +> function TWindowHandle.GetClassNameW: WideString; *) procedure _LapeWindowHandle_GetClassNameW(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -139,7 +139,7 @@ procedure _LapeWindowHandle_GetClassNameW(const Params: PParamArray; const Resul (* TWindowHandle.GetBounds ~~~~~~~~~~~~~~~~~~~~~~~ -function TWindowHandle.GetBounds: TBox; +> function TWindowHandle.GetBounds: TBox; *) procedure _LapeWindowHandle_GetBounds(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -149,7 +149,7 @@ procedure _LapeWindowHandle_GetBounds(const Params: PParamArray; const Result: P (* TWindowHandle.GetChildren ~~~~~~~~~~~~~~~~~~~~~~~~~ -function TWindowHandle.GetChildren(Recursive: Boolean = True): TWindowHandleArray; +> function TWindowHandle.GetChildren(Recursive: Boolean = True): TWindowHandleArray; *) procedure _LapeWindowHandle_GetChildren(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -159,7 +159,7 @@ procedure _LapeWindowHandle_GetChildren(const Params: PParamArray; const Result: (* TWindowHandle.SetBounds ~~~~~~~~~~~~~~~~~~~~~~~ -procedure TWindowHandle.SetBounds(Bounds: TBox); +> procedure TWindowHandle.SetBounds(Bounds: TBox); *) procedure _LapeWindowHandle_SetBounds(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -169,7 +169,7 @@ procedure _LapeWindowHandle_SetBounds(const Params: PParamArray); LAPE_WRAPPER_C (* TWindowHandle.Kill ~~~~~~~~~~~~~~~~~~ -procedure TWindowHandle.Kill; +> procedure TWindowHandle.Kill; *) procedure _LapeWindowHandle_Kill(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -179,7 +179,7 @@ procedure _LapeWindowHandle_Kill(const Params: PParamArray); LAPE_WRAPPER_CALLIN (* GetTopWindows ~~~~~~~~~~~~~ -function GetTopWindows: TWindowHandleArray; +> function GetTopWindows: TWindowHandleArray; *) procedure _LapeGetTopWindows(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -189,7 +189,7 @@ procedure _LapeGetTopWindows(const Params: PParamArray; const Result: Pointer); (* GetVisibleWindows ~~~~~~~~~~~~~~~~~ -function GetVisibleWindows: TWindowHandleArray; +> function GetVisibleWindows: TWindowHandleArray; *) procedure _LapeGetVisibleWindows(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -199,7 +199,7 @@ procedure _LapeGetVisibleWindows(const Params: PParamArray; const Result: Pointe (* GetWindows ~~~~~~~~~~ -function GetWindows: TWindowHandleArray; +> function GetWindows: TWindowHandleArray; *) procedure _LapeGetWindows(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -209,7 +209,7 @@ procedure _LapeGetWindows(const Params: PParamArray; const Result: Pointer); LAP (* GetActiveWindow ~~~~~~~~~~~~~~~ -function GetActiveWindow: TWindowHandle; +> function GetActiveWindow: TWindowHandle; *) procedure _LapeGetActiveWindow(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -219,7 +219,7 @@ procedure _LapeGetActiveWindow(const Params: PParamArray; const Result: Pointer) (* GetDesktopWindow ~~~~~~~~~~~~~~~~ -function GetDesktopWindow: TWindowHandle; +> function GetDesktopWindow: TWindowHandle; *) procedure _LapeGetDesktopWindow(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -229,7 +229,7 @@ procedure _LapeGetDesktopWindow(const Params: PParamArray; const Result: Pointer (* GetWindowAtCursor ~~~~~~~~~~~~~~~~~ -function GetWindowAtCursor: TWindowHandle; +> function GetWindowAtCursor: TWindowHandle; *) procedure _LapeGetWindowAtCursor(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -239,7 +239,7 @@ procedure _LapeGetWindowAtCursor(const Params: PParamArray; const Result: Pointe (* FindWindow ~~~~~~~~~~ -function FindWindow(Title: String; out Window: TWindowHandle): Boolean; +> function FindWindow(Title: String; out Window: TWindowHandle): Boolean; *) procedure _LapeFindWindow(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -249,7 +249,7 @@ procedure _LapeFindWindow(const Params: PParamArray; const Result: Pointer); LAP (* FindWindows ~~~~~~~~~~~ -function FindWindows(Title: String): TWindowHandleArray; +> function FindWindows(Title: String): TWindowHandleArray; *) procedure _LapeFindWindows(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -259,7 +259,7 @@ procedure _LapeFindWindows(const Params: PParamArray; const Result: Pointer); LA (* FindChildWindow ~~~~~~~~~~~~~~~ -function FindChildWindow(Title: String; ClassName: String; out Child: TWindowHandle): Boolean; +> function FindChildWindow(Title: String; ClassName: String; out Child: TWindowHandle): Boolean; *) procedure _LapeFindChildWindow(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -269,7 +269,7 @@ procedure _LapeFindChildWindow(const Params: PParamArray; const Result: Pointer) (* FindChildWindows ~~~~~~~~~~~~~~~~ -function FindChildWindows(Title: String; ClassName: String): TWindowHandleArray; +> function FindChildWindows(Title: String; ClassName: String): TWindowHandleArray; *) procedure _LapeFindChildWindows(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -314,5 +314,4 @@ procedure ImportWindowHandle(Compiler: TSimbaScript_Compiler); end; end; -end. - +end. \ No newline at end of file diff --git a/Source/script/imports/simbaclasses/simba.import_class_bitmap.pas b/Source/script/imports/simbaclasses/simba.import_class_bitmap.pas index aa0ab5df4..bc1dcb795 100644 --- a/Source/script/imports/simbaclasses/simba.import_class_bitmap.pas +++ b/Source/script/imports/simbaclasses/simba.import_class_bitmap.pas @@ -29,7 +29,7 @@ implementation (* TImage.InImage ~~~~~~~~~~~~~~ -function TImage.InImage(X, Y: Integer): Boolean; +> function TImage.InImage(X, Y: Integer): Boolean; *) procedure _LapeImage_InImage(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -39,7 +39,7 @@ procedure _LapeImage_InImage(const Params: PParamArray; const Result: Pointer); (* TImage.EnsureInImage ~~~~~~~~~~~~~~~~~~~~ -function TImage.EnsureInImage(var X, Y: Integer): Boolean; +> function TImage.EnsureInImage(var X, Y: Integer): Boolean; *) procedure _LapeImage_EnsureInImage(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -49,7 +49,7 @@ procedure _LapeImage_EnsureInImage(const Params: PParamArray); LAPE_WRAPPER_CALL (* TImage.GetData ~~~~~~~~~~~~~~ -function TImage.GetData: PColorBGRA; +> function TImage.GetData: PColorBGRA; *) procedure _LapeImage_Data_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -59,7 +59,7 @@ procedure _LapeImage_Data_Read(const Params: PParamArray; const Result: Pointer) (* TImage.GetName ~~~~~~~~~~~~~~ -function TImage.GetName: String; +> function TImage.GetName: String; *) procedure _LapeImage_Name_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -69,7 +69,7 @@ procedure _LapeImage_Name_Read(const Params: PParamArray; const Result: Pointer) (* TImage.SetName ~~~~~~~~~~~~~~ -procedure TImage.SetName(Value: String); +> procedure TImage.SetName(Value: String); *) procedure _LapeImage_Name_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -79,7 +79,7 @@ procedure _LapeImage_Name_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING (* TImage.SetSize ~~~~~~~~~~~~~~ -procedure TImage.SetSize(AWidth, AHeight: Integer); +> procedure TImage.SetSize(AWidth, AHeight: Integer); *) procedure _LapeImage_SetSize(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -89,7 +89,7 @@ procedure _LapeImage_SetSize(const Params: PParamArray); LAPE_WRAPPER_CALLING_CO (* TImage.ResizeNN ~~~~~~~~~~~~~~~ -function TImage.ResizeNN(AWidth, AHeight: Integer): TImage; +> function TImage.ResizeNN(AWidth, AHeight: Integer): TImage; *) procedure _LapeImage_ResizeNN(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -99,7 +99,7 @@ procedure _LapeImage_ResizeNN(const Params: PParamArray; const Result: Pointer); (* TImage.ResizeBilinear ~~~~~~~~~~~~~~~~~~~~~ -function TImage.ResizeBilinear(AWidth, AHeight: Integer): TImage; +> function TImage.ResizeBilinear(AWidth, AHeight: Integer): TImage; *) procedure _LapeImage_ResizeBilinear(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -109,7 +109,7 @@ procedure _LapeImage_ResizeBilinear(const Params: PParamArray; const Result: Poi (* TImage.GetWidth ~~~~~~~~~~~~~~~ -function TImage.GetWidth: Integer; +> function TImage.GetWidth: Integer; *) procedure _LapeImage_Width_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -119,7 +119,7 @@ procedure _LapeImage_Width_Read(const Params: PParamArray; const Result: Pointer (* TImage.GetHeight ~~~~~~~~~~~~~~~~ -function TImage.GetHeight: Integer; +> function TImage.GetHeight: Integer; *) procedure _LapeImage_Height_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -129,7 +129,7 @@ procedure _LapeImage_Height_Read(const Params: PParamArray; const Result: Pointe (* TImage.SetExternalData ~~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.SetExternalData(AData: PColorBGRA; AWidth, AHeight: Integer); +> procedure TImage.SetExternalData(AData: PColorBGRA; AWidth, AHeight: Integer); *) procedure _LapeImage_SetPersistentMemory(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -139,7 +139,7 @@ procedure _LapeImage_SetPersistentMemory(const Params: PParamArray); LAPE_WRAPPE (* TImage.ResetExternalData ~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.ResetExternalData; +> procedure TImage.ResetExternalData; *) procedure _LapeImage_ResetPersistentMemory(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -149,7 +149,7 @@ procedure _LapeImage_ResetPersistentMemory(const Params: PParamArray); LAPE_WRAP (* TImage.SaveToFile ~~~~~~~~~~~~~~~~~ -function TImage.SaveToFile(FileName: String; OverwriteIfExists: Boolean = False): Boolean; +> function TImage.SaveToFile(FileName: String; OverwriteIfExists: Boolean = False): Boolean; *) procedure _LapeImage_SaveToFile(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -159,7 +159,7 @@ procedure _LapeImage_SaveToFile(const Params: PParamArray; const Result: Pointer (* TImage.SaveToString ~~~~~~~~~~~~~~~~~~~ -function TImage.SaveToString: String; +> function TImage.SaveToString: String; *) procedure _LapeImage_SaveToString(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -169,7 +169,7 @@ procedure _LapeImage_SaveToString(const Params: PParamArray; const Result: Point (* TImage.LoadFromFile ~~~~~~~~~~~~~~~~~~~ -procedure TImage.LoadFromFile(FileName: String); +> procedure TImage.LoadFromFile(FileName: String); *) procedure _LapeImage_LoadFromFile(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -179,7 +179,7 @@ procedure _LapeImage_LoadFromFile(const Params: PParamArray); LAPE_WRAPPER_CALLI (* TImage.LoadFromFile ~~~~~~~~~~~~~~~~~~~ -procedure TImage.LoadFromFile(FileName: String; Area: TBox); +> procedure TImage.LoadFromFile(FileName: String; Area: TBox); *) procedure _LapeImage_LoadFromFileEx(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -189,7 +189,7 @@ procedure _LapeImage_LoadFromFileEx(const Params: PParamArray); LAPE_WRAPPER_CAL (* TImage.DrawATPA ~~~~~~~~~~~~~~~ -procedure TImage.DrawATPA(ATPA: T2DPointArray); +> procedure TImage.DrawATPA(ATPA: T2DPointArray); *) procedure _LapeImage_DrawATPA(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -199,7 +199,7 @@ procedure _LapeImage_DrawATPA(const Params: PParamArray); LAPE_WRAPPER_CALLING_C (* TImage.DrawATPA ~~~~~~~~~~~~~~~ -procedure TImage.DrawATPA(ATPA: T2DPointArray; Color: TColor); +> procedure TImage.DrawATPA(ATPA: T2DPointArray; Color: TColor); *) procedure _LapeImage_DrawATPAEx(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -209,7 +209,7 @@ procedure _LapeImage_DrawATPAEx(const Params: PParamArray); LAPE_WRAPPER_CALLING (* TImage.DrawTPA ~~~~~~~~~~~~~~ -procedure TImage.DrawTPA(TPA: TPointArray; Color: TColor); +> procedure TImage.DrawTPA(TPA: TPointArray; Color: TColor); *) procedure _LapeImage_DrawTPA(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -219,7 +219,7 @@ procedure _LapeImage_DrawTPA(const Params: PParamArray); LAPE_WRAPPER_CALLING_CO (* TImage.ReplaceColor ~~~~~~~~~~~~~~~~~~~ -procedure TImage.ReplaceColor(OldColor, NewColor: TColor); +> procedure TImage.ReplaceColor(OldColor, NewColor: TColor); *) procedure _LapeImage_ReplaceColor(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -229,7 +229,7 @@ procedure _LapeImage_ReplaceColor(const Params: PParamArray); LAPE_WRAPPER_CALLI (* TImage.ReplaceColors ~~~~~~~~~~~~~~~~~~~~ -procedure TImage.ReplaceColors(OldColors, NewColors: TColorArray); +> procedure TImage.ReplaceColors(OldColors, NewColors: TColorArray); *) procedure _LapeImage_ReplaceColors(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -239,7 +239,7 @@ procedure _LapeImage_ReplaceColors(const Params: PParamArray); LAPE_WRAPPER_CALL (* TImage.RotateNN ~~~~~~~~~~~~~~~ -function TImage.RotateNN(Radians: Single; Expand: Boolean): TImage; +> function TImage.RotateNN(Radians: Single; Expand: Boolean): TImage; *) procedure _LapeImage_RotateNN(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -249,7 +249,7 @@ procedure _LapeImage_RotateNN(const Params: PParamArray; const Result: Pointer); (* TImage.RotateBilinear ~~~~~~~~~~~~~~~~~~~~~ -function TImage.RotateBilinear(Radians: Single; Expand: Boolean): TImage; +> function TImage.RotateBilinear(Radians: Single; Expand: Boolean): TImage; *) procedure _LapeImage_RotateBilinear(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -259,7 +259,7 @@ procedure _LapeImage_RotateBilinear(const Params: PParamArray; const Result: Poi (* TImage.GreyScale ~~~~~~~~~~~~~~~~ -function TImage.GreyScale: TImage; +> function TImage.GreyScale: TImage; *) procedure _LapeImage_GreyScale(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -269,7 +269,7 @@ procedure _LapeImage_GreyScale(const Params: PParamArray; const Result: Pointer) (* TImage.Brightness ~~~~~~~~~~~~~~~~~ -function TImage.Brightness(Value: Integer): TImage; +> function TImage.Brightness(Value: Integer): TImage; *) procedure _LapeImage_Brightness(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -279,7 +279,7 @@ procedure _LapeImage_Brightness(const Params: PParamArray; const Result: Pointer (* TImage.Invert ~~~~~~~~~~~~~ -function TImage.Invert: TImage; +> function TImage.Invert: TImage; *) procedure _LapeImage_Invert(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -289,7 +289,7 @@ procedure _LapeImage_Invert(const Params: PParamArray; const Result: Pointer); L (* TImage.Posterize ~~~~~~~~~~~~~~~~ -function TImage.Posterize(Value: Integer): TImage; +> function TImage.Posterize(Value: Integer): TImage; *) procedure _LapeImage_Posterize(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -299,7 +299,7 @@ procedure _LapeImage_Posterize(const Params: PParamArray; const Result: Pointer) (* TImage.Convolute ~~~~~~~~~~~~~~~~ -function TImage.Convolute(Matrix: TDoubleMatrix): TImage; +> function TImage.Convolute(Matrix: TDoubleMatrix): TImage; *) procedure _LapeImage_Convolute(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -309,7 +309,7 @@ procedure _LapeImage_Convolute(const Params: PParamArray; const Result: Pointer) (* TImage.Copy ~~~~~~~~~~~ -function TImage.Copy(X1, Y1, X2, Y2: Integer): TImage; +> function TImage.Copy(X1, Y1, X2, Y2: Integer): TImage; *) procedure _LapeImage_Copy(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -319,7 +319,7 @@ procedure _LapeImage_Copy(const Params: PParamArray; const Result: Pointer); LAP (* TImage.Copy ~~~~~~~~~~~ -function TImage.Copy: TImage; +> function TImage.Copy: TImage; *) procedure _LapeImage_CopyEx(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -329,7 +329,7 @@ procedure _LapeImage_CopyEx(const Params: PParamArray; const Result: Pointer); L (* TImage.ToLazBitmap ~~~~~~~~~~~~~~~~~~ -function TImage.ToLazBitmap: TLazBitmap; +> function TImage.ToLazBitmap: TLazBitmap; *) procedure _LapeImage_ToLazBitmap(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -339,7 +339,7 @@ procedure _LapeImage_ToLazBitmap(const Params: PParamArray; const Result: Pointe (* TImage.LoadFromLazBitmap ~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.LoadFromLazBitmap(LazBitmap: TLazBitmap); +> procedure TImage.LoadFromLazBitmap(LazBitmap: TLazBitmap); *) procedure _LapeImage_LoadFromLazBitmap(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -349,7 +349,7 @@ procedure _LapeImage_LoadFromLazBitmap(const Params: PParamArray); LAPE_WRAPPER_ (* TImage.Crop ~~~~~~~~~~~ -procedure TImage.Crop(X1, Y1, X2, Y2: Integer); +> procedure TImage.Crop(X1, Y1, X2, Y2: Integer); *) procedure _LapeImage_Crop(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -359,7 +359,7 @@ procedure _LapeImage_Crop(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV (* TImage.GetColors ~~~~~~~~~~~~~~~~ -function TImage.GetColors: TColorArray; +> function TImage.GetColors: TColorArray; *) procedure _LapeImage_GetColors(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -369,7 +369,7 @@ procedure _LapeImage_GetColors(const Params: PParamArray; const Result: Pointer) (* TImage.ToMatrix ~~~~~~~~~~~~~~~ -function TImage.ToMatrix: TIntegerMatrix; +> function TImage.ToMatrix: TIntegerMatrix; *) procedure _LapeImage_ToMatrix(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -379,7 +379,7 @@ procedure _LapeImage_ToMatrix(const Params: PParamArray; const Result: Pointer); (* TImage.ToMatrix ~~~~~~~~~~~~~~~ -function TImage.ToMatrix(X1, Y1, X2, Y2: Integer): TIntegerMatrix; +> function TImage.ToMatrix(X1, Y1, X2, Y2: Integer): TIntegerMatrix; *) procedure _LapeImage_ToMatrixEx(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -389,7 +389,7 @@ procedure _LapeImage_ToMatrixEx(const Params: PParamArray; const Result: Pointer (* TImage.DrawMatrix ~~~~~~~~~~~~~~~~~ -procedure TImage.DrawMatrix(Matrix: TIntegerMatrix); +> procedure TImage.DrawMatrix(Matrix: TIntegerMatrix); *) procedure _LapeImage_DrawMatrixI(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -399,7 +399,7 @@ procedure _LapeImage_DrawMatrixI(const Params: PParamArray); LAPE_WRAPPER_CALLIN (* TImage.DrawMatrix ~~~~~~~~~~~~~~~~~ -procedure TImage.DrawMatrix(Matrix: TSingleMatrix; ColorMapID: Integer = 0); +> procedure TImage.DrawMatrix(Matrix: TSingleMatrix; ColorMapID: Integer = 0); *) procedure _LapeImage_DrawMatrixF(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -409,7 +409,7 @@ procedure _LapeImage_DrawMatrixF(const Params: PParamArray); LAPE_WRAPPER_CALLIN (* TImage.ThresholdAdaptive ~~~~~~~~~~~~~~~~~~~~~~~~ -function TImage.ThresholdAdaptive(Alpha, Beta: Byte; AInvert: Boolean; Method: EImageThreshMethod; k: Integer): TImage; +> function TImage.ThresholdAdaptive(Alpha, Beta: Byte; AInvert: Boolean; Method: EImageThreshMethod; k: Integer): TImage; *) procedure _LapeImage_ThresholdAdaptive(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -419,7 +419,7 @@ procedure _LapeImage_ThresholdAdaptive(const Params: PParamArray; const Result: (* TImage.ThresholdSauvola ~~~~~~~~~~~~~~~~~~~~~~~ -function TImage.ThresholdSauvola(Radius: Integer; AInvert: Boolean; k: Single): TImage; +> function TImage.ThresholdSauvola(Radius: Integer; AInvert: Boolean; k: Single): TImage; *) procedure _LapeImage_ThresholdSauvola(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -429,7 +429,7 @@ procedure _LapeImage_ThresholdSauvola(const Params: PParamArray; const Result: P (* TImage.Pad ~~~~~~~~~~ -procedure TImage.Pad(Amount: Integer); +> procedure TImage.Pad(Amount: Integer); *) procedure _LapeImage_Pad(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -439,7 +439,7 @@ procedure _LapeImage_Pad(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV (* TImage.SetTransparentColor ~~~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.SetTransparentColor(Value: TColor); +> procedure TImage.SetTransparentColor(Value: TColor); *) procedure _LapeImage_TransparentColor_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -449,7 +449,7 @@ procedure _LapeImage_TransparentColor_Write(const Params: PParamArray); LAPE_WRA (* TImage.GetTransparentColor ~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TImage.GetTransparentColor: TColor; +> function TImage.GetTransparentColor: TColor; *) procedure _LapeImage_TransparentColor_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -459,7 +459,7 @@ procedure _LapeImage_TransparentColor_Read(const Params: PParamArray; const Resu (* TImage.GetTransparentColorActive ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TImage.GetTransparentColorActive: Boolean; +> function TImage.GetTransparentColorActive: Boolean; *) procedure _LapeImage_TransparentColorActive_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -469,7 +469,7 @@ procedure _LapeImage_TransparentColorActive_Read(const Params: PParamArray; cons (* TImage.SetTransparentColorActive ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.SetTransparentColorActive(Value: Boolean); +> procedure TImage.SetTransparentColorActive(Value: Boolean); *) procedure _LapeImage_TransparentColorActive_Write(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -479,7 +479,7 @@ procedure _LapeImage_TransparentColorActive_Write(const Params: PParamArray; con (* TImage.GetPixel ~~~~~~~~~~~~~~~ -function TImage.GetPixel(X, Y: Integer): TColor; +> function TImage.GetPixel(X, Y: Integer): TColor; *) procedure _LapeImage_GetPixel(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -489,7 +489,7 @@ procedure _LapeImage_GetPixel(const Params: PParamArray; const Result: Pointer); (* TImage.SetPixel ~~~~~~~~~~~~~~~ -procedure TImage.SetPixel(X, Y: Integer; Color: TColor); +> procedure TImage.SetPixel(X, Y: Integer; Color: TColor); *) procedure _LapeImage_SetPixel(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -499,7 +499,7 @@ procedure _LapeImage_SetPixel(const Params: PParamArray; const Result: Pointer); (* TImage.SetPixels ~~~~~~~~~~~~~~~~ -procedure TImage.SetPixels(Points: TPointArray; Colors: TColorArray); +> procedure TImage.SetPixels(Points: TPointArray; Colors: TColorArray); *) procedure _LapeImage_SetPixels(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -509,7 +509,7 @@ procedure _LapeImage_SetPixels(const Params: PParamArray); LAPE_WRAPPER_CALLING_ (* TImage.GetPixels ~~~~~~~~~~~~~~~~ -function TImage.GetPixels(Points: TPointArray): TColorArray; +> function TImage.GetPixels(Points: TPointArray): TColorArray; *) procedure _LapeImage_GetPixels(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -519,7 +519,7 @@ procedure _LapeImage_GetPixels(const Params: PParamArray; const Result: Pointer) (* TImage.Blur ~~~~~~~~~~~ -function TImage.Blur(Block: Integer): TImage; +> function TImage.Blur(Block: Integer): TImage; *) procedure _LapeImage_Blur(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -529,7 +529,7 @@ procedure _LapeImage_Blur(const Params: PParamArray; const Result: Pointer); LAP (* TImage.Downsample ~~~~~~~~~~~~~~~~~ -function TImage.Downsample(Scale: Integer): TImage; +> function TImage.Downsample(Scale: Integer): TImage; *) procedure _LapeImage_DownSample(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -539,7 +539,7 @@ procedure _LapeImage_DownSample(const Params: PParamArray; const Result: Pointer (* TImage.Free ~~~~~~~~~~~ -procedure TImage.Free; +> procedure TImage.Free; *) procedure _LapeImage_Free(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -549,7 +549,7 @@ procedure _LapeImage_Free(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV (* TImage.DrawCross ~~~~~~~~~~~~~~~~ -procedure TImage.DrawCross(ACenter: TPoint; Radius: Integer; Color: TColor); +> procedure TImage.DrawCross(ACenter: TPoint; Radius: Integer; Color: TColor); *) procedure _LapeImage_DrawCross(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -559,7 +559,7 @@ procedure _LapeImage_DrawCross(const Params: PParamArray); LAPE_WRAPPER_CALLING_ (* TImage.DrawCrosshairs ~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.DrawCrosshairs(ACenter: TPoint; Size: Integer; Color: TColor); +> procedure TImage.DrawCrosshairs(ACenter: TPoint; Size: Integer; Color: TColor); *) procedure _LapeImage_DrawCrosshairs(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -569,7 +569,7 @@ procedure _LapeImage_DrawCrosshairs(const Params: PParamArray); LAPE_WRAPPER_CAL (* TImage.DrawLine ~~~~~~~~~~~~~~~ -procedure TImage.DrawLine(Start, Stop: TPoint; Color: TColor); +> procedure TImage.DrawLine(Start, Stop: TPoint; Color: TColor); *) procedure _LapeImage_DrawLine(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -579,7 +579,7 @@ procedure _LapeImage_DrawLine(const Params: PParamArray); LAPE_WRAPPER_CALLING_C (* TImage.DrawLine ~~~~~~~~~~~~~~~ -procedure TImage.DrawLine(Start, Stop: TPoint; Color: TColor); +> procedure TImage.DrawLine(Start, Stop: TPoint; Color: TColor); *) procedure _LapeImage_DrawLineEx(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -589,7 +589,7 @@ procedure _LapeImage_DrawLineEx(const Params: PParamArray); LAPE_WRAPPER_CALLING (* TImage.DrawPolygon ~~~~~~~~~~~~~~~~~~ -procedure TImage.DrawPolygon(Points: TPointArray; Color: TColor); +> procedure TImage.DrawPolygon(Points: TPointArray; Color: TColor); *) procedure _LapeImage_DrawPolygon(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -599,7 +599,7 @@ procedure _LapeImage_DrawPolygon(const Params: PParamArray); LAPE_WRAPPER_CALLIN (* TImage.DrawPolygonFilled ~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.DrawPolygonFilled(Points: TPointArray; Color: TColor); +> procedure TImage.DrawPolygonFilled(Points: TPointArray; Color: TColor); *) procedure _LapeImage_DrawPolygonFilled(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -609,7 +609,7 @@ procedure _LapeImage_DrawPolygonFilled(const Params: PParamArray); LAPE_WRAPPER_ (* TImage.DrawPolygonInverted ~~~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.DrawPolygonInverted(Points: TPointArray; Color: TColor); +> procedure TImage.DrawPolygonInverted(Points: TPointArray; Color: TColor); *) procedure _LapeImage_DrawPolygonInverted(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -619,7 +619,7 @@ procedure _LapeImage_DrawPolygonInverted(const Params: PParamArray); LAPE_WRAPPE (* TImage.DrawCircle ~~~~~~~~~~~~~~~~~ -procedure TImage.DrawCircle(ACenter: TPoint; Radius: Integer; Color: TColor); +> procedure TImage.DrawCircle(ACenter: TPoint; Radius: Integer; Color: TColor); *) procedure _LapeImage_DrawCircle(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -629,7 +629,7 @@ procedure _LapeImage_DrawCircle(const Params: PParamArray); LAPE_WRAPPER_CALLING (* TImage.DrawCircleFilled ~~~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.DrawCircleFilled(ACenter: TPoint; Radius: Integer; Color: TColor); +> procedure TImage.DrawCircleFilled(ACenter: TPoint; Radius: Integer; Color: TColor); *) procedure _LapeImage_DrawCircleFilled(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -639,7 +639,7 @@ procedure _LapeImage_DrawCircleFilled(const Params: PParamArray); LAPE_WRAPPER_C (* TImage.DrawCircleInverted ~~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.DrawCircleInverted(ACenter: TPoint; Radius: Integer; Color: TColor); +> procedure TImage.DrawCircleInverted(ACenter: TPoint; Radius: Integer; Color: TColor); *) procedure _LapeImage_DrawCircleInverted(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -649,7 +649,7 @@ procedure _LapeImage_DrawCircleInverted(const Params: PParamArray); LAPE_WRAPPER (* TImage.DrawBox ~~~~~~~~~~~~~~ -procedure TImage.DrawBox(B: TBox; Color: TColor); +> procedure TImage.DrawBox(B: TBox; Color: TColor); *) procedure _LapeImage_DrawBox(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -659,7 +659,7 @@ procedure _LapeImage_DrawBox(const Params: PParamArray); LAPE_WRAPPER_CALLING_CO (* TImage.DrawBoxFilled ~~~~~~~~~~~~~~~~~~~~ -procedure TImage.DrawBoxFilled(B: TBox; Color: TColor); +> procedure TImage.DrawBoxFilled(B: TBox; Color: TColor); *) procedure _LapeImage_DrawBoxFilled(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -669,7 +669,7 @@ procedure _LapeImage_DrawBoxFilled(const Params: PParamArray); LAPE_WRAPPER_CALL (* TImage.DrawBoxInverted ~~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.DrawBoxInverted(B: TBox; Color: TColor); +> procedure TImage.DrawBoxInverted(B: TBox; Color: TColor); *) procedure _LapeImage_DrawBoxInverted(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -679,7 +679,7 @@ procedure _LapeImage_DrawBoxInverted(const Params: PParamArray); LAPE_WRAPPER_CA (* TImage.DrawQuad ~~~~~~~~~~~~~~~ -procedure TImage.DrawQuad(B: TBox; Color: TColor); +> procedure TImage.DrawQuad(B: TBox; Color: TColor); *) procedure _LapeImage_DrawQuad(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -689,7 +689,7 @@ procedure _LapeImage_DrawQuad(const Params: PParamArray); LAPE_WRAPPER_CALLING_C (* TImage.DrawQuadFilled ~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.DrawQuadFilled(B: TBox; Color: TColor); +> procedure TImage.DrawQuadFilled(B: TBox; Color: TColor); *) procedure _LapeImage_DrawQuadFilled(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -699,7 +699,7 @@ procedure _LapeImage_DrawQuadFilled(const Params: PParamArray); LAPE_WRAPPER_CAL (* TImage.DrawQuadInverted ~~~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.DrawQuadInverted(B: TBox; Color: TColor); +> procedure TImage.DrawQuadInverted(B: TBox; Color: TColor); *) procedure _LapeImage_DrawQuadInverted(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -709,7 +709,7 @@ procedure _LapeImage_DrawQuadInverted(const Params: PParamArray); LAPE_WRAPPER_C (* TImage.DrawQuadArray ~~~~~~~~~~~~~~~~~~~~ -procedure TImage.DrawQuadArray(Quads: TQuadArray; Filled: Boolean; Color: TColor = -1); +> procedure TImage.DrawQuadArray(Quads: TQuadArray; Filled: Boolean; Color: TColor = -1); *) procedure _LapeImage_DrawQuadArray(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -719,7 +719,7 @@ procedure _LapeImage_DrawQuadArray(const Params: PParamArray); LAPE_WRAPPER_CALL (* TImage.DrawBoxArray ~~~~~~~~~~~~~~~~~~~ -procedure TImage.DrawBoxArray(Boxes: TBoxArray; Filled: Boolean; Color: TColor = -1); +> procedure TImage.DrawBoxArray(Boxes: TBoxArray; Filled: Boolean; Color: TColor = -1); *) procedure _LapeImage_DrawBoxArray(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -729,7 +729,7 @@ procedure _LapeImage_DrawBoxArray(const Params: PParamArray); LAPE_WRAPPER_CALLI (* TImage.DrawPolygonArray ~~~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.DrawPolygonArray(Polygons: T2DPointArray; Filled: Boolean; Color: TColor = -1); +> procedure TImage.DrawPolygonArray(Polygons: T2DPointArray; Filled: Boolean; Color: TColor = -1); *) procedure _LapeImage_DrawPolygonArray(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -739,7 +739,7 @@ procedure _LapeImage_DrawPolygonArray(const Params: PParamArray); LAPE_WRAPPER_C (* TImage.DrawCircleArray ~~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.DrawCircleArray(Points: TPointArray; Radius: Integer; Filled: Boolean; Color: TColor = -1); +> procedure TImage.DrawCircleArray(Points: TPointArray; Radius: Integer; Filled: Boolean; Color: TColor = -1); *) procedure _LapeImage_DrawCircleArray(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -749,7 +749,7 @@ procedure _LapeImage_DrawCircleArray(const Params: PParamArray); LAPE_WRAPPER_CA (* TImage.DrawCrossArray ~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.DrawCrossArray(Points: TPointArray; Radius: Integer; Color: TColor = -1); +> procedure TImage.DrawCrossArray(Points: TPointArray; Radius: Integer; Color: TColor = -1); *) procedure _LapeImage_DrawCrossArray(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -759,7 +759,7 @@ procedure _LapeImage_DrawCrossArray(const Params: PParamArray); LAPE_WRAPPER_CAL (* TImage.Fill ~~~~~~~~~~~ -procedure TImage.Fill(Color: TColor); +> procedure TImage.Fill(Color: TColor); *) procedure _LapeImage_Fill(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -769,7 +769,7 @@ procedure _LapeImage_Fill(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV (* TImage.Clear ~~~~~~~~~~~~ -procedure TImage.Clear; +> procedure TImage.Clear; *) procedure _LapeImage_Clear(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -779,7 +779,7 @@ procedure _LapeImage_Clear(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV (* TImage.Clear ~~~~~~~~~~~~ -procedure TImage.Clear(Area: TBox); +> procedure TImage.Clear(Area: TBox); *) procedure _LapeImage_ClearEx(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -789,7 +789,7 @@ procedure _LapeImage_ClearEx(const Params: PParamArray); LAPE_WRAPPER_CALLING_CO (* TImage.ClearInverted ~~~~~~~~~~~~~~~~~~~~ -procedure TImage.ClearInverted(Area: TBox); +> procedure TImage.ClearInverted(Area: TBox); *) procedure _LapeImage_ClearInverted(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -799,7 +799,7 @@ procedure _LapeImage_ClearInverted(const Params: PParamArray); LAPE_WRAPPER_CALL (* TImage.Draw ~~~~~~~~~~~ -procedure TImage.Draw(Image: TImage; X, Y: Integer); +> procedure TImage.Draw(Image: TImage; X, Y: Integer); *) procedure _LapeImage_Draw1(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -809,7 +809,7 @@ procedure _LapeImage_Draw1(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV (* TImage.Draw ~~~~~~~~~~~ -procedure TImage.Draw(Image: TImage; Position: TPoint); +> procedure TImage.Draw(Image: TImage; Position: TPoint); *) procedure _LapeImage_Draw2(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -819,7 +819,7 @@ procedure _LapeImage_Draw2(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV (* TImage.Blend ~~~~~~~~~~~~~~~~~ -function TImage.Blend(Points: TPointArray; Size: Integer): TImage; +> function TImage.Blend(Points: TPointArray; Size: Integer): TImage; *) procedure _LapeImage_Blend(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -829,7 +829,7 @@ procedure _LapeImage_Blend(const Params: PParamArray; const Result: Pointer); LA (* TImage.GetCenter ~~~~~~~~~~~~~~~~ -function TImage.GetCenter: TPoint; +> function TImage.GetCenter: TPoint; *) procedure _LapeImage_Center_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -839,7 +839,7 @@ procedure _LapeImage_Center_Read(const Params: PParamArray; const Result: Pointe (* TImage.GetFontName ~~~~~~~~~~~~~~~~~~ -function TImage.GetFontName: String; +> function TImage.GetFontName: String; *) procedure _LapeImage_FontName_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -849,7 +849,7 @@ procedure _LapeImage_FontName_Read(const Params: PParamArray; const Result: Poin (* TImage.SetFontName ~~~~~~~~~~~~~~~~~~ -procedure TImage.SetFontName(Value: String); +> procedure TImage.SetFontName(Value: String); *) procedure _LapeImage_FontName_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -859,7 +859,7 @@ procedure _LapeImage_FontName_Write(const Params: PParamArray); LAPE_WRAPPER_CAL (* TImage.GetFontSize ~~~~~~~~~~~~~~~~~~ -function TImage.GetFontSize: Single; +> function TImage.GetFontSize: Single; *) procedure _LapeImage_FontSize_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -869,7 +869,7 @@ procedure _LapeImage_FontSize_Read(const Params: PParamArray; const Result: Poin (* TImage.SetFontSize ~~~~~~~~~~~~~~~~~~ -procedure TImage.SetFontSize(Value: Single); +> procedure TImage.SetFontSize(Value: Single); *) procedure _LapeImage_FontSize_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -879,7 +879,7 @@ procedure _LapeImage_FontSize_Write(const Params: PParamArray); LAPE_WRAPPER_CAL (* TImage.GetFontAntialiasing ~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TImage.GetFontAntialiasing: Boolean; +> function TImage.GetFontAntialiasing: Boolean; *) procedure _LapeImage_FontAntialiasing_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -889,7 +889,7 @@ procedure _LapeImage_FontAntialiasing_Read(const Params: PParamArray; const Resu (* TImage.SetFontAntialiasing ~~~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.SetFontAntialiasing(Value: Boolean); +> procedure TImage.SetFontAntialiasing(Value: Boolean); *) procedure _LapeImage_FontAntialiasing_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -899,7 +899,7 @@ procedure _LapeImage_FontAntialiasing_Write(const Params: PParamArray); LAPE_WRA (* TImage.GetFontBold ~~~~~~~~~~~~~~~~~~ -function TImage.GetFontBold: Boolean; +> function TImage.GetFontBold: Boolean; *) procedure _LapeImage_FontBold_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -909,7 +909,7 @@ procedure _LapeImage_FontBold_Read(const Params: PParamArray; const Result: Poin (* TImage.SetFontBold ~~~~~~~~~~~~~~~~~~ -procedure TImage.SetFontBold(Value: Boolean); +> procedure TImage.SetFontBold(Value: Boolean); *) procedure _LapeImage_FontBold_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -919,7 +919,7 @@ procedure _LapeImage_FontBold_Write(const Params: PParamArray); LAPE_WRAPPER_CAL (* TImage.GetFontItalic ~~~~~~~~~~~~~~~~~~~~ -function TImage.GetFontItalic: Boolean; +> function TImage.GetFontItalic: Boolean; *) procedure _LapeImage_FontItalic_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -929,7 +929,7 @@ procedure _LapeImage_FontItalic_Read(const Params: PParamArray; const Result: Po (* TImage.SetFontItalic ~~~~~~~~~~~~~~~~~~~~ -procedure TImage.SetFontItalic(Value: Boolean); +> procedure TImage.SetFontItalic(Value: Boolean); *) procedure _LapeImage_FontItalic_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -939,7 +939,7 @@ procedure _LapeImage_FontItalic_Write(const Params: PParamArray); LAPE_WRAPPER_C (* TImage.TextWidth ~~~~~~~~~~~~~~~~ -function TImage.TextWidth(Text: String): Integer; +> function TImage.TextWidth(Text: String): Integer; *) procedure _LapeImage_TextWidth(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -949,7 +949,7 @@ procedure _LapeImage_TextWidth(const Params: PParamArray; const Result: Pointer) (* TImage.TextHeight ~~~~~~~~~~~~~~~~~ -function TImage.TextHeight(Text: String): Integer; +> function TImage.TextHeight(Text: String): Integer; *) procedure _LapeImage_TextHeight(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -959,7 +959,7 @@ procedure _LapeImage_TextHeight(const Params: PParamArray; const Result: Pointer (* TImage.TextSize ~~~~~~~~~~~~~~~ -function TImage.TextSize(Text: String): TPoint; +> function TImage.TextSize(Text: String): TPoint; *) procedure _LapeImage_TextSize(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -969,7 +969,7 @@ procedure _LapeImage_TextSize(const Params: PParamArray; const Result: Pointer); (* TImage.DrawText ~~~~~~~~~~~~~~~ -procedure TImage.DrawText(Text: String; Position: TPoint; Color: TColor); +> procedure TImage.DrawText(Text: String; Position: TPoint; Color: TColor); *) procedure _LapeImage_DrawText(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -979,7 +979,7 @@ procedure _LapeImage_DrawText(const Params: PParamArray); LAPE_WRAPPER_CALLING_C (* TImage.DrawText ~~~~~~~~~~~~~~~ -procedure TImage.DrawText(Text: String; Box: TBox; Center: Boolean; Color: TColor); +> procedure TImage.DrawText(Text: String; Box: TBox; Center: Boolean; Color: TColor); *) procedure _LapeImage_DrawTextEx(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -989,7 +989,7 @@ procedure _LapeImage_DrawTextEx(const Params: PParamArray); LAPE_WRAPPER_CALLING (* TImage.DrawTextLines ~~~~~~~~~~~~~~~~~~~~ -procedure TImage.DrawTextLines(Text: TStringArray; Position: TPoint; Color: TColor); +> procedure TImage.DrawTextLines(Text: TStringArray; Position: TPoint; Color: TColor); *) procedure _LapeImage_DrawTextLines(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -999,7 +999,7 @@ procedure _LapeImage_DrawTextLines(const Params: PParamArray); LAPE_WRAPPER_CALL (* TImage.Mirror ~~~~~~~~~~~~~ -function TImage.Mirror(Style: EImageMirrorStyle): TImage; +> function TImage.Mirror(Style: EImageMirrorStyle): TImage; *) procedure _LapeImage_Mirror(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -1009,7 +1009,7 @@ procedure _LapeImage_Mirror(const Params: PParamArray; const Result: Pointer); L (* TImage.Equals ~~~~~~~~~~~~~~~~~~ -function TImage.Equals(Other: TImage): Boolean; +> function TImage.Equals(Other: TImage): Boolean; Are the two images exactly equal? *) @@ -1021,7 +1021,7 @@ procedure _LapeImage_Equals(const Params: PParamArray; const Result: Pointer); L (* TImage.PixelDifference ~~~~~~~~~~~~~~~~~~~~~~ -function TImage.PixelDifference(Other: TImage): Integer; +> function TImage.PixelDifference(Other: TImage): Integer; *) procedure _LapeImage_PixelDifference(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -1031,7 +1031,7 @@ procedure _LapeImage_PixelDifference(const Params: PParamArray; const Result: Po (* TImage.PixelDifference ~~~~~~~~~~~~~~~~~~~~~~ -function TImage.PixelDifference(Other: TImage; Tolerance: Integer): Integer; +> function TImage.PixelDifference(Other: TImage; Tolerance: Integer): Integer; *) procedure _LapeImage_PixelDifferenceTolerance(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -1041,7 +1041,7 @@ procedure _LapeImage_PixelDifferenceTolerance(const Params: PParamArray; const R (* TImage.PixelDifferenceTPA ~~~~~~~~~~~~~~~~~~~~~~~~~ -function TImage.PixelDifferenceTPA(Other: TImage): TPointArray; +> function TImage.PixelDifferenceTPA(Other: TImage): TPointArray; *) procedure _LapeImage_PixelDifferenceTPA(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -1051,7 +1051,7 @@ procedure _LapeImage_PixelDifferenceTPA(const Params: PParamArray; const Result: (* TImage.PixelDifferenceTPA ~~~~~~~~~~~~~~~~~~~~~~~~~ -function TImage.PixelDifferenceTPA(Other: TImage; Tolerance: Integer): TPointArray; +> function TImage.PixelDifferenceTPA(Other: TImage; Tolerance: Integer): TPointArray; *) procedure _LapeImage_PixelDifferenceToleranceTPA(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -1061,7 +1061,7 @@ procedure _LapeImage_PixelDifferenceToleranceTPA(const Params: PParamArray; cons (* TImage.LoadFromString ~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.LoadFromString(AWidth, AHeight: Integer; Str: String); +> procedure TImage.LoadFromString(AWidth, AHeight: Integer; Str: String); *) procedure _LapeImage_LoadFromString(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -1071,7 +1071,7 @@ procedure _LapeImage_LoadFromString(const Params: PParamArray); LAPE_WRAPPER_CAL (* TImage.LoadFromData ~~~~~~~~~~~~~~~~~~~ -procedure TImage.LoadFromData(AWidth, AHeight: Integer; Memory: PColorBGRA; DataWidth: Integer); +> procedure TImage.LoadFromData(AWidth, AHeight: Integer; Memory: PColorBGRA; DataWidth: Integer); *) procedure _LapeImage_LoadFromData(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -1081,7 +1081,7 @@ procedure _LapeImage_LoadFromData(const Params: PParamArray); LAPE_WRAPPER_CALLI (* TImage.LoadFromImage ~~~~~~~~~~~~~~~~~~~~ -procedure TImage.LoadFromImage(Image: TImage); +> procedure TImage.LoadFromImage(Image: TImage); *) procedure _LapeImage_LoadFromImage(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -1091,47 +1091,47 @@ procedure _LapeImage_LoadFromImage(const Params: PParamArray); LAPE_WRAPPER_CALL (* TImage.Create ~~~~~~~~~~~~~ -function TImage.Create: TImage; static; +> function TImage.Create: TImage; static; *) procedure _LapeImage_Create(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin - PSimbaImage(Result)^ := TImage.Create(); + PSimbaImage(Result)^ := TSimbaImage.Create(); end; (* TImage.Create ~~~~~~~~~~~~~ -function TImage.Create(Width, Height: Integer): TImage; static; +> function TImage.Create(Width, Height: Integer): TImage; static; *) procedure _LapeImage_CreateEx(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin - PSimbaImage(Result)^ := TImage.Create(PInteger(Params^[0])^, PInteger(Params^[1])^); + PSimbaImage(Result)^ := TSimbaImage.Create(PInteger(Params^[0])^, PInteger(Params^[1])^); end; (* TImage.CreateFromFile ~~~~~~~~~~~~~~~~~~~~~ -function TImage.CreateFromFile(FileName: String): TImage; static; +> function TImage.CreateFromFile(FileName: String): TImage; static; *) procedure _LapeImage_CreateFromFile(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin - PSimbaImage(Result)^ := TImage.CreateFromFile(PString(Params^[0])^); + PSimbaImage(Result)^ := TSimbaImage.CreateFromFile(PString(Params^[0])^); end; (* TImage.CreateFromString ~~~~~~~~~~~~~~~~~~~~~~~ -function TImage.CreateFromString(Width, Height: Integer; Str: String): TImage; static; +> function TImage.CreateFromString(Width, Height: Integer; Str: String): TImage; static; *) procedure _LapeImage_CreateFromString(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin - PSimbaImage(Result)^ := TImage.CreateFromString(PInteger(Params^[0])^, PInteger(Params^[1])^, PString(Params^[2])^); + PSimbaImage(Result)^ := TSimbaImage.CreateFromString(PInteger(Params^[0])^, PInteger(Params^[1])^, PString(Params^[2])^); end; (* TImage.Compare ~~~~~~~~~~~~~~ -function TImage.Compare(Other: TImage): Single; +> function TImage.Compare(Other: TImage): Single; *) procedure _LapeImage_Compare(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -1141,7 +1141,7 @@ procedure _LapeImage_Compare(const Params: PParamArray; const Result: Pointer); (* TImage.SaveUnfreedImages ~~~~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.SaveUnfreedImages(Directory: String); static; +> procedure TImage.SaveUnfreedImages(Directory: String); static; Saves unfreed images on script terminate. @@ -1153,37 +1153,37 @@ procedure TImage.SaveUnfreedImages(Directory: String); static; *) procedure _LapeImage_SaveUnfreedImages(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin - TImage.SaveUnfreedImages := PString(Params^[0])^; + TSimbaImage.SaveUnfreedImages := PString(Params^[0])^; end; (* TImage.LoadFonts ~~~~~~~~~~~~~~~~ -function TImage.LoadFonts(Dir: String): Boolean; static; +> function TImage.LoadFonts(Dir: String): Boolean; static; Loads all ".ttf" fonts in the passed directory. *) procedure _LapeImage_LoadFonts(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin - PBoolean(Result)^ := TImage.LoadFonts(PString(Params^[0])^); + PBoolean(Result)^ := TSimbaImage.LoadFonts(PString(Params^[0])^); end; (* TImage.GetFontNames ~~~~~~~~~~~~~~~~~~~ -function TImage.GetFontNames: TStringArray; static; +> function TImage.GetFontNames: TStringArray; static; Returns all the available font names. *) procedure _LapeImage_LoadedFontNames(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin - PStringArray(Result)^ := TImage.LoadedFontNames(); + PStringArray(Result)^ := TSimbaImage.LoadedFontNames(); end; (* TImage.FreeOnTerminate ~~~~~~~~~~~~~~~~~~~~~~ -procedure TImage.FreeOnTerminate(Value: Boolean); +> procedure TImage.FreeOnTerminate(Value: Boolean); *) procedure _LapeImage_FreeOnTerminate(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -1193,7 +1193,7 @@ procedure _LapeImage_FreeOnTerminate(const Params: PParamArray); LAPE_WRAPPER_CA (* TImage.DrawHSLCircle ~~~~~~~~~~~~~~~~~~~~ -procedure TImage.DrawHSLCircle(ACenter: TPoint; Radius: Integer); +> procedure TImage.DrawHSLCircle(ACenter: TPoint; Radius: Integer); *) procedure _LapeImage_DrawHSLCircle(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -1203,17 +1203,17 @@ procedure _LapeImage_DrawHSLCircle(const Params: PParamArray); LAPE_WRAPPER_CALL (* TImage.RowPtrs ~~~~~~~~~~~~~~ -function TImage.RowPtrs: TImageRowPtrs; +> function TImage.RowPtrs: TImageRowPtrs; *) procedure _LapeImage_RowPtrs(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin - TImageRowPtrs(Result^) := PSimbaImage(Params^[0])^.RowPtrs(); + TSimbaImageRowPtrs(Result^) := PSimbaImage(Params^[0])^.RowPtrs(); end; (* TImage.Finder ~~~~~~~~~~~~~~~~~~ -function TImage.Finder: TSimbaFinder; +> function TImage.Finder: TSimbaFinder; Returns a TSimbaFinder which is targetted to the image. *) @@ -1221,7 +1221,7 @@ function TImage.Finder: TSimbaFinder; (* TImage.CreateFromTarget ~~~~~~~~~~~~~~~~~~~~~~~ -function TImage.CreateFromTarget(Target: TSimbaTarget; Bounds: TBox = [-1,-1,-1,-1]): TImage; static; +> function TImage.CreateFromTarget(Target: TSimbaTarget; Bounds: TBox = [-1,-1,-1,-1]): TImage; static; Creates an image from the given target and bounds. @@ -1231,7 +1231,7 @@ function TImage.CreateFromTarget(Target: TSimbaTarget; Bounds: TBox = [-1,-1,-1, (* TImage.CreateFromTarget ~~~~~~~~~~~~~~~~~~~~~~~ -function TImage.CreateFromTarget(Bounds: TBox = [-1,-1,-1,-1]): TImage; static; +> function TImage.CreateFromTarget(Bounds: TBox = [-1,-1,-1,-1]): TImage; static; Creates an image from the bounds of the current target. @@ -1242,13 +1242,13 @@ function TImage.CreateFromTarget(Bounds: TBox = [-1,-1,-1,-1]): TImage; static; (* TImage.DrawTarget ~~~~~~~~~~~~~~~~~ -procedure TImage.DrawTarget(Target: TSimbaTarget; P: TPoint; Bounds: TBox = [-1,-1,-1,-1]); +> procedure TImage.DrawTarget(Target: TSimbaTarget; P: TPoint; Bounds: TBox = [-1,-1,-1,-1]); *) (* TImage.DrawTarget ~~~~~~~~~~~~~~~~~ -procedure TImage.DrawTarget(P: TPoint; Bounds: TBox = [-1,-1,-1,-1]); overload; +> procedure TImage.DrawTarget(P: TPoint; Bounds: TBox = [-1,-1,-1,-1]); overload; *) procedure ImportSimbaImage(Compiler: TSimbaScript_Compiler); @@ -1411,4 +1411,3 @@ procedure ImportSimbaImage(Compiler: TSimbaScript_Compiler); end; end. - diff --git a/Source/script/imports/simbaclasses/simba.import_class_dtm.pas b/Source/script/imports/simbaclasses/simba.import_class_dtm.pas index 83ba964a5..e869408ae 100644 --- a/Source/script/imports/simbaclasses/simba.import_class_dtm.pas +++ b/Source/script/imports/simbaclasses/simba.import_class_dtm.pas @@ -25,7 +25,7 @@ implementation (* TDTM.GetName ~~~~~~~~~~~~~ -function TDTM.GetName: String; +> function TDTM.GetName: String; *) procedure _LapeDTM_Name_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -35,7 +35,7 @@ procedure _LapeDTM_Name_Read(const Params: PParamArray; const Result: Pointer); (* TDTM.SetName ~~~~~~~~~~~~~ -procedure TDTM.SetName(Value: String); +> procedure TDTM.SetName(Value: String); *) procedure _LapeDTM_Name_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -45,7 +45,7 @@ procedure _LapeDTM_Name_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_C (* TDTM.FreeOnTerminate ~~~~~~~~~~~~~~~~~~~~~ -procedure TDTM.FreeOnTerminate(Value: Boolean); +> procedure TDTM.FreeOnTerminate(Value: Boolean); *) procedure _LapeDTM_FreeOnTerminate(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -55,7 +55,7 @@ procedure _LapeDTM_FreeOnTerminate(const Params: PParamArray); LAPE_WRAPPER_CALL (* TDTM.CreateFromString ~~~~~~~~~~~~~~~~~~~~~~ -function TDTM.CreateFromString(DTMString: String): TDTM; static; +> function TDTM.CreateFromString(DTMString: String): TDTM; static; *) procedure _LapeDTM_CreateFromString(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -65,7 +65,7 @@ procedure _LapeDTM_CreateFromString(const Params: PParamArray; const Result: Poi (* TDTM.Create ~~~~~~~~~~~~ -function TDTM.Create: TDTM; static; +> function TDTM.Create: TDTM; static; *) procedure _LapeDTM_Create(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -75,7 +75,7 @@ procedure _LapeDTM_Create(const Params: PParamArray; const Result: Pointer); LAP (* TDTM.GetPoints ~~~~~~~~~~~~~~~ -function TDTM.GetPoints: TDTMPointArray; +> function TDTM.GetPoints: TDTMPointArray; *) procedure _LapeDTM_Points_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -85,7 +85,7 @@ procedure _LapeDTM_Points_Read(const Params: PParamArray; const Result: Pointer) (* TDTM.GetPointCount ~~~~~~~~~~~~~~~~~~~ -function TDTM.GetPointCount: Integer; +> function TDTM.GetPointCount: Integer; *) procedure _LapeDTM_PointCount_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -95,7 +95,7 @@ procedure _LapeDTM_PointCount_Read(const Params: PParamArray; const Result: Poin (* TDTM.GetPointColor ~~~~~~~~~~~~~~~~~~~ -function TDTM.GetPointColor: Integer; +> function TDTM.GetPointColor: Integer; *) procedure _LapeDTM_PointColor_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -105,7 +105,7 @@ procedure _LapeDTM_PointColor_Read(const Params: PParamArray; const Result: Poin (* TDTM.SetPointColor ~~~~~~~~~~~~~~~~~~~ -procedure TDTM.SetPointColor(Value: Integer); +> procedure TDTM.SetPointColor(Value: Integer); *) procedure _LapeDTM_PointColor_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -115,7 +115,7 @@ procedure _LapeDTM_PointColor_Write(const Params: PParamArray); LAPE_WRAPPER_CAL (* TDTM.GetPointTolerance ~~~~~~~~~~~~~~~~~~~~~~~ -function TDTM.GetPointTolerance: Integer; +> function TDTM.GetPointTolerance: Integer; *) procedure _LapeDTM_PointTolerance_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -125,7 +125,7 @@ procedure _LapeDTM_PointTolerance_Read(const Params: PParamArray; const Result: (* TDTM.SetPointTolerance ~~~~~~~~~~~~~~~~~~~~~~~ -procedure TDTM.SetPointTolerance(Value: Integer); +> procedure TDTM.SetPointTolerance(Value: Integer); *) procedure _LapeDTM_PointTolerance_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -135,7 +135,7 @@ procedure _LapeDTM_PointTolerance_Write(const Params: PParamArray); LAPE_WRAPPER (* TDTM.GetPointX ~~~~~~~~~~~~~~~ -function TDTM.GetPointX: Integer; +> function TDTM.GetPointX: Integer; *) procedure _LapeDTM_PointX_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -145,7 +145,7 @@ procedure _LapeDTM_PointX_Read(const Params: PParamArray; const Result: Pointer) (* TDTM.SetPointX ~~~~~~~~~~~~~~~ -procedure TDTM.SetPointX(Value: Integer); +> procedure TDTM.SetPointX(Value: Integer); *) procedure _LapeDTM_PointX_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -155,7 +155,7 @@ procedure _LapeDTM_PointX_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING (* TDTM.GetPointY ~~~~~~~~~~~~~~~ -function TDTM.GetPointY: Integer; +> function TDTM.GetPointY: Integer; *) procedure _LapeDTM_PointY_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -165,7 +165,7 @@ procedure _LapeDTM_PointY_Read(const Params: PParamArray; const Result: Pointer) (* TDTM.SetPointY ~~~~~~~~~~~~~~~ -procedure TDTM.SetPointY(Value: Integer); +> procedure TDTM.SetPointY(Value: Integer); *) procedure _LapeDTM_PointY_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -175,7 +175,7 @@ procedure _LapeDTM_PointY_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING (* TDTM.GetPointAreaSize ~~~~~~~~~~~~~~~~~~~~~~ -function TDTM.GetPointAreaSize: Integer; +> function TDTM.GetPointAreaSize: Integer; *) procedure _LapeDTM_PointAreaSize_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -185,7 +185,7 @@ procedure _LapeDTM_PointAreaSize_Read(const Params: PParamArray; const Result: P (* TDTM.SetPointAreaSize ~~~~~~~~~~~~~~~~~~~~~~ -procedure TDTM.SetPointAreaSize(Value: Integer); +> procedure TDTM.SetPointAreaSize(Value: Integer); *) procedure _LapeDTM_PointAreaSize_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -195,7 +195,7 @@ procedure _LapeDTM_PointAreaSize_Write(const Params: PParamArray); LAPE_WRAPPER_ (* TDTM.DeletePoints ~~~~~~~~~~~~~~~~~~ -procedure TDTM.DeletePoints; +> procedure TDTM.DeletePoints; *) procedure _LapeDTM_DeletePoints(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -205,7 +205,7 @@ procedure _LapeDTM_DeletePoints(const Params: PParamArray); LAPE_WRAPPER_CALLING (* TDTM.DeletePoint ~~~~~~~~~~~~~~~~~ -procedure TDTM.DeletePoint(Index: Integer); +> procedure TDTM.DeletePoint(Index: Integer); *) procedure _LapeDTM_DeletePoint(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -215,7 +215,7 @@ procedure _LapeDTM_DeletePoint(const Params: PParamArray); LAPE_WRAPPER_CALLING_ (* TDTM.AddPoint ~~~~~~~~~~~~~~ -procedure TDTM.AddPoint(Point: TDTMPoint); +> procedure TDTM.AddPoint(Point: TDTMPoint); *) procedure _LapeDTM_AddPoint1(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -225,7 +225,7 @@ procedure _LapeDTM_AddPoint1(const Params: PParamArray); LAPE_WRAPPER_CALLING_CO (* TDTM.AddPoint ~~~~~~~~~~~~~~ -procedure TDTM.AddPoint(X, Y, Color, Tolerance, AreaSize: Integer); +> procedure TDTM.AddPoint(X, Y, Color, Tolerance, AreaSize: Integer); *) procedure _LapeDTM_AddPoint2(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -235,7 +235,7 @@ procedure _LapeDTM_AddPoint2(const Params: PParamArray); LAPE_WRAPPER_CALLING_CO (* TDTM.SaveToString ~~~~~~~~~~~~~~~~~~ -function TDTM.SaveToString: String; +> function TDTM.SaveToString: String; *) procedure _LapeDTM_SaveToString(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -245,7 +245,7 @@ procedure _LapeDTM_SaveToString(const Params: PParamArray; const Result: Pointer (* TDTM.LoadFromString ~~~~~~~~~~~~~~~~~~~~ -procedure TDTM.LoadFromString(Str: String); +> procedure TDTM.LoadFromString(Str: String); *) procedure _LapeDTM_LoadFromString(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -255,7 +255,7 @@ procedure _LapeDTM_LoadFromString(const Params: PParamArray); LAPE_WRAPPER_CALLI (* TDTM.SwapPoint ~~~~~~~~~~~~~~~ -procedure TDTM.SwapPoint(Index1, Index2: Integer); +> procedure TDTM.SwapPoint(Index1, Index2: Integer); *) procedure _LapeDTM_SwapPoint(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -265,7 +265,7 @@ procedure _LapeDTM_SwapPoint(const Params: PParamArray); LAPE_WRAPPER_CALLING_CO (* TDTM.Normalize ~~~~~~~~~~~~~~~ -procedure TDTM.Normalize; +> procedure TDTM.Normalize; *) procedure _LapeDTM_Normalize(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -308,5 +308,4 @@ procedure ImportDTM(Compiler: TSimbaScript_Compiler); end; end; -end. - +end. \ No newline at end of file diff --git a/Source/script/imports/simbaclasses/simba.import_class_json.pas b/Source/script/imports/simbaclasses/simba.import_class_json.pas index 1e5f97bdd..11255831d 100644 --- a/Source/script/imports/simbaclasses/simba.import_class_json.pas +++ b/Source/script/imports/simbaclasses/simba.import_class_json.pas @@ -26,7 +26,7 @@ implementation (* TJSONElement.Keys ~~~~~~~~~~~~~~~~~ -function TJSONElement.Keys: TStringArray; +> function TJSONElement.Keys: TStringArray; *) procedure _LapeJSONElement_Keys(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -36,7 +36,7 @@ procedure _LapeJSONElement_Keys(const Params: PParamArray; const Result: Pointer (* TJSONElement.Count ~~~~~~~~~~~~~~~~~~ -function TJSONElement.Count: Integer; +> function TJSONElement.Count: Integer; *) procedure _LapeJSONElement_Count(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -46,7 +46,7 @@ procedure _LapeJSONElement_Count(const Params: PParamArray; const Result: Pointe (* TJSONElement.GetItem ~~~~~~~~~~~~~~~~~~~~ -function TJSONElement.GetItem(Index: Integer): TJSONElement; +> function TJSONElement.GetItem(Index: Integer): TJSONElement; *) procedure _LapeJSONElement_GetItem(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -56,7 +56,7 @@ procedure _LapeJSONElement_GetItem(const Params: PParamArray; const Result: Poin (* TJSONElement.AddValue ~~~~~~~~~~~~~~~~~~~~~ -procedure TJSONElement.AddValue(Key: String; Value: Variant); +> procedure TJSONElement.AddValue(Key: String; Value: Variant); *) procedure _LapeJSONElement_AddValue(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -66,7 +66,7 @@ procedure _LapeJSONElement_AddValue(const Params: PParamArray); LAPE_WRAPPER_CAL (* TJSONElement.AddArray ~~~~~~~~~~~~~~~~~~~~~ -function TJSONElement.AddArray(Key: String): TJSONElement; +> function TJSONElement.AddArray(Key: String): TJSONElement; *) procedure _LapeJSONElement_AddArray(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -76,7 +76,7 @@ procedure _LapeJSONElement_AddArray(const Params: PParamArray; const Result: Poi (* TJSONElement.AddObject ~~~~~~~~~~~~~~~~~~~~~~ -function TJSONElement.AddObject(Key: String): TJSONElement; +> function TJSONElement.AddObject(Key: String): TJSONElement; *) procedure _LapeJSONElement_AddObject(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -86,7 +86,7 @@ procedure _LapeJSONElement_AddObject(const Params: PParamArray; const Result: Po (* TJSONElement.AddElement ~~~~~~~~~~~~~~~~~~~~~~~ -procedure TJSONElement.AddElement(Key: String; Element: TJSONElement); +> procedure TJSONElement.AddElement(Key: String; Element: TJSONElement); *) procedure _LapeJSONElement_AddElement(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -96,7 +96,7 @@ procedure _LapeJSONElement_AddElement(const Params: PParamArray); LAPE_WRAPPER_C (* TJSONElement.ValueType ~~~~~~~~~~~~~~~~~~~~~~ -function TJSONElement.ValueType: EJSONValueType; +> function TJSONElement.ValueType: EJSONValueType; *) procedure _LapeJSONElement_ValueType(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -106,7 +106,7 @@ procedure _LapeJSONElement_ValueType(const Params: PParamArray; const Result: Po (* TJSONElement.GetValue ~~~~~~~~~~~~~~~~~~~~~ -function TJSONElement.GetValue: Variant; +> function TJSONElement.GetValue: Variant; *) procedure _LapeJSONElement_GetValue(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -116,7 +116,7 @@ procedure _LapeJSONElement_GetValue(const Params: PParamArray; const Result: Poi (* TJSONElement.SetValue ~~~~~~~~~~~~~~~~~~~~~ -procedure TJSONElement.SetValue(NewValue: Variant); +> procedure TJSONElement.SetValue(NewValue: Variant); *) procedure _LapeJSONElement_SetValue(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -126,7 +126,7 @@ procedure _LapeJSONElement_SetValue(const Params: PParamArray); LAPE_WRAPPER_CAL (* TJSONElement.AsString ~~~~~~~~~~~~~~~~~~~~~ -function TJSONElement.AsString: String; +> function TJSONElement.AsString: String; *) procedure _LapeJSONElement_AsString(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -136,7 +136,7 @@ procedure _LapeJSONElement_AsString(const Params: PParamArray; const Result: Poi (* TJSONElement.Clone ~~~~~~~~~~~~~~~~~~ -function TJSONElement.Clone: TJSONElement; +> function TJSONElement.Clone: TJSONElement; *) procedure _LapeJSONElement_Clone(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -146,7 +146,7 @@ procedure _LapeJSONElement_Clone(const Params: PParamArray; const Result: Pointe (* TJSONElement.IsValue ~~~~~~~~~~~~~~~~~~~~ -function TJSONElement.IsValue: Boolean; +> function TJSONElement.IsValue: Boolean; *) procedure _LapeJSONElement_IsValue(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -156,7 +156,7 @@ procedure _LapeJSONElement_IsValue(const Params: PParamArray; const Result: Poin (* TJSONElement.IsArray ~~~~~~~~~~~~~~~~~~~~ -function TJSONElement.IsArray: Boolean; +> function TJSONElement.IsArray: Boolean; *) procedure _LapeJSONElement_IsArray(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -166,7 +166,7 @@ procedure _LapeJSONElement_IsArray(const Params: PParamArray; const Result: Poin (* TJSONElement.IsObject ~~~~~~~~~~~~~~~~~~~~~ -function TJSONElement.IsObject: Boolean; +> function TJSONElement.IsObject: Boolean; *) procedure _LapeJSONElement_IsObject(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -176,7 +176,7 @@ procedure _LapeJSONElement_IsObject(const Params: PParamArray; const Result: Poi (* TJSONElement.Delete ~~~~~~~~~~~~~~~~~~~ -procedure TJSONElement.Delete(Key: String); +> procedure TJSONElement.Delete(Key: String); *) procedure _LapeJSONElement_Delete1(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -186,7 +186,7 @@ procedure _LapeJSONElement_Delete1(const Params: PParamArray); LAPE_WRAPPER_CALL (* TJSONElement.Delete ~~~~~~~~~~~~~~~~~~~ -procedure TJSONElement.Delete(Index: Integer); +> procedure TJSONElement.Delete(Index: Integer); *) procedure _LapeJSONElement_Delete2(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -196,7 +196,7 @@ procedure _LapeJSONElement_Delete2(const Params: PParamArray); LAPE_WRAPPER_CALL (* TJSONElement.Clear ~~~~~~~~~~~~~~~~~~ -procedure TJSONElement.Clear; +> procedure TJSONElement.Clear; *) procedure _LapeJSONElement_Clear(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -206,7 +206,7 @@ procedure _LapeJSONElement_Clear(const Params: PParamArray); LAPE_WRAPPER_CALLIN (* TJSONElement.Find ~~~~~~~~~~~~~~~~~ -function TJSONElement.Find(Key: String; out Element: TJSONElement): Boolean; +> function TJSONElement.Find(Key: String; out Element: TJSONElement): Boolean; *) procedure _LapeJSONElement_Find(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -216,7 +216,7 @@ procedure _LapeJSONElement_Find(const Params: PParamArray; const Result: Pointer (* TJSONParser.Create ~~~~~~~~~~~~~~~~~~ -function TJSONParser.Create(Str: String = ""): TJSONParser; static; +> function TJSONParser.Create(Str: String = ''): TJSONParser; static; *) procedure _LapeJSONParser_Create(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -226,7 +226,7 @@ procedure _LapeJSONParser_Create(const Params: PParamArray; const Result: Pointe (* TJSONParser.CreateFromFile ~~~~~~~~~~~~~~~~~~~~~~~~~~ -function TJSONParser.CreateFromFile(FileName: String): TJSONParser; static; +> function TJSONParser.CreateFromFile(FileName: String): TJSONParser; static; *) procedure _LapeJSONParser_CreateFromFile(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -236,7 +236,7 @@ procedure _LapeJSONParser_CreateFromFile(const Params: PParamArray; const Result (* TJSONParser.SaveToFile ~~~~~~~~~~~~~~~~~~~~~~ -function TJSONParser.SaveToFile(FileName: String): Boolean; +> function TJSONParser.SaveToFile(FileName: String): Boolean; *) procedure _LapeJSONParser_SaveToFile(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -246,7 +246,7 @@ procedure _LapeJSONParser_SaveToFile(const Params: PParamArray; const Result: Po (* TJSONParser.Clear ~~~~~~~~~~~~~~~~~ -procedure TJSONParser.Clear; +> procedure TJSONParser.Clear; *) procedure _LapeJSONParser_Clear(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -256,7 +256,7 @@ procedure _LapeJSONParser_Clear(const Params: PParamArray); LAPE_WRAPPER_CALLING (* TJSONParser.AddValue ~~~~~~~~~~~~~~~~~~~~ -procedure TJSONParser.AddValue(Key: String; Value: Variant); +> procedure TJSONParser.AddValue(Key: String; Value: Variant); *) procedure _LapeJSONParser_AddValue(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -266,7 +266,7 @@ procedure _LapeJSONParser_AddValue(const Params: PParamArray); LAPE_WRAPPER_CALL (* TJSONParser.AddArray ~~~~~~~~~~~~~~~~~~~~ -function TJSONParser.AddArray(Key: String): TJSONElement; +> function TJSONParser.AddArray(Key: String): TJSONElement; *) procedure _LapeJSONParser_AddArray(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -276,7 +276,7 @@ procedure _LapeJSONParser_AddArray(const Params: PParamArray; const Result: Poin (* TJSONParser.AddObject ~~~~~~~~~~~~~~~~~~~~~ -function TJSONParser.AddObject(Key: String): TJSONElement; +> function TJSONParser.AddObject(Key: String): TJSONElement; *) procedure _LapeJSONParser_AddObject(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -286,7 +286,7 @@ procedure _LapeJSONParser_AddObject(const Params: PParamArray; const Result: Poi (* TJSONParser.AddElement ~~~~~~~~~~~~~~~~~~~~~~ -procedure TJSONParser.AddElement(Key: String; Element: TJSONElement); +> procedure TJSONParser.AddElement(Key: String; Element: TJSONElement); *) procedure _LapeJSONParser_AddElement(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -296,7 +296,7 @@ procedure _LapeJSONParser_AddElement(const Params: PParamArray); LAPE_WRAPPER_CA (* TJSONParser.Count ~~~~~~~~~~~~~~~~~ -function TJSONParser.Count: Integer; +> function TJSONParser.Count: Integer; *) procedure _LapeJSONParser_Count(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -306,7 +306,7 @@ procedure _LapeJSONParser_Count(const Params: PParamArray; const Result: Pointer (* TJSONParser.GetItem ~~~~~~~~~~~~~~~~~~~ -function TJSONParser.GetItem(Index: Integer): TJSONElement; +> function TJSONParser.GetItem(Index: Integer): TJSONElement; *) procedure _LapeJSONParser_GetItem(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -316,7 +316,7 @@ procedure _LapeJSONParser_GetItem(const Params: PParamArray; const Result: Point (* TJSONParser.AsString ~~~~~~~~~~~~~~~~~~~~ -function TJSONParser.AsString: String; +> function TJSONParser.AsString: String; *) procedure _LapeJSONParser_AsString(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -326,7 +326,7 @@ procedure _LapeJSONParser_AsString(const Params: PParamArray; const Result: Poin (* TJSONParser.Find ~~~~~~~~~~~~~~~~ -function TJSONParser.Find(Key: String; out Element: TJSONElement): Boolean; +> function TJSONParser.Find(Key: String; out Element: TJSONElement): Boolean; *) procedure _LapeJSONParser_Find(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -336,7 +336,7 @@ procedure _LapeJSONParser_Find(const Params: PParamArray; const Result: Pointer) (* TJSONParser.Delete ~~~~~~~~~~~~~~~~~~ -procedure TJSONParser.Delete(Key: String); +> procedure TJSONParser.Delete(Key: String); *) procedure _LapeJSONParser_Delete1(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -346,7 +346,7 @@ procedure _LapeJSONParser_Delete1(const Params: PParamArray); LAPE_WRAPPER_CALLI (* TJSONParser.Delete ~~~~~~~~~~~~~~~~~~ -procedure TJSONParser.Delete(Index: Integer); +> procedure TJSONParser.Delete(Index: Integer); *) procedure _LapeJSONParser_Delete2(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV begin @@ -356,7 +356,7 @@ procedure _LapeJSONParser_Delete2(const Params: PParamArray); LAPE_WRAPPER_CALLI (* TJSONParser.FindPath ~~~~~~~~~~~~~~~~~~~~ -function TJSONParser.FindPath(Path: String; out Element: TJSONElement): Boolean; +> function TJSONParser.FindPath(Path: String; out Element: TJSONElement): Boolean; *) procedure _LapeJSONParser_FindPath(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -366,7 +366,7 @@ procedure _LapeJSONParser_FindPath(const Params: PParamArray; const Result: Poin (* TJSONParser.Keys ~~~~~~~~~~~~~~~~ -function TJSONParser.Keys: TStringArray; +> function TJSONParser.Keys: TStringArray; *) procedure _LapeJSONParser_Keys(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV begin @@ -428,4 +428,3 @@ procedure ImportJSON(Compiler: TSimbaScript_Compiler); end; end. -