bug dans les command de Synedit (Resolu)

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

bjr a tous

Je pense avoir trouver un bug avec les commandes de Synedit
le programme de Cahier d'ecriture fonctionne bien mais dès que je rajoute
"synedit_target_is_gutter" et "synedit_target_is_comment" plus rien
ne fonctionne convenablement; à la fin je me retrouve avec les pages
149 et 150 et je ne peut plus tourner les pages comme il se doit voit
ce qui suit

code qui ne fonctionne pas

Code:: Dim Page,PageExt,PageNote
Dim LeftG,LeftD,PageG,PageD
Dim WidthForm
Dim HeightY
Dim HeightForm
Dim Taille
PageExt=150
Label Nouveau
Label Ouvrir
Label Enregistrer
Label Quitter
Label Taille
Label Button2
Label Button3
Label Resize0
Label Edit4

Left 0,0
Top 0,0
Width 0,1020
Height 0,810
Color 0,130,0,0
Caption 0,"Cahier d'ecriture"
Hide 0

Panel 1
Width 1,Width_Client(0)
Height 1,45
Color 1,130,0,0

Main_Menu 9
Sub_Menu 10:Parent 10,9:Caption 10,"Fichier"
Sub_Menu 11:Parent 11,10:Caption 11,"Nouveau"
Sub_Menu 12:Parent 12,10:Caption 12,"Ouvrir"
Sub_Menu 13:Parent 13,10:Caption 13,"Enregistrer"
Sub_Menu 14:Parent 14,10:Caption 14,"-"
Sub_Menu 15:Parent 15,10:Caption 15,"Quitter"
Sub_Menu 20:Parent 20,9:Caption 20,"Editon"
Sub_Menu 21:Parent 21,20:Caption 21,"Anuller"
Sub_Menu 22:Parent 22,20:Caption 22,"-"
Sub_Menu 23:Parent 23,20:Caption 23,"ImpriPager"
Sub_Menu 30:Parent 30,9:Caption 30,"Font"
Sub_Menu 31:Parent 31,30:Caption 31,"Taille"
  Sub_Menu 32:Parent 32,31:Caption 32,"8"
  Sub_Menu 33:Parent 33,31:Caption 33,"10"
  Sub_Menu 34:Parent 34,31:Caption 34,"12"
  Sub_Menu 35:Parent 35,31:Caption 35,"14"
  On_Click 11,Nouveau
  On_Click 12,Ouvrir
  On_Click 13,Enregistrer
  On_Click 15,Quitter
  On_Click 32,Taille
  On_Click 33,Taille
  On_Click 34,Taille
  On_Click 35,Taille

  PageNext()

Button 2
Top 2,Top(110)+Height(110)+3
Width 2,20
Height 2,20
Left 2,(Width_Client(0)/2)
Caption 2,"2"
On_click 2,Button2
Button 3
Top 3,Top(110)+Height(110)+3
Width 3,20
Height 3,20
Left 3,(Width_Client(0)/2)-22
Caption 3,"1"
On_click 3,Button3
On_Resize 0,Resize0

Edit 4
Parent 4,1
Top 4,12
Left 4,200
On_Change 4,Edit4

Show 0
Set_Focus 0
End

Nouveau:
For Page=100 to 110
Clear Page
Next Page
Return

Ouvrir:

Return

Enregistrer:
Return

Quitter:
Terminate
Return

Taille:
If Clicked(32)=1 Then Taille=8
If Clicked(33)=1 Then Taille=10
If Clicked(34)=1 Then Taille=12
If Clicked(35)=1 Then Taille=14
For Page=101 to PageExt
Font_Size Page,Taille
Next Page
Return

' Changement de la page de droite
Button2:
Page=100+Val(Caption$(2))
If Object_Exists(Page-2)=0 Then Return
Hide Page
Show Page-2
PageD=Page-2
Caption 2,Str$(Val(Caption$(2))-2)
' de gauche
Page=100+Val(Caption$(3))
Show Page-2
Hide Page
PageG=Page-2
gosub Resize0
Caption 3,Str$(Val(Caption$(3))-2)
Return

' Changement de la page de gauche
Button3:
Page=100+Val(Caption$(3))
If Object_Exists(Page+2)=0 Then Return
Show Page+2
Hide Page
PageG=Page+2
Caption 3,Str$(Val(Caption$(3))+2)
' de droite
Page=100+Val(Caption$(2))
Hide Page
Show Page+2
PageD=Page+2
gosub Resize0
Caption 2,Str$(Val(Caption$(2))+2)
Return

