; Adaptation en français par Flype d'un code créé par 'ts-soft' auteur de PBOSL.
;
; Objet :
;
; Aide en ligne MSDN pour l'éditeur intégré de PureBasic.
; Fonctionne comme l'aide Purebasic (Touche F1), mais pour les fonctions Win32.
; Reconnait les fonctions Win32 comme Beep_() et les constantes comme #MB_ICONERROR

; Installation :
;
; 1.
; Compiler ce source
;
; 2.
; Menu > Outils > Outils personnalisés > Nouveau
; Ligne de commande : L'exécutable compilé depuis ce source
; Nom : Aide en ligne MSDN (Par exemple)
; Evênement : Menu ou Raccourci
; Raccourci : Ctrl + F1 (Par exemple)

;
; Ici, il faut définir l'url qui va servir à la recherche
;

; Url.s = "http://www.google.com/search?q=site:msdn.microsoft.com+msdn+win32+%mot%&btnI=true"

Url.s = "http://search.msdn.microsoft.com/search/results.aspx?view=msdn&st=b&na=82&qu=%mot%&s=1&swc=4"

;
; Ici, on récupère le mot qui est sous le curseur, dans l'éditeur intégré de Purebasic
;

Mot.s = GetEnvironmentVariable("PB_TOOL_Word")

If Mot
 
  If Right(Mot,1) = "_"
    Mot = Left(Mot,Len(Mot)-1)
  ElseIf Left(Mot,1) = "#"
    Mot = Right(Mot,Len(Mot)-1)
  EndIf
 
  RunProgram(ReplaceString(url,"%mot%",Mot))
 
EndIf

Structure Personne
  Nom.s
  Prenom.s 
  Age.w 
EndStructure

Dim MesAmis.Personne(100)

; Ici la position '0' du tableau MesAmis()
; contiendra une personne et ses informations personnelles
MesAmis(0)\Nom = "Durand"
MesAmis(0)\Prenom = "Michel" 
MesAmis(0)\Age = 32

Dim Tableau.Point(1) ; tableau de points 

*Pointeur.Point = @Tableau() ; Récupère l'adresse du tableau
*Pointeur\x = 10 ; Modifie l'élément 0 du tableau 
*Pointeur\y = 15 

*Pointeur + SizeOf(Point) ; Pointe sur l'élément suivant 

*Pointeur\x = 7 ; Modifie l'élément 1 du tableau 
*Pointeur\y = 9

;Affiche le résultat
For i = 0 To 1
  Debug Tableau(i)\x
  Debug Tableau(i)\y
Next i

Prototype.l ProtoMessageBox(Fenetre.l, Corps$, Titre$, Options.l = 0)
If OpenLibrary(0, "User32.dll")   
  ; 'MsgBox' est une variable de type 'ProtoMessageBox' 
  ;
  MsgBox.ProtoMessageBox = GetFunction(0, "MessageBoxA")    
  MsgBox(0, "Hello", "World") ; Les options peuvent être omises
EndIf

; Nous allons considérer que vous voulez accéder à une fonction
; d'un objet externe en PureBasic. Premièrement, déclarez son interface.
;
Interface MyObject
  Move(x,y)
  MoveF(x.f,y.f)
  Destroy()
EndInterface

; CreateObject est la fonction qui permet la création de l'objet.
; Création du premier objet..
;
Object1.MyObject = MyCreateObject()

; Et du deuxieme.
;
Object2.MyObject = MyCreateObject()

; Nous pouvons alors utiliser les fonctions de l'objet directement comme suit:
;
Object1\Move(10, 20)
Object1\Destroy()

Object2\MoveF(10.5, 20.1)
Object2\Destroy()

Procedure a(a, b, c=2)
  Debug c
EndProcedure

a(10, 12) ; ou
a(10, 12, 15) 

Structure Personne
  Nom.s
  Prenom.s 
  Age.w 
EndStructure

NewList MesAmis.Personne() ; Déclaration de la liste MesAmis()

;Ajoute un élément à la liste MesAmis()
AddElement(MesAmis())
MesAmis()\Nom = "Durand"
MesAmis()\Prenom = "Michel" 
MesAmis()\Age = 32
;Ajoute un autre élément à la liste MesAmis()
AddElement(MesAmis())
MesAmis()\Nom = "Dupont"
MesAmis()\Prenom = "François" 
MesAmis()\Age = 29
;Affiche la liste 
ForEach MesAmis()
  Debug MesAmis()\Nom 
  Debug MesAmis()\Prenom
  Debug MesAmis()\Age
  Debug "-------------"
Next

Macro XCase(Type, Texte) ; renvoie le texte dans la casse du type spécifié
  Type#Case(Texte)       ; Type U => MAJUSCULES
EndMacro                 ; Type L => minuscules
Debug XCase(U, "Salut")  ; macro remplacée par UCase("Salut")
Debug XCase(L, "Salut")  ; macro remplacée par LCase("Salut")

Import "User32.lib"   
  ; Pas besoin d'utiliser 'As' car PureBasic préfixe la fonction correctement
  ; Nous définissons également le paramètre 'Options' comme facultatif, avec une valeur par défaut de 0 (quand il est omis)
  ;
  MessageBoxA(Fenetre.l, Corps$, Titre$, Options.l = 0)   

  ; Cette fois PureBasic ne peut pas se débrouiller tout seul, car le
  ; nom de la fonction n'est pas le même que celui utilisé par le symbole
  ;
  BoiteDeMessage(Fenetre.l, Corps$, Titre$, Options.l) As "_MessageBoxA@16"                                                   
EndImport 

MessageBoxA(0, "Salut", "le Monde") ; Nous ne précisons pas les options
BoiteDeMessage(0, "Salut", "le Monde 2", 0)

;- Debut Programme
;{/ Create Window
wc.WNDCLASSEX
wc\cbSize = SizeOf(WNDCLASSEX)
hInstance = GetModuleHandle_(#Null)

If GetClassInfoEx_(hInstance,@"Horloge",@wc) = 0
  wc.WNDCLASSEX
  wc\cbSize = SizeOf(WNDCLASSEX)
  wc\style = #CS_HREDRAW|#CS_VREDRAW|#CS_BYTEALIGNWINDOW
  wc\lpfnWndProc = @HorlogeCallback()
  wc\hCursor = LoadCursor_(#Null,#IDC_ARROW)
  wc\hInstance = hInstance
  wc\lpszClassName = @"Horloge"
  If RegisterClassEx_(@wc) = 0
    End
  EndIf
EndIf

hWndMain  = CreateWindowEx_($00080088,"Horloge","Horloge",$96000000,50,50,160,160,0,0,hInstance,0)
InvalidateRect_(hWndMain, #Null, #False)
SetTimer_(hWndMain,0,40,0)
;}/
While GetMessage_(msg.MSG,#Null,0,0)
  TranslateMessage_(msg)
  DispatchMessage_(msg)
Wend 

Procedure SetCursorPos(Id.l,pos.l)
  Protected mypointertoiteration.GtkTextIter, *buffer.l
  *buffer = gtk_text_view_get_buffer_(GadgetID(Id))
  gtk_text_buffer_get_iter_at_offset_(*buffer,@mypointertoiteration,pos)
  gtk_text_buffer_place_cursor_(*buffer,@mypointertoiteration)
EndProcedure

Procedure.l GetCursorPos(Id.l)
  Protected mypointertoiteration.GtkTextIter, *buffer.l,cursor.l
  *buffer = gtk_text_view_get_buffer_(GadgetID(Id))
  cursor = gtk_text_buffer_get_insert_(*buffer)
  gtk_text_buffer_get_iter_at_mark_(*buffer, @mypointertoiteration, cursor)
  ProcedureReturn gtk_text_iter_get_offset_(@mypointertoiteration)
EndProcedure 

; ---------------------------------------------------------------------------------------
; using the GTK print dialog
; ---------------------------------------------------------------------------------------
;---------------- Preparations ---------------------------------------------------
;import needed functions
ImportC "/usr/lib/libgtk-x11-2.0.so"
  gtk_print_operation_new()
  gtk_print_operation_run(*op, action, *parent, *error);the print dialog
  gtk_print_settings_new()
  gtk_print_operation_set_print_settings(*print,*settings)
  gtk_print_context_create_pango_layout(*context)
  pango_layout_set_text(layout,txt.p-utf8,length)
  pango_font_description_from_string(font.p-utf8)
  pango_font_description_free(desc)
  pango_layout_set_font_description(layout,desc)
  cairo_move_to(cr,x,y)
  pango_cairo_show_layout(cr,layout)
  gtk_print_context_get_cairo_context(context)
  gtk_print_operation_set_n_pages(*op,n_pages)
  gtk_print_operation_set_unit(*op,unit)
  gtk_print_operation_get_status_string (*op); a (translated) string
  gtk_print_operation_get_status (*op);the numer enumerated below
  gtk_print_operation_is_finished (*op);returns true or false
EndImport

Procedure.f WrapAngle(angle.f); <- wraps a value into [0,2*Pi) fringe
  !fldpi; <- now i have pi into st0
  !fadd st0,st0; <- now i have 2*pi into st0
  !fld dword[p.v_angle]; <- now i have angle in st0, 2*pi into st1
  !fprem; <- now i have the remainder of angle/(2*pi) division (i.e. angle%(2*pi)) in st0, 2*pi in st1
  !fadd st1,st0;<- now i have angle%(2*pi) in st0, 2*pi+angle%(2*pi) into st1
  !fldz;<- now i have 0 in st0, angle%(2*pi) in st1, 2*pi+angle%(2*pi) into st2
  !fcomip st1; <- compare st0 and st1, and pop the stack, which means i have now angle%(2*pi) in st0, 2*pi+remainder into st1
  !fcmovnbe st0,st1; <- transfer st1 to st0 if not below or equal.
  !fstp st1; <- store st0 in st1 and pops stack, which means i have now the result in st0
  ProcedureReturn; <- return the result with this last pop
EndProcedure
Procedure.f WrapAngleDeg(angle.f); <- wraps a value into [0,360) fringe
  !fild dword[@f] ; <- now i have 360 into st0
  !fld dword[p.v_angle]
  !fprem
  !fadd st1,st0
  !fldz
  !fcomip st1
  !fcmovnbe st0,st1
  !fstp st1
  ProcedureReturn
  !@@:dd 360
EndProcedure