CTRL+ALT+H

Discussão em 'Progress 4GL' iniciado por Jucélio, Agosto 5, 2010.

  1. Jucélio

    Jucélio Sem Pontuação

    Bom dia amigos,

    Preciso usar o comando ctrl+alt+h para saber o nome da tabela.campo de um widget Fill-in em tempo de execução, porém o memo não aparece. Alguém sabe se isto é um parâmetro informado em algum arquivo de inicialização da sessão como .ini ou .pf?

    Obrigado.
  2. mpdelphi

    mpdelphi Membro Participativo

    vc pode criar um upc para o programa e por uma mensagem.

    [prog=]/* definicao de parametros */
    Def Input Param p-ind-event As Char.
    Def Input Param p-ind-object As Char.
    Def Input Param p-wgh-object As Handle.
    Def Input Param p-wgh-frame As Widget-handle.
    Def Input Param p-cod-table As Char.
    Def Input Param p-row-table As Rowid.


    Def Var c-objeto As Char No-undo.

    Def Var h-frame As Handle No-undo.
    Def Var h-panel-frame As Handle No-undo.
    Def var h-tg-log-oper-triang as handle no-undo.
    Def var h-mar as handle no-undo.

    Def New Global Shared Var wh-mar As Widget-handle No-undo.
    Def New Global Shared Var h-cb-tp-oper-terc As Widget-Handle No-undo.
    Def New Global Shared Var h-terceiros As Widget-Handle No-undo.
    Def New Global Shared Var h-nat-operacao As HANDLE No-undo.


    /* main block */
    Assign c-objeto = Entry(Num-entries(p-wgh-object:File-name, "~/") ,
    p-wgh-object:File-name, "~/").


    MESSAGE 'p-ind-event ' p-ind-event SKIP
    'p-ind-object ' p-ind-object SKIP
    'p-wgh-object ' p-wgh-object SKIP
    'p-wgh-frame ' p-wgh-frame SKIP
    'p-cod-table ' p-cod-table SKIP
    'p-row-table ' STRING(p-row-table) SKIP
    'c-objeto ' c-objeto .[/prog]

Compartilhe esta Página