the colorer

Backup · Message par **Backup** » dim. 30/oct./2005 14:29

C'est quoi ce bordel !!

Backup · Message par **Backup** » dim. 30/oct./2005 14:37

Bon Svp recuperez colorer ici

et testez le pour voir , du coup je suis aveugle !!!
je sais pas ce qui bloc chez moi !!! , c'est pas le clavier , car meme
lorsque j'utilise les codes ascii avec purebasic, sur les forum ça veux rien savoir !!

pouvez vous essayer de colorer un code avec colorer
et me montrer le resultat please ?

Chris · Message par **Chris** » dim. 30/oct./2005 14:50

Procedure WinCallBack(WinID.l, message.l, wParam.l, lParam.l)
  Resultat.l = #PB_ProcessPureBasicEvents
   Select message

     Case #WM_LBUTTONDBLCLK
      SetWindowText_(WinID,"Double clic Gauche")

     Case #WM_RBUTTONDBLCLK
      SetWindowText_(WinID,"Double clic Droit")

     Case #WM_MBUTTONDBLCLK
      SetWindowText_(WinID,"Double clic Milieu")
  End Select
   Procedure Return Resultat
End Procedure

hwnd = OpenWindow (0, 100, 100, 250, 100, #PB_Window_SystemMenu | #PB_Window_ScreenCentered , "Double-cliquez sur la fenêtre")
  SetClassLong_(hwnd, #GCL_STYLE , GetClassLong_(hwnd, #GCL_STYLE )| #CS_DBLCLKS )

   SetWindowCallback (@WinCallBack())

  Repeat
     Select WindowEvent ()
       Case #PB_Event_CloseWindow : Quit = 1
    End Select
   Until Quit = 1
End

Chris · Message par **Chris** » dim. 30/oct./2005 14:55

Je viens de voir qu'il y a un bug dans ton prog

Les "EndSelect" sont coupés en 2 : "End" et "Select"
pareil pour les "EndProcedure" et certainement pour tous les mots dans le même genre. (EndIf, etc...)

Backup · Message par **Backup** » dim. 30/oct./2005 14:57

Je viens de voir qu'il y a un bug dans ton prog

oui ! j'ai vu ! mais comme je ne peux pas tester le decalage je peut pas resoudre ça !!

car cela viens de mon code de decalage , je pense , puisque ça ne le faisai pas avant !

faut d'abord que je resolve mon probleme de decalage !!

Backup · Message par **Backup** » dim. 30/oct./2005 15:16

j'ai trouve d'ou venai mon problem , mais je comprend pas pourquoi !!

cela viens de Mozilla 1.7.2 !!!

avec IE j'ai pas ce problem ! bizard non ?

Backup · Message par **Backup** » dim. 30/oct./2005 15:58

ça deconne avec Firefox aussi

Chris · Message par **Chris** » dim. 30/oct./2005 16:12

Ca déconne parce que tu ne vois pas la mise en forme dans FireFox, ou parce qu'elle ne s'affiche pas sur le forum?

Poste un code, je te dirai si il est mis en forme ou pas

Backup · Message par **Backup** » dim. 30/oct./2005 18:17

Procedure WinCallBack(WinID.l, message.l, wParam.l, lParam.l)
Resultat.l = #PB_ProcessPureBasicEvents
Select message

Case #WM_LBUTTONDBLCLK
SetWindowText_(WinID,"Double clic Gauche")

Case #WM_RBUTTONDBLCLK
SetWindowText_(WinID,"Double clic Droit")

Case #WM_MBUTTONDBLCLK
SetWindowText_(WinID,"Double clic Milieu")
End Select
Procedure Return Resultat
End Procedure

hwnd = OpenWindow (0, 100, 100, 250, 100, #PB_Window_SystemMenu | #PB_Window_ScreenCentered , "Double-cliquez sur la fenêtre")
;SetClassLong_(hwnd, #GCL_STYLE , GetClassLong_(hwnd, #GCL_STYLE )| #CS_DBLCLKS )

SetWindowCallback (@WinCallBack())

Repeat
Select WindowEvent ()
Case #PB_Event_CloseWindow : Quit = 1
End Select
Until Quit = 1
End

Backup · Message par **Backup** » dim. 30/oct./2005 18:19

mais bon , je suis en train de le refondre !!
(utilisation d'une list chainée ! )

Chris · Message par **Chris** » dim. 30/oct./2005 18:25

Ben oui, il est pas mis en forme pour moi non plus, et pourtant, je suis sous IE.

C'est bizarre, parce que le navigateur, c'est une chose, le forum, c'est autre chose!

Que le navigateur n'affiche pas certains trucs, je veux bien, mais le forum, quand il a ses balises, il crée toujours le code de la même façon!

Enfin, d'après moi, ça doit être comme ça

Backup · Message par **Backup** » dim. 30/oct./2005 18:42

oui ben tien je suis passé sous IE

regarde ce code est formaté ! (pas tout a fait je bosse dessus !

)

Procedure WinCallBack(WinID.l, message.l, wParam.l, lParam.l)
   Resultat.l = #PB_ProcessPureBasicEvents
    Select message
      Case #WM_LBUTTONDBLCLK
       SetWindowText_(WinID,"Double clic Gauche")
      Case #WM_RBUTTONDBLCLK
       SetWindowText_(WinID,"Double clic Droit")
      Case #WM_MBUTTONDBLCLK
       SetWindowText_(WinID,"Double clic Milieu")
    EndSelect
    Procedure Return Resultat
color=blue] EndProcedure [/color]

Backup · Message par **Backup** » dim. 30/oct./2005 19:13

ça y est ça Marche !!

le code avant Dobro

Code : Tout sélectionner


Procedure WinCallBack(WinID.l, message.l, wParam.l, lParam.l) 
  Resultat.l = #PB_ProcessPureBasicEvents 
  Select message 
    Case #WM_LBUTTONDBLCLK 
      SetWindowText_(WinID,"Double clic Gauche")  
    ;Case #WM_RBUTTONDBLCLK 
      SetWindowText_(WinID,"Double clic Droit") 
    ;Case #WM_MBUTTONDBLCLK 
      SetWindowText_(WinID,"Double clic Milieu") 
  EndSelect 
  ProcedureReturn Resultat 
EndProcedure 
  
hwnd = OpenWindow (0, 100, 100, 250, 100, #PB_Window_SystemMenu | #PB_Window_ScreenCentered , "Double-cliquez sur la fenêtre") 
  ;SetClassLong_(hwnd, #GCL_STYLE , GetClassLong_(hwnd, #GCL_STYLE )| #CS_DBLCLKS ) 
  
SetWindowCallback (@WinCallBack()) 
  
Repeat 
  Select WindowEvent () 
    Case #PB_Event_CloseWindow : Quit = 1 
  EndSelect 
Until Quit = 1 
End

Le code apres Dobro

Procedure WinCallBack(WinID.l, message.l, wParam.l, lParam.l)
Resultat.l = #PB_ProcessPureBasicEvents
Select message
Case #WM_LBUTTONDBLCLK
SetWindowText_(WinID,"Double clic Gauche")
; Case #WM_RBUTTONDBLCLK
SetWindowText_(WinID,"Double clic Droit")
; Case #WM_MBUTTONDBLCLK
SetWindowText_(WinID,"Double clic Milieu")
EndSelect
Procedure Return Resultat
EndProcedure

hhwnd = OpenWindow (0, 100, 100, 250, 100, #PB_Window_SystemMenu | #PB_Window_ScreenCentered , "Double-cliquez sur la fenêtre")
;SetClassLong_(hwnd, #GCL_STYLE , GetClassLong_(hwnd, #GCL_STYLE )| #CS_DBLCLKS )

SSetWindowCallback (@WinCallBack())

Repeat
Select WindowEvent ()
Case #PB_Event_CloseWindow : Quit = 1
EndSelect
Until Quit = 1
End

vous pouvez le telecharger ici

Chris · Message par **Chris** » dim. 30/oct./2005 19:22

A mon avis, il y a un petit problème de vidage du presse-papier.

Sur certaines lignes, le premier caractère est doublé.

"hhwnd = OpenWindow (0, 100, 100, 250, 100, #PB...."
"SSetWindowCallback (@WinCallBack())"

Backup · Message par **Backup** » dim. 30/oct./2005 19:53

Merci pour l'info !

c'est corrigé !

c'etait une erreur de boucle !!

certaines commencaient a 0 d'autre a 1 bref le joyeux bazard !

voici un exemple

Procedure WinCallBack(WinID.l, message.l, wParam.l, lParam.l)
  Resultat.l = #PB_ProcessPureBasicEvents
   Select message
     Case #WM_LBUTTONDBLCLK
      SetWindowText_(WinID,"Double clic Gauche")
     ; Case #WM_RBUTTONDBLCLK
      SetWindowText_(WinID,"Double clic Droit")
     ; Case #WM_MBUTTONDBLCLK
      SetWindowText_(WinID,"Double clic Milieu")
   EndSelect
   ProcedureReturn Resultat
EndProcedure

hwnd = OpenWindow (0, 100, 100, 250, 100, #PB_Window_SystemMenu | #PB_Window_ScreenCentered , "Double-cliquez sur la fenêtre")
   ;SetClassLong_(hwnd, #GCL_STYLE , GetClassLong_(hwnd, #GCL_STYLE )| #CS_DBLCLKS )

SetWindowCallback (@WinCallBack())

Repeat
   Select WindowEvent ()
     Case #PB_Event_CloseWindow : Quit = 1
   EndSelect
Until Quit = 1
End