Pour ne pas polluer le post
http://www.purebasic.fr/french/viewtopi ... &start=135
Je réponds à SPH ici par un code trouvé sur le forum anglais(j'ai oublié le nom de l'auteur).
Il s'agit d'un test pour le titre du jeu sur lequel je travaille.
Ce dernier sera un mélange de trois jeux assaisonnés de sauce Huitbit.
Je pense que SPH est bien placé pour savoir de quoi il s'agit.
C'est un bout de code pour afficher des kanji japonais.
Il faut compiler en mode Unicode (de toute façon, le programme vous le dira
)Par contre, une remarque dans l'aide, m'embête un peu
J'aimerais tester si les polices MS Mincho ou MS Gothic sont présentes mais avec cette remarque, ça va être compliqué !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.
IsFont(#Police) va toujours me renvoyer quelque chose
Code : Tout sélectionner
;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 )
EndAllez, buena noche !
