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
» Compilateur FBPano
par jean_debord Aujourd'hui à 11:07

» Documentation de KGF
par Klaus Hier à 22:52

» Zoom sur une portion d'écran
par JL35 Hier à 21:51

» KGF_dll - nouvelles versions
par Klaus Hier à 21:31

» double guillemets "" dans un EDIT
par pascal10000 Hier à 21:08

» Recherche d'une expression dans un source
par Marc 37 Hier à 13:08

» Tracer une grille n'importe où sur l'écran
par JL35 Dim 19 Nov 2017 - 22:14

» TourD Version 2
par Klaus Sam 18 Nov 2017 - 23:58

» La métamatière et le peuple
par JL35 Ven 17 Nov 2017 - 21:18

» Capture d'une zone de l'écran total
par JL35 Ven 17 Nov 2017 - 18:41

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 17 Nov 2017 - 11:49

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

» Panoramic et la reconnaissance vocale.
par papydall Jeu 16 Nov 2017 - 3:45

» Bizzarerie dans Edge
par Marc 37 Mer 15 Nov 2017 - 17:45

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
CalendrierCalendrier

Partagez | 
 

 forms transparent ou couleur invisible

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

avatar

Nombre de messages : 471
Age : 45
Localisation : Picardie
Date d'inscription : 19/03/2015

MessageSujet: forms transparent ou couleur invisible   Sam 10 Oct 2015 - 21:32

Bonjour les panoramiciens,

en jouant avec les dlls de windows, je suis tombé sur cette possibilité, ça pourra peut être servir a quelqu'un.
Code:

'
' test : rendre un 'form' transparent ou une couleur invisible
'

dim a$,null%,tmp%,gwl%,transparent%,colorkey%,colorkey_ou_alpha%
dim r,v,b,a
label build

left 0,350:top 0,100

' on peut imaginer rendre un objet transparent en le collant temporairement
' dans un form transparent, mais il faut le laisser en avant-plan
' voir ici:
' http://panoramic.free-boards.net/t4455-probleme-du-programme-en-cours-devant-derriere-autre-progr
form 1 : border_small 1
grid 2 : parent 2,1
width 1,330 : height 1,146
top 1,300 : left 1,500


dll_on "user32"
   ' transparence
   tmp%=handle(1)
   transparent%=255*0.7  :' 70% d'opacité
   colorkey_ou_alpha%=2  :' 1 ou 2; la transparence agit soit sur une couleur particulière(1), soit sur la fenêtre(2)
   gosub build

   ' couleur invisible, ici du mauve
   r=128 : v=0 : b=128
   tmp%=handle(0)
   colorkey%=r+(256*v)+(65536*b)   :' couleur transparente si colorkey_ou_alpha%=1
   colorkey_ou_alpha%=1  :' 1 ou 2; la transparence agit soit sur une couleur particulière(1), soit sur la fenêtre(2)
   gosub build
dll_off

scene2d 10 : delete 10  :' necessaire pour voir s'afficher les rectangles; initialisation ??

' un rectangle mauve
2d_pen_color r,v,b
2d_fill_color r,v,b
2d_rectangle 10,20,210,220

' un rectangle un peu plus mauve
r=r+1 : if r>255 then r=255
v=v+1 : if v>255 then v=255
b=b+1 : if b>255 then b=255
2d_pen_color r,v,b
2d_fill_color r,v,b
2d_rectangle 210,220,410,420

end
build:
' https://msdn.microsoft.com/en-us/library/windows/desktop/ms633584%28v=vs.85%29.aspx
 gwl%=bin_or(dll_call2("GetWindowLongW",tmp%,0-20),524288)
' https://msdn.microsoft.com/en-us/library/windows/desktop/ms633591%28v=vs.85%29.aspx
 null%=dll_call3("SetWindowLongW",tmp%,0-20,gwl%)
' https://msdn.microsoft.com/en-us/library/windows/desktop/ms633540%28v=vs.85%29.aspx
 null%=dll_call4("SetLayeredWindowAttributes",tmp%,colorkey%,transparent%,colorkey_ou_alpha%)
