[SOLVED] Highlight entire row with the active cell

[Bambamn]

I have read a few post on this issue, even downloaded the examples. However, I couldn't get it to work for my needs.

My range is from b6 : t301

I would like the entire row within that range by highlighted either with a black border or all cells in Sky Blue, when a cell is clicked within that row.
I just don't get how to do this.

Any help or guidance would be appreciated.

[RusselB]

If you want the entire row, then your range has to include the entire row.
Your range only goes from column B to column T. A full row goes from A to AMJ
Aside from that, I can't help as I don't understand what it is you are trying to do. By default only the single cell that the cursor is in is highlighted when the cursor is moved.

[eeigor]

Try it...
Run RegisterMouseClickHandler. UnregisterMouseClickHandler to stop working.
Additional column highlighting commented out by 'Rem'.

Code: Select all

Global oDocView, oMouseClickHandler

Sub RegisterMouseClickHandler
	oDocView = ThisComponent.currentController
	oMouseClickHandler = createUnoListener("MyApp_","com.sun.star.awt.XMouseClickHandler")
	oDocView.addMouseClickHandler(oMouseClickHandler)
End Sub

Sub UnregisterMouseClickHandler
	oDocView.removeMouseClickHandler(oMouseClickHandler)
End Sub

Sub MyApp_disposing
End Sub

Function MyApp_mousePressed(oEvt) As Boolean
	MyApp_mousePressed=False
End Function

Function MyApp_mouseReleased(oEvt) As Boolean
	MyApp_mouseReleased=False
	On Error Resume Next
	oCell = ThisComponent.CurrentSelection
	oRanges = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges")
Rem	oCol = oCell.Columns.getByIndex(0).RangeAddress
	oRow = oCell.Rows.getByIndex(0).RangeAddress
	oRanges.addRangeAddresses(Array(oCell.RangeAddress, oCol, oRow), False)
	ThisComponent.CurrentController.select(oRanges)
End Function 

[Bambamn]

Getting error

Screenshot_3.png

[Bambamn]

Here is a better shot of the location, maybe.

[Bambamn]

i COPY AND PASTED AGAIN, NOW GET THIS ERROR.

[Bambamn]

And now it works perfectly

Thanks eeigor!!

[eeigor]

You have extra lines in the screenshot there.