On 14/01/2016 3:00, meilin wrote:
Hi!
we can draw some shapes in writer doc such as rect, line, circle and
so on.
now i want to know how to draw these shapes to a virtual device.
i have already saw some code about drawing,but it's too hard for me to
understand.
so i ask you for help, if you have some documents about drawing?
please send me,thank you!
Yes i exports Charts to a Dialog and also to a PNG grachip file
is use basic code below
we need the "Drawpage" with the chart in it
a "url" to save the png file
sub exportChart(Drawpage as object, url as string )
'prepare the renderer for the GraphicExportFilter
oRenderer = createUnoService("com.sun.star.graphic.GraphicRendererVCL")
Dim sRect as new com.sun.star.awt.Rectangle
Wfactor = oChartDialog.size.width/oChartDialog.model.width
Hfactor = oChartDialog.size.height/oChartDialog.model.height
sRect.X = 0
sRect.Y = 0
sRect.Height = 180*Hfactor 'de hight is in charhe
sRect.Width = 29*Wfactor
oRenderer.setPropertyValue("DestinationRect", sRect)
'the renderer shall paint to the dialog window
oRenderer.setPropertyValue("Device",
oChartDialog.Peer.createGraphics.Device)
Dim aArgs (1) as new com.sun.star.beans.PropertyValue
aArgs(0).Name = "GraphicRenderer"
aArgs(0).Value = oRenderer
xExporter =
createUnoService("com.sun.star.drawing.GraphicExportFilter" )
xExporter.setSourceDocument(oSheet.DrawPage.getByIndex(0))
xExporter.filter(aArgs()) 'export to the dialog
xExporter =
createUnoService("com.sun.star.drawing.GraphicExportFilter")
xExporter.SetSourceDocument(Drawpage)
Dim aURL as new com.sun.star.util.URL
aURL.complete = url
aArgs(0).Name = "MediaType"
aArgs(0).Value = "image/png"
aArgs(1).Name = "URL"
aArgs(1).Value = aURL
REM Grafiek Opslaan
xExporter.filter(aArgs()) ' export to a png file
End Sub
Hope it helps
Fernand
another problem
i want to draw some shapes in printpreview window, whether it's
reasonable?
waiting for you help, thank you!
_______________________________________________
LibreOffice mailing list
LibreOffice@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice
_______________________________________________
LibreOffice mailing list
LibreOffice@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice
