paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-07 09:57:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

less hints

Browse Source
This commit is contained in:
mattias 2021-09-07 10:07:02 +02:00
parent 7204897ac8
commit e31b5de7ea
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
demo/webwidget/designdemo/designdemo.lpr
View File

@ -9,8 +9,10 @@ uses
type
TMyApplication = class(TBrowserApplication)
Public
{$IFDEF USEIDE}
FDemo : TDesignDemo;
FIDEIntf : TIDEClient;
{$ENDIF}
procedure doRun; override;
end;

4
demo/webwidget/designdemo/webideclient.pp
View File

@ -26,7 +26,7 @@ type
{ TIDEClient }
TCommandEvent = Procedure (Sender : TObject; aCommands : TJSArray) of object;
TActionEvent = Procedure (Sender : TObject; aID : Int64; aName : String; aPayload : TJSObject) of object;
TActionEvent = Procedure (Sender : TObject; aID : nativeint; aName : String; aPayload : TJSObject) of object;
TIDEClient = Class(TComponent)
private
@ -52,7 +52,7 @@ type
Function GetNextID : NativeInt;
procedure SendAction(Const aName : String; aPayLoad : TJSObject);
Property IDEURL : String read FIDEURL Write FIDEURL;
Property ClientID : Int64 read FClientID Write FClientID;
Property ClientID : nativeint read FClientID Write FClientID;
Property CommandPollInterval : Integer Read FCommandPollInterval Write FCommandPollInterval;
Property OnCommands : TCommandEvent Read FOnCommands Write FOnCommands;
Property OnActionResponse : TActionEvent Read FOnActionResponse Write FOnActionResponse;