[api-dev] dispatch to API translation

[Paolo Mantovani]

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/DispatchToApiRecorder/

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:NumberFormatIncDecimals" ,"" ,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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]