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 | 
 

 Capture d'écran (autre)

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: 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 : 5838
Age : 44
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 : 5882
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 : 9998
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 En ligne
JL35



Nombre de messages : 5882
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: