Trial demo fails to compile in Delphi XE3
Posted: Mon 24 Sep 2012 01:14
I am having a problem with the UniDac trial.
Is this the best place to report the error or should I contact support via email ?
Problem
============
The demo application (UniDacDemo.dproj) fails to compile.
One line has an error
Environment
============
UniDac for Windows trial : UniDAC 4.5 for RAD Studio XE3
Delphi XE3
Error
=============
[dcc32 Error] CategoryFrame.pas(91): E2009 Incompatible types: 'Parameter lists differ'
Code
=============
This is the code that has the error.
The error line is marked with a comment
constructor TCategoryFrame.Create(AOwner: TComponent);
begin
inherited;
{$IFNDEF WEB}
FDemosDescription := TListBox.Create(self);
{$IFDEF CLR}
FDemosDescription.Font.Name := 'courier new';
FDemosDescription.Font.Size := 11;
{$ENDIF}
FDemosDescription.OnDblClick := DemosDescriptionDblClick;
FDemosDescription.OnMouseMove := DemoDescriptionMouseMove;
{$ELSE}
FDemosDescription := TWebBrowser.Create(self);
FDemosDescription.Navigate('about:blank'); // to create document object
FDemosDescription.OnBeforeNavigate2 := DemosDescriptionBeforeNavigate2; //*** THIS LINE ERRORS
{$ENDIF}
InsertControl(FDemosDescription);
FDemosDescription.Align := alClient;
end;
Is this the best place to report the error or should I contact support via email ?
Problem
============
The demo application (UniDacDemo.dproj) fails to compile.
One line has an error
Environment
============
UniDac for Windows trial : UniDAC 4.5 for RAD Studio XE3
Delphi XE3
Error
=============
[dcc32 Error] CategoryFrame.pas(91): E2009 Incompatible types: 'Parameter lists differ'
Code
=============
This is the code that has the error.
The error line is marked with a comment
constructor TCategoryFrame.Create(AOwner: TComponent);
begin
inherited;
{$IFNDEF WEB}
FDemosDescription := TListBox.Create(self);
{$IFDEF CLR}
FDemosDescription.Font.Name := 'courier new';
FDemosDescription.Font.Size := 11;
{$ENDIF}
FDemosDescription.OnDblClick := DemosDescriptionDblClick;
FDemosDescription.OnMouseMove := DemoDescriptionMouseMove;
{$ELSE}
FDemosDescription := TWebBrowser.Create(self);
FDemosDescription.Navigate('about:blank'); // to create document object
FDemosDescription.OnBeforeNavigate2 := DemosDescriptionBeforeNavigate2; //*** THIS LINE ERRORS
{$ENDIF}
InsertControl(FDemosDescription);
FDemosDescription.Align := alClient;
end;