Hallo Thomas, Simon, Am Freitag, 20. April 2007 schrieb Thomas Krumbein: > Simon A Wilper schrieb: > [..] > > > Ja, ich konnte es auf dein Kunststueck mit dem Window invalidate > > zurueckfuehren. Wenn ich das auskommentiere, ueberlagern sich die > > Grafiken zwar, aber sie verschwinden nicht mehr.
bei mir erschienen von 3 Grafiken nur die erste. Grafik 2 und 3 flackerten
kurz auf, es erschien kein Bild.
Im Makro habe ich folgendes geändert:
oWin.invalidate(1) --> oWin.invalidate(10)
Alle Grafiken erscheinen.
Und weiter unten die sRect.x Werte von 335 auf 400 geändert, um die Bilder im
Dialog besser zu positionieren.
Dim sRect as new com.sun.star.awt.Rectangle
sRect.X = 400 'Wert von 335 --> 400
sRect.Y = 40
sRect.Width = 150
sRect.Height = 150
if nProp < 1 then 'Hochkant
sRect.Width = 150 * nProp
sRect.X = 400 + (150 - sRect.Width)/2 'Wert von 335 --> 400
elseif nProp > 1 then 'Querformat
sRect.Height = 150 / nProp
sRect.Y = 40 + (150 - sRect.Height)/2
end if
Wie gesagt, mein System openSUSE 10.2 x86_64, OOo 2.2
Die Version der .oxt Datei ist 0.9.1
Gruß
Berthold
[...]
--
Das! Office-Paket für Linux, MacOS X, Solaris und Windows:
http://de.OpenOffice.org
Registered Linux User 279390
pgpfgLQIi0KjZ.pgp
Description: PGP signature
