stretch_on

Bonjour à tous

Question : pourquoi le stretch_on ne fonctionne pas sur un Picture

merci
@+

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Exact: ça marche sur un scene2d, mais pas (ou plus) sur un picture.

Invité

Depuis la dernière mise à jour, stretch_on ne fonctionne plus pareil. Je suis à peu près certain que Jack à dit qu'il y avait une erreur sur le redimensionnement des objets dans certaine condition, je ne retrouve pas le sujet, et depuis cette version, les choses ont changées. Je trouve cela bien dommage, pour ma part je pense qu'il y a erreur, et fonctionnait mieux avant. Mes anciens programmes, je ne dois surtout pas les reprendre avec cette version.
A+

salut

Dans ce cas les opérations sur les images restent très limité.
Car on n'a pas beaucoup de choix (pour l'instant) pour intervenir sur des images.
Pour l'instant je trouve cela pénalisant (en terme de programmation)
@+

Invité

RÉPONSE !

La réponse est que il prend le stretch_on mais il faut charger une image dedans et là ça marche ou encord ont peut mettre le picture en full_space mettre le fond du form la couleur du picture et mettre en stretch_on le picture comme ça ont ne vois pas le form !

J'espère que je suis clair

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

J'ai rien compris !

Invité

Si t'as rien compris, j'ai une solution c'est que il faudrait que tu regarde un peut le cadeau que j'ai donné dans le post de JJN4

Invité

Je ne sais pas ce que tu as compris pour strecht_on, mais pour moi, cette instruction n'est plus valable.
Si tu veux faire l'essaies, j'ai publié: un jardin potager à:
https://panoramic.1fr1.net/vos-sources-vos-utilitaires-a-partager-f2/jardin-potager-t319.htm
Tu fais l'essai avec les anciens éditeurs, et celui d'aujourd'hui. Tu verra la différence.
auparavant toutes les images étaient adapter aux vignettes, et aux agrandissement.
Avec le dernier éditeur, cela n'est plus le cas, et ce programme ne sert plus à rien avec celui-ci. Plus rien n'est compréhensible, et vous aurez du mal à me prouver le contraire. Les images qui sont en 2 3 8 millions de pixels, on ne voit qu'une petite partie de celle-ci, sans rien comprendre. A l'époque j'avais fait le programme avec justbasic, les images pour être miniaturisée, je l'ai avais adaptées dans des boutons images, mais le résultat n'était pas formidable, les photos étaient très sombres et vraiment pas belles. Après recherche sur les logiciels sur le web, la différence était tellement frappante, et vu que la limitation des objets allait être retirée, j'ai opté pour ce basic. J'espère que JACK va revenir sur cette instruction, parce que là, je ne la comprends plus. En tout cas, ne prenez pas la peine de jeter les anciennes versions de Panoramic, on a des fois des surprises.

Invité

Euh...

Cosmos c'est parce que je n'ai pas réussi à l'essayer.
Mais essai ça chez moi ça marche

(Version 1.0 de ImagePlayer Copyright décembre 2009 version du jour)

Code:: label quitter,menushide,about,close,newimage,listactif
label langue1,langue2,save,OK,version,recent,Key,listinactif
label suit,plein,open,saveas,image,ok2,editionlocal
label OpenFileSpecial,SaveFileSpecial,QuitFile,FontOK
label NewSpecialFile,nouveau,non,TextesEcrit,font,suit2
label K1,K2,K3,K4,K5,K6,K7,K8,K9,K10,propri

dim menus,is_screen,n,a$,is_image
dim NomFichier$,i,j,NomPath$,Nom$
dim is_close,file_size,z
n=13 : z=1
a$=chr$(10)+chr$(13)

left 0,250
top 0,150
width 0,420
height 0,270
caption 0,"ImagePlayer 1.0"
color 0,0,0,0
on_key_up 0,suit

alpha 38:hide 38
full_space 38
font_size 38,30
font_name 38,"Times New Roman"
caption 38,a$+" ImagePlayer 1.0"

picture 1
full_space 1
color 1,0,0,0
hint 1,"Il n'y a pas d'image placé"
cursor_cross 1

