Surprise!!!

Adaptez la ligne 4(testé seulement avec un .bmp) et voyez !!! affraid

Code:: dim f$,sum
label test

f$="C:\Program Files\Panoramic Editor V 0.9.25\icones\04.bmp"

DimBmp(f$)

button_picture 2
width 2,rs_wi%+11 : height 2,rs_hi%+11
file_load 2,f$

on_click 2,test

END
SUB DimBmp(f$)
' Sub de JL35
' Dimensions d'une image bmp -> rs_wi%, rs_hi% (largeur, hauteur en pixels)
DIM_LOCAL rs_v%(8)
IF VARIABLE("rs_wi%") = 0 THEN DIM rs_wi%
IF VARIABLE("rs_hi%") = 0 THEN DIM rs_hi%
FILEBIN_OPEN_READ 9, f$
   FILEBIN_POSITION 9, 18
   FILEBIN_BLOCK_READ 9,8,rs_v%(0)
   rs_wi% = rs_v%(0)+256*rs_v%(1)+65536*rs_v%(2)+16777216*rs_v%(3)
   rs_hi% = rs_v%(4)+256*rs_v%(5)+65536*rs_v%(6)+16777216*rs_v%(7)
FILEBIN_CLOSE 9
END_SUB

test:
sum=sum+1
caption 0,str$(sum)
return

J'espère que jack ne m'en voudra pas Embarassed

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

Ça alors silverman ! d'où sors-tu ce Button-Picture ??? et en plus ça marche !
On peut même y mettre un Caption (en réservant la place à droite de l'image) ...
(j'imagine que tu as plongé dans les entrailles de panoramic_editor ?)

Bwoui BUTTON_PICTURE est reconnu par Panoramic, mais personnellement j’ignorait sa présence jusqu’au test du code de l’homme d’argent
Est-ce que Jack nous cache quelque chose ?
Est-ce que Silverman est lui-même Jack ? Surprise!!! U_THIN%7E1

@JL35
Bien vu, j'ai effectivement trifouillé les entrailles de panoramic!

@papydall
Je suis surpris que tu n'aies pas découvert cela avant moi! Shocked

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

On va faire comme si on n'avait rien vu en attendant que Jack officialise la chose...
ou alors l'utiliser discrètement (c'est tentant)... Smile

ps tu en as d'autres comme ça ?

JL35 a écrit:: On va faire comme si on n'avait rien vu en attendant que Jack officialise la chose...
ou alors l'utiliser discrètement (c'est tentant)...

Tu as raison, je n'ai rien vu, et je pense qu'on est nombreux à n'avoir rien vu.
lol!

N'empêche que ça marche super bien.
Je me demande si Jack ne l'a pas codé et a fini par l'oublier....

A+

PS: Bravo Silverman.

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

Super ce truc ! (bon, je joue avec, c'est tout hein, rien d'officiel, mais c'est bien tentant Smile

)
on peut donc mettre une image + un caption, et le caption peut être sur plusieurs lignes !
(séparées par chr$(10))
Surprise!!! Img10

donc image seule, image + caption, ou caption seul, centrés sur le bouton.
( l'image doit être bmp. Le bouton ne doit pas être obligatoirement aux dimensions de l'image, si celle-ci est trop grande elle sera tronquée).

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

Effectivement, il y a plusieurs objets qui ont été codés partiellement. Et j'ai oublié de désactiver BUTTON_PICTURE.

Comme autres objets non terminés et désactivés, il y a :
MEMO_RICH
GRID_DRAW
MAIN_MENU_POP
SHAPE
OPEN_DIALOG_PIC
SAVE_DIALOG_PIC

Il y a aussi les objets de Domoticom qui ne sont pas activés:
SERIAL
LED1
DIGIT1
SWITCH1

et ceux de Panoramic for Android:
LIST_VIEW
SWITCH

_________________

username : panoramic@jack-panoramic password : panoramic123

@jack
j'ai eu de la chance que ça marche alors Very Happy

J'ai trifouillé panoramic par depis car j'étais ennuyé par des informations de débogage qui apparaisent quand on cré des 'function' des nouvelles commandes de librairies.

Il y a ça aussi, ce ne sont pas des objets, mais c'est plus pour les matheux:

Code:: dim v_cible,v_courante,vitesse
dim angle_cible,angle_courant
dim j

if 1=1
print : print : print
print "test 1:"
v_cible=90
v_courante=45
vitesse=1
'
for j=1 to 10
   v_courante=curve_value(v_cible,v_courante,vitesse)
   print v_courante
next j
print
end_if

print "test 2:"
angle_cible=90
angle_courant=45
vitesse=1
'
for j=1 to 100
   angle_courant=curve_angle(angle_cible,angle_courant,vitesse)
   print_locate 0,222
   print angle_courant
   pause 1
   print_clear
next j

Bon, ben tu sais ce qu' il te reste à faire Jack...

Non, non, pas les désactiver, les finir...
lol!

surtout celui là, je l' attends avec une impatience panoramicienne.
Laughing

en plus, il ne doit pas y manquer grand chose :

Code:: label clic,move,movefond,clique,clique2

color 0,240,205,152
caption 0,"Cliquez sur le bouton..."
on_mouse_move 0,movefond

button_picture 1
height 1,32
width 1,32
top 1,10
left 1,10
file_load 1,"C:\Users\Yannick\Desktop\PPE\img\btn1_33.bmp"
cursor_point 1
on_click 1,clic
on_mouse_move 1,move
on_mouse_down 1,clique
end

clic:
if number_click =1
caption 0,"Merci de m' avoir cliqué."
message str$(clicked(1))
end_if
return

movefond:
off_mouse_move 0
file_load 1,"C:\Users\Yannick\Desktop\PPE\img\btn1_33.bmp"
on_mouse_move 1,move
return

move:
off_mouse_move 1
file_load 1,"C:\Users\Yannick\Desktop\PPE\img\btn1_31.bmp"
on_mouse_move 0,movefond
return

clique:
off_mouse_down 1
file_load 1,"C:\Users\Yannick\Desktop\PPE\img\btn1_32.bmp"
on_mouse_up 1,clique2
return

clique2:
off_mouse_up 1
file_load 1,"C:\Users\Yannick\Desktop\PPE\img\btn1_31.bmp"
on_mouse_down 1,clique
return