FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Aujourd'hui à 19:48

» KGF_dll - nouvelles versions
par pascal10000 Aujourd'hui à 17:27

» Mah-Jong européen new-look
par Minibug Hier à 22:31

» track_bar circulaire
par Klaus Hier à 13:54

» API Windows
par Klaus Hier à 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Ne cherchez plus vos couleurs grace à ma petite palette!

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
bignono

avatar

Nombre de messages : 1104
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Ne cherchez plus vos couleurs grace à ma petite palette!   Ven 13 Sep 2013 - 17:01

Bonjour à tous Smile 
J'ai encore fait un tout petit programme de moins de 100 lignes qui devrait rendre service. Une palette multicolore s'affiche dans le form du dessous que l'on survolera avec la souris. Lors du survol le picture du premier form de gauche affiche en temps réel la couleur de la palette que la souris survole. Lorsque l'on clique sur la palette, le form de droite prend la couleur sélectionnée au clic de la souris et affiche les composantes rouge verte et bleue dans son caption.
Code:
init()
palette()
timer number_objects+1:timer_interval number_objects,100:on_timer number_objects,survol
end

sub palette()
   dim_local c
   display
   for c=0 to 255
      2d_pen_color c  ,000,000:2d_line c,000,c,020
      2d_pen_color 000,c  ,000:2d_line c,020,c,040
      2d_pen_color 000,000,c  :2d_line c,040,c,060
      2d_pen_color 255,c  ,000:2d_line c+256,000,c+256,020
      2d_pen_color 000,255,c  :2d_line c+256,020,c+256,040
      2d_pen_color c  ,000,255:2d_line c+256,040,c+256,060
      2d_pen_color 255,000,c  :2d_line c,060,c,080
      2d_pen_color c  ,255,000:2d_line c,080,c,100
      2d_pen_color 000,c  ,255:2d_line c,100,c,120
      2d_pen_color 255,c  ,255:2d_line c+256,060,c+256,080
      2d_pen_color 255,255,c  :2d_line c+256,080,c+256,100
      2d_pen_color c  ,255,255:2d_line c+256,100,c+256,120
      2d_pen_color c  ,000,c  :2d_line c,120,c,140
      2d_pen_color c  ,c  ,000:2d_line c,140,c,160
      2d_pen_color 000,c  ,c  :2d_line c,160,c,180
      2d_pen_color 255,c  ,c  :2d_line c+256,120,c+256,140
      2d_pen_color c  ,255,c  :2d_line c+256,140,c+256,160
      2d_pen_color c  ,c  ,255:2d_line c+256,160,c+256,180
      2d_pen_color c  ,c  ,c  :2d_line c,180,c,200
   next c
   2d_pen_color 0,0,0:2d_line c,180,c,200
end_sub

sub init()
   label survol
   dim x,y,r,v,b,p,a,f1,f2,t
      border_small 0:caption 0,"COULEUR ACTIVE"
      width 0,width(0)/2:height 0,height(0)/2
      picture number_objects+1:p=number_objects
      width number_objects,width(0)/2:height number_objects,height(0)/2
      left number_objects,(width(0)-width(number_objects))/2
      top number_objects,(height(0)-height(number_objects)-38)/2

      alpha number_objects+1:a=number_objects
      left number_objects,10
      top number_objects,top(number_objects-1)+height(number_objects-1)
      font_name number_objects,"Arial Narrow"
      font_size number_objects,8
      font_bold number_objects

      form number_objects+1:f1=number_objects
      border_small number_objects:color f1,255,255,255
      top number_objects,top(0)+height(0):left number_objects,0
      width number_objects,528:height number_objects,234
      caption number_objects,"PALETTE MULTICOLORE"
      2d_target_is number_objects

      alpha number_objects+1:t=number_objects
      parent number_objects,number_objects-1
      left number_objects,(width(number_objects-1)/2)+5
      top number_objects,height(number_objects-1)-51
      font_name number_objects,"Consolas"
      font_size number_objects,8
      font_bold number_objects
      font_color number_objects,255,0,0
      
      form number_objects+1:f2=number_objects
      border_small number_objects:color f2,255,255,255
      left number_objects,left(0)+width(0)
      top number_objects,top(0)
      width number_objects,width(f1)-width(0)
      height number_objects,height(0)
end_sub

