Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of github.com:remobjects/pascalscript

Browse Source
This commit is contained in:
evgenyk2 2021-09-16 11:58:04 +03:00
commit 4a44e94824
5 changed files with 60 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Source/uPSC_buttons.pas
View File

@ -29,6 +29,9 @@ begin
{$IFDEF DELPHI4UP} {$IFDEF DELPHI4UP}
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('GroupIndex', 'Integer', iptrw); RegisterProperty('GroupIndex', 'Integer', iptrw);
RegisterProperty('Down', 'Boolean', iptrw); RegisterProperty('Down', 'Boolean', iptrw);
RegisterProperty('Caption', 'string', iptrw); RegisterProperty('Caption', 'string', iptrw);
@ -55,6 +58,9 @@ begin
{$IFDEF DELPHI4UP} {$IFDEF DELPHI4UP}
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('Glyph', 'TBitmap', iptrw); RegisterProperty('Glyph', 'TBitmap', iptrw);
RegisterProperty('Kind', 'TBitBtnKind', iptrw); RegisterProperty('Kind', 'TBitBtnKind', iptrw);
RegisterProperty('Layout', 'TButtonLayout', iptrw); RegisterProperty('Layout', 'TButtonLayout', iptrw);

4
Source/uPSC_controls.pas
View File

@ -156,6 +156,10 @@ begin
cl.addTypeS('TAnchorKind', '(akLeft, akTop, akRight, akBottom)'); cl.addTypeS('TAnchorKind', '(akLeft, akTop, akRight, akBottom)');
cl.addTypeS('TAnchors','set of TAnchorKind'); cl.addTypeS('TAnchors','set of TAnchorKind');
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
cl.addTypeS('TAnchorKind', '(akLeft, akTop, akRight, akBottom)');
cl.addTypeS('TAnchors','set of TAnchorKind');
{$ENDIF}
cl.AddTypeS('TModalResult', 'Integer'); cl.AddTypeS('TModalResult', 'Integer');
cl.AddTypeS('TCursor', 'Integer'); cl.AddTypeS('TCursor', 'Integer');
cl.AddTypeS('TPoint', 'record X,Y: LongInt; end;'); cl.AddTypeS('TPoint', 'record X,Y: LongInt; end;');

12
Source/uPSC_extctrls.pas
View File

@ -41,6 +41,9 @@ begin
{$IFDEF DELPHI4UP} {$IFDEF DELPHI4UP}
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('Brush', 'TBrush', iptrw); RegisterProperty('Brush', 'TBrush', iptrw);
RegisterProperty('Pen', 'TPen', iptrw); RegisterProperty('Pen', 'TPen', iptrw);
RegisterProperty('Shape', 'TShapeType', iptrw); RegisterProperty('Shape', 'TShapeType', iptrw);
@ -68,6 +71,9 @@ begin
{$IFDEF DELPHI4UP} {$IFDEF DELPHI4UP}
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('Canvas', 'TCanvas', iptr); RegisterProperty('Canvas', 'TCanvas', iptr);
RegisterProperty('AutoSize', 'Boolean', iptrw); RegisterProperty('AutoSize', 'Boolean', iptrw);
RegisterProperty('Center', 'Boolean', iptrw); RegisterProperty('Center', 'Boolean', iptrw);
@ -99,6 +105,9 @@ begin
{$IFDEF DELPHI4UP} {$IFDEF DELPHI4UP}
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('Canvas', 'TCanvas', iptr); RegisterProperty('Canvas', 'TCanvas', iptr);
RegisterProperty('Color', 'TColor', iptrw); RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Font', 'TFont', iptrw); RegisterProperty('Font', 'TFont', iptrw);
@ -131,6 +140,9 @@ begin
{$IFDEF DELPHI4UP} {$IFDEF DELPHI4UP}
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('Shape', 'TBevelShape', iptrw); RegisterProperty('Shape', 'TBevelShape', iptrw);
RegisterProperty('Style', 'TBevelStyle', iptrw); RegisterProperty('Style', 'TBevelStyle', iptrw);

8
Source/uPSC_forms.pas
View File

@ -52,6 +52,10 @@ begin
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
RegisterProperty('Constraints', 'TSizeConstraints', iptrw); RegisterProperty('Constraints', 'TSizeConstraints', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
RegisterProperty('Constraints', 'TSizeConstraints', iptrw);
{$ENDIF}
RegisterProperty('BorderStyle', 'TBorderStyle', iptrw); RegisterProperty('BorderStyle', 'TBorderStyle', iptrw);
RegisterProperty('Color', 'TColor', iptrw); RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Font', 'TFont', iptrw); RegisterProperty('Font', 'TFont', iptrw);
@ -101,6 +105,10 @@ begin
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
RegisterProperty('Constraints', 'TSizeConstraints', iptrw); RegisterProperty('Constraints', 'TSizeConstraints', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
RegisterProperty('Constraints', 'TSizeConstraints', iptrw);
{$ENDIF}
RegisterProperty('BorderIcons', 'TBorderIcons', iptrw); RegisterProperty('BorderIcons', 'TBorderIcons', iptrw);
RegisterProperty('BorderStyle', 'TFormBorderStyle', iptrw); RegisterProperty('BorderStyle', 'TFormBorderStyle', iptrw);
RegisterProperty('Caption', 'NativeString', iptrw); RegisterProperty('Caption', 'NativeString', iptrw);

30
Source/uPSC_stdctrls.pas
View File

@ -55,6 +55,9 @@ begin
{$IFDEF DELPHI4UP} {$IFDEF DELPHI4UP}
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('Caption', 'string', iptrw); RegisterProperty('Caption', 'string', iptrw);
RegisterProperty('Color', 'TColor', iptrw); RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Font', 'TFont', iptrw); RegisterProperty('Font', 'TFont', iptrw);
@ -108,6 +111,9 @@ begin
{$IFDEF DELPHI4UP} {$IFDEF DELPHI4UP}
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('AutoSize', 'Boolean', iptrw); RegisterProperty('AutoSize', 'Boolean', iptrw);
RegisterProperty('Caption', 'string', iptrw); RegisterProperty('Caption', 'string', iptrw);
RegisterProperty('Color', 'TColor', iptrw); RegisterProperty('Color', 'TColor', iptrw);
@ -173,6 +179,9 @@ begin
{$IFDEF DELPHI4UP} {$IFDEF DELPHI4UP}
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('AutoSelect', 'Boolean', iptrw); RegisterProperty('AutoSelect', 'Boolean', iptrw);
RegisterProperty('AutoSize', 'Boolean', iptrw); RegisterProperty('AutoSize', 'Boolean', iptrw);
RegisterProperty('BorderStyle', 'TBorderStyle', iptrw); RegisterProperty('BorderStyle', 'TBorderStyle', iptrw);
@ -238,6 +247,9 @@ begin
{$IFDEF DELPHI4UP} {$IFDEF DELPHI4UP}
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('Alignment', 'TAlignment', iptrw); RegisterProperty('Alignment', 'TAlignment', iptrw);
RegisterProperty('BorderStyle', 'TBorderStyle', iptrw); RegisterProperty('BorderStyle', 'TBorderStyle', iptrw);
RegisterProperty('Color', 'TColor', iptrw); RegisterProperty('Color', 'TColor', iptrw);
@ -311,6 +323,9 @@ begin
{$IFDEF DELPHI4UP} {$IFDEF DELPHI4UP}
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('Color', 'TColor', iptrw); RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('DropDownCount', 'Integer', iptrw); RegisterProperty('DropDownCount', 'Integer', iptrw);
RegisterProperty('Font', 'TFont', iptrw); RegisterProperty('Font', 'TFont', iptrw);
@ -365,6 +380,9 @@ begin
{$IFDEF DELPHI4UP} {$IFDEF DELPHI4UP}
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('Cancel', 'Boolean', iptrw); RegisterProperty('Cancel', 'Boolean', iptrw);
RegisterProperty('Caption', 'string', iptrw); RegisterProperty('Caption', 'string', iptrw);
RegisterProperty('Default', 'Boolean', iptrw); RegisterProperty('Default', 'Boolean', iptrw);
@ -414,6 +432,9 @@ begin
{$IFDEF DELPHI4UP} {$IFDEF DELPHI4UP}
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('Caption', 'string', iptrw); RegisterProperty('Caption', 'string', iptrw);
RegisterProperty('Checked', 'Boolean', iptrw); RegisterProperty('Checked', 'Boolean', iptrw);
RegisterProperty('Color', 'TColor', iptrw); RegisterProperty('Color', 'TColor', iptrw);
@ -458,6 +479,9 @@ begin
{$IFDEF DELPHI4UP} {$IFDEF DELPHI4UP}
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('Caption', 'string', iptrw); RegisterProperty('Caption', 'string', iptrw);
RegisterProperty('Checked', 'Boolean', iptrw); RegisterProperty('Checked', 'Boolean', iptrw);
RegisterProperty('Color', 'TColor', iptrw); RegisterProperty('Color', 'TColor', iptrw);
@ -520,6 +544,9 @@ begin
{$IFDEF DELPHI4UP} {$IFDEF DELPHI4UP}
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('BorderStyle', 'TBorderStyle', iptrw); RegisterProperty('BorderStyle', 'TBorderStyle', iptrw);
RegisterProperty('Color', 'TColor', iptrw); RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Font', 'TFont', iptrw); RegisterProperty('Font', 'TFont', iptrw);
@ -573,6 +600,9 @@ begin
{$IFDEF DELPHI4UP} {$IFDEF DELPHI4UP}
RegisterProperty('Anchors', 'TAnchors', iptrw); RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF} {$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('Kind', 'TScrollBarKind', iptrw); RegisterProperty('Kind', 'TScrollBarKind', iptrw);
RegisterProperty('Max', 'Integer', iptrw); RegisterProperty('Max', 'Integer', iptrw);
RegisterProperty('Min', 'Integer', iptrw); RegisterProperty('Min', 'Integer', iptrw);