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
» Objet 3D_PLANE, réalisation d'un dé en 3D
par Marc Aujourd'hui à 0:33

» Cacher la barre des tâches
par Klaus Hier à 21:27

» Une "base de connaissance" - pour jouer ou plus si affinité
par Minibug Hier à 10:29

» quel est ce comportement de Panoramic_editor
par Oscaribout Hier à 0:22

» Des FORM(s) Colorés
par Jean Claude Dim 20 Mai 2018 - 20:58

» Recherches dans un fichier texte
par JL35 Dim 20 Mai 2018 - 20:18

» Problème d'affichage des pages du forum (Résolu)
par Jean Claude Dim 20 Mai 2018 - 20:00

» Créer une application *.exe
par Yannick Ven 18 Mai 2018 - 20:01

» [RÉSOLU] Priorité affichage des objets : comment la définir?
par papydall Ven 18 Mai 2018 - 18:22

» Aucune différence entre ON_CLICK et ON_DOUBLE_CLICK
par Jean Claude Jeu 17 Mai 2018 - 8:37

» [Résolu] Récuperer les fonctions systeme de Panoramic
par Minibug Mar 15 Mai 2018 - 23:21

» Est-ce qu'un fichier est inclus dans l'application ?
par Yannick Mar 15 Mai 2018 - 12:04

» Création d'une application avec Panoramic_Editor
par Klaus Mar 15 Mai 2018 - 0:36

» Pour faire patienter
par Minibug Lun 14 Mai 2018 - 21:25

» Une copie de Panoramic Editeur
par Minibug Lun 14 Mai 2018 - 19:55

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2018
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Fenêtre Artificiel

Aller en bas 
AuteurMessage
Invité
Invité



MessageSujet: Fenêtre Artificiel   Lun 25 Jan 2010 - 22: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 : 1750
Date d'inscription : 13/09/2009

MessageSujet: +++   Ven 29 Jan 2010 - 12: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
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Fenêtre Artificiel
» eclairages "soleil "et "artificiel" avec artlantis

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: