Seite 1 von 1

[gelöst] Fenstergröße per Basic bestimmen

Verfasst: Mo, 28.10.2013 07:08
von clag
Hallo Kenner und Könner,

die Überschrift sagt schon fast alles.
Ich möchte per Makro die OO Fenstergröße des aktiven OO Writer Fensters auf eine bestimte Position und Größe setzen,
in % oder in Pixel Angabe, ist das möglich und wenn ja wie?

schonmal Danke fürs lesen

Re: Fenstergröße per Basic bestimmen

Verfasst: Mo, 28.10.2013 19:43
von F3K Total
Hi Clag,
ich habe da mal was zusammengesucht, klappt ganz gut:

Code: Alles auswählen

Sub Setze_Fenster_in_cm
    oDisplayAccess = CreateUnoService("com.sun.star.awt.DisplayAccess")
    oDisplay = oDisplayAccess.getByIndex(0)
    aScreen = oDisplay.WorkArea
    nWidht = aScreen.Width
    nHeight = aScreen.Height
    ScreenRes = nWidht/TWIPSPERPIXELX 'DPI
    factor = ScreenRes/2.54
    X = 5 ' 5 cm
    y = 5
    h = 10
    w = 20
    x = x * factor
    y = y * factor
    h = h * factor
    w = w * factor
    S_Set_WindowPosSize(x,y,w,h)    
end sub

Sub Setze_Fenster_in_Prozent
    oDisplayAccess = CreateUnoService("com.sun.star.awt.DisplayAccess")
    oDisplay = oDisplayAccess.getByIndex(0)
    aScreen = oDisplay.WorkArea
    nWidht = aScreen.Width
    nHeight = aScreen.Height
    factorX = nWidht / 100
    factorY = nHeight / 100
    X = 25 * factorX '25 Prozent
    y = 25 * factorY
    w = 50 * factorX
    h = 50 * factorY
    S_Set_WindowPosSize(x,y,w,h)    
end sub

Sub S_Set_WindowPosSize(x,y,w,h) 
    oContainerWindow = thiscomponent.currentcontroller.frame.ContainerWindow
    oposSize = oContainerWindow.PosSize
    oContainerWindow.setPosSize(x,y,w,h,15)
End Sub
... und ein kleines Beispiel
Gruß R

Re: Fenstergröße per Basic bestimmen

Verfasst: Mo, 28.10.2013 20:35
von clag
Hallo F3K Total,

Frei nach Heinz Erhard "wir bilden eine Satz mit G" drück ich es mal so aus "ganz gut?, geradezu genial gelöst"
(ich hoffe der Herr ist dir bekannt ) :D

Also im ernst, der Code ist genau was ich erhofft hatte, spitzen Lösung, und funktioniert hier auch ganz prima
Allerbesten Dank für deine Mühe und den Code.

Schönen Abend noch.

edit:
noch ein G dazu getan :)

Re: Fenstergröße per Basic bestimmen

Verfasst: Mo, 28.10.2013 21:14
von F3K Total
erhardalstnnzer.gif
erhardalstnnzer.gif (12.12 KiB) 967 mal betrachtet

Re: Fenstergröße per Basic bestimmen

Verfasst: Mo, 28.10.2013 21:32
von clag
haha, ja genau der :D :lol:

Re: Fenstergröße per Basic bestimmen

Verfasst: Mo, 28.10.2013 22:07
von balu
Hallo Leute,
ich hoffe der Herr ist dir bekannt
Mir is er.
:lol:



Gruß
balu