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
» Découpe dans une image
par JL35 Hier à 23:03

» FNC IsDateValide(d$) pour vérifier la validité d'une date
par Marc Hier à 21:51

» Pour faire plaisir à Marc37.
par Marc Hier à 21:46

» Couleur d'une variable qui n'est pas un mot-clé
par bignono Hier à 14:03

» Un catalogue de photos de fleurs, avec KBDD, affichage HTML
par Klaus Mer 21 Fév 2018 - 22:44

» KGF_dll - nouvelles versions
par Klaus Mer 21 Fév 2018 - 22:30

» Mah-Jong anglais
par jjn4 Mer 21 Fév 2018 - 14:22

» Partie fractionnaire d'un flottant
par silverman Mer 21 Fév 2018 - 14:19

» bug CREATE_HIDE : corruption de form
par silverman Mer 21 Fév 2018 - 13:32

» Racine carrée d’un nombre par l’algorithme de Héron
par Ouf_ca_passe Mer 21 Fév 2018 - 9:52

» Méthode manuelle d'extraction de la racine carrée
par pascal10000 Mer 21 Fév 2018 - 7:47

» [annulé]ON_MOVE n,l ne fonctionne que sur le form 0
par silverman Mar 20 Fév 2018 - 16:52

» Ludothèque Panoramic
par jjn4 Mar 20 Fév 2018 - 15:42

» Calculus
par Ouf_ca_passe Mar 20 Fév 2018 - 9:06

» 6 (en analyse):confusion de variable locale entre SUB et FNC
par Jack Mar 20 Fév 2018 - 8:18

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Février 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
262728    
CalendrierCalendrier

Partagez | 
 

 forms transparent ou couleur invisible

Aller en bas 
AuteurMessage
silverman

avatar

Nombre de messages : 525
Age : 45
Localisation : Picardie
Date d'inscription : 18/03/2015

MessageSujet: forms transparent ou couleur invisible   Sam 10 Oct 2015 - 20: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 - 9:17, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: forms transparent ou couleur invisible   Sam 10 Oct 2015 - 21: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 : 5174
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: forms transparent ou couleur invisible   Sam 10 Oct 2015 - 21: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 : 6148
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: forms transparent ou couleur invisible   Sam 10 Oct 2015 - 21: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 : 5895
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: forms transparent ou couleur invisible   Sam 10 Oct 2015 - 22: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 : 2522
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: forms transparent ou couleur invisible   Sam 10 Oct 2015 - 22: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 : 10575
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: forms transparent ou couleur invisible   Sam 10 Oct 2015 - 22: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 : 525
Age : 45
Localisation : Picardie
Date d'inscription : 18/03/2015

MessageSujet: Re: forms transparent ou couleur invisible   Dim 11 Oct 2015 - 9: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 : 10575
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: forms transparent ou couleur invisible   Dim 11 Oct 2015 - 10: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 : 525
Age : 45
Localisation : Picardie
Date d'inscription : 18/03/2015

MessageSujet: Re: forms transparent ou couleur invisible   Dim 11 Oct 2015 - 10: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 : 10575
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: forms transparent ou couleur invisible   Dim 11 Oct 2015 - 11: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
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» forms transparent ou couleur invisible
» Comment rendre le fond des noms d’icones transparent?
» [Résolu] Définir une couleur comme étant transparente
» Faire un fond transparent [résolu]
» code pour inséré les anime (Fond transparent)

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: