Uma função p/ o sistema todo como salvar as telas

[jcsprog]

tenho uma main()
e uma função que utilizo en todas as telas gostaria de saber como utilizar esta função salvando a tela que estou no momento pois , dela tambem tem uma define windows opcao , so que quando chamada retorna na main() principal e depois que escolha a opção ela retorna na tela que estava

agradeço a atenção

[Maligno]

Não entendi a questão. Pode explicar melhor?

[sygecom]

Realmente ficou um pouco complicado de entender, nós de mais detalhes para poder lhe ajudar.

[jcsprog]

uso a funcao da biblioteca minigui msoptions={ } , informo mensgens e opcoes tudo ok funciona e devolve o botao selecionado numerico sem problema so que quando estou em outra tela a nao ser main() ao chamar a funcao ele retorna p/ a main() ativa a funcao quando seleciono o botao alterar ele volta p/ a tela de cadastro que que ele fique na tela que fou chamado olha a funcao :

agradeco a ajuda

Código: Selecionar todos

#Include "minigui.ch"

/*
 * MsgOptions([cText], [cTitle], [cImage], aOptions, [nDefaultOption], [nSeconds])
*/

Function MsgOptions(cText, cTitle, cImage, aOptions, nDefaultOption, nSeconds )

   Local nItem:=0, nBtnWidth:=0, aBtn:=Array(Len(aOptions)), aImgInfo
   Local nBtnPosX:=10, nBtnPosY:=85, cOption:=""

   Default cText           To "SELECIONE UMA OPÇÃO"
   Default cTitle          To "P E S Q U I S A "
   Default cImage          To ""
   Default nDefaultOption  To 1
   Default nSeconds        To 0

   DEFINE FONT _Font_Options FONTNAME "MS Sans Serif" SIZE 11

   //Calcular anchura máxima de un botón para igualarlos todos
   For nItem:=1 To Len(aOptions)
      aOptions[nItem]:=Alltrim(aOptions[nItem])
      nBtnWidth:=Max( GetTextWidth(, aOptions[nItem], GetFontHandle("_Font_Options")), nBtnWidth )
   Next
   nBtnWidth+=5

   DEFINE WINDOW _Options  ;
      AT 0,0              ;
      WIDTH (Len(aOptions)*(10+nBtnWidth))+15 ;
      HEIGHT 155           ;
      TITLE cTitle         ;
      ICON "BUSCAR.ICO"      ;
      MODAL                ;
      NOSIZE               ;
      ON RELEASE IF( IsControlDefined( Timer_1, _Options ), _Options.Timer_1.Release, )

      ON KEY ESCAPE ACTION _Options.Release

      If !Empty(cImage)
         aImgInfo := BmpSize(cImage)
         If !Empty(aImgInfo [BM_WIDTH])
           @ 20, 10 IMAGE _Image PICTURE (cImage) WIDTH aImgInfo [BM_WIDTH] HEIGHT aImgInfo [BM_HEIGHT]
           @ 40, 55 LABEL _Label VALUE cText WIDTH (Len(aOptions)*(10+nBtnWidth))-50 HEIGHT 30 ;
             TRANSPARENT CENTERALIGN FONT "_Font_Options"
         Endif
      Else
           @ 40, 10 LABEL _Label VALUE cText WIDTH (Len(aOptions)*(10+nBtnWidth))-10 HEIGHT 30 ;
             TRANSPARENT CENTERALIGN FONT "_Font_Options"
      Endif

      For nItem:=1 To Len(aOptions)
         aBtn[nItem]:="_Btn_"+Ltrim(Str(nItem))
         cOption:=aBtn[nItem]
         @ nBtnPosY, nBtnPosX BUTTON &cOption CAPTION aOptions[nItem] WIDTH nBtnWidth HEIGHT 25 FONT "_Font_Options" ;
                   ACTION ( cOption:=GetProperty("_Options", This.Name, "Caption"), _Options.Release )
         nBtnPosX+=nBtnWidth+10
      Next

      DoMethod("_Options", aBtn[nDefaultOption], "SetFocus")

      If nSeconds>0
         DEFINE TIMER Timer_1 Interval nSeconds*1000  ;
                ACTION ( cOption:=aOptions[nDefaultOption], _Options.Release )
      Endif

   END WINDOW

   CENTER WINDOW _Options

   ACTIVATE WINDOW _Options

   RELEASE FONT _Font_Options

Return Ascan(aOptions,Alltrim(cOption))

---
Nota da Moderação (Maligno):
A presente mensagem foi editada para conversão do texto principal, originalmente escrito totalmente em MAÍUSCULAS, para letras minúsculas. Além disso, também foi necessário incluir o código postado entre as tags de indentação. Por favor, leia o conjunto de normas do fórum clicando aqui e dedique especial atenção à cláusula 7, que lembra que texto em MAIÚSCULAS é equivalente a GRITAR, o que pelas regras de netiqueta, universalmente aceita na Internet, é algo pior que péssimo. E por favor, no futuro, quando for postar código, tome o cuidado de postá-lo entre as tags de indentação, a fim de facilitar sua leitura. Ler o código alheio já é uma tarefa muito aborrecida. Sem a devida indentação, fica muito pior, o que naturamente acaba destimulando qualquer colega a ajudá-lo em seu problema.

[sygecom]

Você não postou nada com botão ALTERA, para sabermos o que está sendo executado. Se está começando com Minigui olhe as pastas samples que tem muitos exemplos praticos.
E pelo que vi, você está querendo utilizar a minigui em linux, isso não é possivel, de uma olhada na Hwgui que é uma otima LIB e tem versão Linux.

[jcsprog]

estou usando harbour x minigui p/ windows
meu problema e o seguinte tenho uma
define main() chamo outra
define ped_1 que por ventura tem uma funcçao que esta uma funcao de opçoes , exemplo altera,
excluir ,retorna
funciona quando é chamada ela sai da define ped_1 , e aparece na main() , com os botoes e tudo ai escolho a
qualquer opção ela retorna p/ define pedi_1 , com as variaveis p/ alteração , funciona perfeitamente so
que nao pode volar para a tela do main() pois pretendo utilizala no sistema todo

a funcao que estou utilizando tirei dos exemplos da minigui / samples / basic / msgedit a funcao e msgoptions

agradeço a atenção


OBS: ja utilizei msgyes() funciona direitinho

jcsprog

[sygecom]

Confesso que ainda não entendi muito bem o que você deseja fazer e onde esta o problema, testei o exemplo que citou e pareceu tudo certo, sem problema algum.
Mas mesmo assim vou tentar dar um palpipe, tire fora o _Options.Release que está no ACTION da função MsgOptions() que pelo que entendi é o que você esta querendo.

[jcsprog]

Nota da Moderação (Maligno):
O texto da presente mensagem foi APAGADO, uma vez que o texto foi redigido totalmente em letras MAIÚSCULAS. Aguardamos, portanto, que o colega reenvie sua mensagem, mas desta vez observando as regras do fórum, conforme JÁ HAVIA SIDO PEDIDO em sua segunda mensagem neste tópico.

[Maligno]

<lock>

[jcsprog]

fiz o que falou nao deu certo + percebi que ao retirar a modal da define funcionou gostaria de saber
qual melhor forma de trabaçhar com as defines depois da main() principal

agradeço a atenção

[sygecom]

fiz o que falou nao deu certo + percebi que ao retirar a modal da define funcionou gostaria de saber
qual melhor forma de trabaçhar com as defines depois da main() principal

agradeço a atenção

Existe varias maneiras, como DIALOG Normal, modal, MDI e etc...Tudo depende de como você quer que cada uma delas execute, no caso de janelas MDI, você pode abrir varias vez a mesma janela dentro da Janela PAI(no seu exemplo a MAIN). Imagine a seguinte situação, que você tenha um cadastro de fornecedor que você abre um janela de cadastro e esta no meio do cadastro , você para esse cadastro no meio e começa um outro do zero sem perder as informações desse que parou no meio, isso é uma possibilidade das MDI de abrir diversas janelas, você teria que da uma estudada e testada em cada uma desses tipos de janelas disponíveis nessa LIB e ver a que melhor lhe serve ou usar um pouco de cada também, no caso da DIALOG normal ela não deixa sair da janela em quanto não fechar ela.

[jcsprog]

valeu obrigado