dispatch to API translation

Hi all,

I'm translating dispatch commands to regular API calls for a
project I'm 
currently working on:
http://www.paolo-mantovani.org/downloads/Dispatch
ToApiRecorder/

I've a 'problem' with the following dispatch command in
Calc:
	.uno:NumberFormatIncDecimals

As you can imagine, this command modify the number format in
the selected 
cell/range, adding a decimal place.

Tha 'API translation' that I've found is really huge! about
26 rows.
You can see it at the end of this post.

Normally this wouldn't be a problem, but in this case, the
code is generated 
from a macro recorder, and the target is the average user,
so my concern is 
to keep things as simple as more as it is possible.

So my question is:
Perhaps there is a more convenient way to add/remove decimal
places from a 
cell number format via API?


thank you
Paolo Mantovani

----------------------------------------------------

' the dispatch command to "translate" :
'Dispatcher.executeDispatch(DocumentFrame,".uno:NumberF
ormatIncDecimals" ,"" ,0 ,Array())
  
' the "translation" :

   ' Retrieve current number format settings
   FormatKey = DocumentView.Selection.NumberFormat
   FormatProperties =
DocumentModel.NumberFormats.getByKey(NumberFormatKey)
   
   ' Create a new format string based on the current one 
   ' (but with a further decimal place)
   FormatString =
DocumentModel.NumberFormats.generateFormat( _
      FormatKey, _
      FormatProperties.Locale, _
      FormatProperties.ThousandsSeparator, _
      FormatProperties.NegativeRed, _
      FormatProperties.Decimals + 1, _
      FormatProperties.LeadingZeros _
      )
		
   ' Retrieve or create a key for the generated format
string
   FormatKey = DocumentModel.NumberFormats.queryKey( _
                 FormatString,FormatProperties.Locale, True)
   
   If FormatKey = - 1 Then 
     FormatKey = DocumentModel.NumberFormats.addNew( _
                    FormatString, FormatProperties.Locale)
   End If
   
   ' apply the number format to the current selection
   DocumentView.Selection.NumberFormat = FormatKey





------------------------------------------------------------
---------
To unsubscribe, e-mail: dev-unsubscribeapi.openoffice.org
For additional commands, e-mail: dev-helpapi.openoffice.org