return

PS: Il me semble que Klaus a intégré quelque chose de similaire dans KGF, mais je n'ai pas testé


Dernière édition par silverman le Dim 11 Oct 2015 - 10:17, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: forms transparent ou couleur invisible   Sam 10 Oct 2015 - 22:16

Merci silverman  !
Très intéressant tout ça, ça ouvre des horizons...

Je pense par exemple à une fenêtre semi-transparente déplaçable sur l'écran et redimensionnable, pour faire une capture de la zone en cliquant dessus. Entre autres.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: forms transparent ou couleur invisible   Sam 10 Oct 2015 - 22:25

Bravo pour ta découverte Silverman, c'est très spectaculaire.

Décidément cette DLL "user32" est à étudier de très près.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: forms transparent ou couleur invisible   Sam 10 Oct 2015 - 22:45

Effectivement, très très intéressant !
Pour la capture d'écran dont je parlais plus haut, un exemple vite fait: j'ai très largement repris le code de silverman (l'essentiel) :
- Positionner la fenêtre et la redimensionner à sa guise, puis clic à l'intérieur: la capture est dans le presse-papier
Code:
' test : capture d'écran, résultat dans le clipboard, transparence d'après silverman
DIM r,v,b,gwl%,null%,tmp%,transparent%,colorkey%,colorkey_ou_alpha%
LABEL Capture,Quit

HIDE 0
FORM 1: BORDER_SMALL 1: WIDTH 1,300 : HEIGHT 1,150: TOP 1,100: LEFT 1,100
ON_CLOSE 1,Quit: ON_CLICK 1,Capture
FORM 2: TOP 2,0: LEFT 2,0: WIDTH 2,SCREEN_X: HEIGHT 2,SCREEN_Y
  BORDER_HIDE 2: HIDE 2: 2D_TARGET_IS 2: WAIT 100: ' Tout l'écran
IMAGE 3

DLL_ON "user32"
   ' *** transparence
   tmp%=HANDLE(1)
   transparent%=255*0.7  :' 70% d'opacité
   colorkey_ou_alpha%=2  :' 1 ou 2; la transparence agit soit sur une couleur particulière(1), soit sur la fenêtre(2)
   gwl%=BIN_OR(DLL_CALL2("GetWindowLongW",tmp%,0-20),524288)
   null%=DLL_CALL3("SetWindowLongW",tmp%,0-20,gwl%)
   null%=DLL_CALL4("SetLayeredWindowAttributes",tmp%,colorkey%,transparent%,colorkey_ou_alpha%)
DLL_OFF
END
' =====
Capture:
2D_IMAGE_COPY 3,LEFT(1),TOP(1),LEFT(1)+WIDTH(1),TOP(1)+HEIGHT(1)
CLIPBOARD_COPY 3
Quit:
TERMINATE

J'aurais voulu faire un Border-Hide sur la fenêtre, mais là on ne peut plus la déplacer ni la redimensionner. Donc ici c'est l'intérieur du Form qui est capturé.
Rectificatif: c'est l'intégralité du Form qui est capturé, zone des bordures comprise.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: forms transparent ou couleur invisible   Sam 10 Oct 2015 - 23:20

oui, c'est un joli palliatif à l'usage de la DLL de Klaus et cela illustre encore ce que chacun peut apporter à ce forum via sa diversité.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2364
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: forms transparent ou couleur invisible   Sam 10 Oct 2015 - 23:24

Très intéressant tout çà !

Je vois pas encore d'usage mais il doit bien y en avoir...
Je vais garder cette astuce sous le coude. Wink

Merci Silverman !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Klaus

avatar

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

MessageSujet: Re: forms transparent ou couleur invisible   Sam 10 Oct 2015 - 23:25

Effectivement, Silverman, j'ai fait quelque chose de ce genre, dans KGF.dll:
Code:
res% = DLL_call2("WindowTranparency",hnd%,trans%)
Tu passes le handle de la form 0 de ton programme (ou le handle de la fenêtre principale de n'importe quel programme en cours d'exécution...), et tu règles la transparence entre 0 (opaque) et 255 (totalement transparent). Mais, comme je l'ai déjà expliqué en détail dans un autre fil de discussion, ceci ne marche que sur la fenêtre principale d'une application (celle quii n'a pas de "propriétaire"). Ceci est une limitation Windows, pas Panoramic.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
silverman

avatar

Nombre de messages : 471
Age : 45
Localisation : Picardie
Date d'inscription : 19/03/2015

MessageSujet: Re: forms transparent ou couleur invisible   Dim 11 Oct 2015 - 10:40

@jl35
Bien vu le coup de la capture, je n'avais pas pensé à ça

@minibug
Par exemple, tu peux faire un écran d'acceuil original en collant une image dans un picture et en éliminant une couleur, ou bien si tu es un peu farceur, tu captures l'image de ton bureau puis tu animes un sprite 'pacman' qui mange tes (fausses) icones et tu fait croire à celui/celle qui est devant le clavier qu'il vient de véroler ton ordinateur Laughing

@klaus
Citation :
ceci ne marche que sur la fenêtre principale d'une application (celle quii n'a pas de "propriétaire"). Ceci est une limitation Windows, pas Panoramic
Qu'est ce que tu entends par 'celle qui n'a pas de "propriétaire"'? J'ai testé sur 2 forms et les 2 répondent à la transparence.(J'ai consulté l'autre fil de discussion, mais je n'ai pas plus compris)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: forms transparent ou couleur invisible   Dim 11 Oct 2015 - 11:08

Mais tu as raison, Silverman ! Je suis sous W10 et ça marche, même sur une form autre que la form 0 ! Faudra que le mette la doc à jour, pour cette fonction. La restricion que le citais, elle datait encore de XP...

Ca ouvre de nouvelles possibilités. On peut ainsi créer une form n et la rendre translucide avec trans%=127. Ensuite, avec les fonctions de gestion des fenêtres de KGF.dll, on déclare une région en forme d'ellipse qu'on applique à cete fenêtre, et on la superpose alors à un objet PICTURE contenant une photo avec des personnages, dont on peut ainsi flouter le visage. Juste un exemple...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
silverman

avatar

Nombre de messages : 471
Age : 45
Localisation : Picardie
Date d'inscription : 19/03/2015

MessageSujet: Re: forms transparent ou couleur invisible   Dim 11 Oct 2015 - 11:50

Klaus a écrit:
La restricion que je citais, elle datait encore de XP
Mais je suis sous XP, et j'ai pu rendre 2 forms transparent sans pb. Je n'ai pas essayer avec plus, mais comme il s'agit d'une histoire d'attribut, ça ne devrait pas poser de pb. Je comprend mieux maintenant pourquoi je ne comprenais pas tes explications dans l'ancien fil de discussion.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: forms transparent ou couleur invisible   Dim 11 Oct 2015 - 12:01

Ok. Je vais donc réviser mes classiques et améliorer la compréhension de mes propres fonctions...

En fait, j'ai compris. L'impossibilité ne s'applique pas aux objets FORM, mais aux autres objets Panoramic, comme un bouton ou un mémo. LE seul moyen de rendre un PICTURE translucide, c'est de le placer dans une form séparée sans bord, et de déclarer cette form translucide. Tous les objets de cette form deviennent du même coup translucide, et donc le picture, que l'on peut ainsi superposer à d'autres éléments d'une autre form. J'aurais dû comprendre plus tôt. Merci, Silverman, d'avoir approfondi la chose - cela m'a fait apprendre quelque chose !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Contenu sponsorisé




MessageSujet: Re: forms transparent ou couleur invisible   

Revenir en haut Aller en bas
 
forms transparent ou couleur invisible
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» forms transparent ou couleur invisible
» Trucs et astuces(fond transparent-modifier couleur-créer des formes...etc) avec Animation Shop
» Comment rendre le fond des noms d’icones transparent?
» [Résolu] Définir une couleur comme étant transparente
» Faire un fond transparent [résolu]

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: