moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-26 01:09:08 -05:00
Code Issues Releases Wiki Activity
374270d9e7
Simba/Units/RUTIS/Rutis_EXT_Common.pas

606 lines
20 KiB
ObjectPascal
Raw Normal View History

RUTIS to the source
2010-08-20 11:21:43 -04:00
Unit Rutis_EXT_Common;
Interface
{$i Delphi_Versions.inc}
{$IFDEF FPC}
{$mode objfpc}{$H+}
{$ENDIF}
Uses
Changes to RUTIS to allow it to work on Linux. Additional units may have to be touched when we start using them. This also does not yet touch the x64 compilation issues
2010-08-23 18:09:05 -04:00
lclintf, Forms, Math, Dialogs, SysUtils,
RUTIS to the source
2010-08-20 11:21:43 -04:00
Rutis_Stack, Rutis_Defs, Rutis_Classes, TypInfo;
Type
PObject = ^TObject;
PSearchRec = ^TSearchRec;
PClass = ^TClass;
Procedure RegisterEXTMethods(Engine : TRutisEngineBase);
Implementation
//==============================================================================
//======== Strings
//==============================================================================
{$REGION 'Strings'}
Procedure _ToStr(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
Case Params^[0].IntType Of
// intCardinal : PAnsiString(Result^.Data)^ := IntToStr(GetPCardinal(Params^[0].Data));
// intInteger : PAnsiString(Result^.Data)^ := IntToStr(GetPInteger(Params^[0].Data));
// intExtended : PAnsiString(Result^.Data)^ := FloatToStr(GetPExtended(Params^[0].Data));
intCardinal : SetPAnsiString(Result^.Data, IntToStr(GetPCardinal(Params^[0].Data)));
intInteger : SetPAnsiString(Result^.Data, IntToStr(GetPInteger(Params^[0].Data)));
intExtended : SetPAnsiString(Result^.Data, FloatToStr(GetPExtended(Params^[0].Data)));
// intCardinal : PAnsiString(Result^.Data)^ := IntToStr(PCardinal(Params^[0].Data)^);
// intInteger : PAnsiString(Result^.Data)^ := IntToStr(PInteger(Params^[0].Data)^);
// intExtended : PAnsiString(Result^.Data)^ := FloatToStr(PExtended(Params^[0].Data)^);
End;
End;
Procedure _ToInt(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
Try
SetPInteger(Result^.Data, StrToInt(AnsiString(GetPPointer(Params^[0].Data))));
Except
SetPInteger(Result^.Data, 0);
End;
End;
Procedure _ToFloat(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
Try
SetPExtended(Result^.Data, StrToFloat(AnsiString(GetPPointer(Params^[0].Data))));
Except
SetPExtended(Result^.Data, 0);
End;
End;
Procedure _SetDecimalSeparator(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
DecimalSeparator := PAnsiChar(Params^[0].Data)^;
End;
Procedure _GetDecimalSeparator(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
PAnsiChar(Result^.Data)^ := DecimalSeparator;
End;
Procedure _Chr(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
PAnsiChar(Result^.Data)^ := Chr(PByte(Params^[0].Data)^);
End;
Procedure _Ord(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
PByte(Result^.Data)^ := Ord(PAnsiChar(Params^[0].Data)^);
End;
Procedure _UpperCase(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPAnsiString(Result^.Data, UpperCase(AnsiString(GetPPointer(Params^[0].Data))));
End;
Procedure _LowerCase(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPAnsiString(Result^.Data, LowerCase(AnsiString(GetPPointer(Params^[0].Data))));
End;
Procedure _StringReplace(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Type PReplaceFlags = ^TReplaceFlags;
Begin
PAnsiString(Result^.Data)^ := StringReplace(
AnsiString(GetPPointer(Params^[0].Data)),
AnsiString(GetPPointer(Params^[1].Data)),
AnsiString(GetPPointer(Params^[2].Data)),
{$ifdef WinCe}unaligned({$endif}PReplaceFlags(Params^[3].Data)^{$ifdef WinCe}){$endif});
End;
Procedure _ExtractFilePath(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPAnsiString(Result^.Data, ExtractFilePath(AnsiString(GetPPointer(Params^[0].Data))));
End;
Procedure _ExtractFileName(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPAnsiString(Result^.Data, ExtractFileName(AnsiString(GetPPointer(Params^[0].Data))));
End;
Procedure _ExtractFileExt(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPAnsiString(Result^.Data, ExtractFileExt(AnsiString(GetPPointer(Params^[0].Data))));
End;
Procedure _ExpandFileName(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPAnsiString(Result^.Data, ExpandFileName(AnsiString(GetPPointer(Params^[0].Data))));
End;
{$ENDREGION}
//======== Internal ========
{$REGION 'Internal'}
Procedure _InheritsClass(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
var
AObject : TObject;
AClass : TClass;
Begin
AObject := TObject(GetPPointer(Params^[0].Data));
If AObject = nil then exit;
AClass := TClass(GetPPointer(Params^[1].Data));
If AClass = nil then exit;
PBoolean(Result^.Data)^ := AObject is AClass;
End;
{$ENDREGION}
//======== Files ========
{$REGION 'Files'}
Procedure _FileExists(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
PBoolean(Result^.Data)^ := FileExists(AnsiString(GetPPointer(Params^[0].Data)));
End;
Procedure _FindFirst(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPInteger(Result^.Data, FindFirst(
AnsiString(GetPPointer(Params^[0].Data)),
GetPInteger(Params^[1].Data),
PSearchRec(Params^[2].Data)^));
End;
Procedure _FindNext(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPInteger(Result^.Data, FindNext(PSearchRec(Params^[0].Data)^));
End;
Procedure _FindClose(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
FindClose(PSearchRec(Params^[0].Data)^);
End;
{$ENDREGION}
//==============================================================================
//======== Windows
//==============================================================================
{$REGION 'Windows'}
Procedure _Sleep(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
Sleep(GetPInteger(Params^[0].Data));
End;
Procedure _Delay(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Var
GTC : Cardinal;
Begin
GTC := GetTickCount + GetPInteger(Params^[0].Data);
While GTC >= GetTickCount Do
Begin
//Application.ProcessMessages;
sleep(1);
End;
End;
Procedure _RVal(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
PByte(Result^.Data)^ := GetRValue(GetPCardinal(Params^[0].Data));
End;
Procedure _GVal(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
PByte(Result^.Data)^ := GetRValue(GetPCardinal(Params^[0].Data));
End;
Procedure _BVal(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
PByte(Result^.Data)^ := GetRValue(GetPCardinal(Params^[0].Data));
End;
Procedure _RGB(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPCardinal(Result^.Data, Cardinal(rgb(PByte(Params^[0].Data)^, PByte(Params^[1].Data)^, PByte(Params^[2].Data)^)));
End;
{$ifndef FPC}
Procedure _DynCallDLLProc(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Type
TPointerArray = Array Of Pointer;
PPointerArray = ^TPointerArray;
Var
DLLName : PAnsiString;
ProcName : PAnsiString;
ProcParams : TPointerArray;
HasResult : Boolean;
ProcResult : Cardinal;
Begin
DLLName := PAnsiString(Params^[0].Data);
ProcName := PAnsiString(Params^[1].Data);
HasResult := PBoolean(Params^[2].Data)^;
ProcParams := PPointerArray(PPointer(Params^[3].Data))^;
If length(ProcParams) > 100 Then exit;
If not DynamicDllCall(DLLName^, ProcName^, HasResult, ProcResult, ProcParams) Then
Begin
//ShowMessage('Function could not be found!');
PCardinal(Result^.Data)^ := 0;
End
Else
Begin
PCardinal(Result^.Data)^ := ProcResult;
End;
End;
{$endif}
Procedure _GetTickCount(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPCardinal(Result^.Data, GetTickCount);
End;
Procedure _GetAsyncKeyState(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
Changes to RUTIS to allow it to work on Linux. Additional units may have to be touched when we start using them. This also does not yet touch the x64 compilation issues
2010-08-23 18:09:05 -04:00
// XXX TODO FIXME OMG
//PBoolean(Result^.Data)^ := Boolean(GetAsyncKeyState(GetPWord(Params^[0].Data)) <> 0);
RUTIS to the source
2010-08-20 11:21:43 -04:00
End;
{$ifndef WINCE}
Procedure _Beep(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
Changes to RUTIS to allow it to work on Linux. Additional units may have to be touched when we start using them. This also does not yet touch the x64 compilation issues
2010-08-23 18:09:05 -04:00
// XXX TO FIXME OMG
//Windows.Beep(GetPCardinal(Params^[0].Data), GetPCardinal(Params^[1].Data));
RUTIS to the source
2010-08-20 11:21:43 -04:00
End;
{$endif WINCE}
Procedure _InputDlg(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Var
str : AnsiString;
StrOut : Pointer;
Begin
str := AnsiString(GetPPointer(Params^[1].Data));
If not InputQuery('Input', AnsiString(GetPPointer(Params^[0].Data)), str) Then
SetPAnsiString(Result^.Data, '')
else
SetPAnsiString(Result^.Data, Str);
End;
{$ENDREGION}
//==============================================================================
//======== Properties
//==============================================================================
{$REGION 'Properties'}
Procedure _SetIntProperty(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Var
Obj : TObject;
PropInfo : PPropInfo;
PropName : AnsiString;
Begin
Obj := TObject(GetPPointer(Params^[0].Data));
PropName := AnsiString(GetPPointer(Params^[1].Data));
Try
PropInfo := GetPropInfo(Obj, PropName);
If PropInfo <> nil Then
SetOrdProp(Obj, PropInfo, GetPInteger(Params^[2].Data));
Except
End;
End;
Procedure _GetIntProperty(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Var
Obj : TObject;
PropInfo : PPropInfo;
PropName : AnsiString;
Begin
Obj := TObject(GetPPointer(Params^[0].Data));
PropName := AnsiString(GetPPointer(Params^[1].Data));
Try
PropInfo := GetPropInfo(Obj, PropName);
If PropInfo <> nil Then
SetPInteger(Result^.Data, GetOrdProp(Obj, PropInfo));
Except
End;
End;
Procedure _SetBoolProperty(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Var
Obj : TObject;
PropInfo : PPropInfo;
PropName : AnsiString;
Begin
Obj := TObject(GetPPointer(Params^[0].Data));
PropName := AnsiString(GetPPointer(Params^[1].Data));
Try
PropInfo := GetPropInfo(Obj, PropName);
If PropInfo <> nil Then
SetOrdProp(Obj, PropInfo, PByte(Params^[2].Data)^);
Except
End;
End;
Procedure _GetBoolProperty(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Var
Obj : TObject;
PropInfo : PPropInfo;
PropName : AnsiString;
Begin
Obj := TObject(GetPPointer(Params^[0].Data));
PropName := AnsiString(GetPPointer(Params^[1].Data));
Try
PropInfo := GetPropInfo(Obj, PropName);
If PropInfo <> nil Then
PByte(Result^.Data)^ := GetOrdProp(Obj, PropInfo);
Except
End;
End;
Procedure _SetStrProperty(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Var
Obj : TObject;
PropInfo : PPropInfo;
PropName : AnsiString;
Begin
Obj := TObject(GetPPointer(Params^[0].Data));
PropName := AnsiString(GetPPointer(Params^[1].Data));
Try
PropInfo := GetPropInfo(Obj, PropName);
If PropInfo <> nil Then
SetStrProp(Obj, PropInfo, AnsiString(GetPPointer(Params^[2].Data)));
Except
End;
End;
Procedure _GetStrProperty(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Var
Obj : TObject;
PropInfo : PPropInfo;
PropName : AnsiString;
Begin
Obj := TObject(GetPPointer(Params^[0].Data));
PropName := AnsiString(GetPPointer(Params^[1].Data));
Try
PropInfo := GetPropInfo(Obj, PropName);
If PropInfo <> nil Then
SetPAnsiString(Result^.Data, GetStrProp(Obj, PropInfo));
Except
End;
End;
{$ENDREGION}
//==============================================================================
//======== Math
//==============================================================================
{$REGION 'Maths'}
Procedure _Round(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPInteger(Result^.Data, round(GetPSingle(Params^[0].Data)));
End;
Procedure _abs(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
Case Params^[0].IntType Of
intInteger : SetPInteger(Result^.Data, abs(GetPInteger(Params^[0].Data)));
intSingle : SetPSingle(Result^.Data, abs(GetPSingle(Params^[0].Data)));
intDouble : SetPDouble(Result^.Data, abs(GetPDouble(Params^[0].Data)));
End;
End;
Procedure _RandomF(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPDouble(Result^.Data, random);
End;
Procedure _Random(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPInteger(Result^.Data, random(GetPInteger(Params^[0].Data)));
End;
Procedure _sqr(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Var d : Single;
Begin
d := GetPSingle(Params^[0].Data);
SetPSingle(Result^.Data, d * d);
End;
Procedure _sqrt(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPSingle(Result^.Data, sqrt(GetPSingle(Params^[0].Data)));
End;
Procedure _sqrtvari(Params : PVariantArray; Result : PVariant);
Begin
Result^ := sqrt(Params^[0]);
End;
Procedure _Sin(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPSingle(Result^.Data, Sin(GetPSingle(Params^[0].Data)));
End;
Procedure _Cos(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPSingle(Result^.Data, Cos(GetPSingle(Params^[0].Data)));
End;
Procedure _ArcSin(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPSingle(Result^.Data, ArcSin(GetPSingle(Params^[0].Data)));
End;
Procedure _ArcCos(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPSingle(Result^.Data, ArcCos(GetPSingle(Params^[0].Data)));
End;
Procedure _Arctan2(Params : PRutisParamInfoArray; Result : PRutisParamInfo);
Begin
SetPSingle(Result^.Data, Arctan2(GetPSingle(Params^[0].Data), GetPSingle(Params^[1].Data)));
End;
{$ENDREGION}
//==============================================================================
//==============================================================================
Procedure RegisterEXTMethods(Engine : TRutisEngineBase);
Begin
//======== Strings ========
{$REGION 'Strings'}
Engine.RegExtMethod('IntToStr',{$IfDef FPC}@{$EndIf}_ToStr, ['Integer'], 'String');
Engine.RegExtMethod('FloatToStr',{$IfDef FPC}@{$EndIf}_ToStr, ['Extended'], 'String');
Engine.RegExtMethod('StrToInt',{$IfDef FPC}@{$EndIf}_ToInt, ['String'], 'Integer');
Engine.RegExtMethod('StrToFloat',{$IfDef FPC}@{$EndIf}_ToFloat, ['String'], 'Extended');
Engine.RegExtMethod('DecimalSeparator',{$IfDef FPC}@{$EndIf}_GetDecimalSeparator, [], 'Char');
Engine.RegExtMethod('DecimalSeparator',{$IfDef FPC}@{$EndIf}_SetDecimalSeparator, ['Char'], '');
Engine.RegExtMethod('Chr',{$IfDef FPC}@{$EndIf}_Chr, ['Byte'], 'AnsiChar');
Engine.RegExtMethod('Ord',{$IfDef FPC}@{$EndIf}_Ord, ['AnsiChar'], 'Byte');
Engine.RegExtMethod('UpperCase',{$IfDef FPC}@{$EndIf}_UpperCase, ['AnsiString'], 'AnsiString');
Engine.RegExtMethod('LowerCase',{$IfDef FPC}@{$EndIf}_LowerCase, ['AnsiString'], 'AnsiString');
Engine.RegExtMethod('StringReplace',{$IfDef FPC}@{$EndIf}_LowerCase, ['AnsiString', 'AnsiString', 'AnsiString', 'Cardinal'], 'AnsiString');
Engine.RegExtMethod('ExtractFilePath',{$IfDef FPC}@{$EndIf}_ExtractFilePath, ['AnsiString'], 'AnsiString');
Engine.RegExtMethod('ExtractFileName',{$IfDef FPC}@{$EndIf}_ExtractFileName, ['AnsiString'], 'AnsiString');
Engine.RegExtMethod('ExtractFileExt',{$IfDef FPC}@{$EndIf}_ExtractFileExt, ['AnsiString'], 'AnsiString');
Engine.RegExtMethod('ExpandFileName',{$IfDef FPC}@{$EndIf}_ExpandFileName, ['AnsiString'], 'AnsiString');
{$ENDREGION}
//======== Internal ========
{$REGION 'Internal'}
Engine.RegExtMethod('InheritsClass',{$IfDef FPC}@{$EndIf}_InheritsClass, ['TObject', 'TClass'], 'Boolean');
{$ENDREGION}
//======== MATHS ========
{$REGION 'Maths'}
Engine.RegExtMethod('Round',{$IfDef FPC}@{$EndIf}_Round, ['Single'], 'Integer');
Engine.RegExtMethod('abs_int',{$IfDef FPC}@{$EndIf}_abs, ['Integer'], 'Integer',
'Makes an integer value positive');
Engine.RegExtMethod('abs',{$IfDef FPC}@{$EndIf}_abs, ['Double'], 'Double',
'Makes a float value positive');
Engine.RegExtMethod('RandomF',{$IfDef FPC}@{$EndIf}_RandomF, [], 'Double',
'Returns a random float value in the Intervall [0..1]');
Engine.RegExtMethod('Random',{$IfDef FPC}@{$EndIf}_Random, ['Integer'], 'Integer',
'Returns a random Integer number in the Intervall [0..a-1]');
Engine.RegExtMethod('sin',{$IfDef FPC}@{$EndIf}_sin, ['Single'], 'Single');
Engine.RegExtMethod('cos',{$IfDef FPC}@{$EndIf}_cos, ['Single'], 'Single');
Engine.RegExtMethod('Arcsin',{$IfDef FPC}@{$EndIf}_Arcsin, ['Single'], 'Single');
Engine.RegExtMethod('Arccos',{$IfDef FPC}@{$EndIf}_Arccos, ['Single'], 'Single');
Engine.RegExtMethod('Arctan2',{$IfDef FPC}@{$EndIf}_Arctan2, ['Single', 'Single'], 'Single',
'Returns the Angle of an triangle with the two given sides');
Engine.RegExtMethod('sqr',{$IfDef FPC}@{$EndIf}_sqr, ['Single'], 'Single');
Engine.RegExtMethod('sqrt',{$IfDef FPC}@{$EndIf}_sqrt, ['Single'], 'Single',
'Returns the squareroot of the value');
Engine.RegExtMethodV('sqrtvari',{$IfDef FPC}@{$EndIf}_sqrtvari, ['Single'], 'Single',
'for testing only');
{$ENDREGION}
//======== Properties ========
{$REGION 'Properties'}
Engine.RegExtMethod('SetIntProperty',{$IfDef FPC}@{$EndIf}_SetIntProperty, ['TObject', 'String', 'Integer'], '',
'Sets the (Integer) property value for an Object' + sLineBreak +
'#1 : Control' + sLineBreak +
'#2 : Property-Name' + sLineBreak +
'#3 : New Value for Property');
Engine.RegExtMethod('GetIntProperty',{$IfDef FPC}@{$EndIf}_GetIntProperty, ['TObject', 'String'], 'Integer',
'Returns the (Integer) property value for an Object' + sLineBreak +
'#1 : Control' + sLineBreak +
'#2 : Property-Name' + sLineBreak +
'Returns : Value of Property');
Engine.RegExtMethod('SetStrProperty',{$IfDef FPC}@{$EndIf}_SetStrProperty, ['TObject', 'String', 'String'], '',
'Sets the (String) property value for an Object' + sLineBreak +
'#1 : Control' + sLineBreak +
'#2 : Property-Name' + sLineBreak +
'#3 : New Value for Property');
Engine.RegExtMethod('GetStrProperty',{$IfDef FPC}@{$EndIf}_GetStrProperty, ['TObject', 'String'], 'String',
'Returns the (String) property value for an Object' + sLineBreak +
'#1 : Control' + sLineBreak +
'#2 : Property-Name' + sLineBreak +
'Returns : Value of Property');
Engine.RegExtMethod('SetBoolProperty',{$IfDef FPC}@{$EndIf}_SetBoolProperty, ['TObject', 'String', 'Boolean'], '',
'Sets the (Boolean) property value for an Object' + sLineBreak +
'#1 : Control' + sLineBreak +
'#2 : Property-Name' + sLineBreak +
'#3 : New Value for Property');
Engine.RegExtMethod('GetBoolProperty',{$IfDef FPC}@{$EndIf}_GetBoolProperty, ['TObject', 'String'], 'Boolean',
'Returns the (Boolean) property value for an Object' + sLineBreak +
'#1 : Control' + sLineBreak +
'#2 : Property-Name' + sLineBreak +
'Returns : Value of Property');
{$ENDREGION}
//======== Files ========
{$REGION 'Files'}
Engine.RegExtMethod('FileExists',{$IfDef FPC}@{$EndIf}_FileExists, ['AnsiString'], 'Boolean');
Engine.RegExtMethod('FindFirst',{$IfDef FPC}@{$EndIf}_FindFirst, ['AnsiString', 'Integer', 'PSearchRec'], 'Integer');
Engine.RegExtMethod('FindNext',{$IfDef FPC}@{$EndIf}_FindNext, ['PSearchRec'], 'Integer');
Engine.RegExtMethod('FindClose',{$IfDef FPC}@{$EndIf}_FindClose, ['PSearchRec'], '');
{$ENDREGION}
//======== Windows ========
{$REGION 'Windows'}
{$ifndef FPC}
Engine.RegExtMethod('CallDLLProc',{$IfDef FPC}@{$EndIf}_DynCallDLLProc, ['String', 'String', 'Boolean', 'Pointer'], 'Cardinal',
'Executes a DLL Method');
{$endif}
Engine.RegExtMethod('GetAsyncKeyState',{$IfDef FPC}@{$EndIf}_GetAsyncKeyState, ['Word'], 'Boolean',
'Checks whether a certain key is pressed' + sLineBreak + 'Returns true, if the key was pressed since the last call of GetAsyncKeyState for this key');
Engine.RegExtMethod('GetTickCount',{$IfDef FPC}@{$EndIf}_GetTickCount, [], 'Cardinal',
'Returns the current System-Time in milli-seconds');
{$ifndef WINCE}
Engine.RegExtMethod('Beep',{$IfDef FPC}@{$EndIf}_Beep, ['Cardinal', 'Cardinal'], '');
{$endif WINCE}
Engine.RegExtMethod('Sleep',{$IfDef FPC}@{$EndIf}_Sleep, ['Integer'], '');
Engine.RegExtMethod('Delay',{$IfDef FPC}@{$EndIf}_Delay, ['Integer'], '',
'Delays the execution of the script for a certain time');
Engine.RegExtMethod('InputDlg',{$IfDef FPC}@{$EndIf}_InputDlg, ['String', 'String'], 'String',
'Shows an Input-Dialog for the user' + sLineBreak +
'#1: Question' + sLineBreak +
'#2: Default value' + sLineBreak +
'Returns the string the user has entered or '' if the' + sLineBreak + 'user has pressed the Cancel-Button');
Engine.RegExtMethod('RVal',{$IfDef FPC}@{$EndIf}_RVal, ['Cardinal'], 'Byte',
'Extracts the Red-Component of a TColor value');
Engine.RegExtMethod('GVal',{$IfDef FPC}@{$EndIf}_GVal, ['Cardinal'], 'Byte',
'Extracts the Green-Component of a TColor value');
Engine.RegExtMethod('BVal',{$IfDef FPC}@{$EndIf}_BVal, ['Cardinal'], 'Byte',
'Extracts the Blue-Component of a TColor value');
Engine.RegExtMethod('RGB',{$IfDef FPC}@{$EndIf}_RGB, ['Byte', 'Byte', 'Byte'], 'Cardinal',
'Creates a TColor Value out of the red, green and blue components');
{$ENDREGION}
End;
Initialization
randomize;
End.
Reference in New Issue Copy Permalink