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
» I Love You
par JL35 Jeu 19 Oct 2017 - 16:25

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Mer 18 Oct 2017 - 18:08

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Capture d'écran (autre)

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



Nombre de messages : 5953
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 : 5858
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 : 5953
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 : 10074
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 : 5953
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 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: