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
» I Love You
par JL35 Hier à 16:25

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Mer 18 Oct 2017 - 18:08

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Fenêtre Artificiel

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



MessageSujet: Fenêtre Artificiel   Mar 26 Jan 2010 - 0:33

Salut !

En me basant sur les fenêtre de Windows j'ai créé une fenêtre avec contrôle des boutons (Mettre juste la croix et inactiver le bouton agrandir). Avec les boutons ; agrandir, quitter, rapetisser, aide et hidder.

Juste une intrigue :

avez-vous la police Webdings et Wingdings ce programme les demande


Code:
' reproduction de fenetre artificiel : 2,1,X,_
label agrand,quit,petit,double
label max,croix,help,help8,help7
dim grand,petit,is_max,double2
dim is_X,is_aide,et$,et2$

et$="Actif":et2$="OFF"

left 0,100:top 0,100
width 0,420
height 0,240
border_hide 0

picture 1
full_space 1
stretch_on 1
color 1,0,0,255

picture 2
top 2,25:left 2,2
width 2,416
height 2,213
color 2,233,232,218

alpha 6
top 6,6
left 6,5
font_bold 6
color 6,0,0,255:font_color 6,255,255,255
caption 6,"Reproduction de Fenêtre"

button 3
top 3,2
left 3,397
height 3,21
width 3,21
caption 3,"X"
font_bold 3
on_click 3,quit

button 4
top 4,2
left 4,374
height 4,21
width 4,21
font_size 4,10
font_name 4,"Webdings"
caption 4,"1"
font_bold 4
on_click 4,agrand

button 5
top 5,2
left 5,351
height 5,21
width 5,21
caption 5,"_"
font_bold 5
on_click 5,petit

button 7
left 7,12
top 7,65
caption 7,"Max : Actif"
on_click 7,max

button 8
left 8,12
top 8,35
caption 8,"Juste croix : OFF"
on_click 8,croix
width 7,100:width 8,100

button 9
top 9,2
left 9,328
height 9,21
width 9,21
caption 9,"?"
font_bold 9
on_click 9,help

memo 10:hide 10
left 10,12
top 10,95
width 10,200

button 11
top 11,2
left 11,305
width 11,21
height 11,21
caption 11,"r"
font_bold 11
font_name 11,"wingdings 3"
on_click 11,double

end

agrand:
if (grand=0)
  caption 4,"2"
  grand=1
else
  caption 4,"1"
  grand=0
end_if
return

petit:
if (petit=0)
  height 0,25
  left 0,0:top 0,screen_y-55
  petit=1
else
  left 0,100:top 0,100
  height 0,240
  petit=0
end_if
return

max:
if (is_max=0)
  inactive 4
  caption 7,"Max : Inactif"
  et2$="Inactif"
  is_max=1
else
  active 4
  caption 7,"Max : Actif"
  et2$="Actif"
  is_max=0
end_if
return

croix:
if (is_X=0)
  hide 4:hide 5:left 9,374
  caption 8,"Juste croix : ON"
  et2$="ON"
  is_X=1
else
  show 4:show 5:left 9,328
  caption 8,"Juste croix : OFF"
  et2$="OFF"
  is_X=0
end_if
return

help:
if (is_aide=0)
  item_add 10,"Aide Actif":show 10
  on_click 7,help7:on_click 8,help8
  is_aide=1
else
  hide 10
  on_click 7,max:on_click 8,croix
  is_aide=0
end_if
return

help8:
clear 10
item_add 10,"Ce bouton est pour faire disparaitre les bouton agrandir et repetisser."
item_add 10,"État du bouton : "+et2$
return

help7:
clear 10
item_add 10,"Ce bouton est pour inactiver le bouton agrandir."
item_add 10,"État du bouton : "+et$
return

double:
if (double2=0)
  height 0,25
  caption 11,"s"
  double2=1
else
  height 0,240
  caption 11,"r"
  double2=0
end_if
return

quit:
terminate

Amuser-vous bien !!!
Revenir en haut Aller en bas
jjn4

avatar

Nombre de messages : 1601
Date d'inscription : 13/09/2009

MessageSujet: +++   Ven 29 Jan 2010 - 14:51

Joli petit travail de recherche et de créativité !
Bravo !
king
PS : tout le monde a Webdings et Wingdings, je crois,
ça fait partie de l'équipement Windows, il me semble.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
 
Fenêtre Artificiel
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Fenêtre Artificiel
» Fenêtres qui s'ouvrent toutes seules sur internet sous IE et Mozzilla
» [Résolu] Fenêtres publicitaires intempestives
» [Résolu] PC Land : problème ascenseur fenêtre de saisie
» Utiliser la fenêtre Krypton

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: