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
» Immortaliser les photos de famille
par Jean Claude Hier à 21:24

» Concours de Morpions
par jjn4 Hier à 16:34

» Tout est tranquille
par Jean Claude Ven 22 Sep 2017 - 21:41

» Texte en gif animé
par JL35 Ven 22 Sep 2017 - 13:29

» BasicEditor
par Yannick Mer 20 Sep 2017 - 17:17

» Simuler l’appui d'une touche ou combinaison de touches.
par pascal10000 Lun 18 Sep 2017 - 19:30

» Utilisation de HVIEWER pour afficher des images
par papydall Lun 18 Sep 2017 - 17:43

» Panoramic et les gifs animés.
par papydall Lun 18 Sep 2017 - 16:32

» recover source
par pascal10000 Dim 17 Sep 2017 - 14:21

» Recent dans vos menu
par Jean Claude Sam 16 Sep 2017 - 11:41

» Comment centrer un texte 3D.
par pascal10000 Ven 15 Sep 2017 - 20:20

» Carte interface 16 entrées et 16 sorties
par Jicehel Ven 15 Sep 2017 - 16:30

» Version instantanée V 0.9.28i9 possédant l'objet SYNEDIT
par pascal10000 Ven 15 Sep 2017 - 16:20

» Compilateur FBPano
par jean_debord Ven 15 Sep 2017 - 9:59

» 1 (en analyse): 3D_TARGET_IS ne fonctionne pas sur 3D_TEXT
par Jack Jeu 14 Sep 2017 - 19:52

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
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 : 465
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 : 5951
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 : 5019
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 : 5951
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 : 5855
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
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 50
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
Klaus

avatar

Nombre de messages : 10062
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 : 465
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 : 10062
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 : 465
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 : 10062
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
» Couleur intérieure du cadre du forum = transparent
» Comment rendre le fond des noms d’icones transparent?
» couleur transparent
» Comment mettre des Noms de rang ou début en couleur ?

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: