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
» Projet de planétarium virtuel.
par Pedro Alvarez Hier à 17:29

» Quantité de mémoire utilisée par un exe
par Navigateur Hier à 14:52

» Problème avec 'file_load'.
par Pedro Alvarez Hier à 8:12

» Version instantanée V 0.9.28i20 du 13/06/2018
par jjn4 Sam 16 Juin 2018 - 14:25

» string$(0,chr$(32)) sans erreur
par silverman Ven 15 Juin 2018 - 19:56

» Version instantanée V 0.9.28i19 du 13/06/2018
par Minibug Ven 15 Juin 2018 - 19:14

» PanExpress : l'éditeur Panoramic avec création d'objet
par Jean Claude Ven 15 Juin 2018 - 7:52

» Mes souhaits d'amélioration de Panoramic.
par Pedro Alvarez Jeu 14 Juin 2018 - 20:17

» [RÉSOLU] Message d'erreur impossible à indentifier
par Minibug Mer 13 Juin 2018 - 20:52

» Cadre pour image
par Jean Claude Mar 12 Juin 2018 - 16:31

» Créateur d'objets Panoramic
par Minibug Mar 12 Juin 2018 - 14:02

» Planétarium gratuit.
par Jean Claude Sam 9 Juin 2018 - 18:50

» Comment afficher une image sans fond.
par JL35 Sam 9 Juin 2018 - 14:16

» image_width(n) et image_height(n)
par silverman Sam 9 Juin 2018 - 11:22

» Site sur la programmation sympa
par Jean Claude Jeu 7 Juin 2018 - 11:20

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2018
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 Début des objets en style "plat"

Aller en bas 
Aller à la page : Précédent  1, 2
AuteurMessage
Klaus

avatar

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

MessageSujet: Re: Début des objets en style "plat"   Ven 4 Mai 2018 - 15:32

C'est quoi, cette histoire d'impossibilité de redimensionner ?

Annule le stye plat par ClearWindowRegion, redimensionne, puis remets le style plat par UseClientAreaAsRegion. Tout devrait marcher correctement.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Fredisland

avatar

Nombre de messages : 257
Age : 53
Localisation : Centre France
Date d'inscription : 30/03/2018

MessageSujet: Re: Début des objets en style "plat"   Ven 4 Mai 2018 - 15:39

Klaus a écrit:
C'est quoi, cette histoire d'impossibilité de redimensionner ?

Annule le stye plat par ClearWindowRegion, redimensionne, puis remets le style plat par UseClientAreaAsRegion. Tout devrait marcher correctement.

C'est la première chose que j'ai faite, mais je fais planter la DLL. Je te prépare une démo.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur https://acpc.me
Fredisland

avatar

Nombre de messages : 257
Age : 53
Localisation : Centre France
Date d'inscription : 30/03/2018

MessageSujet: Re: Début des objets en style "plat"   Ven 4 Mai 2018 - 16:40

Et voilà une petite démo montrant que le synedit ne veut plus être redimensionné.

Code:
left 0,(screen_x/2)-(width(0)/2) : top 0,(screen_y/2)-(height(0)/2)
synedit 2 : parent 2,0 : full_space 2 : color 2,255,200,200
item_add 2,"Ceci est un synedit en plein espace qui refuse d'être redimensionné, le bougre !" : item_add 2,"Idem pour les PANEL."
makeFlat()
end

sub makeFlat()
    dim_local res% : dll_on "KGF.dll"
    res% = dll_call1("UseClientAreaAsRegion",handle(2))
    dll_off
end_sub      
Revenir en haut Aller en bas
Voir le profil de l'utilisateur https://acpc.me
Klaus

avatar

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

MessageSujet: Re: Début des objets en style "plat"   Ven 4 Mai 2018 - 18:56

Normal. Essaie avec ceci, le comportement est identique:
Code:
left 0,(screen_x/2)-(width(0)/2) : top 0,(screen_y/2)-(height(0)/2)
' synedit 2 : parent 2,0 : full_space 2 : color 2,255,200,200
memo 2 : full_space 2
item_add 2,"Ceci est un synedit en plein espace qui refuse d'être redimensionné, le bougre !" : item_add 2,"Idem pour les PANEL."
makeFlat()
end

sub makeFlat()
    dim_local res% : dll_on "KGF.dll"
    res% = dll_call1("UseClientAreaAsRegion",handle(2))
    dll_off
end_sub
La commande FULL_SPACE sert à donner les dimensions de la zone client de l'objet parent à un objet Panoramio, au moment où la commande est exécutée. Elle n'a pas d'effet permanent. Si la form est redimensionnée par la souris, par exemple, l'objet en question (un Synedit dans ton cas, un mémo dans mon excemple) reste à sa dimension et ne s'adapte pas automatiquement.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

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

MessageSujet: Re: Début des objets en style "plat"   Ven 4 Mai 2018 - 19:15

Voilà - les petites anomalies sont corrigées.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Fredisland

avatar

Nombre de messages : 257
Age : 53
Localisation : Centre France
Date d'inscription : 30/03/2018

MessageSujet: Re: Début des objets en style "plat"   Ven 4 Mai 2018 - 19:22

Klaus a écrit:
La commande FULL_SPACE sert à donner les dimensions de la zone client de l'objet parent à un objet Panoramio, au moment où la commande est exécutée. Elle n'a pas d'effet permanent. Si la form est redimensionnée par la souris, par exemple, l'objet en question (un Synedit dans ton cas, un mémo dans mon excemple) reste à sa dimension et ne s'adapte pas automatiquement.

Et même en se passant du FULL_SPACE, le redimensionnement reste impossible :

