OpenOffice.info

Code: Alles auswählen

Global odlg as object

Sub S_Create_Dialog_with_Imagecontrol_and_picture
       
    Dim oWindow As Object
    Dim oMod As Object
    
    REM ***** Initialisierung der Eigenschaften des Dialogs
    odlgModel = CreateUnoService("com.sun.star.awt.UnoControlDialogModel")
    
    With odlgModel
       .setPropertyValue("PositionX", 320)
       .setPropertyValue("PositionY", 111 )
       .setPropertyValue("FontName", "Arial")
       .setPropertyValue("Width", 200)
       .setPropertyValue("Height", 280)
       .setPropertyValue("Title", "Ein Bild")
       .setPropertyValue("Name", "DLG_Picture")
       '.setPropertyValue("DesktopAsParent", True )
    End With
           
    odlg = CreateUnoService("com.sun.star.awt.UnoControlDialog")
           
    REM ********** Imagecontroll erzeugen
    oMod = odlgModel.createInstance("com.sun.star.awt.UnoControlImageControlModel")
    'xray oMOD 'hier bekommst du die Eigenschaften des ImageControls
    With oMod
       .setPropertyValue("Name", "img1")
       .setPropertyValue("PositionX", 2)
       .setPropertyValue("PositionY", 11)
       .setPropertyValue("Height",266)
       .setPropertyValue("Width",196)
       .setPropertyValue("ScaleMode",1)
       .setPropertyValue("ImageURL",converttoUrl("C:\Users\<USER>\Pictures\Blender\Hammer.png"))'<- hier den Pfad zum Bild eintragen
       .setPropertyValue("Border",0)'0 = kein Rand
       .setPropertyValue("BackgroundColor",32768)'-1 = empty/ungesetzt, 16711935 = fieses Pink, 32768 Grün
    End With
    odlgModel.insertByName("img1", oMod)
    
    odlg.setModel(odlgModel)
         
         
    REM ********** Mittels des Modells den Dialog anzeigen
    oWindow = CreateUnoService("com.sun.star.awt.Toolkit")
    odlg.createPeer(oWindow, null)
    Dim oWindowsListener as Object
    oTopWindowsListener = CreateUnoListener( "Top_Win_", "com.sun.star.awt.XTopWindowListener" )
    odlg.addTopWindowListener(oTopWindowsListener)
    odlg.setVisible(True)

End Sub

'Diese Routinen werden von dem XTopWindowListener benötigt
Sub Top_Win_windowClosing( oEvent ) 'Dialog schließen
  odlg.setVisible(False)
  odlg.dispose
End Sub

Sub Top_Win_disposing( )
End Sub
Sub Top_Win_windowOpened   ( oEvent )
End sub
Sub Top_Win_windowClosed   ( oEvent )
End sub 
Sub Top_Win_windowMinimized   ( oEvent )
End sub
Sub Top_Win_windowNormalized   ( oEvent )
End sub
Sub Top_Win_windowActivated   ( oEvent )
    Top_Win_windowDeactivated = false
End sub
function Top_Win_windowDeactivated ( oEvent ) as boolean
    Top_Win_windowDeactivated = true
End function

Code: Alles auswählen

oDialog.getControl("DeinNameFuerImageControl").model.border = 0