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
» ajouter des blancs dans un TXT
par lepetitmarocain Hier à 13:00

» Planétarium virtuel.
par Oscaribout Mar 14 Aoû 2018 - 19:45

» 11 (en analyse): commandes sur TAB et SUB_MENU.
par Jack Mar 14 Aoû 2018 - 14:10

» 10 (en analyse): Erreur sur variable locale.
par Jack Mar 14 Aoû 2018 - 14:05

» Métamatière, éternité et renouvellement
par Oscaribout Mar 14 Aoû 2018 - 12:40

» De retour...
par Yannick Lun 13 Aoû 2018 - 15:11

» bug SEVERE fnc+sub : (35)name already defined
par Oscaribout Dim 12 Aoû 2018 - 23:55

» Encadrement
par Jean Claude Dim 12 Aoû 2018 - 11:53

» Des rectangles...
par JL35 Dim 12 Aoû 2018 - 10:53

» TRIGGER_KEY_COMBINED_TOUCH
par Jean Claude Mar 7 Aoû 2018 - 20:58

» ITEM_SELECT N,L pour synedit
par Jean Claude Mar 7 Aoû 2018 - 19:11

» amélioration panoramic
par silverman Dim 5 Aoû 2018 - 18:34

» Commande file_readln.
par Pedro Alvarez Dim 5 Aoû 2018 - 17:08

» Klaus ?
par Jack Sam 4 Aoû 2018 - 22:48

» Défragmentation du disque dur
par JL35 Sam 4 Aoû 2018 - 21:06

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2018
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728293031  
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
xxx



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



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



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



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



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



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