Code:
left 0,(screen_x/2)-(width(0)/2) : top 0,(screen_y/2)-(height(0)/2)
synedit 2 : parent 2,0 : color 2,255,200,200

item_add 2,"Ceci est un synedit en plein espace qui refuse d'être redimensionné, le bougre !" : item_add 2,"Idem pour les PANEL."
makeFlat()

label resize
gosub resize

on_resize 0, resize
end

sub makeFlat()
    dim_local res% : dll_on "KGF.dll"
    res% = dll_call1("UseClientAreaAsRegion",handle(2))
    dll_off
end_sub

resize:
    width 2,width_client(0) : height 2,height_client(0)
return

C'est catastrophique Sad
Revenir en haut Aller en bas
Voir le profil de l'utilisateur https://acpc.me
Fredisland

avatar

Nombre de messages : 257
Age : 53
Localisation : Centre France
Date d'inscription : 30/03/2018

MessageSujet: Re: Début des objets en style "plat"   Ven 4 Mai 2018 - 19:23

Klaus a écrit:
Voilà - les petites anomalies sont corrigées.

Merci - Je récup la DLL....
Revenir en haut Aller en bas
Voir le profil de l'utilisateur https://acpc.me
Klaus

avatar

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

MessageSujet: Re: Début des objets en style "plat"   Ven 4 Mai 2018 - 19:33

Citation :
Et même en se passant du FULL_SPACE, le redimensionnement reste impossible :

Et comme ça:
Code:
dim res%
left 0,(screen_x/2)-(width(0)/2) : top 0,(screen_y/2)-(height(0)/2)
synedit 2 : parent 2,0 : color 2,255,200,200

item_add 2,"Ceci est un synedit en plein espace qui refuse d'être redimensionné, le bougre !" : item_add 2,"Idem pour les PANEL."
makeFlat()

label resize
gosub resize

on_resize 0, resize
end

sub makeFlat()
    dim_local res% : dll_on "KGF.dll"
    res% = dll_call1("UseClientAreaAsRegion",handle(2))
    dll_off
end_sub

resize:
    width 2,width_client(0) : height 2,height_client(0)
    display
    dll_on "KGF.dll"
    res% = dll_call1("ClearWindowRegion",handle(2)) 
    res% = dll_call1("UseClientAreaAsRegion",handle(2))
    dll_off
return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Fredisland

avatar

Nombre de messages : 257
Age : 53
Localisation : Centre France
Date d'inscription : 30/03/2018

MessageSujet: Re: Début des objets en style "plat"   Ven 4 Mai 2018 - 19:41

Non ca ne fonctionne pas, impossible de redimensionner cette fois-ci. La taille est figée. C'est pas grave...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur https://acpc.me
Klaus

avatar

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

MessageSujet: Re: Début des objets en style "plat"   Ven 4 Mai 2018 - 21:10

Et comme ça ? Chez moi, ça marche parfaitement...
Code:
dim res%
left 0,(screen_x/2)-(width(0)/2) : top 0,(screen_y/2)-(height(0)/2)
synedit 2 : parent 2,0 : color 2,255,200,200
dll_on "KGF.dll"

item_add 2,"Ceci est un synedit en plein espace qui refuse d'être redimensionné, le bougre !" : item_add 2,"Idem pour les PANEL."
makeFlat()

label resize
gosub resize

on_resize 0, resize
end

sub makeFlat()
    dim_local res%
    res% = dll_call1("UseClientAreaAsRegion",handle(2))
end_sub

resize:
    width 2,width_client(0) : height 2,height_client(0)
    display
    res% = dll_call1("ClearWindowRegion",handle(2))
    res% = dll_call1("UseClientAreaAsRegion",handle(2))
return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Fredisland

avatar

Nombre de messages : 257
Age : 53
Localisation : Centre France
Date d'inscription : 30/03/2018

MessageSujet: Re: Début des objets en style "plat"   Ven 4 Mai 2018 - 21:15

Oui, là ça marche diablement bien chez moi aussi Very Happy !!!!

Mais y'a conflit avec la user32.. Dès qu'on femre la KGF pour ouvrir la USER32 puis qu'on reouvre la KGF, ça plante ---- Y'a des soirs où PANORAMIC me fatigue... Je vais p'têt aussi utiliser ta DLL pour simuler des touches du clavier. Mais là je vais au dodo Sleep
----------
Bon, c'était plus fort que moi : j'ai bien épluché la doc de KGF, et j'ai dégagé la USER32 pour la simulation de touches afin de passer au KGF. Bah franchement, c'est BEAUCOUP plus simple à utiliser. Pire : ça fonctionne ! C'est un vrai kdo cette DLL... Je revis, je n'aurai pas à vider un bocal de Nutella... Quoique... Klaus tu as mis à disposition un outil redoutable.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur https://acpc.me
Klaus

avatar

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

MessageSujet: Re: Début des objets en style "plat"   Sam 5 Mai 2018 - 0:28

Very Happy Very Happy Very Happy Tout va bien, alors ! Tant mieux, car je vais m'absenter deux jours, pour raison familiale. Je serai de retour peut-être dimanche soir, sinon lundi. Amuse-toi bien - Panoramic est formidable !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 8077
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 5 Mai 2018 - 14:53

Pour Container_tab et Tab
c' est pas top.
Evil or Very Mad
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Début des objets en style "plat"   

Revenir en haut Aller en bas
 
Début des objets en style "plat"
Revenir en haut 
Page 2 sur 2Aller à la page : Précédent  1, 2
 Sujets similaires
-
» Mise en place des objets
» Fashion Style [Accepté]
» [resolu] copier/coller un ensemble d'objets
» Contrôler des objets par la pensée, c'est possible
» Paramétrer les numéros d'objets

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: