wizards/source/sfdocuments/SF_Calc.xba | 6 +++---
wizards/source/sfdocuments/script.xlb | 20 ++++++++++----------
2 files changed, 13 insertions(+), 13 deletions(-)
New commits:
commit 0ceb3980c63a74f390fef623887ead7cf24899d3
Author: Jean-Pierre Ledure <j...@ledure.be>
AuthorDate: Wed May 7 11:28:01 2025 +0200
Commit: Jean-Pierre Ledure <j...@ledure.be>
CommitDate: Wed May 7 14:06:41 2025 +0200
ScriptForge (Calc) ColorizeRange(black)
Typo: the black color was skipped
>= 0 better than > 0 !!
Change-Id: I4f52410b60d3f089046084df299ecd8da4cd5e84
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/185014
Reviewed-by: Jean-Pierre Ledure <j...@ledure.be>
Tested-by: Jenkins
diff --git a/wizards/source/sfdocuments/SF_Calc.xba
b/wizards/source/sfdocuments/SF_Calc.xba
index 171fa7c3cc56..b627413c8164 100644
--- a/wizards/source/sfdocuments/SF_Calc.xba
+++ b/wizards/source/sfdocuments/SF_Calc.xba
@@ -841,8 +841,8 @@ Try:
If Len(FilterFormula) = 0 Then vRanges = Array(oRange) Else vRanges() =
_ComputeFilter(oRange, FilterFormula, UCase(FilterScope))
For Each oCRange In vRanges
With oCRange.XCellRange
- If Foreground > 0 Then .CharColor = CLng(Foreground)
- If Background > 0 Then .CellBackColor =
CLng(Background)
+ If Foreground >= 0 Then .CharColor = CLng(Foreground)
+ If Background >= 0 Then .CellBackColor =
CLng(Background)
End With
Next oCRange
@@ -1850,7 +1850,7 @@ Public Function DefineName(Optional ByVal DefinedName As
Variant _
''' The Value of the new name may be a range, a scalar
value or a formula.
''' Args:
''' DefinedName: The name as a string. If it
already exists, it is overwritten without warning.
-''' Note that homonyms might exist, but not
in the same sheet.
+''' Note that homonyms might exist, but not
in the same sheet and not at global level.
''' Value: Either
''' a range reference as a string, often a
single cell
''' a scalar value as a number or a string
diff --git a/wizards/source/sfdocuments/script.xlb
b/wizards/source/sfdocuments/script.xlb
index 3d2264bd3f6d..8188fd53bb1f 100644
--- a/wizards/source/sfdocuments/script.xlb
+++ b/wizards/source/sfdocuments/script.xlb
@@ -1,15 +1,15 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument
1.0//EN" "library.dtd">
<library:library xmlns:library="http://openoffice.org/2000/library";
library:name="SFDocuments" library:readonly="false"
library:passwordprotected="false">
- <library:element library:name="__License"/>
- <library:element library:name="SF_Form"/>
- <library:element library:name="SF_DocumentListener"/>
- <library:element library:name="SF_Document"/>
- <library:element library:name="SF_Calc"/>
- <library:element library:name="SF_Writer"/>
- <library:element library:name="SF_Register"/>
- <library:element library:name="SF_Base"/>
- <library:element library:name="SF_FormControl"/>
- <library:element library:name="SF_FormDocument"/>
<library:element library:name="SF_Chart"/>
+ <library:element library:name="SF_FormDocument"/>
+ <library:element library:name="SF_FormControl"/>
+ <library:element library:name="SF_Base"/>
+ <library:element library:name="SF_Register"/>
+ <library:element library:name="SF_Writer"/>
+ <library:element library:name="SF_Calc"/>
+ <library:element library:name="SF_Document"/>
+ <library:element library:name="SF_DocumentListener"/>
+ <library:element library:name="SF_Form"/>
+ <library:element library:name="__License"/>
</library:library>
\ No newline at end of file
