xsharp.eu

Code: Select all

USING Syncfusion.DocIO  // Syncfusion.DocIO.Base.dll
USING Syncfusion.DocIO.DLS
USING System.Drawing   // System.Drawing (GAC)

FUNCTION Start( ) AS VOID
	System.Console.WriteLine("Hello x#!")
	
	LOCAL	Document AS WordDocument
	Document := WordDocument{}
	
// Set PageSettings
	
	LOCAL Section AS IWSection
	Section := Document:AddSection()
	
	LOCAL FirstParagraph AS IWParagraph
	FirstParagraph := Section:AddParagraph()
	
	FirstParagraph:ParagraphFormat:HorizontalAlignment := HorizontalAlignment.Justify
	
	LOCAL firstTextRange AS IWTextRange
	firstTextRange := FirstParagraph:AppendText("Lorem")
//sets the font formatting of the text range
	firstTextRange:CharacterFormat:Bold := TRUE
	firstTextRange:CharacterFormat:FontName := "Calibri"
	firstTextRange:CharacterFormat:FontSize := 14
//Adds another text range into the paragraph
	
	LOCAL secondTextRange AS IWTextRange
	secondTextRange := firstParagraph:AppendText(" ipsum dolor sit"+;
		"amet, consectetur adipiscing elit, sed DO eiusmod tempor incididunt ut"+;
		"labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud"+;
		"exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. ")
//sets the font formatting of the text range
	secondTextRange:CharacterFormat:FontName := "Courier New"
	secondTextRange:CharacterFormat:FontSize := 11
	secondTextRange:CharacterFormat:OutLine := TRUE
	
	firstParagraph := Section:AddParagraph()
	firstTextRange := FirstParagraph:AppendText("Bold 12364")
//sets the font formatting of the text range
	firstTextRange:CharacterFormat:Bold := TRUE
	firstTextRange:CharacterFormat:FontName := "Courier New"
	firstTextRange:CharacterFormat:FontSize := 11
	firstTextRange:CharacterFormat:Bold := TRUE
	
	firstParagraph := Section:AddParagraph()
	firstTextRange := FirstParagraph:AppendText("Cond 123456")
//sets the font formatting of the text range
	firstTextRange:CharacterFormat:Bold := TRUE
	firstTextRange:CharacterFormat:FontName := "Courier New"
	firstTextRange:CharacterFormat:FontSize := 11
	firstTextRange:CharacterFormat:CharacterSpacing := -2.0
	
	firstTextRange := FirstParagraph:AppendText("Blauer Text")
//sets the font formatting of the text range
	firstTextRange:CharacterFormat:Bold := TRUE
	firstTextRange:CharacterFormat:FontName := "Arial"
	firstTextRange:CharacterFormat:FontSize := 14
	firstTextRange:CharacterFormat:TextColor := Color.Blue
	
	firstTextRange := FirstParagraph:AppendText("Roter Text")
//sets the font formatting of the text range
	firstTextRange:CharacterFormat:Bold := TRUE
	firstTextRange:CharacterFormat:FontName := "Times New Roman"
	firstTextRange:CharacterFormat:FontSize := 12
	
	firstTextRange:CharacterFormat:TextColor := Color.Red
	
	Document:Save( "Result.docx" )
	document:Close()
	Document := NULL
	
RETURN

Code: Select all

Set Printer To LPT1:
? // New line
?? "In the same line"
? // "A second line"
?? CHR(12) // New page

Code: Select all

? -> VM_DruFZ()
?? -> VM_DruFZZ()

Code: Select all

FUNCTION VM_DruFZ()
	QOUT()
RETURN

FUNCTION VM_DruFZZ( Text AS STRING )
	QQOut( Text )
RETURN

FUNCTION VM_DruFF()
	QQOut( Chr(12) )
RETURN

VM_DruFZ() //  "New line"
VM_DruFZZ( "In the same line" )
VM_DruFZ() // "A second line"
VM_DruFF() // "New Page

Code: Select all

