ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Extraire ou réintégrer une fenetre d'édition de IDE   



L'auteur

eddymaue
Canada Canada
Membre Simple
# 0000000075
enregistré le 26/10/2004
Maue Eddy
j8j 8j8 Gatineau
de la société Formatek
Fiche personnelle


Note des membres
pas de note

Contributions > 01 - PRG : Programmation

Extraire ou réintégrer une fenetre d'édition de IDE
# 0000000945
ajouté le 17/09/2017 21:31:28 et modifié le 24/10/2017
consulté 7723 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0

Description
bonjour à tous

comme j'ai deux écrans de travail j'aimerais étaler sur les 2 écrans les fenetres d'éditions et les formulaires. J'y parviens presque...

ouvrir une fenetre d'édition et appuyer sur F4 et pour réintegrer la fenetre Ctrl+F4. Le focus doit etre sur la fenetre d'édition

on peu le faire avec un formulaire, code snippet ou une fenetre d'édition.... cependant c'est instable....
Code source :
Public gcDockAble, gcUnDockAble

* sort la fenetre l'environnement de Vfp
TEXT to gcScript TEXTMERGE noshow
    Set Library To Home()+"FoxTools.Fll" addi
  Declare Integer SetParent In Win32API As apiSetParent ;
    INTEGER hWndChild, Integer hWndNewParent
    apiSetParent( _whtohwnd(_WonTop()),0 )
endtext

* réintegre la fentre dans l'environnement de Vfp
TEXT to gcUnDockAble TEXTMERGE noshow
    Set Library To Home()+"FoxTools.Fll" addi
  Declare Integer SetParent In Win32API As apiSetParent ;
    INTEGER hWndChild, Integer hWndNewParent
    apiSetParent( _whtohwnd(_WonTop()),_screen.HWnd )
endtext

on key label f4 ExecScript(gcDockAble)
on key label CTRL+f4 ExecScript(gcUnDockAble)

Commentaires
Aucun commentaire enregistré ...

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3