Problème de règle

Bonjour à tous les amis panoramiciens, Smile

Voilà, j'affiche un quadrillage à l'écran avec 2 règles chiffrées en haut horizontalement et à gauche verticalement. Pour le moment, le picture fait 5000 x 5000, et pourrais faire plus en dimension. A droite et en bas apparaissent 2 ascenceurs. Quand on clique sur celui de droite, le picture se déplace vers le bas, et la règle en haut disparait. Si je clique sur celui du bas, c'est la règle à gauche qui disparait.
Problème: Je voudrais que mes 2 règles restent visibles en toutes circonstances. J'ai essayé de plusieurs façons déjà (avec 2 pictures superposés ou avec un autre form) , mais sans résultats. Ou alors, je fais mal quelque chose?
Je vous met juste juste le bout de code à partir duquel je fais mon quadrillage et ma règle.

Code:: dim x,y

full_space 0:color 0,100,180,200
picture 1:width 1,5000:height 1,5000

2d_target_is 1:2d_pen_width 1: ' quadrillage
for y=0 to height(1) step 10
if int(y/50)<>y/50:2d_pen_color 0,200,200:else:2d_pen_color 0,0,250:end_if
2d_line 0,y,width(1),y:next y
for x=0 to width(1) step 10
if int(x/50)<>x/50:2d_pen_color 0,200,200:else:2d_pen_color 0,0,250:end_if
2d_line x,0,x,height(1):next x
font_name 1,"Fixedsys":print_target_is 1
for y=0 to height(1) step 10
if (int(y/50)=y/50 and y<>0) then print_locate 1,y-7:print 1+(y-100)/50
next y
for x=0 to width(1) step 10
if (int(x/50)=x/50 and x<>0) then print_locate x-7,1:print 1+(x-100)/50
next x
while scancode <> 27: end_while
terminate

Si quelqu'un a une solution à ce problème ou peut m'aiguiller vers la solution, je suis preneur.
Bonne journée à tous
Cordialement et panoramiquement votre! Wink

Da es hier wieder leise und vernünftig zu geht, werde ich mich wieder beteiligen.
Very Happy

@ hallo bignono

Bei mir sind beide Bar ok. Keiner verschwindet.
Super Bild, sieht aus wie Millimeterpapier. bounce

Severin

Because it here again quietly and sensibly to go, I will participate again.
Very Happy

@ Hello bignono

For me both are OK bar. No one disappears.
Great picture, looks like graph paper. bounce

Severin

Parce que ici à nouveau tranquillement et sagement d'y aller, je vais participer à nouveau.
Very Happy

@ Bonjour bignono

Pour moi les deux sont OK bar. Personne ne disparaît.
Grand tableau, ressemble à du papier millimétré. bounce

Severin

Pour moi, c'est normal que cela disparaisse. Ton picture est plus grand que la partie visible de l'écran, et tu as donc des ascenseurs, pour la fenêtre. Si tu lasses défiler la fenêtre, forcément, le haut vois le côté gauche de ta fenêtre disparaît, et la règle avec. J'ai fait des essais en décalant ton picture 1 de 20 pixels à droite et vers le bas et j'ai inscrit la règle dans deux pictures étroits inscrits dans l'espace laissé libre. Même résultat: lorsque l'écran défile (c'est un scroll horizontal ou vertical), ça disparaît d'un côté pour faire la place de l'autre côté.

Deux solutions: répéter tes règles à des intervalles réguliers, ou faire des fenêtres sans bord aucun dans lesquelles tu places les pictures servant de règle.

Bonjour Klaus, Smile

J'ai fait ce prog, mais je n'ai plus les ascenseurs sur lecoté droit et le bas, donc je ne peux pas déplacer mon quadrillage.
Je crois qu'il n'y a pas de soluce à mon problème.

Code:: dim x,y
label menu,fin

border_hide 0:left 0,20:width 0,screen_x-20:height 0,20:gosub menu

form 1:border_hide 1:width 1,20:height 1,5000:command_target_is 1
picture 2:width 2,20:height 2,5000
2d_target_is 2
for y=0 to height(2) step 10
if int(y/50)<>y/50:2d_pen_color 0,200,200:else:2d_pen_color 0,0,250:end_if
2d_line 0,y,width(2),y:next y
print_target_is 2:font_name 2,"Fixedsys"
for y=0 to height(2) step 10
if (int(y/50)=y/50 and y<>0) then print_locate 1,y-7:print 1+(y-100)/50
next y

form 3:border_hide 3:width 3,5000:height 3,20:top 3,20:command_target_is 3
picture 4:width 4,5000:height 4,20
2d_target_is 4
for x=0 to width(4) step 10
if int(x/50)<>x/50:2d_pen_color 0,200,200:else:2d_pen_color 0,0,250:end_if
2d_line x,0,x,height(4):next x
print_target_is 4:font_name 4,"Fixedsys"
for x=0 to width(4) step 10
if (int(x/50)=x/50 and x<>0) then print_locate x-7,1:print 1+(x-100)/50
next x

form 5:border_hide 5:left 5,20:top 5,40:width 5,width(0):height 5,screen_y-80
command_target_is 5
picture 6:width 6,5000:height 6,5000
2d_target_is 6
for x=0 to width(6) step 10
if int(x/50)<>x/50:2d_pen_color 0,200,200:else:2d_pen_color 0,0,250:end_if
2d_line x-20,0,x-20,height(6):next x
for y=0 to height(6) step 10
if int(y/50)<>y/50:2d_pen_color 0,200,200:else:2d_pen_color 0,0,250:end_if
2d_line 0,y-40,width(6),y-40:next y

while scancode <> 27
end_while
goto fin
end

menu:
main_menu 10
sub_menu 24:parent 24,10:caption 24,"Quitter" :on_click 24,fin
return
fin:
terminate

EDIT:J'ai compris pourquoi les ascenseurs n'apparaissent pas: J'utilise border_hide. Et je suis obligé de l'utiliser pour avoir un form qui s'imbrique bien avec les autres! Décidément, ya pas de soluce scratch

Bonjour à tous Smile

Voici mon dernier code:

Code:: dim x,y
label fin

border_hide 0:left 0,20:width 0,screen_x-20:height 0,20
main_menu 10
sub_menu 11:parent 11,10:caption 11,"Quitter" :on_click 11,fin

form 1:left 1,22:top 1,20:width 1,width(0):height 1,screen_y-58:command_target_is 1
picture 2:width 2,5000:height 2,5000
2d_target_is 2
for x=0 to width(2) step 10
if int(x/50)<>x/50:2d_pen_color 0,200,200:else:2d_pen_color 0,0,250:end_if
2d_line x-5,0,x-5,height(2):next x
for y=0 to height(2) step 10
if int(y/50)<>y/50:2d_pen_color 0,200,200:else:2d_pen_color 0,0,250:end_if
2d_line 0,y,width(2),y:next y

form 3:border_hide 3:width 3,5000:height 3,30:left 3,25:top 3,20:command_target_is 3
picture 4:width 4,5000:height 4,30
2d_target_is 4
for x=0 to width(4) step 10
if int(x/50)<>x/50:2d_pen_color 0,200,200:else:2d_pen_color 0,0,250:end_if
2d_line x,0,x,height(4):next x
print_target_is 4:font_name 4,"Fixedsys"
for x=0 to width(4) step 10
if (int(x/50)=x/50 and x<>0) then print_locate x-7,1:print 1+(x-100)/50
next x

form 5:border_hide 5:width 5,25:height 5,5000:command_target_is 5
picture 6:width 6,25:height 6,5000
2d_target_is 6
for y=0 to height(6) step 10
if int(y/50)<>y/50:2d_pen_color 0,200,200:else:2d_pen_color 0,0,250:end_if
2d_line 0,y,width(6),y:next y
print_target_is 6:font_name 6,"Fixedsys"
for y=0 to height(6) step 10
if (int(y/50)=y/50 and y<>0) then print_locate 1,y-7:print 1+(y-100)/50
next y

while scancode <> 27
' to_foreground 0
to_foreground 3:to_foreground 5
end_while
goto fin
end

fin:
terminate

Problème n°1: scratch

lorsque je clique sur un des 2 ascenseurs, le quadrillage se déplace bien, mais le form réapparait furtivement ou de manière permanente si je reste cliqué sur l'ascenseur. Si je met border_hide à mon form, il n'y a plus d'ascenseur pour déplacer le quadrillage.
Problème n°2: scratch

Si je déplace mon quadrillage vers la droite en cliquant sur l'ascenseur du bas, il faut que ma règle du haut suive le déplacement. Et c'est pareil avec l'ascenseur droit et la règle gauche. Là je ne vois pas comment faire vu que le pas de déplacement peut être variable avec l'ascenseur et que la dimension du picture quadrillage pourra variée!
Si quelqu'un entrevoit une solution...
Cordialement et panoramiquement votre... Wink

Je ne peux que te conseiller de répéter tes règles, par exemple tous les 10 cm, ce qui fait que tu as toujours des règles visibles dans ton cadrillage.

» Problème avec select case Probleme réglé merci
» Problème de DLL.
» Où est le problème?
» Une petite règle
» Une règle à l'écran