PureBasic

Sous Microsoft Windows, le gestionnaire de police de caractères essaiera toujours de trouver une police équivalente à celle demandée, si cette dernière n'est pas disponible. Par exemple, si vous essayez de charger la police "Tim Now Ronin" et qu'elle n'existe pas, une autre police sera chargée automatiquement, en fonction de sa taille, du style etc. Il est donc peu probable que cette commande échoue.

;auteur Huitbit
;mai 2013
;affichage de kanji japonais
;PureBasic 5.11 (Windows - x86)



CompilerIf #PB_Compiler_Unicode  
CompilerElse
CompilerError "Il faut compiler en mode Unicode."
CompilerEndIf


KanjiFontGothic= LoadFont(#PB_Any, "MS Gothic",48 )
KanjiFontMincho= LoadFont(#PB_Any, "MS Mincho",42,#PB_Font_Bold )


K1=Val(" $265C"); tour pleine
K2=Val("$9B54")
K3=Val("$57CE")
K4=Val("$4F1D")
K5=Val("$8AAC")
K6=Val("$0031")
K7=Val("$00BD")
K8=Val(" $2656") ;tour vide

OpenWindow(0, 5, 5, 600, 240, "Devinez !",  #PB_Window_SystemMenu |#PB_Window_ScreenCentered)

Repeat
  Repeat
    EventID = WaitWindowEvent()
  Until EventID <> 0
  
  If EventID = #PB_Event_Repaint   
    StartDrawing(WindowOutput(0))
    
      essai1.s = Chr(K1)+" "+Chr(K2)+Chr(K3)+Chr(K4)+Chr(K5)+Chr(K6)+Chr(K7)+" "+Chr(K8)
      DrawingFont(FontID(KanjiFontGothic))      
      DrawText(10, 10, essai1.s,RGB(255,0,0),RGB(0,0,0))
      
      essai2.s = Chr(K2)+Chr(K3)+Chr(K4)+Chr(K5)+Chr(K6)+Chr(K7)
      DrawingFont(FontID(KanjiFontMincho))      
      DrawingMode(#PB_2DDrawing_Transparent)
      Box(10,110,320,100,RGB(0,0,0))
      DrawText(20, 120, essai2.s,RGB(128,0,0))
      DrawText(22, 122, essai2.s,RGB(255,0,0))
    
    StopDrawing()
    
    
  EndIf
Until EventID = #PB_Event_CloseWindow    ; close button
FreeFont(#PB_All )
End

Huitbit a écrit :@SPH
Tu m'inquiètes SPH, tu m'inquiètes
C'est du japonais et ça ne sort pas de nulle part !!!!!!!

Dobro a écrit :on sait tout de toi !

SPH a écrit :Quel est mon prenom ?

Dobro a écrit :

SPH a écrit :Quel est mon prenom ?

Philippe ou SePHiroth

Huitbit a écrit : Par contre, une remarque dans l'aide, m'embête un peu

Sous Microsoft Windows, le gestionnaire de police de caractères essaiera toujours de trouver une police équivalente à celle demandée, si cette dernière n'est pas disponible. Par exemple, si vous essayez de charger la police "Tim Now Ronin" et qu'elle n'existe pas, une autre police sera chargée automatiquement, en fonction de sa taille, du style etc. Il est donc peu probable que cette commande échoue.

Huitbit a écrit :Ce sont des jeux (deux sur les trois) qui ont tourné sur un ordinateur japonais dans les années 80 dont le nom faisait trois lettres, commençait par M et finissait pa X

C'est pour cela que j'ai dit que SPH était bien placé pour savoir.