Resize0:
Off_Resize 0
If Width(0)=>1010
   Width 1,Width_Client(0)
   Left 2,(Width_Client(0)/2)
   Left 3,(Width_Client(0)/2)-22

   LeftG=(Width_Client(0)/2)-493
   Left PageG,LeftG
   LeftD=Width_Client(0)/2
   Left PageD,LeftD
End_If
   If Width(0)<1010 Then Width 0,1010
   If Height(0)>810 Or Height(0)<810 Then Height 0,810
   On_Resize 0,Resize0
Return

Edit4:
PageExt=Caption$(4)
Return

Sub PageNext()
' Page de gauche
For Page=101 to PageExt Step 2
Synedit Page
Top Page,46
Height Page, Height_Client(0)-80
Width Page, 490
Left Page,9
Font_Size Page,8
Hint Page,str$(Page)
Hide Page
   synedit_target_is_gutter :' <------
   font_color Page,255,255,255 :' <------
   synedit_target_is_comment :' <------
   font_color Page,0,0,0 :' <------
Next Page
page=101
Show 101:PageG=101

' Page de droite
For Page=102 to PageExt Step 2
Synedit Page
Top Page,46
Height Page, Height_Client(0)-80
Width Page, 490
Left Page, (Width_Client(0)/2)
Font_Size Page,8
Hint Page,str$(Page)
Hide Page
   synedit_target_is_gutter :' <------
   font_color Page,255,255,255 :' <------
   synedit_target_is_comment :' <------
   font_color Page,0,0,0 :' <------
Next Page
page=102
Show 102:PageD=102
End_Sub

même code sans les commandes et ça fonctionne bien

Code:: Dim Page,PageExt,PageNote
Dim LeftG,LeftD,PageG,PageD
Dim WidthForm
Dim HeightY
Dim HeightForm
Dim Taille
PageExt=150
Label Nouveau
Label Ouvrir
Label Enregistrer
Label Quitter
Label Taille
Label Button2
Label Button3
Label Resize0
Label Edit4

Left 0,0
Top 0,0
Width 0,1020
Height 0,810
Color 0,130,0,0
Caption 0,"Cahier d'ecriture"
Hide 0

Panel 1
Width 1,Width_Client(0)
Height 1,45
Color 1,130,0,0

Main_Menu 9
Sub_Menu 10:Parent 10,9:Caption 10,"Fichier"
Sub_Menu 11:Parent 11,10:Caption 11,"Nouveau"
Sub_Menu 12:Parent 12,10:Caption 12,"Ouvrir"
Sub_Menu 13:Parent 13,10:Caption 13,"Enregistrer"
Sub_Menu 14:Parent 14,10:Caption 14,"-"
Sub_Menu 15:Parent 15,10:Caption 15,"Quitter"
Sub_Menu 20:Parent 20,9:Caption 20,"Editon"
Sub_Menu 21:Parent 21,20:Caption 21,"Anuller"
Sub_Menu 22:Parent 22,20:Caption 22,"-"
Sub_Menu 23:Parent 23,20:Caption 23,"ImpriPager"
Sub_Menu 30:Parent 30,9:Caption 30,"Font"
Sub_Menu 31:Parent 31,30:Caption 31,"Taille"
  Sub_Menu 32:Parent 32,31:Caption 32,"8"
  Sub_Menu 33:Parent 33,31:Caption 33,"10"
  Sub_Menu 34:Parent 34,31:Caption 34,"12"
  Sub_Menu 35:Parent 35,31:Caption 35,"14"
  On_Click 11,Nouveau
  On_Click 12,Ouvrir
  On_Click 13,Enregistrer
  On_Click 15,Quitter
  On_Click 32,Taille
  On_Click 33,Taille
  On_Click 34,Taille
  On_Click 35,Taille

  PageNext()

Button 2
Top 2,Top(110)+Height(110)+3
Width 2,20
Height 2,20
Left 2,(Width_Client(0)/2)
Caption 2,"2"
On_click 2,Button2
Button 3
Top 3,Top(110)+Height(110)+3
Width 3,20
Height 3,20
Left 3,(Width_Client(0)/2)-22
Caption 3,"1"
On_click 3,Button3
On_Resize 0,Resize0

Edit 4
Parent 4,1
Top 4,12
Left 4,200
On_Change 4,Edit4

Show 0
Set_Focus 0
End

Nouveau:
For Page=100 to 110
Clear Page
Next Page
Return

Ouvrir:

Return

Enregistrer:
Return

Quitter:
Terminate
Return

Taille:
If Clicked(32)=1 Then Taille=8
If Clicked(33)=1 Then Taille=10
If Clicked(34)=1 Then Taille=12
If Clicked(35)=1 Then Taille=14
For Page=101 to PageExt
Font_Size Page,Taille
Next Page
Return

' Changement de la page de droite
Button2:
Page=100+Val(Caption$(2))
If Object_Exists(Page-2)=0 Then Return
Hide Page
Show Page-2
PageD=Page-2
Caption 2,Str$(Val(Caption$(2))-2)
' de gauche
Page=100+Val(Caption$(3))
Show Page-2
Hide Page
PageG=Page-2
gosub Resize0
Caption 3,Str$(Val(Caption$(3))-2)
Return

' Changement de la page de gauche
Button3:
Page=100+Val(Caption$(3))
If Object_Exists(Page+2)=0 Then Return
Show Page+2
Hide Page
PageG=Page+2
Caption 3,Str$(Val(Caption$(3))+2)
' de droite
Page=100+Val(Caption$(2))
Hide Page
Show Page+2
PageD=Page+2
gosub Resize0
Caption 2,Str$(Val(Caption$(2))+2)
Return

Resize0:
Off_Resize 0
If Width(0)=>1010
   Width 1,Width_Client(0)
   Left 2,(Width_Client(0)/2)
   Left 3,(Width_Client(0)/2)-22

   LeftG=(Width_Client(0)/2)-493
   Left PageG,LeftG
   LeftD=Width_Client(0)/2
   Left PageD,LeftD
End_If
   If Width(0)<1010 Then Width 0,1010
   If Height(0)>810 Or Height(0)<810 Then Height 0,810
   On_Resize 0,Resize0
Return

Edit4:
PageExt=Caption$(4)
Return

Sub PageNext()
' Page de gauche
For Page=101 to PageExt Step 2
Synedit Page
Top Page,46
Height Page, Height_Client(0)-80
Width Page, 490
Left Page,9
Font_Size Page,8
Hint Page,str$(Page)
Hide Page
Next Page
page=101
Show 101:PageG=101

' Page de droite
For Page=102 to PageExt Step 2
Synedit Page
Top Page,46
Height Page, Height_Client(0)-80
Width Page, 490
Left Page, (Width_Client(0)/2)
Font_Size Page,8
Hint Page,str$(Page)
Hide Page
Next Page
page=102
Show 102:PageD=102
End_Sub

merci de résoudre ce problème

Je n'ai pas de pb, ça s'arrête bien à la page 50 avec les 2 codes(panoramic0929i8 et i11). Par contre la ligne 165 est fausse, c'est val(text$()) qu'il faut pour un edit.

Bonjour à tous !

@Pascal

Essaie d'ajouter syedit_target_is_object comme ceci :

Code:: Dim Page,PageExt,PageNote
Dim LeftG,LeftD,PageG,PageD
Dim WidthForm
Dim HeightY
Dim HeightForm
Dim Taille
PageExt=150
Label Nouveau
Label Ouvrir
Label Enregistrer
Label Quitter
Label Taille
Label Button2
Label Button3
Label Resize0
Label Edit4

Left 0,0
Top 0,0
Width 0,1020
Height 0,810
Color 0,130,0,0
Caption 0,"Cahier d'ecriture"
Hide 0

Panel 1
Width 1,Width_Client(0)
Height 1,45
Color 1,130,0,0

Main_Menu 9
Sub_Menu 10:Parent 10,9:Caption 10,"Fichier"
Sub_Menu 11:Parent 11,10:Caption 11,"Nouveau"
Sub_Menu 12:Parent 12,10:Caption 12,"Ouvrir"
Sub_Menu 13:Parent 13,10:Caption 13,"Enregistrer"
Sub_Menu 14:Parent 14,10:Caption 14,"-"
Sub_Menu 15:Parent 15,10:Caption 15,"Quitter"
Sub_Menu 20:Parent 20,9:Caption 20,"Editon"
Sub_Menu 21:Parent 21,20:Caption 21,"Anuller"
Sub_Menu 22:Parent 22,20:Caption 22,"-"
Sub_Menu 23:Parent 23,20:Caption 23,"ImpriPager"
Sub_Menu 30:Parent 30,9:Caption 30,"Font"
Sub_Menu 31:Parent 31,30:Caption 31,"Taille"
  Sub_Menu 32:Parent 32,31:Caption 32,"8"
  Sub_Menu 33:Parent 33,31:Caption 33,"10"
  Sub_Menu 34:Parent 34,31:Caption 34,"12"
  Sub_Menu 35:Parent 35,31:Caption 35,"14"
  On_Click 11,Nouveau
  On_Click 12,Ouvrir
  On_Click 13,Enregistrer
  On_Click 15,Quitter
  On_Click 32,Taille
  On_Click 33,Taille
  On_Click 34,Taille
  On_Click 35,Taille

  PageNext()

