opa!
é o seguinte, eu simplesmente mudei o método checkVersion, ficou assim:
procedure CheckVersion(Component: TComponent);
begin
if Assigned(Component) and (csDesigning in Component.ComponentState) then
Exit;
if (KnownCommercialVersion <> KnownCommercialVersion) or
(KnownReleaseVersion <> KnownReleaseVersion) or
(KnownCommentVersion <> KnownCommentVersion) then
if not ReportServiceMode then
ShowMessage(
'Sistema não está de acordo com a versão do FortesReport.'#13 +
#13 +
'Versão atual ' + IntToStr(CommercialVersion) + '.' + IntToStr(ReleaseVersion) + CommentVersion);
end;
original:
procedure CheckVersion(Component: TComponent);
begin
if Assigned(Component) and (csDesigning in Component.ComponentState) then
Exit;
if (KnownCommercialVersion <> KnownCommercialVersion) or
(KnownReleaseVersion <> ReleaseVersion) or
(KnownCommentVersion <> CommentVersion) then
if not ReportServiceMode then
ShowMessage(
'Sistema não está de acordo com a versão do FortesReport.'#13 +
#13 +
'Versão atual ' + IntToStr(CommercialVersion) + '.' + IntToStr(ReleaseVersion) + CommentVersion);
end;
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
esta acontecendo para mim também
com o delphi 2009 funciona corretamente, porém com o 2010 da essa mesma mensagem
ops, quis dizer 2007
opa!
é o seguinte, eu simplesmente mudei o método checkVersion, ficou assim:
procedure CheckVersion(Component: TComponent);
begin
if Assigned(Component) and (csDesigning in Component.ComponentState) then
Exit;
if (KnownCommercialVersion <> KnownCommercialVersion) or
(KnownReleaseVersion <> KnownReleaseVersion) or
(KnownCommentVersion <> KnownCommentVersion) then
if not ReportServiceMode then
ShowMessage(
'Sistema não está de acordo com a versão do FortesReport.'#13 +
#13 +
'Versão atual ' + IntToStr(CommercialVersion) + '.' + IntToStr(ReleaseVersion) + CommentVersion);
end;
original:
procedure CheckVersion(Component: TComponent);
begin
if Assigned(Component) and (csDesigning in Component.ComponentState) then
Exit;
if (KnownCommercialVersion <> KnownCommercialVersion) or
(KnownReleaseVersion <> ReleaseVersion) or
(KnownCommentVersion <> CommentVersion) then
if not ReportServiceMode then
ShowMessage(
'Sistema não está de acordo com a versão do FortesReport.'#13 +
#13 +
'Versão atual ' + IntToStr(CommercialVersion) + '.' + IntToStr(ReleaseVersion) + CommentVersion);
end;