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

FPC Fix, missing Anchors properties (#252)

Browse Source
This commit is contained in:
Grzegorz 2021-08-25 12:31:51 +02:00 committed by GitHub
parent 689b7a3ac2
commit 639f1e2d2c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('GroupIndex', 'Integer', iptrw);
RegisterProperty('Down', 'Boolean', iptrw);
RegisterProperty('Caption', 'string', iptrw);
@ -55,6 +58,9 @@ begin
{$IFDEF DELPHI4UP}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
{$IFDEF FPC}
RegisterProperty('Anchors', 'TAnchors', iptrw);
{$ENDIF}
RegisterProperty('Glyph', 'TBitmap', iptrw);
RegisterProperty('Kind', 'TBitBtnKind', 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('TAnchors','set of TAnchorKind');
{$ENDIF}
{$IFDEF FPC}
cl.addTypeS('TAnchorKind', '(akLeft, akTop, akRight, akBottom)');
cl.addTypeS('TAnchors','set of TAnchorKind');
{$ENDIF}
cl.AddTypeS('TModalResult', 'Integer');
cl.AddTypeS('TCursor', 'Integer');
cl.AddTypeS('TPoint', 'record X,Y: LongInt; end;');

12
Source/uPSC_extctrls.pas
View File

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

8
Source/uPSC_forms.pas
View File

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

30
Source/uPSC_stdctrls.pas
View File

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