Hello,
How can I stop underlining of hyperlinks in UnoControlFixedHyperlinkModel?
My current code is:
Dim dia_ueber
Dim frm_ueber
Dim fhm
GlobalScope.BasicLibraries.LoadLibrary("jum")
GlobalScope.DialogLibraries.LoadLibrary("jum")
frm_ueber = DialogLibraries.jum.dlg_ueber
dia_ueber = CreateUnoDialog(frm_ueber)
'dia_ueber.Model.getByName("lbl_version").Label = ex_ver
fhm = dia_ueber.Model.createInstance("com.sun.star.awt.UnoControlFixedHyperlinkModel")
With fhm
.Name = "Hyperlink1"
.PositionX = 10
.PositionY = 64
.Width = 80
.Height = 14
.Label = "www.jm-schmidt.de"
.URL = "http://www.jm-schmidt.de/"
End With
dia_ueber.Model.insertByName(fhm.Name, fhm)
dia_ueber.execute
An experiment with:
With fhm
'...
.FontDescriptor.Underline = 0
End With
it does not work.
Gretings,
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: api-unsubscribe@openoffice.apache.org
For additional commands, e-mail: api-help@openoffice.apache.org
|