fenster = CreateWindow("Form", 295, 190, 314, 222, 0, 3)
;Textarea
TextArea1 = CreateTextArea(8, 8, 289, 153, fenster)
;Button
Button1 = CreateButton("Selcteiren", 8, 168, 81, 17, fenster)
Button2 = CreateButton("kopieren", 96, 168, 81, 17, fenster)

Repeat
er = WaitEvent()
If er = $803 Then End
If er = $401 And EventSource() = Button1 Then
SendMessage(QueryObject(textarea1, 1), EM_SETSEL, 0, TextAreaLen(textarea1))
EndIf
If er = $401 And EventSource() = Button2 Then
Goto PDF
EndIf
Forever


.PDF
p  = PDF_new()                                    ; Assign a pointer to a new PDF document
of = PDF_open_file(p,"Test.pdf")               ; Create an empty file and assign it to the pointer
If of = -1 Then Print "Error - couldn't open PDF file":End  ; Check if there is write access to the file

PDF_set_info(p,"Creator","BlitzPDF v0.0.1.0")            ; Set some document infos
PDF_set_info(p,"Author","Kay Arnesen, www.pcakutt.no")
PDF_set_info(p,"Title","Hello World (Blitz)")

PDF_begin_page(p,595.0,842.0)                        ; Start a new page in A4 format

imgf=PDF_open_image_file(p,"jpeg","test.jpg","",0)   ; Assign and open image file
PDF_place_image(p,imgf,135,800,1)                     ; Place image in document
PDF_close_image(p,imgf)   

font = PDF_findfont(p,"Arial","host",0)                  ; Get a font from windows
PDF_setfont(p,font,24.0)                           ; Set font and it's size
PDF_set_text_pos(p,80.0,450.0)                        ; Set text position
PDF_show(p,TextAreaText(textarea1))   ; Print text to document

imgf=PDF_open_image_file(p,"jpeg","blitzbasic.jpg","",0)   ; Assign and open image file
PDF_place_image(p,imgf,135,500,1)                     ; Place image in document
PDF_close_image(p,imgf)                              ; Clear image from memory



font = PDF_findfont(p,"Helvetica-Bold","host",0)
PDF_setfont(p,font,36)
PDF_set_text_pos(p,150.0,450.0)
               ; Continue writing text
PDF_end_page(p)                                    ; End current PDF page

PDF_close(p)                                    ; Close PDF file
PDF_delete(p)                                    ; Delete PDF from memory

ExecFile "Test.pdf"
End

PDF_show_boxed(p,TextAreaText(textarea1),100,20,10,1,0,0)

SuperStrict

Framework PUB.PDFLib
Import BRL.LinkedList
Import BRL.StandardIO

Const OUTPUT      : String = "C:\test.pdf"
Const PAGE_WIDTH  : Float  = 400.0
Const PAGE_HEIGHT : Float  = 400.0
Const FONT_HEIGHT : Float  = 10.0

Global PDF      : Int
Global Font     : Int
Global Text     : String

PDF = PDF_new()
If(PDF_open_file(PDF, OUTPUT) = -1) Then
   Print("Error open file")
   End
EndIf

PDF_begin_page(PDF, PAGE_WIDTH, PAGE_HEIGHT)

Font = PDF_findfont(PDF, "helvetica", "host", 0)
PDF_setfont(PDF, Font, FONT_HEIGHT)

Text = "~qDenn nichts ist schwerer und nichts erfordert mehr Charakter,~r~n" + ..
       "als sich in offenem Gegensatz zu seiner Zeit zu befinden~r~n" + ..
       "und laut zu sagen: Nein~q~r~n~r~n" + ..
       "Kurt Tucholsky"

PDF_show_boxed(PDF, Text, 20.0, 20.0, ..
               PAGE_WIDTH - 40.0, PAGE_HEIGHT - 40.0, "left", "")

PDF_end_page(PDF)

PDF_close(PDF)

Constants must be initialized