https://bugs.documentfoundation.org/show_bug.cgi?id=155780
Bug ID: 155780
Summary: FileName Field displays wrong content if set to Fixed
and inserted by Macro.
Product: LibreOffice
Version: 7.4.3.2 release
Hardware: All
OS: Windows (All)
Status: UNCONFIRMED
Severity: normal
Priority: medium
Component: BASIC
Assignee: [email protected]
Reporter: [email protected]
Description:
When inserting a FileName Field using a macro the FileName details are
displayed incorrectly if IsFixed is set to True.
Steps to Reproduce:
1.Open included document #OR# CREATE and SAVE a new document, and insert the
MACRO included in Other Information.
2. run the MACRO.
3.
Actual Results:
com.sun.star.text.FilenameDisplayFormat.NAME_AND_EXT displays a File name in
the format of com.sun.star.text.FilenameDisplayFormat.NAME instead.
Expected Results:
com.sun.star.text.FilenameDisplayFormat.NAME_AND_EXT should display a File name
in the format of com.sun.star.text.FilenameDisplayFormat.NAME_AND_EXT
Reproducible: Always
User Profile Reset: Yes
Additional Info:
Version: 7.3.4.2 (x64) / LibreOffice Community
Build ID: 728fec16bd5f605073805c3c9e7c4212a0120dc5
CPU threads: 2; OS: Windows 6.1 Service Pack 1 Build 7601; UI render:
Skia/Raster; VCL: win
Locale: en-US (en_US); UI: en-US
Calc: CL
MACRO to reproduce error.
REM ***** BASIC *****
Sub Main
Dim tDateStruct As New com.sun.star.util.DateTime
Dim oViewCursor, oFile
Dim sString, sText
oViewCursor = ThisComponent.CurrentController.getViewCursor()
sText = "File Format = com.sun.star.text.FilenameDisplayFormat.FULL (0)" &
Chr(13) & "Fixed = False"
oViewCursor.Text.insertString(oViewCursor,sText & Chr(13),False)
oFile = ThisComponent.createInstance("com.sun.star.text.TextField.FileName")
oFile.FileFormat = com.sun.star.text.FilenameDisplayFormat.FULL
oFile.IsFixed = False
oViewCursor.Text.insertTextContent(oViewCursor,oFile,False)
sText = Chr(13) & "File Format = com.sun.star.text.FilenameDisplayFormat.FULL
(0)" & Chr(13) & "Fixed = True"
oViewCursor.Text.insertString(oViewCursor,sText & Chr(13),False)
oFile = ThisComponent.createInstance("com.sun.star.text.TextField.FileName")
oFile.FileFormat = com.sun.star.text.FilenameDisplayFormat.FULL
oFile.IsFixed = True
oViewCursor.Text.insertTextContent(oViewCursor,oFile,False)
REM ====================================================
sText = Chr(13) & Chr(13) & "File Format =
com.sun.star.text.FilenameDisplayFormat.PATH (1)" & Chr(13) & "Fixed = False"
oViewCursor.Text.insertString(oViewCursor,sText & Chr(13),False)
oFile = ThisComponent.createInstance("com.sun.star.text.TextField.FileName")
oFile.FileFormat = com.sun.star.text.FilenameDisplayFormat.PATH
oFile.IsFixed = False
oViewCursor.Text.insertTextContent(oViewCursor,oFile,False)
sText = Chr(13) & "File Format = com.sun.star.text.FilenameDisplayFormat.PATH
(1)" & Chr(13) & "Fixed = True"
oViewCursor.Text.insertString(oViewCursor,sText & Chr(13),False)
oFile = ThisComponent.createInstance("com.sun.star.text.TextField.FileName")
oFile.FileFormat = com.sun.star.text.FilenameDisplayFormat.PATH
oFile.IsFixed = True
oViewCursor.Text.insertTextContent(oViewCursor,oFile,False)
REM ====================================================
sText = Chr(13) & Chr(13) & "File Format =
com.sun.star.text.FilenameDisplayFormat.NAME (2)" & Chr(13) & "Fixed = False"
oViewCursor.Text.insertString(oViewCursor,sText & Chr(13),False)
oFile = ThisComponent.createInstance("com.sun.star.text.TextField.FileName")
oFile.FileFormat = com.sun.star.text.FilenameDisplayFormat.NAME
oFile.IsFixed = False
oViewCursor.Text.insertTextContent(oViewCursor,oFile,False)
sText = Chr(13) & "File Format = com.sun.star.text.FilenameDisplayFormat.NAME
(2)" & Chr(13) & "Fixed = True"
oViewCursor.Text.insertString(oViewCursor,sText & Chr(13),False)
oFile = ThisComponent.createInstance("com.sun.star.text.TextField.FileName")
oFile.FileFormat = com.sun.star.text.FilenameDisplayFormat.NAME
oFile.IsFixed = True
oViewCursor.Text.insertTextContent(oViewCursor,oFile,False)
REM ====================================================
sText = Chr(13) & Chr(13) & "File Format =
com.sun.star.text.FilenameDisplayFormat.NAME_AND_EXT (3)" & Chr(13) & "Fixed =
False"
oViewCursor.Text.insertString(oViewCursor,sText & Chr(13),False)
oFile = ThisComponent.createInstance("com.sun.star.text.TextField.FileName")
oFile.FileFormat = com.sun.star.text.FilenameDisplayFormat.NAME_AND_EXT
oFile.IsFixed = False
oViewCursor.Text.insertTextContent(oViewCursor,oFile,False)
sText = Chr(13) & "File Format =
com.sun.star.text.FilenameDisplayFormat.NAME_AND_EXT (3)" & Chr(13) & "Fixed =
True"
oViewCursor.Text.insertString(oViewCursor,sText & Chr(13),False)
oFile = ThisComponent.createInstance("com.sun.star.text.TextField.FileName")
oFile.FileFormat = com.sun.star.text.FilenameDisplayFormat.NAME_AND_EXT
oFile.IsFixed = True
oViewCursor.Text.insertTextContent(oViewCursor,oFile,False)
End Sub
--
You are receiving this mail because:
You are the assignee for the bug.
