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 pascal10000 Aujourd'hui à 16:47

» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 16:47

» track_bar circulaire
par Klaus Aujourd'hui à 13:54

» API Windows
par Klaus Aujourd'hui à 3:21

» Cartes de voeux, menus, etc.
par JL35 Hier à 17:48

» Mah-Jong européen new-look
par jjn4 Hier à 15:48

» a l'aide klaus
par Minibug Hier à 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Hier à 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 | 
 

 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 : 1625
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
» 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: