PureBasic Forums - English

Code: Select all

Changes:

- Added import libraries for gdiplus.dll (gdiplus_x86.lib & gdiplus_x64.lib)
  -> the import libraries are used now by Default!
     To use the old way with OpenLibrary(), declare the constant
     #gDrawing_NO_DLL_IMPORT=1 before XIncludeFile "gDrawing.pbi"

- Added example19.pb, draw on screen

- Fixed text drawing problem with font offset (reported by Stargate)
- Fixed some small 64bit problems

- removed #PB_Font_Default constant for PB4.60

Code: Select all

gDrawing v0.84,  15. Jan. 2012

- added commands

    gSetPenLineJoin( lineJoin.l )
        
        set line join mode, requested by Stargate
    
        mode is one of the following constants:
        
            #PenLineJoinMiter (default)
            #PenLineJoinBevel
            #PenLineJoinRound
            #PenLineJoinMiterClipped

    gSetPenMiterLimit( miterLimit.f )
        
        set miter limit for line joins

    gGetFontList( List fontList.s() )
    
        get GDI+ font list (font family names)
    
    gDrawRotatedFormattedText( x.f, y.f, width.f, height.f, Text$, angle.f [, color.q] )
    
        draw rotated formatted text, see gDrawFormattedText()
        
    gDrawFormattedText( x.f, y.f, width.f, height.f, Text$ [, color.q] )
    
        draw formatted text into the rectangle specified by "x,y,width,height"
        
        use gSetDrawTextFlags() to set the flags for formatting
        
    gSetDrawTextFlags( flags.l )
    
        set the formatting options for gDrawFormattedText()
    
        flags is a combination of the following constants:
        
        #DrawTextFullLinesOnly         - draws last line on bottom only if fully visible
            
        #DrawTextMeasureTrailingSpaces - include trailing spaces in measurement for text alignment
            
        #DrawTextNoWordWrap            - no automatic wordwrap at line end

        
        #DrawTextNoHotkey              - no hotkey (ampersand) processing
        #DrawTextShowHotkey            - process ampersand '&' and underline the next char.
                                         to display an ampersand, use it 2 times: &&
        #DrawTextHideHotkey            - process ampersand '&' but do not display underlined chars.
                                         to display an ampersand, use it 2 times: &&

                                         
        the following group defines how text on each line
        is aligned horizontally.
        you can only use 1 constant out of this group:
        
        #DrawTextLeftAligned           - text is horizontally left aligned
        #DrawTextCentered              - text is horizontally centered
        #DrawTextRightAligned          - text is horizontally right aligned
        
        
        the following group defines how text lines
        are aligned vertically.
        you can only use 1 constant out of this group:
        
        #DrawTextLineTopAligned        - text lines are vertically top aligned
        #DrawTextLineCentered          - text lines are vertically center aligned
        #DrawTextLineBottomAligned     - text lines are vertically bottom aligned
        
        
        the following group defines how text is cut/trimmed at the end
        if the text does not fit in the rectangle specified by gDrawFormattedText().
        you can only use 1 constant out of this group:
        
        #DrawTextNoTrimming                  - no trimming
        #DrawTextCharacterTrimming           - cut at character boundary
        #DrawTextWordTrimming                - cut at word      boundary
        #DrawTextEllipsisCharacterTrimming   - cut at character boundary and display ellipsis '...'
        #DrawTextEllipsisWordTrimming        - cut at word      boundary and display ellipsis '...'
        #DrawTextEllipsisPathTrimming        - cut in the center and display ellipsis '...'
                                               (for example: "http://pure...com/forums")


- added examples

    example 21  -  test gSetPenLineJoin()
    
    example 22  -  quick test for gDrawFormattedText()
    example 23  -  shows continuous text (running text) with resizable window
    example 24  -  little font browser that displays the gGetFontList()

Code: Select all

EnableExplicit

XIncludeFile "gDrawing.pbi"

Define iEvent.i
#WinMain = 0
#MyCanvas = 1

Procedure TestWin()
;------------------
     If gInit()

            If OpenWindow(#WinMain, 0, 0, 200, 200, "gDrawing",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)

                     CanvasGadget(#MyCanvas,10, 10, 180, 180)

                              If gStartDrawing(CanvasOutput(#MyCanvas))

                                     gDrawingMode(#PB_2DDrawing_Default)
                                          gCircle(90, 90, 6, #Blue)
                                     gStopDrawing()

                              Else
                                     Debug "gStartDrawing failed"
                              EndIf

                              If StartDrawing(CanvasOutput(#MyCanvas))
                                      DrawingMode(#PB_2DDrawing_Default)
                                           Circle(90, 120, 6, #Blue) 
                                      StopDrawing() 
                              EndIf
                              
            EndIf

            gEnd()

     Else
             Debug "gInit failed"
     EndIf

EndProcedure

TestWin()

Repeat
      iEvent = WaitWindowEvent()
Until iEvent = #PB_Event_CloseWindow

End