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
» Une copie de Panoramic Editeur
par Minibug Aujourd'hui à 1:17

» Problème mathématique en 3D
par Marc Hier à 18:24

» Nouvelle version 0.33
par jean_debord Hier à 9:02

» Reprise du développement et de la documentation
par Fredisland Hier à 7:14

» Objet 3D_PLANE, réalisation d'un dé en 3D
par Marc Mar 22 Mai 2018 - 0:33

» Cacher la barre des tâches
par Klaus Lun 21 Mai 2018 - 21:27

» Une "base de connaissance" - pour jouer ou plus si affinité
par Minibug Lun 21 Mai 2018 - 10:29

» quel est ce comportement de Panoramic_editor
par Oscaribout Lun 21 Mai 2018 - 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

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 | 
 

 Capture d'écran (autre)

Aller en bas 
AuteurMessage
JL35



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

MessageSujet: Capture d'écran (autre)   Dim 31 Aoû 2014 - 22: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 : 5916
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Capture d'écran (autre)   Lun 1 Sep 2014 - 10: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 : 6257
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Capture d'écran (autre)   Lun 1 Sep 2014 - 22: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 : 11084
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Capture d'écran (autre)   Mar 2 Sep 2014 - 0: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 : 6257
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Capture d'écran (autre)   Mar 2 Sep 2014 - 8: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)
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Capture d'écran
» capture d'écran
» Capture d'écran de Windows
» Vous ne savez pas faire une capture d'écran avec votre clavier
» Comment faire une capture d'écran ( ScreenShot ) et la mettre en ligne

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: