[Solved] Changing the font size in a comment box....

[jrickert]

Solved I can't change the font size once I put something into a comment box. How is it done? I am using Linux Mint Cinnimon.

[Zizi64]

I am using Linux Mint Cinnimon.
_______________________________________
OpenOffice 2.4 on Ubuntu 9.04

Which version of the AOO/LO are you using really? Please update your signature in this forum.

[Zizi64]

I can't change the font size once I put something into a comment box.

Please upload your ODF type sample file here.

[RoryOF]

I can't say about comments for Draw (not tested), but in Writer, if one selects the text in a Comment, one can change the typeface and type size using the font and size selector on the Formatting toolbar. Be aware that such changes are not always permitted immediately as the file is being scanned and analysed in the background; what happens in a small file (few pages) may not be immediately possible to apply in a larger (book-sized) file. Typically a size change is allowable sooner than a font change.

Edit: I have now had time to do a quick test. I found no way to easily change type size or font in a Draw Comment. That is not to say that there may not be a convoluted way to do so, but I have not explored that path. My remarks ((above) about Comments in Writer are still valid.

[jrickert]

My version number for LibreOffice is 7.2.1.2. Does that help?

[Zizi64]

A workaround tip:

Try to edit (format) the text of the Comment in an another object: set the desired properties (Bold, character size, italic, etc...)
then copy-paste the formatted text into the Comment box. Use the Format - Characters menu item in the other object.

The pasted format properties will be applied the more text what you type in into the specific Comment box.

Draw formatted comment text..odg

(9.98 KiB) Downloaded 282 times

[Zizi64]

...and please update your signature in this forum:

User Control Panel - Profile TAB - Edit Signature SubTAB: type-in which version are you using really. it will appeared under your posts automatically, and the helpers can try to solve the problem in same version.

[Lupp]

(I seriously doubt if there can be a way to do what the questioner asked for.)

I was using Draw not like a "professional", but rather often for two decades now, and I never found a reason to insert a "Comment". I even didn't know (ever looked for) a menu item for the purpose.

In pursuit of this question, however, I tried to find related API objects (a service mainly) handling "Comments" in drawings. Neither searching for Comment nor searching for Annotation (which is the API name for the thing used in Writer or Calc context) lead to a result.

Can anybody help me with my search?

[RoryOF]

@Lupp: there is information on Annotations at

https://www.openoffice.org/api/docs/com ... ation.html

but nothing that I can find specific to Draw. The above mentions that they can be attached to a TextField, which may in Draw be the Page (I haven't checked - I''m in the middle of another project).

The above information can be used in Writer - I use Annotations/Comments all the time in Writer, driven by a set of macros based on the above, with a false author, such as "Revised", "Check" etc, to keep track of revisions and other matters in the writing of a long document.

[Zizi64]

and I never found a reason to insert a "Comment".

+1

[Lupp]

... there is information on Annotations at ...

Yes.
Thanks, but ...

Annotations in text documents are treated as a special kind of TextField. com.sun.star.text.textfield.Annotation is the respective service and each TextDocument has a container for all its textfields (enumerable; also inspectable with For Each ... Next). In addition any textfield can be detected as a zero-length-portion when scanning a text object for its portions.

Annotations in spreadsheet documents share the name and -partly- the feel. They are, however, treated very differently as a special kind of shapes. com.sun.star.sheet.CellAnnotationShape is the characteristic service. The objects are inserted into the .DrawPage of their sheet, and the sheet itself has even a specialized .Annotations container. The cell having an annotation assigned gives access to it, and the annotation knows to which cell it is anchored - and at the same time assigned as a .Annotation object.

For drawing documents I couldn't find anything of the kind. There seems to be no mention in the API reference. The annotation isn't found as selected (in the CurrentSelection) under any circumstances. None of the properties of the document model or of its drawpages is showing anything I would suspect to be related to annotations. The drawing document hasn't a .Text where the annotation might be anchored in . ...

[cwolan]

@Lupp
I'm not entirely sure if what I found is what you're looking for...

The source code (AOO, LO) refers i.a. to ::com::sun::XAnnotation
In the IDL reference for AOO there is nothing indeed, however the LO's IDL Reference provides information on:

XAnnotation Interface
https://api.libreoffice.org/docs/idl/re ... ation.html

XAnnotationAccess Interface
https://api.libreoffice.org/docs/idl/re ... 0e3abce01d


It seems to work in LO and - surprisingly (?) - in AOO. See please the attached .odg file (button "SHOW").

[Lupp]

@cwolan: Thanks a lot.
However that's really funny, and it enforces somehow my suspicions concerning the ways the "architecture" of LibO code is actually regarded by the development. (There were more relevant cases.)

Anyway, your solution to how to create enumeration for a container not existing as an object also allows for a solution to the questioner's problem:

Code: Select all

Sub setAllAnnotationsToNewCharHeight(Optional pPages As Long, Optional pMyPreferredCharHeight As Long)
Const prefCH = 40  REM Just for testing.
If IsMissing(pPages) Then pPages = - 2 REM Current page.
If IsMissing(pMyPreferredCharHeight) Then pMyPreferredCharHeight = prefCH
Select Case pPages
  Case -1 REM All pages.
    lo = 0 : u = ThisComponent.DrawPages.Count - 1
  Case -2 REM Current page.
    h = ThisComponent.CurrentController.CurrentPage.Number - 1
    lo = h : u = h
  Case Else REM Single page number (1-based) passed as argument. Reference to non-existing page is error.
    lo = pPages - 1 : u = lo
End Select
For j = lo To u
  j_pg = ThisComponent.DrawPages(j)
  j_AnnoEnum = j_pg.createAnnotationEnumeration()
  While j_AnnoEnum.hasMoreElements()
    oneAnno = j_AnnoEnum.nextElement()
    oneAnno.TextRange.CharHeight = pMyPreferredCharHeight
  Wend
Next j
End Sub

How to pass parameters to a Sub is not discussed here.
Spoken aside: How can people accept fonts representing the small l and the digit 1 by nearly identical glyphs?
Is there Natural Intelligence?
I replaced the original "l" for the code by "lo" to disambiguate. Being in a mood, you may read it as "ten" now.