From: <ou...@us...> - 2010-08-31 19:06:35
|
Revision: 12828 http://jvcl.svn.sourceforge.net/jvcl/?rev=12828&view=rev Author: outchy Date: 2010-08-31 19:06:29 +0000 (Tue, 31 Aug 2010) Log Message: ----------- Mantis 5303: Int64 values were incorrectly displayed. Modified Paths: -------------- trunk/jvcl/examples/JvComputerInfoEx/JvComputerInfoExDemoForm.pas Modified: trunk/jvcl/examples/JvComputerInfoEx/JvComputerInfoExDemoForm.pas =================================================================== --- trunk/jvcl/examples/JvComputerInfoEx/JvComputerInfoExDemoForm.pas 2010-08-20 14:44:57 UTC (rev 12827) +++ trunk/jvcl/examples/JvComputerInfoEx/JvComputerInfoExDemoForm.pas 2010-08-31 19:06:29 UTC (rev 12828) @@ -224,8 +224,10 @@ PropInfo := PropList[i]; PropName := PropInfo^.Name; case PropInfo^.PropType^.Kind of - tkInteger, tkInt64: + tkInteger: AddItem(Category, PropName, IntToStr(GetOrdProp(AnObject, PropName)), Indent); + tkInt64: + AddItem(Category, PropName, IntToStr(GetInt64Prop(AnObject, PropName)), Indent); tkFloat: AddItem(Category, PropName, FloatToStr(GetFloatProp(AnObject, PropName)), Indent); tkEnumeration: This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |