@ -156,8 +156,8 @@ TQByteArray PowerPointImport::createStyles()
TQByteArray stylesData ;
TQBuffer stylesBuffer ( stylesData ) ;
TQString pageWidth = TQString ( " %1pt " ) . tq arg( d - > presentation - > masterSlide ( ) - > pageWidth ( ) ) ;
TQString pageHeight = TQString ( " %1pt " ) . tq arg( d - > presentation - > masterSlide ( ) - > pageHeight ( ) ) ;
TQString pageWidth = TQString ( " %1pt " ) . arg( d - > presentation - > masterSlide ( ) - > pageWidth ( ) ) ;
TQString pageHeight = TQString ( " %1pt " ) . arg( d - > presentation - > masterSlide ( ) - > pageHeight ( ) ) ;
stylesBuffer . open ( IO_WriteOnly ) ;
stylesWriter = new KoXmlWriter ( & stylesBuffer ) ;
@ -351,11 +351,11 @@ void PowerPointImport::processEllipse (DrawObject* drawObject, KoXmlWriter* xmlW
{
if ( ! drawObject | | ! xmlWriter ) return ;
TQString widthStr = TQString ( " %1mm " ) . tq arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . tq arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . tq arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . tq arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . tq arg( drawingObjectCounter ) ;
TQString widthStr = TQString ( " %1mm " ) . arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . arg( drawingObjectCounter ) ;
xmlWriter - > startElement ( " draw:ellipse " ) ;
xmlWriter - > addAttribute ( " draw:style-name " , styleName ) ;
@ -372,11 +372,11 @@ void PowerPointImport::processRectangle (DrawObject* drawObject, KoXmlWriter* xm
if ( ! drawObject ) return ;
if ( ! xmlWriter ) return ;
TQString widthStr = TQString ( " %1mm " ) . tq arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . tq arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . tq arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . tq arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . tq arg( drawingObjectCounter ) ;
TQString widthStr = TQString ( " %1mm " ) . arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . arg( drawingObjectCounter ) ;
xmlWriter - > startElement ( " draw:rect " ) ;
xmlWriter - > addAttribute ( " draw:style-name " , styleName ) ;
@ -393,7 +393,7 @@ void PowerPointImport::processRectangle (DrawObject* drawObject, KoXmlWriter* xm
double xNew = xVec * cos ( rotAngle ) - yVec * sin ( rotAngle ) ;
double yNew = xVec * sin ( rotAngle ) + yVec * cos ( rotAngle ) ;
TQString rot = TQString ( " rotate (%1) translate (%2mm %3mm) " ) . tq arg( rotAngle ) . tq arg( xNew + xMid ) . tq arg( yMid - yNew ) ;
TQString rot = TQString ( " rotate (%1) translate (%2mm %3mm) " ) . arg( rotAngle ) . arg( xNew + xMid ) . arg( yMid - yNew ) ;
xmlWriter - > addAttribute ( " draw:transform " , rot ) ;
}
else
@ -409,13 +409,13 @@ void PowerPointImport::processRoundRectangle (DrawObject* drawObject, KoXmlWrite
{
if ( ! drawObject | | ! xmlWriter ) return ;
TQString widthStr = TQString ( " %1mm " ) . tq arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . tq arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . tq arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . tq arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . tq arg( drawingObjectCounter ) ;
TQString widthStr = TQString ( " %1mm " ) . arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . arg( drawingObjectCounter ) ;
xmlWriter - > startElement ( " draw:custom- tq shape" ) ;
xmlWriter - > startElement ( " draw:custom- shape" ) ;
xmlWriter - > addAttribute ( " draw:style-name " , styleName ) ;
@ -435,7 +435,7 @@ void PowerPointImport::processRoundRectangle (DrawObject* drawObject, KoXmlWrite
double xNew = xVec * cos ( rotAngle ) - yVec * sin ( rotAngle ) ;
double yNew = xVec * sin ( rotAngle ) + yVec * cos ( rotAngle ) ;
TQString rot = TQString ( " rotate (%1) translate (%2mm %3mm) " ) . tq arg( rotAngle ) . tq arg( xNew + xMid ) . tq arg( yMid + yNew ) ;
TQString rot = TQString ( " rotate (%1) translate (%2mm %3mm) " ) . arg( rotAngle ) . arg( xNew + xMid ) . arg( yMid + yNew ) ;
xmlWriter - > addAttribute ( " draw:transform " , rot ) ;
}
else
@ -448,7 +448,7 @@ void PowerPointImport::processRoundRectangle (DrawObject* drawObject, KoXmlWrite
double xNew = xVec * cos ( rotAngle ) - yVec * sin ( rotAngle ) ;
double yNew = xVec * sin ( rotAngle ) + yVec * cos ( rotAngle ) ;
TQString rot = TQString ( " rotate (%1) translate (%2mm %3mm) " ) . tq arg( rotAngle ) . tq arg( xNew + xMid ) . tq arg( yMid - yNew ) ;
TQString rot = TQString ( " rotate (%1) translate (%2mm %3mm) " ) . arg( rotAngle ) . arg( xNew + xMid ) . arg( yMid - yNew ) ;
xmlWriter - > addAttribute ( " draw:transform " , rot ) ;
}
@ -464,7 +464,7 @@ void PowerPointImport::processRoundRectangle (DrawObject* drawObject, KoXmlWrite
// xmlWriter->addAttribute( "svg:y", yStr );
xmlWriter - > addAttribute ( " draw:layer " , " tqlayout " ) ;
xmlWriter - > startElement ( " draw:enhanced- tq geometry" ) ;
xmlWriter - > startElement ( " draw:enhanced- geometry" ) ;
xmlWriter - > addAttribute ( " draw:type " , " round-rectangle " ) ;
xmlWriter - > startElement ( " draw:equation " ) ;
xmlWriter - > addAttribute ( " draw:formula " , " $0 /3 " ) ;
@ -486,21 +486,21 @@ void PowerPointImport::processRoundRectangle (DrawObject* drawObject, KoXmlWrite
xmlWriter - > addAttribute ( " draw:formula " , " top+?f0 " ) ;
xmlWriter - > addAttribute ( " draw:name " , " f4 " ) ;
xmlWriter - > endElement ( ) ; // draw:equation
xmlWriter - > endElement ( ) ; // draw:enhanced- tq geometry
xmlWriter - > endElement ( ) ; // draw:custom- tq shape
xmlWriter - > endElement ( ) ; // draw:enhanced- geometry
xmlWriter - > endElement ( ) ; // draw:custom- shape
}
void PowerPointImport : : processDiamond ( DrawObject * drawObject , KoXmlWriter * xmlWriter )
{
if ( ! drawObject | | ! xmlWriter ) return ;
TQString widthStr = TQString ( " %1mm " ) . tq arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . tq arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . tq arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . tq arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . tq arg( drawingObjectCounter ) ;
TQString widthStr = TQString ( " %1mm " ) . arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . arg( drawingObjectCounter ) ;
xmlWriter - > startElement ( " draw:custom- tq shape" ) ;
xmlWriter - > startElement ( " draw:custom- shape" ) ;
xmlWriter - > addAttribute ( " draw:style-name " , styleName ) ;
xmlWriter - > addAttribute ( " svg:width " , widthStr ) ;
xmlWriter - > addAttribute ( " svg:height " , heightStr ) ;
@ -522,7 +522,7 @@ void PowerPointImport::processDiamond (DrawObject* drawObject, KoXmlWriter* xmlW
xmlWriter - > addAttribute ( " svg:x " , 10 ) ;
xmlWriter - > addAttribute ( " svg:y " , 5 ) ;
xmlWriter - > endElement ( ) ;
xmlWriter - > startElement ( " draw:enhanced- tq geometry" ) ;
xmlWriter - > startElement ( " draw:enhanced- geometry" ) ;
xmlWriter - > addAttribute ( " draw:type " , " diamond " ) ;
xmlWriter - > endElement ( ) ;
xmlWriter - > addAttribute ( " draw:layer " , " tqlayout " ) ;
@ -533,14 +533,14 @@ void PowerPointImport::processTriangle (DrawObject* drawObject, KoXmlWriter* xml
{
if ( ! drawObject | | ! xmlWriter ) return ;
TQString widthStr = TQString ( " %1mm " ) . tq arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . tq arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . tq arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . tq arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . tq arg( drawingObjectCounter ) ;
TQString widthStr = TQString ( " %1mm " ) . arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . arg( drawingObjectCounter ) ;
/* draw IsocelesTriangle or RightTriangle */
xmlWriter - > startElement ( " draw:custom- tq shape" ) ;
xmlWriter - > startElement ( " draw:custom- shape" ) ;
xmlWriter - > addAttribute ( " draw:style-name " , styleName ) ;
xmlWriter - > addAttribute ( " svg:width " , widthStr ) ;
xmlWriter - > addAttribute ( " svg:height " , heightStr ) ;
@ -572,7 +572,7 @@ void PowerPointImport::processTriangle (DrawObject* drawObject, KoXmlWriter* xml
xmlWriter - > addAttribute ( " svg:y " , 5 ) ;
xmlWriter - > endElement ( ) ;
xmlWriter - > startElement ( " draw:enhanced- tq geometry" ) ;
xmlWriter - > startElement ( " draw:enhanced- geometry" ) ;
if ( drawObject - > hasProperty ( " draw:mirror-vertical " ) )
{
@ -588,14 +588,14 @@ void PowerPointImport::processTriangle (DrawObject* drawObject, KoXmlWriter* xml
double rotAngle = drawObject - > getDoubleProperty ( " libppt:rotation " ) ;
double xMid = ( drawObject - > left ( ) + 0.5 * drawObject - > width ( ) ) ;
double yMid = ( drawObject - > top ( ) + 0.5 * drawObject - > height ( ) ) ;
TQString rot = TQString ( " rotate (%1) translate (%2cm %3cm) " ) . tq arg( rotAngle ) . tq arg( xMid ) . tq arg( yMid ) ;
TQString rot = TQString ( " rotate (%1) translate (%2cm %3cm) " ) . arg( rotAngle ) . arg( xMid ) . arg( yMid ) ;
xmlWriter - > addAttribute ( " draw:transform " , rot ) ;
}
if ( drawObject - > tq shape( ) = = DrawObject : : RightTriangle )
if ( drawObject - > shape( ) = = DrawObject : : RightTriangle )
{
xmlWriter - > addAttribute ( " draw:type " , " right-triangle " ) ;
}
else if ( drawObject - > tq shape( ) = = DrawObject : : IsoscelesTriangle )
else if ( drawObject - > shape( ) = = DrawObject : : IsoscelesTriangle )
{
xmlWriter - > addAttribute ( " draw:type " , " isosceles-triangle " ) ;
xmlWriter - > startElement ( " draw:equation " ) ;
@ -637,21 +637,21 @@ void PowerPointImport::processTriangle (DrawObject* drawObject, KoXmlWriter* xml
xmlWriter - > endElement ( ) ;
}
xmlWriter - > endElement ( ) ; // enhanced- tq geometry
xmlWriter - > endElement ( ) ; // custom- tq shape
xmlWriter - > endElement ( ) ; // enhanced- geometry
xmlWriter - > endElement ( ) ; // custom- shape
}
void PowerPointImport : : processTrapezoid ( DrawObject * drawObject , KoXmlWriter * xmlWriter )
{
if ( ! drawObject | | ! xmlWriter ) return ;
TQString widthStr = TQString ( " %1mm " ) . tq arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . tq arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . tq arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . tq arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . tq arg( drawingObjectCounter ) ;
TQString widthStr = TQString ( " %1mm " ) . arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . arg( drawingObjectCounter ) ;
xmlWriter - > startElement ( " draw:custom- tq shape" ) ;
xmlWriter - > startElement ( " draw:custom- shape" ) ;
xmlWriter - > addAttribute ( " draw:style-name " , styleName ) ;
xmlWriter - > addAttribute ( " svg:width " , widthStr ) ;
xmlWriter - > addAttribute ( " svg:height " , heightStr ) ;
@ -675,7 +675,7 @@ void PowerPointImport::processTrapezoid (DrawObject* drawObject, KoXmlWriter* xm
xmlWriter - > addAttribute ( " svg:x " , 5 ) ;
xmlWriter - > addAttribute ( " svg:y " , 10 ) ;
xmlWriter - > endElement ( ) ;
xmlWriter - > startElement ( " draw:enhanced- tq geometry" ) ;
xmlWriter - > startElement ( " draw:enhanced- geometry" ) ;
if ( drawObject - > hasProperty ( " draw:mirror-vertical " ) )
{
xmlWriter - > addAttribute ( " draw:mirror-vertical " , " true " ) ;
@ -718,21 +718,21 @@ void PowerPointImport::processTrapezoid (DrawObject* drawObject, KoXmlWriter* xm
xmlWriter - > addAttribute ( " draw:handle-range-x-minimum " , 0 ) ;
xmlWriter - > addAttribute ( " draw:handle-position " , " $0 bottom " ) ;
xmlWriter - > endElement ( ) ;
xmlWriter - > endElement ( ) ; // enhanced- tq geometry
xmlWriter - > endElement ( ) ; // custom- tq shape
xmlWriter - > endElement ( ) ; // enhanced- geometry
xmlWriter - > endElement ( ) ; // custom- shape
}
void PowerPointImport : : processParallelogram ( DrawObject * drawObject , KoXmlWriter * xmlWriter )
{
if ( ! drawObject | | ! xmlWriter ) return ;
TQString widthStr = TQString ( " %1mm " ) . tq arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . tq arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . tq arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . tq arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . tq arg( drawingObjectCounter ) ;
TQString widthStr = TQString ( " %1mm " ) . arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . arg( drawingObjectCounter ) ;
xmlWriter - > startElement ( " draw:custom- tq shape" ) ;
xmlWriter - > startElement ( " draw:custom- shape" ) ;
xmlWriter - > addAttribute ( " draw:style-name " , styleName ) ;
xmlWriter - > addAttribute ( " svg:width " , widthStr ) ;
xmlWriter - > addAttribute ( " svg:height " , heightStr ) ;
@ -763,7 +763,7 @@ void PowerPointImport::processParallelogram (DrawObject* drawObject, KoXmlWriter
xmlWriter - > addAttribute ( " svg:x " , 1.25 ) ;
xmlWriter - > addAttribute ( " svg:y " , 5 ) ;
xmlWriter - > endElement ( ) ;
xmlWriter - > startElement ( " draw:enhanced- tq geometry" ) ;
xmlWriter - > startElement ( " draw:enhanced- geometry" ) ;
if ( drawObject - > hasProperty ( " draw:mirror-vertical " ) )
{
xmlWriter - > addAttribute ( " draw:mirror-vertical " , " true " ) ;
@ -834,21 +834,21 @@ void PowerPointImport::processParallelogram (DrawObject* drawObject, KoXmlWriter
xmlWriter - > addAttribute ( " draw:handle-range-x-minimum " , 0 ) ;
xmlWriter - > addAttribute ( " draw:handle-position " , " $0 top " ) ;
xmlWriter - > endElement ( ) ;
xmlWriter - > endElement ( ) ; // enhanced- tq geometry
xmlWriter - > endElement ( ) ; // custom- tq shape
xmlWriter - > endElement ( ) ; // enhanced- geometry
xmlWriter - > endElement ( ) ; // custom- shape
}
void PowerPointImport : : processHexagon ( DrawObject * drawObject , KoXmlWriter * xmlWriter )
{
if ( ! drawObject | | ! xmlWriter ) return ;
TQString widthStr = TQString ( " %1mm " ) . tq arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . tq arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . tq arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . tq arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . tq arg( drawingObjectCounter ) ;
TQString widthStr = TQString ( " %1mm " ) . arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . arg( drawingObjectCounter ) ;
xmlWriter - > startElement ( " draw:custom- tq shape" ) ;
xmlWriter - > startElement ( " draw:custom- shape" ) ;
xmlWriter - > addAttribute ( " draw:style-name " , styleName ) ;
xmlWriter - > addAttribute ( " svg:width " , widthStr ) ;
xmlWriter - > addAttribute ( " svg:height " , heightStr ) ;
@ -871,7 +871,7 @@ void PowerPointImport::processHexagon (DrawObject* drawObject, KoXmlWriter* xmlW
xmlWriter - > addAttribute ( " svg:x " , 10 ) ;
xmlWriter - > addAttribute ( " svg:y " , 5 ) ;
xmlWriter - > endElement ( ) ;
xmlWriter - > startElement ( " draw:enhanced- tq geometry" ) ;
xmlWriter - > startElement ( " draw:enhanced- geometry" ) ;
xmlWriter - > addAttribute ( " draw:type " , " hexagon " ) ;
xmlWriter - > startElement ( " draw:equation " ) ;
xmlWriter - > addAttribute ( " draw:formula " , " $0 " ) ;
@ -898,21 +898,21 @@ void PowerPointImport::processHexagon (DrawObject* drawObject, KoXmlWriter* xmlW
xmlWriter - > addAttribute ( " draw:handle-range-x-minimum " , 0 ) ;
xmlWriter - > addAttribute ( " draw:handle-position " , " $0 top " ) ;
xmlWriter - > endElement ( ) ;
xmlWriter - > endElement ( ) ; // enhanced- tq geometry
xmlWriter - > endElement ( ) ; // custom- tq shape
xmlWriter - > endElement ( ) ; // enhanced- geometry
xmlWriter - > endElement ( ) ; // custom- shape
}
void PowerPointImport : : processOctagon ( DrawObject * drawObject , KoXmlWriter * xmlWriter )
{
if ( ! drawObject | | ! xmlWriter ) return ;
TQString widthStr = TQString ( " %1mm " ) . tq arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . tq arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . tq arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . tq arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . tq arg( drawingObjectCounter ) ;
TQString widthStr = TQString ( " %1mm " ) . arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . arg( drawingObjectCounter ) ;
xmlWriter - > startElement ( " draw:custom- tq shape" ) ;
xmlWriter - > startElement ( " draw:custom- shape" ) ;
xmlWriter - > addAttribute ( " draw:style-name " , styleName ) ;
xmlWriter - > addAttribute ( " svg:width " , widthStr ) ;
xmlWriter - > addAttribute ( " svg:height " , heightStr ) ;
@ -935,7 +935,7 @@ void PowerPointImport::processOctagon (DrawObject* drawObject, KoXmlWriter* xmlW
xmlWriter - > addAttribute ( " svg:x " , 10 ) ;
xmlWriter - > addAttribute ( " svg:y " , 4.782 ) ;
xmlWriter - > endElement ( ) ;
xmlWriter - > startElement ( " draw:enhanced- tq geometry" ) ;
xmlWriter - > startElement ( " draw:enhanced- geometry" ) ;
xmlWriter - > addAttribute ( " draw:type " , " octagon " ) ;
xmlWriter - > startElement ( " draw:equation " ) ;
xmlWriter - > addAttribute ( " draw:formula " , " left+$0 " ) ;
@ -978,36 +978,36 @@ void PowerPointImport::processOctagon (DrawObject* drawObject, KoXmlWriter* xmlW
xmlWriter - > addAttribute ( " draw:handle-range-x-minimum " , 0 ) ;
xmlWriter - > addAttribute ( " draw:handle-position " , " $0 top " ) ;
xmlWriter - > endElement ( ) ;
xmlWriter - > endElement ( ) ; // enhanced- tq geometry
xmlWriter - > endElement ( ) ; // custom- tq shape
xmlWriter - > endElement ( ) ; // enhanced- geometry
xmlWriter - > endElement ( ) ; // custom- shape
}
void PowerPointImport : : processArrow ( DrawObject * drawObject , KoXmlWriter * xmlWriter )
{
if ( ! drawObject | | ! xmlWriter ) return ;
TQString widthStr = TQString ( " %1mm " ) . tq arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . tq arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . tq arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . tq arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . tq arg( drawingObjectCounter ) ;
TQString widthStr = TQString ( " %1mm " ) . arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . arg( drawingObjectCounter ) ;
xmlWriter - > startElement ( " draw:custom- tq shape" ) ;
xmlWriter - > startElement ( " draw:custom- shape" ) ;
xmlWriter - > addAttribute ( " draw:style-name " , styleName ) ;
xmlWriter - > addAttribute ( " svg:width " , widthStr ) ;
xmlWriter - > addAttribute ( " svg:height " , heightStr ) ;
xmlWriter - > addAttribute ( " svg:x " , xStr ) ;
xmlWriter - > addAttribute ( " svg:y " , yStr ) ;
xmlWriter - > addAttribute ( " draw:layer " , " tqlayout " ) ;
xmlWriter - > startElement ( " draw:enhanced- tq geometry" ) ;
xmlWriter - > startElement ( " draw:enhanced- geometry" ) ;
if ( drawObject - > tq shape( ) = = DrawObject : : RightArrow )
if ( drawObject - > shape( ) = = DrawObject : : RightArrow )
xmlWriter - > addAttribute ( " draw:type " , " right-arrow " ) ;
else if ( drawObject - > tq shape( ) = = DrawObject : : LeftArrow )
else if ( drawObject - > shape( ) = = DrawObject : : LeftArrow )
xmlWriter - > addAttribute ( " draw:type " , " left-arrow " ) ;
else if ( drawObject - > tq shape( ) = = DrawObject : : UpArrow )
else if ( drawObject - > shape( ) = = DrawObject : : UpArrow )
xmlWriter - > addAttribute ( " draw:type " , " up-arrow " ) ;
else if ( drawObject - > tq shape( ) = = DrawObject : : DownArrow )
else if ( drawObject - > shape( ) = = DrawObject : : DownArrow )
xmlWriter - > addAttribute ( " draw:type " , " down-arrow " ) ;
xmlWriter - > startElement ( " draw:equation " ) ;
xmlWriter - > addAttribute ( " draw:formula " , " $1 " ) ;
@ -1042,7 +1042,7 @@ void PowerPointImport::processArrow (DrawObject* drawObject, KoXmlWriter* xmlWri
xmlWriter - > addAttribute ( " draw:name " , " f7 " ) ;
xmlWriter - > endElement ( ) ; // draw:equation
xmlWriter - > startElement ( " draw:handle " ) ;
if ( drawObject - > tq shape( ) = = DrawObject : : RightArrow | drawObject - > tq shape( ) = = DrawObject : : LeftArrow )
if ( drawObject - > shape( ) = = DrawObject : : RightArrow | drawObject - > shape( ) = = DrawObject : : LeftArrow )
{
xmlWriter - > addAttribute ( " draw:handle-range-x-maximum " , 21600 ) ;
xmlWriter - > addAttribute ( " draw:handle-range-x-minimum " , 0 ) ;
@ -1050,7 +1050,7 @@ void PowerPointImport::processArrow (DrawObject* drawObject, KoXmlWriter* xmlWri
xmlWriter - > addAttribute ( " draw:handle-range-y-maximum " , 10800 ) ;
xmlWriter - > addAttribute ( " draw:handle-range-y-minimum " , 0 ) ;
}
else if ( drawObject - > tq shape( ) = = DrawObject : : UpArrow | drawObject - > tq shape( ) = = DrawObject : : DownArrow )
else if ( drawObject - > shape( ) = = DrawObject : : UpArrow | drawObject - > shape( ) = = DrawObject : : DownArrow )
{
xmlWriter - > addAttribute ( " draw:handle-range-x-maximum " , 10800 ) ;
xmlWriter - > addAttribute ( " draw:handle-range-x-minimum " , 0 ) ;
@ -1059,19 +1059,19 @@ void PowerPointImport::processArrow (DrawObject* drawObject, KoXmlWriter* xmlWri
xmlWriter - > addAttribute ( " draw:handle-range-y-minimum " , 0 ) ;
}
xmlWriter - > endElement ( ) ; // draw:handle
xmlWriter - > endElement ( ) ; // draw:enhanced- tq geometry
xmlWriter - > endElement ( ) ; // draw:custom- tq shape
xmlWriter - > endElement ( ) ; // draw:enhanced- geometry
xmlWriter - > endElement ( ) ; // draw:custom- shape
}
void PowerPointImport : : processLine ( DrawObject * drawObject , KoXmlWriter * xmlWriter )
{
if ( ! drawObject | | ! xmlWriter ) return ;
TQString x1Str = TQString ( " %1mm " ) . tq arg( drawObject - > left ( ) ) ;
TQString y1Str = TQString ( " %1mm " ) . tq arg( drawObject - > top ( ) ) ;
TQString x2Str = TQString ( " %1mm " ) . tq arg( drawObject - > left ( ) + drawObject - > width ( ) ) ;
TQString y2Str = TQString ( " %1mm " ) . tq arg( drawObject - > top ( ) + drawObject - > height ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . tq arg( drawingObjectCounter ) ;
TQString x1Str = TQString ( " %1mm " ) . arg( drawObject - > left ( ) ) ;
TQString y1Str = TQString ( " %1mm " ) . arg( drawObject - > top ( ) ) ;
TQString x2Str = TQString ( " %1mm " ) . arg( drawObject - > left ( ) + drawObject - > width ( ) ) ;
TQString y2Str = TQString ( " %1mm " ) . arg( drawObject - > top ( ) + drawObject - > height ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . arg( drawingObjectCounter ) ;
if ( drawObject - > hasProperty ( " draw:mirror-vertical " ) )
{ TQString temp = y1Str ;
@ -1099,13 +1099,13 @@ void PowerPointImport::processSmiley (DrawObject* drawObject, KoXmlWriter* xmlWr
{
if ( ! drawObject | | ! xmlWriter ) return ;
TQString widthStr = TQString ( " %1mm " ) . tq arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . tq arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . tq arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . tq arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . tq arg( drawingObjectCounter ) ;
TQString widthStr = TQString ( " %1mm " ) . arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . arg( drawingObjectCounter ) ;
xmlWriter - > startElement ( " draw:custom- tq shape" ) ;
xmlWriter - > startElement ( " draw:custom- shape" ) ;
xmlWriter - > addAttribute ( " draw:style-name " , styleName ) ;
xmlWriter - > addAttribute ( " svg:width " , widthStr ) ;
xmlWriter - > addAttribute ( " svg:height " , heightStr ) ;
@ -1136,7 +1136,7 @@ void PowerPointImport::processSmiley (DrawObject* drawObject, KoXmlWriter* xmlWr
xmlWriter - > addAttribute ( " svg:x " , 8.536 ) ;
xmlWriter - > addAttribute ( " svg:y " , 1.461 ) ;
xmlWriter - > endElement ( ) ;
xmlWriter - > startElement ( " draw:enhanced- tq geometry" ) ;
xmlWriter - > startElement ( " draw:enhanced- geometry" ) ;
xmlWriter - > addAttribute ( " draw:type " , " smiley " ) ;
xmlWriter - > startElement ( " draw:equation " ) ;
xmlWriter - > addAttribute ( " draw:formula " , " $0-15510 " ) ;
@ -1156,21 +1156,21 @@ void PowerPointImport::processSmiley (DrawObject* drawObject, KoXmlWriter* xmlWr
xmlWriter - > addAttribute ( " draw:handle-range-y-minimum " , 15510 ) ;
xmlWriter - > addAttribute ( " draw:handle-position " , " $0 top " ) ;
xmlWriter - > endElement ( ) ;
xmlWriter - > endElement ( ) ; // enhanced- tq geometry
xmlWriter - > endElement ( ) ; // custom- tq shape
xmlWriter - > endElement ( ) ; // enhanced- geometry
xmlWriter - > endElement ( ) ; // custom- shape
}
void PowerPointImport : : processHeart ( DrawObject * drawObject , KoXmlWriter * xmlWriter )
{
if ( ! drawObject | | ! xmlWriter ) return ;
TQString widthStr = TQString ( " %1mm " ) . tq arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . tq arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . tq arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . tq arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . tq arg( drawingObjectCounter ) ;
TQString widthStr = TQString ( " %1mm " ) . arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . arg( drawingObjectCounter ) ;
xmlWriter - > startElement ( " draw:custom- tq shape" ) ;
xmlWriter - > startElement ( " draw:custom- shape" ) ;
xmlWriter - > addAttribute ( " draw:style-name " , styleName ) ;
xmlWriter - > addAttribute ( " svg:width " , widthStr ) ;
xmlWriter - > addAttribute ( " svg:height " , heightStr ) ;
@ -1193,22 +1193,22 @@ void PowerPointImport::processHeart (DrawObject* drawObject, KoXmlWriter* xmlWri
xmlWriter - > addAttribute ( " svg:x " , 8.553 ) ;
xmlWriter - > addAttribute ( " svg:y " , 5 ) ;
xmlWriter - > endElement ( ) ;
xmlWriter - > startElement ( " draw:enhanced- tq geometry" ) ;
xmlWriter - > startElement ( " draw:enhanced- geometry" ) ;
xmlWriter - > addAttribute ( " draw:type " , " heart " ) ;
xmlWriter - > endElement ( ) ; // enhanced- tq geometry
xmlWriter - > endElement ( ) ; // custom- tq shape
xmlWriter - > endElement ( ) ; // enhanced- geometry
xmlWriter - > endElement ( ) ; // custom- shape
}
void PowerPointImport : : processFreeLine ( DrawObject * drawObject , KoXmlWriter * xmlWriter )
{
if ( ! drawObject | | ! xmlWriter ) return ;
TQString widthStr = TQString ( " %1mm " ) . tq arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . tq arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . tq arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . tq arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . tq arg( drawingObjectCounter ) ;
TQString widthStr = TQString ( " %1mm " ) . arg( drawObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . arg( drawObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . arg( drawObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . arg( drawObject - > top ( ) ) ;
TQString styleName = TQString ( " gr%1 " ) . arg( drawingObjectCounter ) ;
xmlWriter - > startElement ( " draw:path " ) ;
xmlWriter - > addAttribute ( " draw:style-name " , styleName ) ;
@ -1228,63 +1228,63 @@ void PowerPointImport::processDrawingObjectForBody( DrawObject* drawObject, KoXm
drawingObjectCounter + + ;
if ( drawObject - > tq shape( ) = = DrawObject : : Ellipse )
if ( drawObject - > shape( ) = = DrawObject : : Ellipse )
{
processEllipse ( drawObject , xmlWriter ) ;
}
else if ( drawObject - > tq shape( ) = = DrawObject : : Rectangle )
else if ( drawObject - > shape( ) = = DrawObject : : Rectangle )
{
processRectangle ( drawObject , xmlWriter ) ;
}
else if ( drawObject - > tq shape( ) = = DrawObject : : RoundRectangle )
else if ( drawObject - > shape( ) = = DrawObject : : RoundRectangle )
{
processRoundRectangle ( drawObject , xmlWriter ) ;
}
else if ( drawObject - > tq shape( ) = = DrawObject : : Diamond )
else if ( drawObject - > shape( ) = = DrawObject : : Diamond )
{
processDiamond ( drawObject , xmlWriter ) ;
}
else if ( drawObject - > tq shape( ) = = DrawObject : : IsoscelesTriangle |
drawObject - > tq shape( ) = = DrawObject : : RightTriangle )
else if ( drawObject - > shape( ) = = DrawObject : : IsoscelesTriangle |
drawObject - > shape( ) = = DrawObject : : RightTriangle )
{
processTriangle ( drawObject , xmlWriter ) ;
}
else if ( drawObject - > tq shape( ) = = DrawObject : : Trapezoid )
else if ( drawObject - > shape( ) = = DrawObject : : Trapezoid )
{
processTrapezoid ( drawObject , xmlWriter ) ;
}
else if ( drawObject - > tq shape( ) = = DrawObject : : Parallelogram )
else if ( drawObject - > shape( ) = = DrawObject : : Parallelogram )
{
processParallelogram ( drawObject , xmlWriter ) ;
}
else if ( drawObject - > tq shape( ) = = DrawObject : : Hexagon )
else if ( drawObject - > shape( ) = = DrawObject : : Hexagon )
{
processHexagon ( drawObject , xmlWriter ) ;
}
else if ( drawObject - > tq shape( ) = = DrawObject : : Octagon )
else if ( drawObject - > shape( ) = = DrawObject : : Octagon )
{
processOctagon ( drawObject , xmlWriter ) ;
}
else if ( drawObject - > tq shape( ) = = DrawObject : : RightArrow |
drawObject - > tq shape( ) = = DrawObject : : LeftArrow |
drawObject - > tq shape( ) = = DrawObject : : UpArrow |
drawObject - > tq shape( ) = = DrawObject : : DownArrow )
else if ( drawObject - > shape( ) = = DrawObject : : RightArrow |
drawObject - > shape( ) = = DrawObject : : LeftArrow |
drawObject - > shape( ) = = DrawObject : : UpArrow |
drawObject - > shape( ) = = DrawObject : : DownArrow )
{
processArrow ( drawObject , xmlWriter ) ;
}
else if ( drawObject - > tq shape( ) = = DrawObject : : Line )
else if ( drawObject - > shape( ) = = DrawObject : : Line )
{
processLine ( drawObject , xmlWriter ) ;
}
else if ( drawObject - > tq shape( ) = = DrawObject : : Smiley )
else if ( drawObject - > shape( ) = = DrawObject : : Smiley )
{
processSmiley ( drawObject , xmlWriter ) ;
}
else if ( drawObject - > tq shape( ) = = DrawObject : : Heart )
else if ( drawObject - > shape( ) = = DrawObject : : Heart )
{
processHeart ( drawObject , xmlWriter ) ;
}
else if ( drawObject - > tq shape( ) = = DrawObject : : FreeLine )
else if ( drawObject - > shape( ) = = DrawObject : : FreeLine )
{
processFreeLine ( drawObject , xmlWriter ) ;
}
@ -1317,10 +1317,10 @@ void PowerPointImport::processTextObjectForBody( TextObject* textObject, KoXmlWr
// TQString pStr = string( textObject->text() ).string();
TQString pStr ;
TQString widthStr = TQString ( " %1mm " ) . tq arg( textObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . tq arg( textObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . tq arg( textObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . tq arg( textObject - > top ( ) ) ;
TQString widthStr = TQString ( " %1mm " ) . arg( textObject - > width ( ) ) ;
TQString heightStr = TQString ( " %1mm " ) . arg( textObject - > height ( ) ) ;
TQString xStr = TQString ( " %1mm " ) . arg( textObject - > left ( ) ) ;
TQString yStr = TQString ( " %1mm " ) . arg( textObject - > top ( ) ) ;
xmlWriter - > startElement ( " draw:frame " ) ;
xmlWriter - > addAttribute ( " presentation:style-name " , " pr1 " ) ;
@ -1381,9 +1381,9 @@ void PowerPointImport::processSlideForBody( unsigned slideNo, Slide* slide, KoXm
TQString nameStr = Libppt : : string ( slide - > title ( ) ) . string ( ) ;
if ( nameStr . isEmpty ( ) )
nameStr = TQString ( " page%1 " ) . tq arg( slideNo + 1 ) ;
nameStr = TQString ( " page%1 " ) . arg( slideNo + 1 ) ;
TQString styleNameStr = TQString ( " dp%1 " ) . tq arg( slideNo + 1 ) ;
TQString styleNameStr = TQString ( " dp%1 " ) . arg( slideNo + 1 ) ;
xmlWriter - > startElement ( " draw:page " ) ;
xmlWriter - > addAttribute ( " draw:master-page-name " , " Default " ) ;
@ -1450,7 +1450,7 @@ void PowerPointImport::processDrawingObjectForStyle( DrawObject* drawObject, KoX
if ( ! drawObject | | ! xmlWriter ) return ;
drawingObjectCounter + + ;
TQString styleName = TQString ( " gr%1 " ) . tq arg( drawingObjectCounter ) ;
TQString styleName = TQString ( " gr%1 " ) . arg( drawingObjectCounter ) ;
xmlWriter - > startElement ( " style:style " ) ;
xmlWriter - > addAttribute ( " style:name " , styleName ) ;
@ -1490,7 +1490,7 @@ void PowerPointImport::processDrawingObjectForStyle( DrawObject* drawObject, KoX
if ( drawObject - > hasProperty ( " svg:stroke-width " ) )
{
double strokeWidth = drawObject - > getDoubleProperty ( " svg:stroke-width " ) ;
xmlWriter - > addAttribute ( " svg:stroke-width " , TQString ( " %1mm " ) . tq arg( strokeWidth ) ) ;
xmlWriter - > addAttribute ( " svg:stroke-width " , TQString ( " %1mm " ) . arg( strokeWidth ) ) ;
}
if ( drawObject - > hasProperty ( " svg:stroke-color " ) )
@ -1528,14 +1528,14 @@ void PowerPointImport::processDrawingObjectForStyle( DrawObject* drawObject, KoX
{
double strokeWidth = drawObject - > getDoubleProperty ( " svg:stroke-width " ) ;
double arrowWidth = ( drawObject - > getDoubleProperty ( " draw:marker-start-width " ) * strokeWidth ) ;
xmlWriter - > addAttribute ( " draw:marker-start-width " , TQString ( " %1cm " ) . tq arg( arrowWidth ) ) ;
xmlWriter - > addAttribute ( " draw:marker-start-width " , TQString ( " %1cm " ) . arg( arrowWidth ) ) ;
}
if ( drawObject - > hasProperty ( " draw:marker-end-width " ) )
{
double strokeWidth = drawObject - > getDoubleProperty ( " svg:stroke-width " ) ;
double arrowWidth = ( drawObject - > getDoubleProperty ( " draw:marker-end-width " ) * strokeWidth ) ;
xmlWriter - > addAttribute ( " draw:marker-end-width " , TQString ( " %1cm " ) . tq arg( arrowWidth ) ) ;
xmlWriter - > addAttribute ( " draw:marker-end-width " , TQString ( " %1cm " ) . arg( arrowWidth ) ) ;
}
@ -1569,19 +1569,19 @@ void PowerPointImport::processDrawingObjectForStyle( DrawObject* drawObject, KoX
if ( drawObject - > hasProperty ( " draw:shadow-opacity " ) )
{
double opacity = drawObject - > getDoubleProperty ( " draw:shadow-opacity " ) ;
xmlWriter - > addAttribute ( " draw:shadow-opacity " , TQString ( " %1% " ) . tq arg( opacity ) ) ;
xmlWriter - > addAttribute ( " draw:shadow-opacity " , TQString ( " %1% " ) . arg( opacity ) ) ;
}
if ( drawObject - > hasProperty ( " draw:shadow-offset-x " ) )
{
double offset = drawObject - > getDoubleProperty ( " draw:shadow-offset-x " ) ;
xmlWriter - > addAttribute ( " draw:shadow-offset-x " , TQString ( " %1cm " ) . tq arg( offset ) ) ;
xmlWriter - > addAttribute ( " draw:shadow-offset-x " , TQString ( " %1cm " ) . arg( offset ) ) ;
}
if ( drawObject - > hasProperty ( " draw:shadow-offset-y " ) )
{
double offset = drawObject - > getDoubleProperty ( " draw:shadow-offset-y " ) ;
xmlWriter - > addAttribute ( " draw:shadow-offset-y " , TQString ( " %1cm " ) . tq arg( offset ) ) ;
xmlWriter - > addAttribute ( " draw:shadow-offset-y " , TQString ( " %1cm " ) . arg( offset ) ) ;
}