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 - nouvelles versions
par Yannick Aujourd'hui à 23:30

» Synedit Parameters
par Yannick Aujourd'hui à 23:26

» Un bug avec USER_EVENT ?
par Yannick Aujourd'hui à 23:16

» Concours de Morpions
par Froggy One Aujourd'hui à 19:30

» Bienvenue à Irikte
par papydall Aujourd'hui à 16:59

» Comment changer le graphisme d’un menu
par Yannick Aujourd'hui à 14:53

» LIBRARY COMMAND FUNCTION
par Jean Claude Aujourd'hui à 13:38

» OBJECT_PARENT NE FONCTIONNE PLUS ?! (RESOLU)
par Jack Aujourd'hui à 12:40

» Menu personalisé avec icones et menu contextuel
par Yannick Aujourd'hui à 12:10

» Doublon - Désolé !
par Laurent (Minibug) Aujourd'hui à 11:55

» Mac OS X sierra
par Irikte Aujourd'hui à 10:01

» Recherche de traductions de mots (@Klaus).
par Pedro Alvarez Hier à 20:34

» Problème avec SendStringAsText.
par Pedro Alvarez Hier à 20:32

» Version instantanée V 0.9.28i10 du 24/06/2017
par Yannick Hier à 18:19

» Mais qui a le focus ?
par Jack Hier à 16:35

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
CalendrierCalendrier

Partagez | 
 

 Petite sub d'alerte

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



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

MessageSujet: Petite sub d'alerte   Mar 31 Déc 2013 - 18:33

Une petite sub pour la dernière ligne droite de 2013: l'équivalent du mot-clé Message, en un peu plus fantaisiste, avec la possibilité de positionner la boîte où on veut, et de choisir fonte, taille, couleurs, etc. Et avec un choix Oui/Non au lieu de Yes/No (restons français ! mais on peut mettre Ya/Nein, ou n'importe quelle autre langue !).
Comme pour Message, les dimensions de la boîte s'ajustent à la taille du texte.
Avec un petit exemple:
Code:
DIM a$, rc$
rc$ = chr$(13)+chr$(10)
a$ = "Au clair de la lune"+rc$+"Mon ami Pierrot"+rc$+"Prête-moi ta plume"
a$=a$+rc$+"Pour écrire un mot"
a$=a$+rc$+"C'est ainsi que Roland épousa la belle Aude"

Postit(200,100,a$,1)
print str$(r_qs%)
END

SUB Postit(x%,y%,txt$,t%)
' Affichage d'un message txt$ en position x%,y%
' Si plusieurs lignes, séparées par RC/AL = chr$(13)+chr$(10)
' t%=0: message simple, t%=1: message OUI/NON, avec réponse dans r_qs% (=1: OUI)
IF VARIABLE("r_qs%")=0 THEN DIM r_qs%
IF LABEL("Pos_clic")=0 THEN LABEL Pos_clic
IF LABEL("Pos_clac")=0 THEN LABEL Pos_clac
DIM_LOCAL f%, a$, att%, nl%, i%
f%=940: WHILE OBJECT_EXISTS(f%) = 1: f%=f%+100: END_WHILE
FORM f%: TOP f%,y%: LEFT f%,x%: BORDER_SMALL f%: ON_CLOSE f%,Pos_clac
COLOR f%,0,255,255
FONT_NAME f%,"Calibri": FONT_SIZE f%,12: FONT_BOLD f%
WIDTH f%,TEXT_WIDTH(txt$,f%)+40
nl% = 1
FOR i% = 1 TO LEN(txt$)
    IF MID$(txt$,i%,1) = CHR$(10) THEN nl% = nl% + 1
NEXT i%
HEIGHT f%,nl%*TEXT_HEIGHT(txt$,f%)+80
MEMO f%+1: PARENT f%+1,f%: FULL_SPACE f%+1: COLOR f%+1,255,255,164
ITEM_ADD f%+1,txt$
a$ = ""
FOR i% = 1 TO COUNT(f%+1)
    IF LEN(ITEM_READ$(f%+1,i%))>LEN(a$) THEN a$ = ITEM_READ$(f%+1,i%)
NEXT i%
WIDTH f%,TEXT_WIDTH(a$,f%)+40: IF WIDTH(f%)<160 THEN WIDTH f%,160
IF t% = 0
    BUTTON f%+2: PARENT f%+2,f%: TOP f%+2,HEIGHT(f%)-63
    LEFT f%+2,WIDTH(f%+1)/2-40: CAPTION f%+2,"OK" : ON_CLICK f%+2,Pos_clac
ELSE
    BUTTON f%+2: PARENT f%+2,f%: TOP f%+2,HEIGHT(f%)-63: WIDTH f%+2,60
    LEFT f%+2,WIDTH(f%+1)/2-66: CAPTION f%+2,"OUI": ON_CLICK f%+2,Pos_clic
    BUTTON f%+3: PARENT f%+3,f%: TOP f%+3,TOP(f%+2): WIDTH f%+3,WIDTH(f%+2)
    LEFT f%+3,WIDTH(f%+1)/2+5: CAPTION f%+3,"NON": ON_CLICK f%+3,Pos_clac
END_IF
r_qs% = 0: WHILE att% = 0: PAUSE 200: END_WHILE: EXIT_SUB: ' attente clic
Pos_clic:
    r_qs% = 1
Pos_clac:
    att% = 1
    DELETE 940
RETURN
END_SUB

Et bon réveillon à tout le monde !  jocolor
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: Petite sub d'alerte.   Mar 31 Déc 2013 - 19:31

Bonjour à tous.

Superbe le memo coloré !

J'adopte de suite.

Merci JL35.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: Petite sub d'alerte   Mar 31 Déc 2013 - 19:37

Oui çà va égayer nos programmes, on peut aussi enlever le bandeau.

Bonne soirée à vous tous pour cette fin 2013


 Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

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

MessageSujet: +++   Mar 31 Déc 2013 - 20:00

@ JL35 :
Superbe petit message !
Tu aurais pu y mettre les voeux du nouvel an.

@ Jean Claude :
Ah, voilà donc la photo de ton laboratoire !
(messieurs, je crains que ça ne nous explose à la tronche !)

@ Tous :
Bonnes fêtes
et meilleurs voeux !

 Laughing drunken bom geek alien king drunken Sleep No 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jean Claude

avatar

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

MessageSujet: Re: Petite sub d'alerte   Mar 31 Déc 2013 - 21:37

Nan Nan ! c'est pas mon laboratoire, c'est mon cerveau. lol! 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Petite sub d'alerte   Mar 31 Déc 2013 - 23:50

T'as raison jjn4, à la place du clair de la lune et de la Chanson de Roland j'aurais pu profiter de la circonstance pour vous souhaiter à tous un bon réveillon, ce que je fais maintenant ! (la bonne année, c'est demain).

@Jean Claude je ne sais pas comment tes pensées s'y retrouvent dans tout ce bazar, mais tu vas avoir besoin d'une bonne dose de lubrifiant, penses-y ce soir !
(pour le bandeau, certes on peut l'enlever, mais ça fait plus sérieux comme ça  Very Happy ).
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: Petite sub d'alerte   Mer 1 Jan 2014 - 5:03

Comme lubrifiant j'utilise l'huile de mes oliviers, pressée comme il se doit au moulin de Flayosc.

Bon je vais allez me coucher car se soir je n'ai pas uniquement utilisé de l'huile d'olive, et du coup çà tourne à donf!

Bonne année et A+

 Sleep 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5838
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Petite sub d'alerte   Mer 1 Jan 2014 - 14:49

Utile et efficace comme toujours Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: Petite sub d'alerte   Mer 1 Jan 2014 - 16:31

@Jicehel,
Tu parles de quoi ? De mon cerveau ou du code de JL35

 lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5838
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Petite sub d'alerte   Mer 1 Jan 2014 - 23:41

En l’occurrence, du code de JL35, mais je suis sur que ça s'applique aux deux.... Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Petite sub d'alerte   Mer 1 Jan 2014 - 23:54

Nul doute que le cerveau surpuissant de Jean Claude est capable de sortir un message d'alerte ! (au vu de la radiographie qu'il nous en a montré).
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Petite sub d'alerte   

Revenir en haut Aller en bas
 
Petite sub d'alerte
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Petite vidéo
» Petite séduction
» Voulez-vous croquer une petite brioche ? =) ♥
» Une petite étoile haut dans le ciel...
» petite renseignement svp

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