PureBasic Forums - English

Code: Select all

export PUREBASIC_HOME=~/purebasic_5_60_x64
export PATH=$PUREBASIC_HOME/compilers:$PATH

Code: Select all

Quick Installation method:

  If you do not need to use the compiler from the commandline, the quickest
  method is to simply extract the purebasic archive somewhere and execute
  the PureBasic IDE.

  Type "./purebasic" from inside the "compilers" folder, or doubleclick
  on the "purebasic" executable file in your file manager.


Other Installation methods:


  1) Recommended (doesn't require root rights)

     a) Setup the PUREBASIC_HOME environment variable to your purebasic
        path. It can be done in a terminal like this (if you have put 
        purebasic in your home directory):

  export PUREBASIC_HOME=~/purebasic


     b) Add the purebasic/compilers/ directory to you path, as it's
        where all purebasic binaries are. This can be done like this:

  export PATH=$PUREBASIC_HOME/compilers:$PATH


     After these 2 steps, you should be able to type 'pbcompiler' in a shell
     and you ready to use the IDE, just type 'purebasic'.

     Note that these steps only affect your current terminal session, and will not
     be present after you log out or restart. It is recommended that you put the above
     two lines inside a startup script (like "~/.bashrc" if you use the bash), so
     they are executed whenever you log in or open a terminal. 

Code: Select all

  Global FontScale
  Global TextFont
  Global GadgetFont
  Global DpiScaleFactorX.f
  Global DpiScaleFactorY.f
  Macro dpiX(_num_): (_num_ * DpiScaleFactorX): EndMacro
  Macro dpiY(_num_): (_num_ * DpiScaleFactorY): EndMacro  

 Procedure InitDpi()
    Protected dpiAware
    If OpenLibrary(0, "User32.dll")
      If Not CallFunction(0, "IsProcessDPIAware")
        CallFunction(0, "SetProcessDPIAware")
      EndIf
      CloseLibrary(0)
    EndIf
    DpiScaleFactorX.f = GetDeviceCaps_(GetDC_(#Null), #LOGPIXELSX) / 96
    DpiScaleFactorY.f = GetDeviceCaps_(GetDC_(#Null), #LOGPIXELSY) / 96
    If OSVersion() > #PB_OS_Windows_8
      FontScale = DpiScaleFactorY
    Else
      FontScale = 1
    EndIf
    TextFont = LoadFont(#PB_Any, "Tahoma", Round(12 * FontScale, #PB_Round_Up), #PB_Font_HighQuality)
    GadgetFont = LoadFont(#PB_Any, "Tahoma", Round(9 * FontScale, #PB_Round_Up), #PB_Font_HighQuality)
    SetGadgetFont(#PB_Default, FontID(GadgetFont))
  EndProcedure