Styles appliqués à une fenêtre

Programmation d'applications complexes
Répondre
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :
Contacter Chris

Styles appliqués à une fenêtre

Message par Chris »

Un petit prog qui donne les styles appliqués à une fenêtre.

Code : Tout sélectionner

;/Constantes Window
Enumeration
  #Window_0
EndEnumeration

;/Constantes Gadget
Enumeration
  #Edit
  #Fnt
  #Btn_Quit
EndEnumeration

#GA_ROOTOWNER = $00003

Structure WINPROPERTIES
  Border.s
  Caption.s
  Child.s
  Childwindow.s
  ClipChildren.s
  ClipSiblings.s
  Disabled.s
  Dlgframe.s
  Group.s
  HScroll.s
  Iconic.s
  Maximize.s
  MaximizeBox.s
  Minimize.s
  MinimizeBox.s
  Overlapped.s
  OverlappedWindow.s
  Popup.s
  PopupWindow.s
  SizeBox.s
  SysMenu.s
  TabStop.s
  ThickFrame.s
  Tiled.s
  TiledWindow.s
  Visible.s
  VScroll.s
EndStructure

NewList Prop.WINPROPERTIES()

CurPos.POINT

Global WinName$,ClassName$,HRoot

Procedure DisplayProperties()
  ClearGadgetItemList(#Edit)
  
  AddGadgetItem(#Edit,-1,"Propriétés :")
  AddGadgetItem(#Edit,-1,"")
  AddGadgetItem(#Edit,-1,"Titre     : "+ WinName$)
  AddGadgetItem(#Edit,-1,"Classe  : "+ ClassName$)
  AddGadgetItem(#Edit,-1,"Handle : "+ Str(HRoot))
  AddGadgetItem(#Edit,-1,"=============================")
  
  AddGadgetItem(#Edit,-1,"Style de la fenêtre :")
  AddGadgetItem(#Edit,-1,"")
  SelectElement(Prop(),0)   : If Prop()\Border           : AddGadgetItem(#Edit,-1,Prop()\Border)           :EndIf
  SelectElement(Prop(),1)   : If Prop()\Caption          : AddGadgetItem(#Edit,-1,Prop()\Caption)          :EndIf
  SelectElement(Prop(),2)   : If Prop()\Child            : AddGadgetItem(#Edit,-1,Prop()\Child)            :EndIf
  SelectElement(Prop(),3)   : If Prop()\Childwindow      : AddGadgetItem(#Edit,-1,Prop()\Childwindow)      :EndIf
  SelectElement(Prop(),4)   : If Prop()\ClipChildren     : AddGadgetItem(#Edit,-1,Prop()\ClipChildren)     :EndIf
  SelectElement(Prop(),5)   : If Prop()\ClipSiblings     : AddGadgetItem(#Edit,-1,Prop()\ClipSiblings)     :EndIf
  SelectElement(Prop(),6)   : If Prop()\Disabled         : AddGadgetItem(#Edit,-1,Prop()\Disabled)         :EndIf
  SelectElement(Prop(),7)   : If Prop()\Dlgframe         : AddGadgetItem(#Edit,-1,Prop()\Dlgframe)         :EndIf
  SelectElement(Prop(),8)   : If Prop()\Group            : AddGadgetItem(#Edit,-1,Prop()\Group)            :EndIf
  SelectElement(Prop(),9)   : If Prop()\HScroll          : AddGadgetItem(#Edit,-1,Prop()\HScroll)          :EndIf
  SelectElement(Prop(),10)  : If Prop()\Iconic           : AddGadgetItem(#Edit,-1,Prop()\Iconic)           :EndIf
  SelectElement(Prop(),11)  : If Prop()\Maximize         : AddGadgetItem(#Edit,-1,Prop()\Maximize)         :EndIf
  SelectElement(Prop(),12)  : If Prop()\MaximizeBox      : AddGadgetItem(#Edit,-1,Prop()\MaximizeBox)      :EndIf
  SelectElement(Prop(),13)  : If Prop()\Minimize         : AddGadgetItem(#Edit,-1,Prop()\Minimize)         :EndIf
  SelectElement(Prop(),14)  : If Prop()\MinimizeBox      : AddGadgetItem(#Edit,-1,Prop()\MinimizeBox)      :EndIf
  SelectElement(Prop(),15)  : If Prop()\Overlapped       : AddGadgetItem(#Edit,-1,Prop()\Overlapped)       :EndIf
  SelectElement(Prop(),16)  : If Prop()\OverlappedWindow : AddGadgetItem(#Edit,-1,Prop()\OverlappedWindow) :EndIf
  SelectElement(Prop(),17)  : If Prop()\Popup            : AddGadgetItem(#Edit,-1,Prop()\Popup)            :EndIf
  SelectElement(Prop(),18)  : If Prop()\PopupWindow      : AddGadgetItem(#Edit,-1,Prop()\PopupWindow)      :EndIf
  SelectElement(Prop(),19)  : If Prop()\SizeBox          : AddGadgetItem(#Edit,-1,Prop()\SizeBox)          :EndIf
  SelectElement(Prop(),20)  : If Prop()\SysMenu          : AddGadgetItem(#Edit,-1,Prop()\SysMenu)          :EndIf
  SelectElement(Prop(),21)  : If Prop()\TabStop          : AddGadgetItem(#Edit,-1,Prop()\TabStop)          :EndIf
  SelectElement(Prop(),22)  : If Prop()\ThickFrame       : AddGadgetItem(#Edit,-1,Prop()\ThickFrame)       :EndIf
  SelectElement(Prop(),23)  : If Prop()\Tiled            : AddGadgetItem(#Edit,-1,Prop()\Tiled)            :EndIf
  SelectElement(Prop(),24)  : If Prop()\TiledWindow      : AddGadgetItem(#Edit,-1,Prop()\TiledWindow)      :EndIf
  SelectElement(Prop(),25)  : If Prop()\Visible          : AddGadgetItem(#Edit,-1,Prop()\Visible)          :EndIf
  SelectElement(Prop(),26)  : If Prop()\VScroll          : AddGadgetItem(#Edit,-1,Prop()\VScroll)          :EndIf
EndProcedure

If OpenWindow(#Window_0, 300, 300, 300, 500, #PB_Window_SystemMenu|#PB_Window_ScreenCentered, "Propriétés",0)
  hWnd = WindowID()
  If CreateGadgetList(hWnd)
    EditorGadget(#Edit,0,0,300,WindowHeight()-55)
    ButtonGadget(#Btn_Quit, 100, WindowHeight()-30, 100, 25, "Quitter")
  EndIf
  
  SetTimer_(hWnd, 1, 10, 0)
  
  Repeat  
    GetCursorPos_(CurPos)
    HObjet = WindowFromPoint_(CurPos\x, CurPos\y)
    HRoot = GetAncestor_(HObjet, #GA_ROOTOWNER)
    WinName$ = Space(128)
    GetWindowText_(HRoot, @WinName$, 128)
    ClassName$ = Space(64)
    GetClassName_(HRoot, @ClassName$, 64)
    
    Style = GetWindowLong_(HRoot, #GWL_STYLE)
    
    Select WaitWindowEvent()
      Case #WM_TIMER
        
        ClearList(Prop())
        AddElement(Prop())
        
        If Style & #WS_BORDER           :Prop()\Border             = "#WS_BORDER"        : EndIf
        If Style & #WS_CAPTION          :Prop()\Caption            = "#WS_CAPTION"           : EndIf
        If Style & #WS_CHILD            :Prop()\Child              = "#WS_CHILD"             : EndIf
        If Style & #WS_CHILDWINDOW      :Prop()\Childwindow        = "#WS_CHILDWINDOW"       : EndIf
        If Style & #WS_CLIPCHILDREN     :Prop()\ClipChildren       = "#WS_CLIPCHILDREN"      : EndIf
        If Style & #WS_CLIPSIBLINGS     :Prop()\ClipSiblings       = "#WS_CLIPSIBLINGS"      : EndIf
        If Style & #WS_DISABLED         :Prop()\Disabled           = "#WS_DISABLED"          : EndIf
        If Style & #WS_DLGFRAME         :Prop()\Dlgframe           = "#WS_DLGFRAME"          : EndIf
        If Style & #WS_GROUP            :Prop()\Group              = "#WS_GROUP"             : EndIf
        If Style & #WS_HSCROLL          :Prop()\HScroll            = "#WS_HSCROLL"           : EndIf
        If Style & #WS_ICONIC           :Prop()\Iconic             = "#WS_ICONIC"            : EndIf
        If Style & #WS_MAXIMIZE         :Prop()\Maximize           = "#WS_MAXIMIZE"          : EndIf
        If Style & #WS_MAXIMIZEBOX      :Prop()\MaximizeBox        = "#WS_MAXIMIZEBOX"       : EndIf
        If Style & #WS_MINIMIZE         :Prop()\Minimize           = "#WS_MINIMIZE"          : EndIf
        If Style & #WS_MINIMIZEBOX      :Prop()\MinimizeBox        = "#WS_MINIMIZEBOX"       : EndIf
        If Style & #WS_OVERLAPPED       :Prop()\Overlapped         = "#WS_OVERLAPPED"        : EndIf
        If Style & #WS_OVERLAPPEDWINDOW :Prop()\OverlappedWindow   = "#WS_OVERLAPPEDWINDOW"  : EndIf
        If Style & #WS_POPUP            :Prop()\Popup              = "#WS_POPUP"             : EndIf
        If Style & #WS_POPUPWINDOW      :Prop()\PopupWindow        = "#WS_POPUPWINDOW"       : EndIf
        If Style & #WS_SIZEBOX          :Prop()\SizeBox            = "#WS_SIZEBOX"           : EndIf
        If Style & #WS_SYSMENU          :Prop()\SysMenu            = "#WS_SYSMENU"           : EndIf
        If Style & #WS_TABSTOP          :Prop()\TabStop            = "#WS_TABSTOP"           : EndIf
        If Style & #WS_THICKFRAME       :Prop()\ThickFrame         = "#WS_THICKFRAME"        : EndIf
        If Style & #WS_TILED            :Prop()\Tiled              = "#WS_TILED"             : EndIf
        If Style & #WS_TILEDWINDOW      :Prop()\TiledWindow        = "#WS_TILEDWINDOW"       : EndIf
        If Style & #WS_VISIBLE          :Prop()\Visible            = "#WS_VISIBLE"           : EndIf
        If Style & #WS_VSCROLL          :Prop()\VScroll            = "#WS_VSCROLL"           : EndIf
        
        If HRoot <> hTmp : hTmp = HRoot
          DisplayProperties()
        EndIf
        
      Case #PB_EventGadget : Select EventGadgetID() : Case #Btn_Quit : quit = 1 : EndSelect
      Case #PB_EventCloseWindow : quit = 1
    EndSelect
    
  Until quit = 1
  
  End
EndIf
:roll:

Chris :)
Haut
Lukky
Messages : 340
Inscription : dim. 25/janv./2004 12:22
Localisation : Morbihan

Message par Lukky »

Super !

JL
Quand on me gonfle trop j'éclate, sinon ça va !
Haut
Avatar de l’utilisateur
Flype
Messages : 2431
Inscription : jeu. 29/janv./2004 0:26
Localisation : Nantes

Message par Flype »

un petit couteau suisse ( avec une seule lame mais bon )

ceux qui connaissent l'Amiga, il y avait ( il y a ) un programme génial qui s'appelle SCOUT.
Véritable couteau suisse du programmeur, avec ce prog, rien de l'OS ne lui échappait...
Il y a aussi SnoopDOS mais c une autre histoire...

ton truc m'y fait penser un peu, me rappelant combien un prog dans
ce genre serait trop utile aux programmeurs bidouilleurs et curieux
que nous sommes :idea:
Image
Haut
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :
Contacter Chris

Message par Chris »

J'avais déjà fait un petit prog dans ce genre, il y a un moment. Ca s'appelle "Classes".
Ca te retrouve le handle de la fenêtre, son nom de classe, sa taille, sa position, son titre, les mêmes infos pour le parent direct, etc...

Il est sur la petite page ou je met tous mes bouts de code. (Bouton WWW en bas des messages).

C'était la première lame du couteau suisse :lol:

Chris :)
Haut
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :
Contacter Chris

Message par Chris »

Je commence à préparer un autre utilitaire, un peu dans le style de celui dont le code est posté au dessus.

Celui-ci, devrait donner les attributs de chaque objet pointé par le curseur de la souris. Je ne sais pas trop, pour le moment, comment m'y prendre pour stocker les propriétés, alors je vais les mettre dans des datas. Si ça fonctionne, je les mettrais peut-être dans un fichier, ce qui permettra les mises à jour.

Si ca fonctionne, le programme sera un mix des deux que j'ai déjà fait, c'est à dire qu'il donnera les renseignements de classe, taille, position, attributs, coordonnées du parents, etc...

Alors si quelqu'un à des idées de renseignements que pourrait donner ce genre de soft, ne vous génez pas.

Wait & See ;)

PS : Merci de ne pas demander des fonctions qui existent dans un des deux précédents :lol:


Chris :)
Haut
Ollivier
Messages : 4197
Inscription : ven. 29/juin/2007 17:50
Localisation : Encore ?
Contact :
Contacter Ollivier

Message par Ollivier »

Le couteau suisse de Chris en PB 4.10:

Code : Tout sélectionner

;/Constantes Window 
Enumeration 
  #Window_0 
EndEnumeration 

;/Constantes Gadget 
Enumeration 
  #Edit 
  #Fnt 
  #Btn_Quit 
EndEnumeration 

#GA_ROOTOWNER = $00003 

Structure WINPROPERTIES 
  Border.s 
  Caption.s 
  Child.s 
  Childwindow.s 
  ClipChildren.s 
  ClipSiblings.s 
  Disabled.s 
  Dlgframe.s 
  Group.s 
  HScroll.s 
  Iconic.s 
  Maximize.s 
  MaximizeBox.s 
  Minimize.s 
  MinimizeBox.s 
  Overlapped.s 
  OverlappedWindow.s 
  Popup.s 
  PopupWindow.s 
  SizeBox.s 
  SysMenu.s 
  TabStop.s 
  ThickFrame.s 
  Tiled.s 
  TiledWindow.s 
  Visible.s 
  VScroll.s 
EndStructure 

Global NewList Prop.WINPROPERTIES() 

CurPos.POINT 

Global WinName$,ClassName$,HRoot 

Procedure DisplayProperties() 
  ClearGadgetItemList(#Edit) 
  
  AddGadgetItem(#Edit,-1,"Propriétés :") 
  AddGadgetItem(#Edit,-1,"") 
  AddGadgetItem(#Edit,-1,"Titre     : "+ WinName$) 
  AddGadgetItem(#Edit,-1,"Classe  : "+ ClassName$) 
  AddGadgetItem(#Edit,-1,"Handle : "+ Str(HRoot)) 
  AddGadgetItem(#Edit,-1,"=============================") 
  
  AddGadgetItem(#Edit,-1,"Style de la fenêtre :") 
  AddGadgetItem(#Edit,-1,"") 
  SelectElement(Prop(),0)   : If Prop()\Border           : AddGadgetItem(#Edit,-1,Prop()\Border)           :EndIf 
  SelectElement(Prop(),1)   : If Prop()\Caption          : AddGadgetItem(#Edit,-1,Prop()\Caption)          :EndIf 
  SelectElement(Prop(),2)   : If Prop()\Child            : AddGadgetItem(#Edit,-1,Prop()\Child)            :EndIf 
  SelectElement(Prop(),3)   : If Prop()\Childwindow      : AddGadgetItem(#Edit,-1,Prop()\Childwindow)      :EndIf 
  SelectElement(Prop(),4)   : If Prop()\ClipChildren     : AddGadgetItem(#Edit,-1,Prop()\ClipChildren)     :EndIf 
  SelectElement(Prop(),5)   : If Prop()\ClipSiblings     : AddGadgetItem(#Edit,-1,Prop()\ClipSiblings)     :EndIf 
  SelectElement(Prop(),6)   : If Prop()\Disabled         : AddGadgetItem(#Edit,-1,Prop()\Disabled)         :EndIf 
  SelectElement(Prop(),7)   : If Prop()\Dlgframe         : AddGadgetItem(#Edit,-1,Prop()\Dlgframe)         :EndIf 
  SelectElement(Prop(),8)   : If Prop()\Group            : AddGadgetItem(#Edit,-1,Prop()\Group)            :EndIf 
  SelectElement(Prop(),9)   : If Prop()\HScroll          : AddGadgetItem(#Edit,-1,Prop()\HScroll)          :EndIf 
  SelectElement(Prop(),10)  : If Prop()\Iconic           : AddGadgetItem(#Edit,-1,Prop()\Iconic)           :EndIf 
  SelectElement(Prop(),11)  : If Prop()\Maximize         : AddGadgetItem(#Edit,-1,Prop()\Maximize)         :EndIf 
  SelectElement(Prop(),12)  : If Prop()\MaximizeBox      : AddGadgetItem(#Edit,-1,Prop()\MaximizeBox)      :EndIf 
  SelectElement(Prop(),13)  : If Prop()\Minimize         : AddGadgetItem(#Edit,-1,Prop()\Minimize)         :EndIf 
  SelectElement(Prop(),14)  : If Prop()\MinimizeBox      : AddGadgetItem(#Edit,-1,Prop()\MinimizeBox)      :EndIf 
  SelectElement(Prop(),15)  : If Prop()\Overlapped       : AddGadgetItem(#Edit,-1,Prop()\Overlapped)       :EndIf 
  SelectElement(Prop(),16)  : If Prop()\OverlappedWindow : AddGadgetItem(#Edit,-1,Prop()\OverlappedWindow) :EndIf 
  SelectElement(Prop(),17)  : If Prop()\Popup            : AddGadgetItem(#Edit,-1,Prop()\Popup)            :EndIf 
  SelectElement(Prop(),18)  : If Prop()\PopupWindow      : AddGadgetItem(#Edit,-1,Prop()\PopupWindow)      :EndIf 
  SelectElement(Prop(),19)  : If Prop()\SizeBox          : AddGadgetItem(#Edit,-1,Prop()\SizeBox)          :EndIf 
  SelectElement(Prop(),20)  : If Prop()\SysMenu          : AddGadgetItem(#Edit,-1,Prop()\SysMenu)          :EndIf 
  SelectElement(Prop(),21)  : If Prop()\TabStop          : AddGadgetItem(#Edit,-1,Prop()\TabStop)          :EndIf 
  SelectElement(Prop(),22)  : If Prop()\ThickFrame       : AddGadgetItem(#Edit,-1,Prop()\ThickFrame)       :EndIf 
  SelectElement(Prop(),23)  : If Prop()\Tiled            : AddGadgetItem(#Edit,-1,Prop()\Tiled)            :EndIf 
  SelectElement(Prop(),24)  : If Prop()\TiledWindow      : AddGadgetItem(#Edit,-1,Prop()\TiledWindow)      :EndIf 
  SelectElement(Prop(),25)  : If Prop()\Visible          : AddGadgetItem(#Edit,-1,Prop()\Visible)          :EndIf 
  SelectElement(Prop(),26)  : If Prop()\VScroll          : AddGadgetItem(#Edit,-1,Prop()\VScroll)          :EndIf 
EndProcedure 

If OpenWindow(#Window_0, 300, 300, 300, 500, "Propriétés", #PB_Window_SystemMenu|#PB_Window_ScreenCentered,0) 
  hWnd = WindowID(#Window_0) 
  If CreateGadgetList(hWnd) 
    EditorGadget(#Edit,0,0,300,WindowHeight(#Window_0)-55) 
    ButtonGadget(#Btn_Quit, 100, WindowHeight(#Window_0)-30, 100, 25, "Quitter") 
  EndIf 
  
  SetTimer_(hWnd, 1, 10, 0) 
  
  Repeat  
    GetCursorPos_(CurPos) 
    HObjet = WindowFromPoint_(CurPos\x, CurPos\y) 
    HRoot = GetAncestor_(HObjet, #GA_ROOTOWNER) 
    WinName$ = Space(128) 
    GetWindowText_(HRoot, @WinName$, 128) 
    ClassName$ = Space(64) 
    GetClassName_(HRoot, @ClassName$, 64) 
    
    Style = GetWindowLong_(HRoot, #GWL_STYLE) 
    
    Select WaitWindowEvent() 
      Case #WM_TIMER 
        
        ClearList(Prop()) 
        AddElement(Prop()) 
        
        If Style & #WS_BORDER           :Prop()\Border             = "#WS_BORDER"        : EndIf 
        If Style & #WS_CAPTION          :Prop()\Caption            = "#WS_CAPTION"           : EndIf 
        If Style & #WS_CHILD            :Prop()\Child              = "#WS_CHILD"             : EndIf 
        If Style & #WS_CHILDWINDOW      :Prop()\Childwindow        = "#WS_CHILDWINDOW"       : EndIf 
        If Style & #WS_CLIPCHILDREN     :Prop()\ClipChildren       = "#WS_CLIPCHILDREN"      : EndIf 
        If Style & #WS_CLIPSIBLINGS     :Prop()\ClipSiblings       = "#WS_CLIPSIBLINGS"      : EndIf 
        If Style & #WS_DISABLED         :Prop()\Disabled           = "#WS_DISABLED"          : EndIf 
        If Style & #WS_DLGFRAME         :Prop()\Dlgframe           = "#WS_DLGFRAME"          : EndIf 
        If Style & #WS_GROUP            :Prop()\Group              = "#WS_GROUP"             : EndIf 
        If Style & #WS_HSCROLL          :Prop()\HScroll            = "#WS_HSCROLL"           : EndIf 
        If Style & #WS_ICONIC           :Prop()\Iconic             = "#WS_ICONIC"            : EndIf 
        If Style & #WS_MAXIMIZE         :Prop()\Maximize           = "#WS_MAXIMIZE"          : EndIf 
        If Style & #WS_MAXIMIZEBOX      :Prop()\MaximizeBox        = "#WS_MAXIMIZEBOX"       : EndIf 
        If Style & #WS_MINIMIZE         :Prop()\Minimize           = "#WS_MINIMIZE"          : EndIf 
        If Style & #WS_MINIMIZEBOX      :Prop()\MinimizeBox        = "#WS_MINIMIZEBOX"       : EndIf 
        If Style & #WS_OVERLAPPED       :Prop()\Overlapped         = "#WS_OVERLAPPED"        : EndIf 
        If Style & #WS_OVERLAPPEDWINDOW :Prop()\OverlappedWindow   = "#WS_OVERLAPPEDWINDOW"  : EndIf 
        If Style & #WS_POPUP            :Prop()\Popup              = "#WS_POPUP"             : EndIf 
        If Style & #WS_POPUPWINDOW      :Prop()\PopupWindow        = "#WS_POPUPWINDOW"       : EndIf 
        If Style & #WS_SIZEBOX          :Prop()\SizeBox            = "#WS_SIZEBOX"           : EndIf 
        If Style & #WS_SYSMENU          :Prop()\SysMenu            = "#WS_SYSMENU"           : EndIf 
        If Style & #WS_TABSTOP          :Prop()\TabStop            = "#WS_TABSTOP"           : EndIf 
        If Style & #WS_THICKFRAME       :Prop()\ThickFrame         = "#WS_THICKFRAME"        : EndIf 
        If Style & #WS_TILED            :Prop()\Tiled              = "#WS_TILED"             : EndIf 
        If Style & #WS_TILEDWINDOW      :Prop()\TiledWindow        = "#WS_TILEDWINDOW"       : EndIf 
        If Style & #WS_VISIBLE          :Prop()\Visible            = "#WS_VISIBLE"           : EndIf 
        If Style & #WS_VSCROLL          :Prop()\VScroll            = "#WS_VSCROLL"           : EndIf 
        
        If HRoot <> hTmp : hTmp = HRoot 
          DisplayProperties() 
        EndIf 
        
      Case #PB_Event_Gadget : Select EventGadget() : Case #Btn_Quit : quit = 1 : EndSelect 
      Case #PB_Event_CloseWindow : quit = 1 
    EndSelect 
    
  Until quit = 1 
  
  End 
EndIf
Haut
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :
Contacter Chris

Message par Chris »

Tiens! Je me souvenais même pas d'avoir fait ce truc. :lol:
Haut
Ollivier
Messages : 4197
Inscription : ven. 29/juin/2007 17:50
Localisation : Encore ?
Contact :
Contacter Ollivier

Message par Ollivier »

C'est un joli petit morceau. :D
Haut
Jeff
Messages : 72
Inscription : sam. 13/mai/2006 18:09

Message par Jeff »

logiciel WinDowse comme couteau suisse pour vos applications et avoir plein d'infos.

@+

JF
Haut
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Message par Kwai chang caine »

Pourquoi faut toujours que chez moi ça marche pas :?
J'ai un ruban rouge à la ligne 64 dans la version 4.10 de OLLIVIER, la 3.94 de maitre CHRIS marche.

Code : Tout sélectionner

"The linked list have a current element"
Je suis qous W2000 c'est peut etre ça :roll:
Haut
Avatar de l’utilisateur
Ulix
Messages : 315
Inscription : ven. 04/juin/2004 14:27
Localisation : Frontignan

Message par Ulix »

Idem ! Même erreur, même numéro de ligne, mais sous XP2 . :twisted:
Haut
beauregard
Messages : 1307
Inscription : dim. 08/juil./2007 18:32
Localisation : Toulouse

Message par beauregard »

Kwai chang caine a écrit :J'ai un ruban rouge à la ligne 64 dans la version 4.10 de OLLIVIER
même problème sur winXp :(
Haut
nico
Messages : 3702
Inscription : ven. 13/févr./2004 0:57

Message par nico »

Il faut mettre l'indice 0 pour toutes les commandes SelectElement
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

Jeff a écrit :logiciel WinDowse comme couteau suisse pour vos applications et avoir plein d'infos.

@+

JF
WinDowse est magnifique
Haut
beauregard
Messages : 1307
Inscription : dim. 08/juil./2007 18:32
Localisation : Toulouse

Message par beauregard »

nico a écrit :Il faut mettre l'indice 0 pour toutes les commandes SelectElement
merci!
Haut
Répondre

Revenir à « Applications »