FUNCTION VM_DruFZ()
	PrNewLine()
RETURN

FUNCTION VM_DruFZZ( Text AS STRING )
	PrWriteStr( Text )
RETURN

FUNCTION VM_DruFF()
	PrNewPage()
RETURN

Code: Select all

INTERFACE IGCRPrinter
	METHOD VM_DruFZ() AS VOID
	METHOD VM_DruFZZ( Text AS STRING ) AS VOID
	METHOD VM_DruFF( ) AS VOID
END INTERFACE

Code: Select all

PARTIAL ABSTRACT CLASS GCRPrinterAbstract IMPLEMENTS IGCRPrinter

	METHOD IGCRPrinter.VM_DruFZ( ) AS VOID
		PrNewLine( )
	ABSTRACT METHOD PrNewLine() AS LOGIC

	METHOD IGCRPrinter.VM_DruFZZ( Text AS STRING ) AS VOID
		PrWriteStr( Text )
	ABSTRACT METHOD PrWritestr( Text AS STRING ) AS INT

	METHOD IGCRPrinter.VM_DruFF( ) AS VOID
		PrNewPage()
	ABSTRACT METHOD PrNewPage() AS LOGIC

END CLASS

Code: Select all

PARTIAL SEALED CLASS GCRPrinterToPDF INHERIT GCRPrinterAbstract

	PRIVATE Document AS PdfDocument
	PRIVATE Page AS PdfPage
	PRIVATE Graphics AS PdfGraphics

	METHOD PrNewLine() AS LOGIC
		TextPosHorizontal := 0.0
		TextPosVertikal   += TextLineHeight
	RETURN TRUE

	METHOD PrWritestr( sOutBuff AS STRING ) AS INT

		TextElement := PdfTextElement{sOutBuff, Font }
		TextElement:Brush := Brush
      TextElement:StringFormat := StringFormat
		result := TextElement:Draw(page, PointF{TextPosHorizontal, TextPosVertikal})

		TextPosHorizontal += result:Bounds:Width
		TextLineHeight := result:Bounds:Height

	RETURN sOutBuff:Length

	METHOD PrNewPage() AS LOGIC
		Page := document:Pages:Add()
      Graphics := Page:Graphics
		TextPosHorizontal := 0.0
		TextPosVertikal   := 0.0
		TextLineHeight   := 10.0
	RETURN TRUE

END CLASS

Code: Select all

PARTIAL SEALED CLASS GCRPrinterToWordDoc INHERIT GCRPrinterAbstract

	PRIVATE Document AS WordDocument
	PRIVATE Section AS IWSection
	PRIVATE FirstParagraph AS IWParagraph
	PRIVATE CharacterFormat AS Syncfusion.DocIO.DLS.WCharacterFormat

	METHOD PrNewLine() AS LOGIC
		firstParagraph := Section:AddParagraph()
	RETURN TRUE

	METHOD PrWritestr( sOutBuff AS STRING ) AS INT
		TextRange := firstParagraph:AppendText( sOutBuff )
	RETURN sOutBuff:Length

	METHOD PrNewPage() AS LOGIC
		Section := Document:AddSection()
		FirstParagraph := Section:AddParagraph()
	RETURN TRUE

END CLASS

Code: Select all

CLASS BusinessBase
	PRIVATE Printer AS IGCRPrinter

	METHOD SetPrinter( printer AS IGCRPrinter ) AS VOID
 		Self:Printer := Printer
 	RETURN
 	
// Mapping print functions to printer
	METHOD VM_DruFZ() AS VOID
		Printer:DruFZ()

	METHOD VM_DruFZZ( Text AS STRING ) AS VOID
		Printer:DruFZZ( Text )

	METHOD VM_DruFF( ) AS VOID
		Printer:DruFF()

END CLASS

Code: Select all

CLASS Working INHERIT BusinessBase

	VM_DruFZ() //  "New line"
	VM_DruFZZ( "In the same line" )
	VM_DruFZ() // "A second line"
	VM_DruFF() // "New Page

END CLASS