paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 05:56:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

PascalScript: Fix event TPSOnProcessDirective signature. Active clashed with TForm.Active. Issue #39359.

Browse Source
This commit is contained in:
Juha 2021-09-27 21:54:06 +03:00
parent 2a179b8402
commit a8a398e553
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/PascalScript/Source/uPSComponent.pas
View File

@ -96,9 +96,9 @@ type
TPSOnProcessDirective = procedure ( TPSOnProcessDirective = procedure (
Sender: TPSPreProcessor; Sender: TPSPreProcessor;
Parser: TPSPascalPreProcessorParser; Parser: TPSPascalPreProcessorParser;
const Active: Boolean; const AActive: Boolean;
const DirectiveName, DirectiveParam: tbtstring; const DirectiveName, DirectiveParam: tbtstring;
Var Continue: Boolean) of Object; // jgv Var AContinue: Boolean) of Object; // jgv
TPSScript = class(TComponent) TPSScript = class(TComponent)
private private