paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 19:35:58 +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 (
Sender: TPSPreProcessor;
Parser: TPSPascalPreProcessorParser;
const Active: Boolean;
const AActive: Boolean;
const DirectiveName, DirectiveParam: tbtstring;
Var Continue: Boolean) of Object; // jgv
Var AContinue: Boolean) of Object; // jgv
TPSScript = class(TComponent)
private