File version info problem.

[Jacques Garcia Vazquez]

Hi all

systool VR 4.02
In the File version info, it seems to be that the BUILD and RELEASE numbers
are inversed.
If you define a file version number 1.2.3.4 in delphi it will be displayed
as 1.2.4.3

[Robert Love [TPX]]

I did some testing, the delphi dialog orders the numbers in the following
order.

Major.Minor.Release.Build

ShowMessage( StVersionInfo1.FileVersion); //Correct
ShowMessage( IntToStr(StVersionInfo1.FileVerMajor) ); //Correct
ShowMessage( IntToStr(StVersionInfo1.FileVerMinor) ); //Correct
ShowMessage( IntToStr(StVersionInfo1.FileVerRelease) ); //Build Number
ShowMessage( IntToStr(StVersionInfo1.FileVerBuild) ); // Release Number

ShowMessage( StVersionInfo1.ProductVersion); //Correct
ShowMessage( IntToStr(StVersionInfo1.ProductVerMajor) ); //Correct
ShowMessage( IntToStr(StVersionInfo1.ProductVerMinor) ); //Correct
ShowMessage( IntToStr(StVersionInfo1.ProductVerRelease) ); // Build
Number
ShowMessage( IntToStr(StVersionInfo1.ProductVerBuild) ); // Release Number

Since Stephen will not be back soon to give you a fix here is something that
will make it work.
FYI, this is an unoffical fix but will work until Stephen can verify and
publish offical fix.

In StvInfo.pas change..

const
...
{ The const change not required but done to keep order correct }
STVERBUILD = 3; { !!.03 Unoffical Change from 2 to 3 }
STVERRELEASE = 2; { !!.03 Unoffical Change from 3 to 2 }
...
function TStCustomVersionInfo.GetFileVerSubPart(Index: Integer): Word;
...
// STVERBUILD: Result := HIWORD(FFileMinorVersion); { !!.03 - Unoffical
Removed }
// STVERRELEASE: Result := LOWORD(FFileMinorVersion); { !!.03 - Unoffical
Removed }
STVERRELEASE: Result := HIWORD(FFileMinorVersion); { !!.03 - Unoffical
Added }
STVERBUILD: Result := LOWORD(FFileMinorVersion); { !!.03 - Unoffical
Added }
...
end;

function TStCustomVersionInfo.GetProdVerSubPart(Index: Integer): Word;
...
// STVERBUILD: Result := HIWORD(FProductMinorVersion); { !!.03 -
Unoffical Removed }
// STVERRELEASE: Result := LOWORD(FProductMinorVersion); { !!.03 -
Unoffical Removed }
STVERRELEASE: Result := HIWORD(FProductMinorVersion); { !!.03 -
Unoffical Added }
STVERBUILD: Result := LOWORD(FProductMinorVersion); { !!.03 -
Unoffical Added }
...
end;

Although I tested the fixes, they are not offical as I am not a TP employee.

Good Luck,
Robert Love [TPX]

"Jacques Garcia Vazquez" <j...@FlexsysBelgium.com> wrote in message
news:wAvCfgi...@tpsmail01.turbopower.net...

[Jacques Garcia Vazquez]

Thank for the info Robert.
Had yet done the fix when posted the message.

Which surprise me is that it is clear that no one test this.

"Robert Love [TPX]" <rober...@tpx.turbopower.com> wrote in message
news:DKM$TENlC...@tpsmail01.turbopower.net...

[Robert Love]

FYI - This was added as a feature in 4.02 so it is fairly new.
It is also something that most testers would miss as I had to look up
the order of build and release. At first I had them backwards.

Robert Love

[hmbu...@gmail.com]

Dear Robert,
In version 4.04 of Systools I still have the same issue???