openoffice-api mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Jörg Schmidt <joe...@j-m-schmidt.de>
Subject Disable underline - UnoControlFixedHyperlinkModel
Date Thu, 23 Apr 2015 06:26:59 GMT
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


Mime
View raw message