| Mai 2024 | | Lun | Mar | Mer | Jeu | Ven | Sam | Dim |
|---|
| | | 1 | 2 | 3 | 4 | 5 | | 6 | 7 | 8 | 9 | 10 | 11 | 12 | | 13 | 14 | 15 | 16 | 17 | 18 | 19 | | 20 | 21 | 22 | 23 | 24 | 25 | 26 | | 27 | 28 | 29 | 30 | 31 | | |  Calendrier |
|
| | | bug dans les command de Synedit (Resolu) |  |
| | | Auteur | Message |
|---|
pascal10000
Nombre de messages : 812
Localisation : Troyes
Date d'inscription : 05/02/2011
| | Sujet: bug dans les command de Synedit (Resolu) Mar 1 Déc 2020 - 7:24 | |
| 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
Dernière édition par pascal10000 le Mar 1 Déc 2020 - 9:57, édité 1 fois | |
| | | | silverman
Nombre de messages : 968
Age : 51
Localisation : Picardie
Date d'inscription : 18/03/2015
| | Sujet: Re: bug dans les command de Synedit (Resolu) Mar 1 Déc 2020 - 9:14 | |
| 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. | |
| | | | Marc
Nombre de messages : 2385
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Re: bug dans les command de Synedit (Resolu) Mar 1 Déc 2020 - 9:18 | |
| 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 ? | |
| | | | pascal10000
Nombre de messages : 812
Localisation : Troyes
Date d'inscription : 05/02/2011
| | Sujet: Re: bug dans les command de Synedit (Resolu) Mar 1 Déc 2020 - 9:33 | |
| cool Marc
c'est résolut
Merci Marc | |
| | | | Contenu sponsorisé
| | Sujet: Re: bug dans les command de Synedit (Resolu) | |
| |
| | | | | | bug dans les command de Synedit (Resolu) | |
|
Sujets similaires | |
|
| | Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |
