To comment on the following update, log in, then open the issue: http://www.openoffice.org/issues/show_bug.cgi?id=77180 Issue #|77180 Summary|ConditionalFormat with decimal number Component|api Version|OOo 2.2 Platform|All URL| OS/Version|All Status|UNCONFIRMED Status whiteboard| Keywords| Resolution| Issue type|DEFECT Priority|P2 Subcomponent|code Assigned to|jsc Reported by|webpac
------- Additional comments from [EMAIL PROTECTED] Thu May 10 08:32:30 +0000 2007 ------- ConditionalFormat is not displayed with Ole object when the value got a decimal separator. The selected range with 10 as value is formatted with the CellStyle MyCellStyle_0 but the condition is not true. This is the Delphi code : uses ComObj; procedure Test; var OpenDesktop : Variant; OpenOffice : Variant; DocumentOOo : Variant; CoreReflection : Variant; oRange : Variant; oConditionalFormat : Variant; oNewCondition : Variant; PropertyValue1, PropertyValue2, PropertyValue3 : Variant; begin OpenOffice := CreateOleObject( 'com.sun.star.ServiceManager' ); OpenDesktop := OpenOffice.createInstance( 'com.sun.star.frame.Desktop' ); CoreReflection := OpenOffice.createInstance( 'com.sun.star.reflection.CoreReflection' ); DocumentOOo := OpenDesktop.GetCurrentComponent; oRange := DocumentOOo.currentSelection; oConditionalFormat := oRange.ConditionalFormat; oConditionalFormat.Clear; oNewCondition := VarArrayCreate( [ 0, 2 ], varVariant ); CoreReflection.forName( 'com.sun.star.beans.PropertyValue' ).CreateObject( PropertyValue1 ); CoreReflection.forName( 'com.sun.star.beans.PropertyValue' ).CreateObject( PropertyValue2 ); CoreReflection.forName( 'com.sun.star.beans.PropertyValue' ).CreateObject( PropertyValue3 ); PropertyValue1.Name := 'Operator'; PropertyValue1.Value := 3; // com.sun.star.sheet.ConditionOperator.GREATER oNewCondition[ 0 ] := PropertyValue1; PropertyValue2.Name := 'Formula1'; PropertyValue2.Value := '=1000000,00'; oNewCondition[ 1 ] := PropertyValue2; PropertyValue3.Name := 'StyleName'; PropertyValue3.Value := 'MyCellStyle_0'; oNewCondition[ 2 ] := PropertyValue3; oConditionalFormat.addNew( oNewCondition ); oRange.ConditionalFormat := oConditionalFormat; end; --------------------------------------------------------------------- Please do not reply to this automatically generated notification from Issue Tracker. Please log onto the website and enter your comments. http://qa.openoffice.org/issue_handling/project_issues.html#notification --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