main_menu 2
sub_menu 3:parent 3,2:caption 3,"Fichier"
sub_menu 4:parent 4,2:caption 4,"Edition"
sub_menu 5:parent 5,2:caption 5,"Affichage"
sub_menu 43:parent 43,2:caption 43,"Outils"
sub_menu 6:parent 6,2:caption 6,"?"

sub_menu 7:parent 7,3:caption 7,"Nouveau N":on_click 7,newimage
sub_menu 8:parent 8,3:caption 8,"Ouvrir... O":on_click 8,open
sub_menu 9:parent 9,3:caption 9,"Enregistrer S":on_click 9,saveas
sub_menu 10:parent 10,3:caption 10,"Enregistrer sous...":on_click 10,saveas
sub_menu 11:parent 11,3:caption 11,"Fermer F12":on_click 11,close
sub_menu 12:parent 12,3:caption 12,"Ouvert Récemment"
sub_menu 13:parent 13,12:caption 13,"(vide)":inactive 13:on_click 13,recent
sub_menu 14:parent 14,12:caption 14,"(vide)":inactive 14:on_click 13,recent
sub_menu 15:parent 15,12:caption 15,"(vide)":inactive 15:on_click 13,recent
sub_menu 16:parent 16,12:caption 16,"(vide)":inactive 16:on_click 13,recent
sub_menu 80:parent 80,3:caption 80,"Propriétés...":on_click 80,propri:inactive 80
sub_menu 17:parent 17,3:caption 17,"Imprimer... P"
sub_menu 18:parent 18,3:caption 18,"Quitter Alt+F4":on_click 18,quitter

sub_menu 19:parent 19,4:caption 19,"Couper Ctrl+X"
sub_menu 20:parent 20,4:caption 20,"Copier Ctrl+C"
sub_menu 21:parent 21,4:caption 21,"Coller Ctrl+V"

sub_menu 22:parent 22,5:caption 22,"Barre d'état"
sub_menu 23:parent 23,5:caption 23,"Barre de menus* B":on_click 23,menushide
sub_menu 24:parent 24,5:caption 24,"Image* M":on_click 24,image
sub_menu 25:parent 25,5:caption 25,"Plein Écran E":on_click 25,plein
sub_menu 26:parent 26,5:caption 26,"Afficher l'image... F"
sub_menu 32:parent 32,5:caption 32,"Langue"
sub_menu 30:parent 30,32:caption 30,"Barre de Menu en Français":on_click 30,langue2
sub_menu 31:parent 31,32:caption 31,"English Menu Bar":on_click 31,langue1

sub_menu 44:parent 44,43:caption 44,"Ouvrir un Fichier en texte...":on_click 44,OpenFileSpecial
sub_menu 45:parent 45,43:caption 45,"Enregistrer un Fichier en texte...":on_click 45,SaveFileSpecial
sub_menu 66:parent 66,43:caption 66,"TextesEcrit 1.0...":on_click 66,TextesEcrit
sub_menu 73:parent 73,43:caption 73,"Touches de raccourcis...":on_click 73,Key

sub_menu 27:parent 27,6:caption 27,"Aide... F1"
sub_menu 28:parent 28,6:caption 28,"A Propos...":on_click 28,about
sub_menu 39:parent 39,6:caption 39,"Version...":on_click 39,version

' invisible ------------------------------------------------------------

form 35
hide 35
left 35,300
top 35,200
height 35,150
width 35,250
caption 35,"A Propos..."
command_target_is 35

alpha 36
left 36,10
top 36,10
caption 36,"Ce logiciel ne comportent pas d'installation."+a$+"Cela veut dire qu'il est completement portable/"+a$+"et sans DLL et fichier nécessaires."+a$+a$+"Auteur : Nicolas Maltais"+a$+a$+"Copyright décembre 2009"

button 37
left 37,150
width 37,80
top 37,60
height 37,30
caption 37,"OK"
on_click 37,OK

' ----------------------------------------------------------------------

form 40
hide 40
left 40,300
top 40,200
height 40,150
width 40,250
caption 40,"Version..."
command_target_is 40

alpha 41
left 41,10
top 41,10
caption 41,"Cette version est une version testé."+a$+"C'est à dire une version sans bugs."+a$+a$+" Version(s) Disponible(s) :"+a$+a$+" ImagePlayer 1.0"
font_color 41,40,0,100

button 42
left 42,150
width 42,80
top 42,60
height 42,30
caption 42,"OK"
on_click 42,ok2

' -----------------------------------------------------------------------

form 48
hide 48
left 48,100
top 48,100
caption 48,"Fichier Spécial..."
command_target_is 48

memo 49
full_space 49
bar_both 49
font_name 49,"Courier New"
font_size 49,8

main_menu 51
sub_menu 52:parent 52,51:caption 52,"Fichier"
sub_menu 53:parent 53,51:caption 53,"Edition"
sub_menu 67:parent 67,51:caption 67,"Format"

sub_menu 54:parent 54,52:caption 54,"Nouveau ":on_click 54,NewSpecialFile
sub_menu 55:parent 55,52:caption 55,"Ouvrir...":on_click 55,OpenFileSpecial
sub_menu 56:parent 56,52:caption 56,"Enregistrer sous...":on_click 56,SaveFileSpecial
sub_menu 57:parent 57,52:caption 57,"Fermer Alt+F4":on_click 57,QuitFile

sub_menu 58:parent 58,53:caption 58,"Couper Ctrl+X":on_click 58,editionlocal
sub_menu 59:parent 59,53:caption 59,"Copier Ctrl+C":on_click 59,editionlocal
sub_menu 60:parent 60,53:caption 60,"Coller Ctrl+V":on_click 60,editionlocal

sub_menu 68:parent 68,67:caption 68,"Police...":on_click 68,font

' ----------------------------------------------------------------------

form 61
hide 61
left 61,50
top 61,50
width 61,250
height 61,100
caption 61,"Info - ImagePlayer 1.0"
color 61,0,0,0
command_target_is 61

alpha 62
top 62,5
left 62,5
caption 62,"Voulez vous vraiment créer un nouveau fichier ?"
font_color 62,255,255,255

button 63
left 63,10
width 63,60
top 63,30
height 63,21
caption 63,"Oui"
on_click 63,nouveau

button 64
left 64,75
width 64,60
top 64,30
height 64,21
caption 64,"Non":on_click 64,non

button 65
left 65,140
width 65,80
top 65,30
height 65,21
caption 65,"Annuler":on_click 65,non

' ----------------------------------------------------------------------

form 69
hide 69
left 69,150
top 69,100
width 69,250
height 69,110
caption 69,"Format de Police..."
command_target_is 69

combo 70
left 70,5
top 70,8
width 70,150
text 70,"Courier New"
font_names_add 70

combo 71
width 71,77
left 71,160
top 71,8
text 71,"8"
for i=1 to 30
item_add 71,i
next i

button 72
left 72,5
width 72,232
top 72,34
height 72,30
caption 72,"OK"
on_click 72,FontOK

' -------------------------------------------------------------------

form 78
hide 78
left 78,100
top 78,100
height 78,57
caption 78,"Info - ImagePlayer 1.0"
command_target_is 78
edit 79:width 79,312:full_space 79

' ------------------------------------------------------------------

form 74
hide 74
left 74,250
top 74,150
width 74,300
height 74,200
caption 74,"Touches de raccourcis..."
command_target_is 74

option 75
left 75,10
top 75,10
width 75,275
caption 75,"Tapez une touche de raccourci et donné son ouvrage"
mark_on 75
on_click 75,listinactif

option 76
left 76,10
top 76,30
width 76,275
caption 76,"Liste des touches de raccourcis"
on_click 76,listactif

list 77
left 77,10
top 77,50
width 77,272
height 77,109
inactive 77
item_add 77,"N - Nouvelle Image"
item_add 77,"O - Ouvrir une Image"
item_add 77,"S - Enregistrer l'Image"
item_add 77,"F12 - Fermer l'image"
item_add 77,"P - Imprimer l'Image"
item_add 77,"Alt+F4 - Quitter l'application"
item_add 77,"Ctrl+X - Couper l'Image"
item_add 77,"Ctrl+C - Copier l'Image"
item_add 77,"Ctrl+V - Coller l'Image"
item_add 77,"B - Barre de Menus"
item_add 77,"M - Image"
item_add 77,"E - Plein Écran"
item_add 77,"F - Afficher l'Image"
item_add 77,"F1 - Aide"

' ---------------------------------------------------------

form 81
hide 81
left 81,150
top 81,100
width 81,500
height 81,200
caption 81,"Propriétés du Fichier Ouvert..."
command_target_is 81

alpha 82
left 82,5
top 82,10
caption 82,"Nom :"+a$+a$+"Emplacement :"+a$+a$+"Au complet :"+a$+a$+a$+"Taille (en octets) :"
font_size 82,10

j=9
for i=83 to 85
edit i:left i,95:top i,j:width i,390:font_size i,10
j=j+30
next i

edit 86
left 86,130
top 86,120
font_size 86,10
width 86,300

end

' touches de raccourcis ------------------------------------------------

suit:
if key_up_code=66 then goto menushide
if key_up_code=69 then goto plein
if key_up_code=79 then goto open
if key_up_code=83 then goto saveas
if key_up_code=77 then goto image
if key_up_code=123 then goto close
if key_up_code=78 then goto newimage
return

suit2:
if key_up_code=66 then goto K1 : ' B
if key_up_code=69 then goto K2 : ' E
if key_up_code=79 then goto K3 : ' O
if key_up_code=83 then goto K4 : ' S
if key_up_code=77 then goto K5 : ' M
if key_up_code=123 then goto K6 : ' F12
if key_up_code=78 then goto K7 : ' N
if key_up_code=70 then goto K8 : ' F
if key_up_code=112 then goto K9 : ' F1
if key_up_code=80 then goto K10 : ' P
return

' Autres ---------------------------------------------------------------

langue1:
caption 3,"File":caption 4,"Edit":caption 5,"View"
caption 27,"Help... F1":caption 28,"About..."
caption 22,"Status Bar":caption 23,"Menu bar* B"
caption 25,"Full Screen E"
caption 26,"View image... F":caption 32,"Language"
caption 19,"Cut Ctrl+X":caption 20,"Copy Ctrl+C"
caption 21,"Paste Ctrl+V"
caption 7,"New N":caption 8,"Open... O"
caption 9,"Save S":caption 10,"Save as..."
caption 11,"Close F12":caption 12,"Recently opened"
caption 17,"Print... P":caption 18,"Quit Alt+F4"
caption 43,"Tools":caption 44,"Open a text file...":caption 45,"Save a text file ...":caption 54,"New "
caption 55,"Open...":caption 56,"Save as...":caption 57,"Close Alt+F4":caption 52,"File":caption 53,"Edit"
caption 58,"Cut Ctrl+X":caption 59,"Copy Ctrl+C":caption 60,"Paste Ctrl+V"
caption 63,"Yes":caption 64,"No":caption 65,"Cancel":caption 62,"Do you really create a new file ?"
caption 68,"Font...":caption 73,"Shortcut keys..."

if n=13 then caption 13,"(empty)":caption 14,"(empty)":caption 15,"(empty)":caption 16,"(empty)"
if n=14 then caption 14,"(empty)":caption 15,"(empty)":caption 16,"(empty)"
if n=15 then caption 16,"(empty)"
return

