PureBasic Forums - English

Code: Select all

LoadFont(0, "Arial", 48, #PB_Font_HighQuality)
LoadFont(1, "Comic Sans MS", 32, #PB_Font_HighQuality)
CreateImage(0, 500, 200, 24, $FFFFFF)
StartDrawing(ImageOutput(0))
DrawingMode(#PB_2DDrawing_Transparent)
DrawingFont(FontID(0))
DrawText(0, 0, "Arial 48 Mac!", $FF0000)
DrawingFont(FontID(1))
DrawText(0, 80, "Comic Sans MS 32 Mac!", $0000FF)
StopDrawing()
UsePNGImageEncoder()
SaveImage(0, "test_font_mac.png", #PB_ImagePlugin_PNG)

Code: Select all

LoadFont(0, "Arial", 48, #PB_Font_HighQuality)
CreateImage(0, 400, 100, 24, $FFFFFF)
StartDrawing(ImageOutput(0))
DrawingFont(FontID(0))
DrawingMode(#PB_2DDrawing_Transparent)
DrawText(0, 0, "Arial 48!", $FF0000)
Debug TextHeight("X")
StopDrawing()
ShowLibraryViewer("Image",0)
CallDebugger
;UsePNGImageEncoder()
;SaveImage(0, "test_mac.png", #PB_ImagePlugin_PNG)

Code: Select all

EnableExplicit
Global fontgrund 
Global y
Global event

Procedure fntsetzen()
  Protected  fo$,dpi.f,font_with.f
  ; stopdrawing
  dpi =1.70; 
  CompilerIf #PB_Compiler_OS =#PB_OS_Windows
    dpi =GetDeviceCaps_(GetDC_(GetDesktopWindow_()), 88)
    dpi =120 / dpi
  CompilerEndIf
  
  CompilerIf #PB_Compiler_OS =#PB_OS_MacOS
    fo$ ="Arial"
  CompilerElse
    fo$ ="Arial"
  CompilerEndIf 
  font_with=40.01
  LoadFont(0, fo$, IntQ(font_with*dpi)) ; number To play With
  
  ;  do startdrawing on again  
EndProcedure




If OpenWindow(0, 100, 200, 300, 200, "Drawtext")
  
  If CreateImage(0, 300, 200)
    
    fntsetzen()
     
    If StartDrawing(ImageOutput(0))
      Box(0,0,300,200,$FFFFFF)
      
      DrawingFont(FontID(fontgrund))
      FrontColor($000000) 
      For y=10 To 190 Step 10
        Line(0,y,300,1,#Gray)
      Next   
        DrawingMode(#PB_2DDrawing_Default)
        BackColor($FFFFFF) 
        DrawText(10,50,"Test")
        StopDrawing()
      EndIf
    EndIf
    
    ImageGadget(0, 0, 0, 0, 0, ImageID(0))
    
    Repeat
      Event = WaitWindowEvent() 
    Until Event = #PB_Event_CloseWindow  ;window + drawing handling from pb example
  EndIf 

Code: Select all

Procedure.d ScreenPoint2PixelsY(points.d)
    CompilerIf #PB_Compiler_OS = #PB_OS_Windows
        Protected hDC  = GetDC_( GetDesktopWindow_() )
        Protected dpiY = GetDeviceCaps_(hDC, #LOGPIXELSY)
        ReleaseDC_(GetDesktopWindow_(), hDC)
        ProcedureReturn (72.0 / dpiY) * points
    CompilerElse
        ProcedureReturn points
    CompilerEndIf
EndProcedure

LoadFont(0, "Arial", ScreenPoint2PixelsY(48), #PB_Font_HighQuality)
CreateImage(0, 400, 100, 24, $FFFFFF)
StartDrawing(ImageOutput(0))
DrawingFont(FontID(0))
DrawingMode(#PB_2DDrawing_Transparent)
DrawText(0, 0, "Arial 48!", $FF0000)
Debug TextHeight("X")
StopDrawing()
ShowLibraryViewer("Image",0)
CallDebugger
;UsePNGImageEncoder()
;SaveImage(0, "test_mac.png", #PB_ImagePlugin_PNG)