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
» Le Forum est en vacances.
par JL35 Aujourd'hui à 21:20

» Une autre façon de terminer une application.
par JL35 Hier à 14:27

» Compilateur FBPano
par Mike Lun 21 Aoû 2017 - 23:17

» Pb 20 (en analyse): plantage à l'appel d'un SUB
par Jack Lun 21 Aoû 2017 - 21:58

» Pb 19 (en analyse): libellé d'erreur dans des IF imbriqués
par Jack Lun 21 Aoû 2017 - 21:55

» Copier / coller du texte à partir de la fenêtre de commandes
par jean_debord Lun 21 Aoû 2017 - 9:46

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par papydall Lun 21 Aoû 2017 - 5:01

» Mettre en windows en veille
par papydall Lun 21 Aoû 2017 - 4:15

» Stretch_on ne stretch plus...
par papydall Dim 20 Aoû 2017 - 15:22

» Pb 18 (en analyse): RESTORE_LABEL avec DATA à la fin
par Jack Dim 20 Aoû 2017 - 13:21

» Problème de traitement des opérateurs avec le compilateur.
par Pedro Alvarez Sam 19 Aoû 2017 - 20:01

» Pb 17 (résolu): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

» Pb 16 (résolu): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Capture d'écran (autre)

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



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

MessageSujet: Capture d'écran (autre)   Dim 31 Aoû 2014 - 23:56

Un moyen simple pour faire une capture d'écran en pur Panoramic (sur tout l'écran Windows).
Contrainte: il faut connaître les coordonnées de départ et les dimensions de la capture désirée.
Ça masque le Form 0 le temps de la capture (pour ne pas l'avoir dans le champ), donc très brièvement.
Code:
DIM x,y,w,h,f$
x=0: y=0: w=96: h=96: ' capture de la 1ère icône en haut à gauche
f$ = "Z:\Capture.bmp"
Capture(x,y,w,h,"clip"): ' -> clipboard
PICTURE 1: WIDTH 1,w: HEIGHT 1,w: CLIPBOARD_PASTE 1: ' pour voir la capture
END

SUB Capture(x,y,w,h,f$)
' Capture d'une zone de l'écran total, en x,y, dimensions w x h,
' dans f$ (bmp), ou dans le presse-papier (clipbaord) si f$ = "clip"
BORDER_SMALL 0: HIDE 0: 2D_TARGET_IS 0: WAIT 100
IMAGE 1000: 2D_IMAGE_COPY 1000,x-8,y-26,x+w-8,y+h-26
IF UPPER$(f$) = "CLIP"
    CLIPBOARD_COPY 1000
ELSE
    FILE_SAVE 1000,f$
END_IF
DELETE 1000: SHOW 0
END_SUB
Exemple (comme ci-dessus): capture de la 1ère icône en haut à gauche de l'écran


PS Comme je disais plus haut, la fenêtre d'exécution de Panoramic ne figure pas dans la capture, si on voulait l'avoir il suffirait de supprimer le HIDE 0 dans la Sub (ou au choix mettre un paramètre supplémentaire pour la sub: avec ou sans Form 0)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: Capture d'écran (autre)   Lun 1 Sep 2014 - 11:08

voilà qui ferait facilement aussi une macro sympa pour le nouvel editeur aussi en plus de tous les autres usages classiques auxquels on pourrait penser ... voir 2 macro une vers le presse papier et l'autre vers un fichier directement (par exemple pour envoyer sur le forum)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Capture d'écran (autre)   Lun 1 Sep 2014 - 23:16

Je précise bien que la capture ci-dessus n'est utilisable que depuis un programme, en précisant les coordonnées.

Pour une capture indépendante, sous forme d'un exécutable, il faut faire appel à une ressource externe (ici IrfanView, encore lui), avec au choix capture dans le clipboard ou dans un fichier:
Code:
' Capture d'écran avec IrfanView, résultat: clipboard ou fichier
LABEL Exec: DIM i%,iv$,fr$
iv$ = "C:\Progra~2\Irfanv~1\i_view32.exe": ' IrfanView (chemin à préciser...)
fr$ = "Z:\Clip.jpg": ' fichier résultat éventuel (chemin à préciser...)
BORDER_SMALL 0: COLOR 0,255,0,0: CAPTION 0,"     CAPTURE  ÉCRAN"
WIDTH 0,150: HEIGHT 0,150: FONT_BOLD 0
BUTTON 1: TOP 1,2: LEFT 1,2: WIDTH 1,130: HEIGHT 1,20: CAPTION 1,"Tout l'écran"
BUTTON 2: TOP 2,TOP(1)+20: LEFT 2,2: WIDTH 2,130: HEIGHT 2,20: CAPTION 2,"Fenêtre active"
BUTTON 3: TOP 3,TOP(2)+20: LEFT 3,2: WIDTH 3,130: HEIGHT 3,20: CAPTION 3,"Idem, zone client"
BUTTON 4: TOP 4,TOP(3)+20: LEFT 4,2: WIDTH 4,130: HEIGHT 4,20: CAPTION 4,"Rectangle sélection"
FOR i% = 1 TO 4: ON_CLICK i%,Exec: NEXT i%
CONTAINER_OPTION 5: TOP 5,TOP(4)+21: LEFT 5,2: WIDTH 5,130: HEIGHT 5,30
COLOR 5,255,255,180
OPTION 6: PARENT 6,5: TOP 6,-1: LEFT 6,4: CAPTION 6,"Clipboard": MARK_ON 6
OPTION 7: PARENT 7,5: TOP 7,TOP(6)+15: LEFT 7,4: CAPTION 7,fr$
END
' ==============================================================================
Exec:
i% = NUMBER_CLICK
SELECT i%
   CASE 1: i% = 0
   CASE 2: i% = 2
   CASE 3: i% = 3
   CASE 4: i% = 4
END_SELECT
IF CHECKED(6) = 1
    EXECUTE iv$+" /capture="+STR$(i%)+" /clipcopy /killmesoftly"
ELSE
    EXECUTE iv$+" /capture="+STR$(i%)+" /convert="+fr$
END_IF
TERMINATE
' ==============================================================================
Choisir d'abord l'option de sauvegarde, puis cliquer le mode choisi.
Pour la capture par sélection, amener sans cliquer la croix du centre en haut à gauche de la sélection, cliquer/relâcher, déplacer la croix en bas à droite, cliquer.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Capture d'écran (autre)   Mar 2 Sep 2014 - 1:05

Pour ma part, là ou la touche "ImpEcr" ou "Alt/ImpEcr" ne fait pas l'affaire, j'utilise la version gratuite de "My Screen Capture". Voici le lien. En cliquant sur "Home", on a d'ailleurs accès à une vaste liste de logiciels gratuits et intéressants.

Pour la petite histoire, voici la fenêtre About de ce logiciel, capturé avec ce même logiciel:

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



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

MessageSujet: Re: Capture d'écran (autre)   Mar 2 Sep 2014 - 9:58

J'utilise aussi Cropper, très léger et discret, dans la barre des tâches.
Merci pour ton lien, intéressant, à voir de plus près.

Entre autres, un logiciel que j'ai essayé et trouvé amusant (en plus d'être utile, certainement), c'est Free File Camouflage, qui consiste à dissimuler un fichier sous forme codée dans une image. L'image résultante étant identique à voir à l'image d'origine.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Capture d'écran (autre)   

Revenir en haut Aller en bas
 
Capture d'écran (autre)
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Capture d'écran ?
» Capture d'écran
» capture d'écran
» Capture d'écran de Windows
» Vous ne savez pas faire une capture d'écran avec votre clavier

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: