Début des objets en style "plat"

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.

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.

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      

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.

Voilà - les petites anomalies sont corrigées.

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

Klaus a écrit:

Voilà - les petites anomalies sont corrigées.

Merci - Je récup la DLL....

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

Non ca ne fonctionne pas, impossible de redimensionner cette fois-ci. La taille est figée. C'est pas grave...

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

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

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
----------
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.

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 !

Pour Container_tab et Tab
c' est pas top.