Structure des gadget PB

Ulix · Message par **Ulix** » sam. 15/oct./2005 13:33

Boujours a tous,

Une question que je me pose depuis un certain temps, mais je n'est pas trouvé de réponce !

Les gadgets du PB ont-ils une structure, et si oui peut-on y accédé et les utilisé. Certains langage le permette, je n'est rien trouvé de pareil en PB.

Merci d'avance

Dr. Dri · Message par **Dr. Dri** » sam. 15/oct./2005 13:58

regarde dans le dossier library sdk
le fichier purebasic library descriptor

et cherche aussi sur le forum francais, denis avais déjà parlé de ca

Dri

Ulix · Message par **Ulix** » sam. 15/oct./2005 16:24

Merci,

j'ai effectivement regardé le fichier "library descriptor.txt"
et j'y est trouvé de plus approchant par rappport a mon interrogation
ceci :

Code : Tout sélectionner

Gadget (Langage: ASM)
  ------
  
  _PB_Gadget_ObjectsNumber
	_PB_Gadget_ObjectsArea
	_PB_Gadget_CurrentObject ; Represents the actual GadgetList. There isn't current gadget.
	
	Structure PB_GadgetStructure
	  Gadget.l    ; OS Gadget pointer (HWND)
	  *VirtualTable.GadgetFunctions
	  CustomData.l  ; Can be used to store extra infos on this gadget
	  CustomData2.l ; Can be used to store extra infos on this gadget
  EndStructure
  
  Structure GadgetFunctions
    FreeGadget
    GetGadgetState
    SetGadgetState
    GetGadgetText
    SetGadgetText
    AddGadgetItem
    AddGadgetItem2
    RemoveGadgetItem
    ClearGadgetItemList
    ResizeGadget
    CountGadgetItems
    GetGadgetItemState
    SetGadgetItemState
    GetGadgetItemText
    SetGadgetItemText
    OpenGadgetList2
    GadgetX
    GadgetY
    GadgetWidth
    GadgetHeight
    HideGadget
  EndStructure

Or je pensais y trouvé non pas une structure de fonction, mais plutôt une structure de propriété, comme celle-ci par exemple :

Code : Tout sélectionner


Structure GadgetObjet
Nom.s
PositionX.l
PositionY.l
Texte.s
Etc...
EndStructure

De tel structure sur les gadgets existe-t-elle ?
Si oui, comment y accédé directement

Merci d'avance !

nico · Message par **nico** » sam. 15/oct./2005 16:35

Je crois savoir que la fonction IsGadget renvoie un pointeur sur la structure.

nico · Message par **nico** » sam. 15/oct./2005 16:57

Un exemple du forum Allemand:

Code : Tout sélectionner

Structure GadgetFunctions 
     FreeGadget.l 
     GetGadgetState.l 
     SetGadgetState.l 
     GetGadgetText.l 
     SetGadgetText.l 
     AddGadgetItem.l 
     AddGadgetItem2.l 
     RemoveGadgetItem.l 
     ClearGadgetItemList.l 
     ResizeGadget.l 
     CountGadgetItems.l 
     GetGadgetItemState.l 
     SetGadgetItemState.l 
     GetGadgetItemText.l 
     SetGadgetItemText.l 
     OpenGadgetList2.l 
     GadgetX.l 
     GadgetY.l 
     GadgetWidth.l 
     GadgetHeight.l 
     HideGadget.l 
EndStructure 

Structure PB_GadgetStructure 
     Gadget.l    ; OS Gadget pointer (HWND) 
     *VirtualTable.GadgetFunctions 
     CustomData.l  ; Can be used to store extra infos on this gadget 
     CustomData2.l ; Can be used to store extra infos on this gadget 
EndStructure 

Procedure.l GetGadgetStructure(GadgetID) 
     GadgetID(GadgetID) 
     !MOV Eax, Edx 
     ProcedureReturn 
EndProcedure 

;{ MyTextSetGadgetText 
Global *Gadget.PB_GadgetStructure, Text.s 

Goto MyTextSetGadgetText_End 
MyTextSetGadgetText: 
!LEA Eax, dword[Esp+4] 
!MOV dword[p_Gadget],Eax 
!MOV Eax, dword[Esp+8] 
!MOV dword[v_Text],Eax 

SetWindowText_(*Gadget\Gadget,":P") 

!RET 08 
MyTextSetGadgetText_End:;} 

CreateGadgetList(OpenWindow(0,0,0,200,200,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"")) 
TextGadget(0,90,90,20,20,"~") 

*Gadget.PB_GadgetStructure = GetGadgetStructure(0) 
Debug *Gadget\Gadget 
Debug GadgetID(0) 
*Gadget\VirtualTable\SetGadgetText = ?MyTextSetGadgetText 
SetGadgetText(0,":)") 

Repeat 
     Select WaitWindowEvent() 
          Case #PB_Event_CloseWindow 
               Quit = 1 
     EndSelect 
Until Quit

Ulix · Message par **Ulix** » sam. 15/oct./2005 18:44

Merci Nico, je n'aurais jamais trouvé sur le site allemand. Merci encore