相关疑难解决方法(0)

我正在尝试修复另一个VCL错误 ; 这一次Vcl.Printers.pas.

现在我们通过将错误的VCL源文件复制到Delphi库路径中的另一个文件夹,并将修复程序应用于这些文件来实现此目的.我们将修复程序应用于TPrinter.SetPrinter.

但是文件中有六个方法用属性修饰:

[PrintingPermission(SecurityAction.LinkDemand, Level=PrintingPermissionLevel.AllPrinting)]
procedure TPrinter.Abort;
begin
   ...

[PrintingPermission(SecurityAction.LinkDemand, Level=PrintingPermissionLevel.AllPrinting)]
procedure TPrinter.EndDoc;
begin
   ...

[PrintingPermission(SecurityAction.LinkDemand, Level=PrintingPermissionLevel.AllPrinting)]
procedure TPrinter.NewPage;
begin
   ...

[PrintingPermission(SecurityAction.LinkDemand, Level=PrintingPermissionLevel.AllPrinting)]
{$IF DEFINED(CLR)}
procedure TPrinter.SetPrinter(ADevice, ADriver, APort: string; ADeviceMode: IntPtr);
{$ELSE}
procedure TPrinter.SetPrinter(ADevice, ADriver, APort: PChar; ADeviceMode: THandle);
{$ENDIF}
var
   ...

[PrintingPermission(SecurityAction.LinkDemand, Level=PrintingPermissionLevel.AllPrinting)]
function SetPrinter(NewPrinter: TPrinter): TPrinter;
begin
   ...

这些方法中的每一种都会引发警告:

• [dcc32警告] Vcl.Printers.pas(968):W1025不支持的语言功能:'自定义属性'
• [dcc32警告] Vcl.Printers.pas(978):W1025不支持的语言功能:'自定义属性'
• [dcc32警告] Vcl.Printers.pas(1015):W1025不支持的语言功能:'自定义属性'
• [dcc32警告] Vcl.Printers.pas(1026):W1025不支持的语言功能:'自定义属性'
• [dcc32警告] Vcl.Printers.pas(1080):W1025不支持的语言功能:'自定义属性'
• [dcc32警告] Vcl.Printers.pas(1599):W1025不支持的语言功能:'自定义属性'

我可以删除属性.或者可能有一种方法可以抑制警告.但我认为Embarcadero增加的属性有一些目的.

• 使语言支持功能自定义属性的方法是 …