PureBasic Forums - English

Code: Select all

; Emoji fonts
CompilerIf #PB_Compiler_OS= #PB_OS_Windows
  fontEmoji.s= "Segoe UI Emoji"
CompilerElseIf #PB_Compiler_OS= #PB_OS_MacOS
  fontEmoji.s= "Apple Color Emoji"
CompilerElseIf #PB_Compiler_OS= #PB_OS_Linux
  fontEmoji.s= "Noto Color Emoji"
CompilerEndIf
LoadFont(0,fontEmoji,20,#PB_Font_HighQuality)

winMain= OpenWindow(#PB_Any,0,0,1400,800,"test",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  canvas= CanvasGadget(#PB_Any,5,5,1400,800)

StartDrawing(CanvasOutput(canvas))
  DrawingMode(#PB_2DDrawing_Transparent)
  FrontColor(0):BackColor($ffffff)
  DrawingFont(FontID(0))

  h=50
  y=-h
  Box(0,0,h-1,h-1,$88ff88)
  y+h:DrawText(0, y,"◀️ 🔼 🔽 ▶️ 🗺️ ☢☣☕☔☯☮☪☦☸♟♠♣♥♦⛽✂✗✓✔✘✨✵❣⤴⤵")
  y+h:DrawText(0, y,"🧩 ❌ ✅ ⚠ 🎯 🔍 🛡️ 🌍 🧭 💻 📊 💬 🔒 🔪 🎙️ 🎹 🔴")
  y+h:DrawText(0, y,"🧠 😎 🧪 🔁 📜 🔧 🔤 ⏱️ 📦 🌐 📂 🧼 📐 🧬 🎵 🎼 🌿 🍃 🍀🏢 🏠 🏛️ 🏬 🏗️💡 🪔 🕯️🌳 🌲🚧")
  y+h:DrawText(0, y,"➡️ ⬅️ ⬆️ ⬇️ ↔️ ↕️ ↖️ ↗️ ↘️ ↙️ 🔄 🔁 🔃 🔙 🔚 🔛 🔜 🔼 🔽 🏁 🚦🛞🛑🛣️🧍‍♂️🚶‍♀️")
  y+h:DrawText(0, y,"🔍 🔎 🔬 🔭 🧐 👁️ 👀 🧿 🎞️ 📽️ 🎬 🖼️ 🪟 ⛽✊✋✌✍❎✅⤴↙↘↗↖↕↔☠☑↰↱↲↳↴ ↩ ↪↺↻")
  y+h:DrawText(0, y,"🔄 🔃 🔁 🔂 🔀 🧑‍🎤 🧑‍ 🎧 🧑‍💻 🧑‍🎨 🧑‍🏫 🧑‍🔬 🧑‍🚀 🧑‍✈️ ✈🚗 🚙 🚕 🚚 🚜 🛻 🚘")
  y+h:DrawText(0, y,"🔌 🔋 🔋⚡ 📴 🔘 ⏻ ⏼ ⏹️ ⏯️ ⏺️ ⏏️ 📻 📺 📷 📸 🎥")
  y+h:DrawText(0, y,"⚙️ 🛠️ 🔧 🔩 🧰 🧲 🪛 🪚 🪜 🩹 📋 📎 🧷 📥 ⏲⏱⏰⌨⏳ ▦ ⚔️🔥")
  y+h:DrawText(0, y,"✂️ 📁 📂 🗂️ 🗃️ 🗄️ 🗑️ 📖 🧾 📄 🗐 📝 ✏️ 🖊️ 🖋️ 🖌️ 🖍️🌈🎨 👉🪡")
  y+h:DrawText(0, y,"✅ ❌ ⚠️ ℹ️ 🔔 🔕 🗝️ 🔒 🔓 🔐 🛑 ⛔ 🚫 🏷️ 🖥️ 🌐 📝 🎞️ 🎶 🖼️ 🧑‍💻 ⚙️ 🧊 🧩")
  y+h:DrawText(0, y,"🎚️ 🎛️ 🎙️ 🎞️ 📸 🖼️ 🧭 🧮 🧊 🧱 🧬 🧪 🧫 ▦ ◮ ☎ ☹ ☺ ♟ ♻ ♼ ⚔ ⚒ ⚕ ⚪ 🧊 🌀 🛰️")
  y+h:DrawText(0, y,"🔊 🔉 🔈 🔇 🔔 🔕 🔍 🔎 🕹️ 🎮 🖲️ 🖱️ 💻 🖥️ 💽 💾 💿 📀🔖📜📃☑️✅")
  y+h:DrawText(0, y,"▶️ ⏸️ ⏹️ ⏺️ ⏭️ ⏮️ ⏩ ⏪ 🔁 🔂 🔀 🔄 🔃 🎵 🎶 🎼 🎧 🎤 🎙️ 🎚️ 🎛️")
  y+h:DrawText(0, y,"🚶 🚶‍♂️ 🚶‍♀️ 🏃 🏃‍♂️ 🏃‍♀️ 🧍 🧍‍♂️ 🧍‍♀️ 🧎 🧎‍♂️ 🧎‍♀️ 🕺 💃 🧘 🧑‍🦯 🧑‍🦼 🧑‍🦽")
  y+h:DrawText(0, y,"♼♽⚗⚜⚡⚰⚽♻⛄⚾⛏⛑⛓⛔⛽✂⭐")
  
StopDrawing()

Repeat
  ev= WindowEvent()
  Select ev
    Case #PB_Event_Gadget
      eg=  EventGadget()
      et=    EventType()
      Select eg
        Case 0
      EndSelect
    Case #PB_Event_CloseWindow
      Break
  EndSelect
  Delay(1)
ForEver

Code: Select all

Repeat
  ev= WaitWindowEvent()
  Select ev
    Case #PB_Event_Gadget
      eg=  EventGadget()
      et=    EventType()
      Select eg
        Case 0
      EndSelect
    Case #PB_Event_CloseWindow
      Break
  EndSelect
  ;Delay(1)
ForEver

Code: Select all

  DrawingMode(#PB_2DDrawing_NativeText)

  ;Box(0,0,h-1,h-1,$88ff88)

Code: Select all

; Emoji fonts
CompilerIf #PB_Compiler_OS= #PB_OS_Windows
   fontEmoji.s= "Segoe UI Emoji"
CompilerElseIf #PB_Compiler_OS= #PB_OS_MacOS
   fontEmoji.s= "Apple Color Emoji"
CompilerElseIf #PB_Compiler_OS= #PB_OS_Linux
   fontEmoji.s= "Noto Color Emoji"
CompilerEndIf
LoadFont(0,fontEmoji,20,#PB_Font_HighQuality)

BackgndColor= RGB(255,255,223)

OpenWindow(0,0,0,1400,800,"Emoji test",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
canvas= CanvasGadget(#PB_Any,0,0,1400,800)
StartDrawing(CanvasOutput(canvas))
Box(0,0,1400,800,BackgndColor)
DrawingMode(#PB_2DDrawing_NativeText)
FrontColor(0):BackColor(BackgndColor) ; FrontColor not needed on Mac
DrawingFont(FontID(0))
h=50
y=-h
y+h:DrawText(5, y,"◀️ 🔼 🔽 ▶️ 🗺️ ☢☣☕☔☯☮☪☦☸♟♠♣♥♦⛽✂✗✓✔✘✨✵❣⤴⤵")
y+h:DrawText(5, y,"🧩 ❌ ✅ ⚠ 🎯 🔍 🛡️ 🌍 🧭 💻 📊 💬 🔒 🔪 🎙️ 🎹 🔴")
y+h:DrawText(5, y,"🧠 😎 🧪 🔁 📜 🔧 🔤 ⏱️ 📦 🌐 📂 🧼 📐 🧬 🎵 🎼 🌿 🍃 🍀🏢 🏠 🏛️ 🏬 🏗️💡 🪔 🕯️🌳 🌲🚧")
StopDrawing()

While WaitWindowEvent() <> #PB_Event_CloseWindow : Wend