langue2:
caption 3,"Fichier":caption 4,"Edition":caption 5,"Affichage"
caption 7,"Nouveau N":caption 8,"Ouvrir... O"
caption 9,"Enregistrer S":caption 10,"Enregistrer sous..."
caption 11,"Fermer F12":caption 12,"Ouvert Récemment"
caption 17,"Imprimer... P":caption 18,"Quitter Alt+F4"
caption 19,"Couper Ctrl+X":caption 20,"Copier Ctrl+C"
caption 21,"Coller Ctrl+V":caption 22,"Barre d'état"
caption 23,"Barre de menus* B":caption 25,"Plein Écran E"
caption 26,"Afficher l'image... F":caption 32,"Langue"
caption 27,"Aide... F1":caption 28,"A Propos..."
caption 63,"Oui":caption 64,"No":caption 65,"Annuler":caption 62,"Voulez vous vraiment créer un nouveau fichier ?"
caption 43,"Outils":caption 45,"Enregistrer un Fichier en texte...":caption 44,"Ouvrir un Fichier en texte..."
caption 52,"Fichier":caption 53,"Edition":caption 54,"Nouveau "
caption 55,"Ouvrir...":caption 56,"Enregistrer sous...":caption 57,"Fermer Alt+F4"
caption 58,"Couper Ctrl+X":caption 59,"Copier Ctrl+C":caption 60,"Coller Ctrl+V"
caption 68,"Police...":caption 73,"Touches de raccourcis..."

if n=13 then caption 13,"(vide)":caption 14,"(vide)":caption 15,"(vide)":caption 16,"(vide)"
if n=14 then caption 14,"(vide)":caption 15,"(vide)":caption 16,"(vide)"
if n=15 then caption 16,"(vide)"
return

menushide:
if (menus=0)
hide 3:hide 4:hide 5:hide 6:hide 43
menus=1
else
show 3:show 4:show 5:show 6:show 43
menus=0
end_if
return

plein:
if (is_screen=0)
stretch_off 1
color 0,0,0,0
is_screen=1
else
stretch_on 1
is_screen=0
end_if
return

image:
if (is_image=0)
hide 1:inactive 25:color 0,233,232,218
is_image=1
else
show 1:active 25:color 0,0,0,0
is_image=0
end_if
return

close:
if (is_close=0)
show 38:hide 1:color 0,233,232,218
is_close=1
else
hide 38:show 1:color 0,0,0,0
is_close=0
end_if
return

newimage:
color 1,0,0,0:color 0,0,0,0
caption 0,"ImagePlayer 1.0"
return

' Dialogues --------------------------------------------------------------------------------------------------------------

open:
open_dialog 33
filter 33,"BMP/BITMAP Images BMP|*.bmp|JPG/JPEG Images JPG|*.jpg|Fichiers d'image BMP et JPG|*.bmp;*.jpg"
NomFichier$=file_name$(33)
delete 33
filebin_open_read z,NomFichier$
file_size = filebin_size(z)
filebin_close z
j=len(NomFichier$)
NomPath$=""
Nom$=""
for i=j to 1 step -1
if (mid$(NomFichier$,i,1)="\")
NomPath$=mid$(NomFichier$,1,i)
if (i<j) then Nom$=mid$(NomFichier$,i+1,j-i)
caption 0,"ImagePlayer 1.0 - "+Nom$
exit_for
end_if
next i
if (file_exists(NomFichier$)<>0) and (len(NomFichier$)>1)
color 1,0,0,0:active 80:text 83,Nom$:text 84,NomPath$:text 85,NomFichier$:text 86,file_size:text 86,text$(86)+" Octets"
file_load 1,NomFichier$
hint 1," ImagePlayer - Informations :"+a$+a$+"Nom de l'image : "+Nom$+a$+"Emplacement de l'image : "+NomPath$+a$+"Au complet : "+NomFichier$+a$
on_click 9,save:if key_up_code=83 then goto save
else
message "Aucun Fichier d'image Ouvert ;":return
end_if
if n=16 then n=13
active n:caption n,NomFichier$:n=n+1
return

saveas:
save_dialog 34
filter 34,"Tous les Fichiers|*.*|JPG/JPEG Fichiers d'images JPG|*.JPG;*.JPEG|BMP/BMP Fichiers d'images BMP|*.BMP|GIF/GIF Fichiers d'images GIF|*.GIF|DIB/DIB Fichiers d'images DIB|*.DIB|TIF/TIFF Fichiers d'images TIF|*.TIF;*.TIFF|JPE/JPE Fichiers d'images JPE|*.JPE|PNG/PNG Fichiers d'images PNG|*.PNG|PCX/PCX Fichiers d'images PCX|*.PCX|ICO/ICO Fichiers d'images ICO|*.ICO|PSD/PSD Fichiers d'images PSD|*.PSD|MPE/MPE Fichiers d'images MPE|*.MPE|MPG/MPEG Fichiers d'images MPG|*.MPG;*.MPEG|SWF/SWF Fichiers d'images SWF|*.SWF|CUR/CUR Fichiers d'images CUR|*.CUR|PSP/PSP Fichiers d'images PSP|*.PSP|LWF/LWF Fichiers d'images LWF|*.LWF|B3D/B3D Fichiers d'images B3D|*.B3D|Toutes les sortes d'image dans la liste|*.jpg;*.jpeg;*.bmp;*.ico;*.cur;*.psd;*.lwf;*.psp;*.tif;*.tiff;*.gif;*.dib;*.png;*.jpe;*.pcx;*.mpg;*.mpeg;*.mpe;*.b3d;*.swf"
NomFichier$=file_name$(34)
delete 34
file_save 1,NomFichier$
on_click 9,save
if key_up_code=83 then goto save
return

save:
file_save 1,NomFichier$
return

recent:
if clicked(13)=1 then file_load 1,caption$(13)
if clicked(14)=1 then file_load 1,caption$(14)
if clicked(15)=1 then file_load 1,caption$(15)
if clicked(16)=1 then file_load 1,caption$(16)
return

' Fichier Spéciaux -------------------------------------------------------------------------------------------------------

OpenFileSpecial:
open_dialog 46
filter 46,"Tous les fichiers|*.*"
NomFichier$=file_name$(46)
delete 46
j=len(NomFichier$)
NomPath$=""
Nom$=""
for i=j to 1 step -1
if (mid$(NomFichier$,i,1)="\")
NomPath$=mid$(NomFichier$,1,i)
if (i<j) then Nom$=mid$(NomFichier$,i+1,j-i)
caption 48,"Fichier Spécial - "+Nom$
exit_for
end_if
next i
if (file_exists(NomFichier$)<>0) and (len(NomFichier$)>1)
color 1,0,0,0
file_load 49,NomFichier$
hint 49," ImagePlayer - Informations :"+a$+a$+"Nom du fichier : "+Nom$+a$+"Emplacement du fichier : "+NomPath$+a$+"Au complet : "+NomFichier$+a$
on_click 9,save:if key_up_code=83 then goto save
else
message "Aucun Fichier Ouvert ;":return
end_if
show 48
return

SaveFileSpecial:
save_dialog 50
filter 50,"Tous les fichiers|*.*"
NomFichier$=file_name$(50)
delete 50
file_save 49,NomFichier$
return

' Aide -------------------------------------------------------------------------------------------------------------------

about:
show 35
return

version:
show 40
return

ok2:
hide 40
return

OK:
hide 35
return

' Pour les fichiers spéciaux ---------------------------------

editionlocal:
if clicked(58)=1 then clipboard_cut 49
if clicked(59)=1 then clipboard_copy 49
if clicked(60)=1 then clipboard_paste 49
return

QuitFile:
hide 48
return

TextesEcrit:
show 48
return

NewSpecialFile:
show 61
return

nouveau:
clear 49
hide 61
return

non:
hide 61
return

font:
show 69
return

FontOK:
font_name 49,text$(70)
font_size 49,text$(71)
hide 69
return

' Outils ---------------------------------------------------------------------------

Key:
show 74
inactive 77
on_key_up 74,suit2
on_key_up 75,suit2
wait 1500
show 78:text 79,"Attention : Les touches de raccourcis de Windows ne seront pas nommé (Alt+F4, Ctrl+X, Ctrl+C, Ctrl+V)"
return

listactif:
active 77
return

listinactif:
inactive 77
on_key_up 74,suit2
on_key_up 75,suit2
show 78:text 79,"Attention : Les touches de raccourcis de Windows ne seront pas nommé (Alt+F4, Ctrl+X, Ctrl+C, Ctrl+V)"
return

K1:
show 78:text 79,"B - Barre de Menus"
return

K2:
show 78:text 79,"E - Plein Écran"
return

K3:
show 78:text 79,"O - Ouvrir une Image"
return

K4:
show 78:text 79,"S - Enregistrer l'Image"
return

K5:
show 78:text 79,"M - Image"
return

K6:
show 78:text 79,"F12 - Fermer l'image"
return

K7:
show 78:text 79,"N - Nouvelle Image"
return

K8:
show 78:text 79,"F - Afficher l'Image"
return

K9:
show 78:text 79,"F1 - Aide sur ImagePlayer 1.0"
return

K10:
show 78:text 79,"P - Imprimer l'Image"
return

propri:
show 81
return

' Fin Section ------------------------------------------------------------------------------------------------------------

quitter:
terminate

Donne moi de tes nouvelle avec ImagePlayer !
Et j'espère que tu vas régler ton problème et aussi tous le monde !

Invité

Moi mes essais et mes programmes sont faits, et fonctionnent depuis plusieurs mois. Je n'ai pas à régler mes problèmes maintenant, ce n'est pas moi qui ai changé la donne. Si changer le comportement tu trouves cela malin, moi non. Je pense que Jack sans le vouloir a commis une erreur, et j'espère qu'il s'en rendra compte. Il peut toujours télécharger ma version, et voir les différences. J'ai l'intention d'aller de l'avant, et pas à chaque instant reprendre mes anciens programmes, c'est une histoire sans queue ni tête.
D'accord, tu présente un programme, et pour toi, il es adapté à ce que tu voulais faire. Mais peut-être aurais-tu voulu avoir l'effet inverse de ce que tu as fais. J'ai déjà sur ce forum donné les raisons de mon choix pour ce langage, et je peux te dire que si strech_on fonctionnait comme il fonctionne aujourd'hui, à l'époque, j'aurai choisi un autre langage, vu que celui-ci offrait de faire très simplement des réductions avec des qualités d'image exceptionnel, que je suis resté ici. A l'époque je comptais les objets, et je cherchais le moyen de tout faire rentrer dans les limitations, parce que ce truc me convenais. Heureusement celles ci ont étés retiré, et je suis resté. Ton programme ne résoudra pas mon problème.
Je viens de l'essayer à l'instant. On ne fait pas la même chose, même si tu sais coder. Puisque tu sais coder, essaye de faire un programme tout simple (avec quelques instructions, sans plus) qui puisse y mettre une image de bonne dimension dans une vignette comme je l'ai fait (là je ne parle pas de simplicité), et vois si ça marche. Publies tes résultats. On en reparlera après. Mais toi aussi essaye mon programme. A l'époque j'avais encore des choses à apprendre, et si tu as des questions pour le comprendre, je viendrais faire un tour sur le forum surement ce soir. Il est temps pour moi de quitter.

Admin Nombre de messages : 2386 Date d'inscription : 28/05/2007

Citation :: Depuis la dernière mise à jour, stretch_on ne fonctionne plus pareil

Je suis surpris!
Je n'ai pas touché aux commandes STRETCH_ON et STRETCH_OFF, mais j'ai touché au codage des images dans un PICTURE. Peut-être y a t-il un effet de bord?
Je teste et je corrige si nécessaire.

Je rappelle que PANORAMIC est en développement et qu'il peut donc y avoir de temps en temps des effets indésirables, voire des régressions. Mais je compte sur vous tous pour les signaler.

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

C'est comme en médecine, les remèdes ont parfois des effets secondaires.
Quant à les signaler, aucun souci, il y aura toujours quelqu'un pour le faire !

Invité

Merci, j'aime mieux cela, il me semblais que tu avais détecté une erreur, et depuis, rien n'ai pareil.Je vois qu'il s'agit bien d'une erreur, et non d'une volonté. J'aime mieux cela.
Merci de suivre nos problèmes.
@+

Invité

Je pensais que c'était corect.
Mais si c'est vraiment un bug alors je suis content qu'il en a 1 de plus de résolu !

Admin Nombre de messages : 2386 Date d'inscription : 28/05/2007

Le bug est corrigé dans la version instantanée du 28 décembre 2009.

Invité

Merci beaucoup.
Joyeuses Fêtes.

@+