1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br
Cookies Anuncie aqui Patrocinador Anuncios

Apanhar X e Y da Window

Discussão em 'Progress 4GL' iniciado por baltazar, Fevereiro 8, 2019.

Página 1 de 3
  1. baltazar

    baltazar Membro Participativo

    Boa tarde,

    alguém tem o código para apanhar o X e Y da Window após a mesma mover-se?

    Baltazar
    baltazar, Fevereiro 8, 2019
    #1
  2. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Código:
      MESSAGE c-win:X          SKIP
          c-win:Y          SKIP
          CURRENT-WINDOW:X SKIP
          CURRENT-WINDOW:Y
          VIEW-AS ALERT-BOX INFO BUTTONS OK.
    rafael.andrade, Fevereiro 8, 2019
    #2
  3. baltazar

    baltazar Membro Participativo

    Obrigado.

    Sabe qual o evento que acontece quando termino de mover a window?
    baltazar, Fevereiro 8, 2019
    #3
  4. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Não existe esse evento, vc precisa disso pra que?
    rafael.andrade, Fevereiro 8, 2019
    #4
  5. baltazar

    baltazar Membro Participativo

    Tenho 3 monitores, quero que a Window arranque na posição onde está o monitor.

    Neste momento arranca sempre centrado!
    baltazar, Fevereiro 8, 2019
    #5
  6. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Com esse código aqui, vc consegue ver os monitores, não sei se isso vai ajudar de alguma forma.

    Código:
      DEF VAR xi AS INTEGER.
  DEFINE VARIABLE oScreenList AS "System.Windows.Forms.Screen[]" NO-UNDO.
  DEFINE VARIABLE oScreen     AS System.Windows.Forms.Screen     NO-UNDO.

  oScreenList = System.Windows.Forms.Screen:AllScreens.
   
  DO xi = 0 TO oScreenList:LENGTH - 1 WITH FRAME default-frame:
   
    oScreen = CAST(oScreenList:GetValue(xi), System.Windows.Forms.Screen).

    MESSAGE oScreen
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
  END.
    rafael.andrade, Fevereiro 8, 2019
    #6
Página 1 de 3

Compartilhe esta Página