Button 2
Top 2,Top(110)+Height(110)+3
Width 2,20
Height 2,20
Left 2,(Width_Client(0)/2)
Caption 2,"2"
On_click 2,Button2
Button 3
Top 3,Top(110)+Height(110)+3
Width 3,20
Height 3,20
Left 3,(Width_Client(0)/2)-22
Caption 3,"1"
On_click 3,Button3
On_Resize 0,Resize0

Edit 4
Parent 4,1
Top 4,12
Left 4,200
On_Change 4,Edit4

Show 0
Set_Focus 0
End

Nouveau:
For Page=100 to 110
Clear Page
Next Page
Return

Ouvrir:

Return

Enregistrer:
Return

Quitter:
Terminate
Return

Taille:
If Clicked(32)=1 Then Taille=8
If Clicked(33)=1 Then Taille=10
If Clicked(34)=1 Then Taille=12
If Clicked(35)=1 Then Taille=14
For Page=101 to PageExt
Font_Size Page,Taille
Next Page
Return

' Changement de la page de droite
Button2:
Page=100+Val(Caption$(2))
If Object_Exists(Page-2)=0 Then Return
Hide Page
Show Page-2
PageD=Page-2
Caption 2,Str$(Val(Caption$(2))-2)
' de gauche
Page=100+Val(Caption$(3))
Show Page-2
Hide Page
PageG=Page-2
gosub Resize0
Caption 3,Str$(Val(Caption$(3))-2)
Return

' Changement de la page de gauche
Button3:
Page=100+Val(Caption$(3))
If Object_Exists(Page+2)=0 Then Return
Show Page+2
Hide Page
PageG=Page+2
Caption 3,Str$(Val(Caption$(3))+2)
' de droite
Page=100+Val(Caption$(2))
Hide Page
Show Page+2
PageD=Page+2
gosub Resize0
Caption 2,Str$(Val(Caption$(2))+2)
Return

Resize0:
Off_Resize 0
If Width(0)=>1010
   Width 1,Width_Client(0)
   Left 2,(Width_Client(0)/2)
   Left 3,(Width_Client(0)/2)-22

   LeftG=(Width_Client(0)/2)-493
   Left PageG,LeftG
   LeftD=Width_Client(0)/2
   Left PageD,LeftD
End_If
   If Width(0)<1010 Then Width 0,1010
   If Height(0)>810 Or Height(0)<810 Then Height 0,810
   On_Resize 0,Resize0
Return

Edit4:
PageExt=Caption$(4)
Return

Sub PageNext()
' Page de gauche
For Page=101 to PageExt Step 2
Synedit Page
Top Page,46
Height Page, Height_Client(0)-80
Width Page, 490
Left Page,9
Font_Size Page,8
Hint Page,str$(Page)
Hide Page
   synedit_target_is_gutter :' <------
   font_color Page,255,255,255 :' <------
   synedit_target_is_comment :' <------
   font_color Page,0,0,0 :' <------
   synedit_target_is_object :' <=================== Ajout Marc
Next Page
page=101
Show 101:PageG=101

' Page de droite
For Page=102 to PageExt Step 2
Synedit Page
Top Page,46
Height Page, Height_Client(0)-80
Width Page, 490
Left Page, (Width_Client(0)/2)
Font_Size Page,8
Hint Page,str$(Page)
Hide Page
   synedit_target_is_gutter :' <------
   font_color Page,255,255,255 :' <------
   synedit_target_is_comment :' <------
   font_color Page,0,0,0 :' <------
   synedit_target_is_object :' <=================== Ajout Marc
Next Page
page=102
Show 102:PageD=102
End_Sub

Ca me semble bon, qu'en penses_tu ?

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

cool Marc
c'est résolut
Merci Marc

» [Résolu] Déplacer les ascenseurs dans synedit
» [RESOLU] Quelle ligne est sélectionnée dans SYNEDIT ?
» [Résolu] Récupérer la position des ascenseurs dans synedit
» [Presque RESOLU] LIBRARY COMMAND & co...
» [Résolu] Position graphique du curseur sur Synedit