survol:
   timer_off number_objects
   x=mouse_x_position(f1):y=mouse_y_position(f1)
   r=color_pixel_red(f1,x,y)
   v=color_pixel_green(f1,x,y)
   b=color_pixel_blue(f1,x,y)
   caption t,"ROUGE = "+str$(r)+"  VERT = "+str$(v)+"  BLEU = "+str$(b)
   color p,r,v,b
   caption a,"  COMPOSANTES ROUGE = "+str$(r)+"  VERT = "+str$(v)+"  BLEU = "+str$(b)
   if clicked(f1)=1 then color f2,r,v,b:caption f2,"ROUGE: "+str$(r)+" VERT: "+str$(v)+" BLEU: "+str$(b)
   timer_on number_objects
return
En espérant que cela vous soit utile...
A+Wink Wink Wink


Dernière édition par bignono le Ven 13 Sep 2013 - 22:26, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Ne cherchez plus vos couleurs grace à ma petite palette!   Ven 13 Sep 2013 - 17:38

Intéressant tin programme Bignono!
J'étais en ce moment sur la création d'un menu avec le choix de couleurs. Je ne peux pas adapté ton programme pour la méthode que j'utilise, mais j'ai couleurs qui ne me plaise pas, et ton programme va bien m'aider à faire un meilleurs choix.

Bon travail!
Revenir en haut Aller en bas
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re    Ven 13 Sep 2013 - 18:46

IL est chouette ce programme !

Bravo Bignono !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5086
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Ne cherchez plus vos couleurs grace à ma petite palette!   Ven 13 Sep 2013 - 19:17

Très pratique pour faire un choix de couleur.
Au passage la SUB survol() mérite qu'on la publie avec un exemple d'utilisation.
Bravo

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Froggy One

avatar

Nombre de messages : 395
Date d'inscription : 06/01/2012

MessageSujet: Re   Ven 13 Sep 2013 - 19:59

bounce  Génial, très utile, j'adopte tout de suite ! Merci !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Ne cherchez plus vos couleurs grace à ma petite palette!   Ven 13 Sep 2013 - 21:41

Superbe. Par contre, je ne sais pas pourquoi tu mets toujours le timer à 1 pour ce type de boucle.
C'est dangereux 1, tu risque d'avoir des choses qui s'empilent si tu l'utilise dans un programme à cause du délai trop court qui fait que le traitement n'a pas encore eu lieu pour mettre le timer en off avant que l'événement se redéclenche. Perso, j'ai réglé le timer sur 100 et on ne voit pas la différence à l'usage, tout en laissant un minimum de temps quand même au système pour traiter l'événement.

En tout cas c'est une belle palette bien pratique.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
bignono

avatar

Nombre de messages : 1104
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Ne cherchez plus vos couleurs grace à ma petite palette!   Ven 13 Sep 2013 - 22:27

J'ai édité et réglé le timer_interval à 100.En effet Jicehel, ça fonctionne encore mieux comme ça!
Merci à tous
A+Wink Wink Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Ne cherchez plus vos couleurs grace à ma petite palette!   Ven 13 Sep 2013 - 22:39

Tu sais que c'est un plaisir de tester tes programmes. J'espère que tu auras le temps de nous faire encore quelques petits bijoux et d'autres super articles sur la 3D.

(PS: Tu as essayé DAZ ? )
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pan59

avatar

Nombre de messages : 367
Age : 60
Localisation : Wattignies
Date d'inscription : 16/10/2011

MessageSujet: Choix de couleurs   Dim 15 Sep 2013 - 10:27

Bonjour.

Merci Bignono pour ce super petit programme.

Pourrais-tu cependant me concocter un autre programme de choix de couleurs, avec les modifications suivantes:

- barre de couleurs verticales et non horizontales.
- ensemble du programme sur une seule form et non 3.

Cela me permettrait de l'intégrer directement en sous-menu dans mon mon logiciel de traduction.

Merci d'avance.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
bignono

avatar

Nombre de messages : 1104
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Ne cherchez plus vos couleurs grace à ma petite palette!   Lun 16 Sep 2013 - 10:49

Bonjour Pan59, Smile 
Bon, j'ai essayé de faire quelque chose d'à peu près...
J'ai mis ma palette verticalement, mais j'ai réduit de moitié les bandes de couleurs de manière à ce que cela prenne moins de place en largeur. J'ai tout mis sur un seul form, le picture des bandes de couleur, le picture affichant la couleur survolée par la souris et le picture affichant la dernière couleur sélectionnée ou cliquée.
Code:
init() : palette()
timer number_objects+1 : timer_interval number_objects,100
on_timer number_objects,survol
end

survol:
   timer_off number_objects
      x=mouse_x_position(p1) : y=mouse_y_position(p1)
      r=color_pixel_red(p1,x,y)
      v=color_pixel_green(p1,x,y)
      b=color_pixel_blue(p1,x,y)
      caption a1,"ROUGE = "+str$(r)
      caption a2," VERT = "+str$(v)
      caption a3," BLEU = "+str$(b)
      color p2,r,v,b
      if clicked(p1)=1
         color p3,r,v,b
         caption a4,"ROUGE: "+str$(r)
         caption a5," VERT: "+str$(v)
         caption a6," BLEU: "+str$(b)
      end_if
   timer_on number_objects
return

sub palette()
   dim_local c
   display
   for c=0 to 255
      2d_pen_color c  ,000,000 : 2d_line 000,c,010,c
      2d_pen_color 000,c  ,000 : 2d_line 010,c,020,c
      2d_pen_color 000,000,c   : 2d_line 020,c,030,c
      2d_pen_color 255,c  ,000 : 2d_line 000,c+256,010,c+256
      2d_pen_color 000,255,c   : 2d_line 010,c+256,020,c+256
      2d_pen_color c  ,000,255 : 2d_line 020,c+256,030,c+256
      2d_pen_color 255,000,c   : 2d_line 030,c,040,c
      2d_pen_color c  ,255,000 : 2d_line 040,c,050,c
      2d_pen_color 000,c  ,255 : 2d_line 050,c,060,c
      2d_pen_color 255,c  ,255 : 2d_line 030,c+256,040,c+256
      2d_pen_color 255,255,c   : 2d_line 040,c+256,050,c+256
      2d_pen_color c  ,255,255 : 2d_line 050,c+256,060,c+256
      2d_pen_color c  ,000,c   : 2d_line 060,c,070,c
      2d_pen_color c  ,c  ,000 : 2d_line 070,c,080,c
      2d_pen_color 000,c  ,c   : 2d_line 080,c,090,c
      2d_pen_color 255,c  ,c   : 2d_line 060,c+256,070,c+256
      2d_pen_color c  ,255,c   : 2d_line 070,c+256,080,c+256
      2d_pen_color c  ,c  ,255 : 2d_line 080,c+256,090,c+256
      2d_pen_color c  ,c  ,c   : 2d_line 090,c,100,c
   next c
      2d_pen_color 0  ,0  ,0   : 2d_line 090,c,100,c
end_sub

sub init()
   label survol
   dim x,y,p1,p2,p3,a1,a2,a3,a4,a5,a6,r,v,b
   border_small 0 : caption 0,"PALETTE" : height 0,546 : width 0,240
  
   picture number_objects+1
   width number_objects,100:height number_objects,512
   2d_target_is number_objects :                  p1=number_objects

   picture number_objects+1
   height number_objects,160
   left number_objects,left(number_objects-1)+width(number_objects-1)+10
   top number_objects,10 :                        p2=number_objects
  
   alphas() : font_color number_objects,200,0,0 : a1=number_objects
  
   alphas() : font_color number_objects,0,150,0 : a2=number_objects

   alphas() : font_color number_objects,0,0,200 : a3=number_objects

   picture number_objects+1
   height number_objects,160
   left number_objects,left(p2)
   top number_objects,top(p2)+256 :               p3=number_objects

   alphas() : font_color number_objects,200,0,0 : a4=number_objects

   alphas() : font_color number_objects,0,150,0 : a5=number_objects

   alphas() : font_color number_objects,0,0,200 : a6=number_objects
   caption a4,"ROUGE: 255" : caption a5," VERT: 255" : caption a6," BLEU: 255"
end_sub

sub alphas()
   alpha number_objects+1
   left number_objects,left(p2)+15
   top number_objects,top(number_objects-1)+height(number_objects-1)+5
   font_name number_objects,"Arial Narrow"
   font_bold number_objects : font_size number_objects,12
end_sub
J'espère que cela te conviendra...
A+ Wink Wink Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pan59

avatar

Nombre de messages : 367
Age : 60
Localisation : Wattignies
Date d'inscription : 16/10/2011

MessageSujet: Sélecteur de couleurs.   Lun 16 Sep 2013 - 11:30

Bonjour.

Alors là, un grand merci Bignono.

Je teste de suite et te tiens au courant.

Bonne journée.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pan59

avatar

Nombre de messages : 367
Age : 60
Localisation : Wattignies
Date d'inscription : 16/10/2011

MessageSujet: Sélecteur de couleurs.   Lun 16 Sep 2013 - 15:02

Bonjour.

Je rencontre un problème avec le code suivant, adapté de la sub de Bignono.
En effet, les couleurs ne changent pas au survol de la souris, ni aux clics.

Merci de votre aide.

Code:
dim index%

label survol

  init()
  palette()

  timer 560
  timer_interval 560,100
  on_timer 560,survol
  end

survol:
  timer_off 560

  x=mouse_x_position(p1)
  y=mouse_y_position(p1)

  r=color_pixel_red(p1,x,y)
  v=color_pixel_green(p1,x,y)
  b=color_pixel_blue(p1,x,y)
 
  caption 550,str$(x)+";"+str$(y)+": "+str$(r)+","+str$(v)+","+str$(b)
 
  caption a1,"Rouge = "+str$(r)
  caption a2," Vert = "+str$(v)
  caption a3," Bleu = "+str$(b)
  color p2,r,v,b

  if clicked(p1)=1
      color p3,r,v,b
      caption a4,"Rouge: "+str$(r)
      caption a5," Vert: "+str$(v)
      caption a6," Bleu: "+str$(b)
  end_if

  timer_on 560
return

sub palette()
    dim_local c
    display

    for c=0 to 255
        2d_pen_color c  ,000,000 : 2d_line 000,c,010,c
        2d_pen_color 000,c  ,000 : 2d_line 010,c,020,c
        2d_pen_color 000,000,c  : 2d_line 020,c,030,c
        2d_pen_color 255,c  ,000 : 2d_line 000,c+256,010,c+256
        2d_pen_color 000,255,c  : 2d_line 010,c+256,020,c+256
        2d_pen_color c  ,000,255 : 2d_line 020,c+256,030,c+256
        2d_pen_color 255,000,c  : 2d_line 030,c,040,c
        2d_pen_color c  ,255,000 : 2d_line 040,c,050,c
        2d_pen_color 000,c  ,255 : 2d_line 050,c,060,c
        2d_pen_color 255,c  ,255 : 2d_line 030,c+256,040,c+256
        2d_pen_color 255,255,c  : 2d_line 040,c+256,050,c+256
        2d_pen_color c  ,255,255 : 2d_line 050,c+256,060,c+256
        2d_pen_color c  ,000,c  : 2d_line 060,c,070,c
        2d_pen_color c  ,c  ,000 : 2d_line 070,c,080,c
        2d_pen_color 000,c  ,c  : 2d_line 080,c,090,c
        2d_pen_color 255,c  ,c  : 2d_line 060,c+256,070,c+256
        2d_pen_color c  ,255,c  : 2d_line 070,c+256,080,c+256
        2d_pen_color c  ,c  ,255 : 2d_line 080,c+256,090,c+256
        2d_pen_color c  ,c  ,c  : 2d_line 090,c,100,c
    next c

    2d_pen_color 0  ,0  ,0
    2d_line 090,c,100,c
end_sub

sub init()

    dim x,y,p1,p2,p3,a1,a2,a3,a4,a5,a6,r,v,b

    form 550
    border_small 550
    caption 550,"Palette."
    height 550,546
    width 550,240

    2d_target_is 550

    p1=551
    picture 551
    parent 551,550
    width 551,100
    height 551,512

    p2=552
    picture 552
    parent 552,550
    height 552,160
    left 552,left(551)+width(551)+10
    top 552,10

    index%=552

    alphas()
    font_color index%,200,0,0
    a1=index%

    alphas()
    font_color index%,0,150,0
    a2=index%

    alphas()
    font_color index%,0,0,200
    a3=index%

    index%=index%+1
    picture index%
    parent index%,550
    height index%,160
    left index%,left(p2)
    top index%,top(p2)+256
    p3=index%

    alphas()
    font_color index%,200,0,0
    a4=index%

    alphas()
    font_color index%,0,150,0
    a5=index%

    alphas()
    font_color index%,0,0,200
    a6=index%

    caption a4,"Rouge: 255"
    caption a5," Vert: 255"
    caption a6," Bleu: 255"
end_sub

sub alphas()
    index%=index%+1

    alpha index%
    parent index%,550
    left index%,left(p2)+15
    top index%,top(index%-1)+height(index%-1)+5
    font_name index%,"Arial Narrow"
    font_bold index%
    font_size index%,12
end_sub
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
bignono

avatar

Nombre de messages : 1104
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Ne cherchez plus vos couleurs grace à ma petite palette!   Lun 16 Sep 2013 - 15:14

J'ai trouvé ton erreur, voici le code corrigé:
Code:
dim index%

label survol

  init()
  palette()

  timer 560
  timer_interval 560,100
  on_timer 560,survol
  end

survol:
  timer_off 560

  x=mouse_x_position(p1)
  y=mouse_y_position(p1)

  r=color_pixel_red(p1,x,y)
  v=color_pixel_green(p1,x,y)
  b=color_pixel_blue(p1,x,y)

  caption 550,str$(x)+";"+str$(y)+": "+str$(r)+","+str$(v)+","+str$(b)

  caption a1,"Rouge = "+str$(r)
  caption a2," Vert = "+str$(v)
  caption a3," Bleu = "+str$(b)
  color p2,r,v,b

  if clicked(p1)=1
      color p3,r,v,b
      caption a4,"Rouge: "+str$(r)
      caption a5," Vert: "+str$(v)
      caption a6," Bleu: "+str$(b)
  end_if

  timer_on 560
return

sub palette()
    dim_local c
    display

    for c=0 to 255
        2d_pen_color c  ,000,000 : 2d_line 000,c,010,c
        2d_pen_color 000,c  ,000 : 2d_line 010,c,020,c
        2d_pen_color 000,000,c  : 2d_line 020,c,030,c
        2d_pen_color 255,c  ,000 : 2d_line 000,c+256,010,c+256
        2d_pen_color 000,255,c  : 2d_line 010,c+256,020,c+256
        2d_pen_color c  ,000,255 : 2d_line 020,c+256,030,c+256
        2d_pen_color 255,000,c  : 2d_line 030,c,040,c
        2d_pen_color c  ,255,000 : 2d_line 040,c,050,c
        2d_pen_color 000,c  ,255 : 2d_line 050,c,060,c
        2d_pen_color 255,c  ,255 : 2d_line 030,c+256,040,c+256
        2d_pen_color 255,255,c  : 2d_line 040,c+256,050,c+256
        2d_pen_color c  ,255,255 : 2d_line 050,c+256,060,c+256
        2d_pen_color c  ,000,c  : 2d_line 060,c,070,c
        2d_pen_color c  ,c  ,000 : 2d_line 070,c,080,c
        2d_pen_color 000,c  ,c  : 2d_line 080,c,090,c
        2d_pen_color 255,c  ,c  : 2d_line 060,c+256,070,c+256
        2d_pen_color c  ,255,c  : 2d_line 070,c+256,080,c+256
        2d_pen_color c  ,c  ,255 : 2d_line 080,c+256,090,c+256
        2d_pen_color c  ,c  ,c  : 2d_line 090,c,100,c
    next c

    2d_pen_color 0  ,0  ,0
    2d_line 090,c,100,c
end_sub

sub init()

    dim x,y,p1,p2,p3,a1,a2,a3,a4,a5,a6,r,v,b

    form 550
    border_small 550
    caption 550,"Palette."
    height 550,546
    width 550,240

'    2d_target_is 550 : <=== l'erreur est ici!!!!

    p1=551
    picture 551
    parent 551,550
    width 551,100
    height 551,512

    2d_target_is 551 :' <=== ligne de Bignono

    p2=552
    picture 552
    parent 552,550
    height 552,160
    left 552,left(551)+width(551)+10
    top 552,10

    index%=552

    alphas()
    font_color index%,200,0,0
    a1=index%

    alphas()
    font_color index%,0,150,0
    a2=index%

    alphas()
    font_color index%,0,0,200
    a3=index%

    index%=index%+1
    picture index%
    parent index%,550
    height index%,160
    left index%,left(p2)
    top index%,top(p2)+256
    p3=index%

    alphas()
    font_color index%,200,0,0
    a4=index%

    alphas()
    font_color index%,0,150,0
    a5=index%

    alphas()
    font_color index%,0,0,200
    a6=index%

    caption a4,"Rouge: 255"
    caption a5," Vert: 255"
    caption a6," Bleu: 255"
end_sub

sub alphas()
    index%=index%+1

    alpha index%
    parent index%,550
    left index%,left(p2)+15
    top index%,top(index%-1)+height(index%-1)+5
    font_name index%,"Arial Narrow"
    font_bold index%
    font_size index%,12
end_sub
A+Wink Wink Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pan59

avatar

Nombre de messages : 367
Age : 60
Localisation : Wattignies
Date d'inscription : 16/10/2011

MessageSujet: Sélecteur de couleurs.   Lun 16 Sep 2013 - 16:25

Bonjour.

Encore merci Bignono.

J'ai enfin réussi à inclure ta superbe routine dans mon programme principal.
Auparavant, je faisais appel à un module externe écrit en BlitzBasic.

Bonne journée.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Ne cherchez plus vos couleurs grace à ma petite palette!   

Revenir en haut Aller en bas
 
Ne cherchez plus vos couleurs grace à ma petite palette!
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Petite vidéo
» Moment de grace
» Petite séduction
» Voulez-vous croquer une petite brioche ? =) ♥
» Une petite étoile haut dans le ciel...

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: