topic-41296

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Working on Mdi
Posted: Wed Jan 12, 2022 10:05 AM

When I Open the Window child I made

CLASS TPaziente
DATA oWin

METHOD New() CLASS TPaziente

....

if ::oWin == nil

::oPaziente := TClienti():New()
::oPaziente:SetOrder( "FIRST" )
::oPaziente:GoTop()
::cTitulo := ""

DEFINE ICON ::oIcon RESOURCE "

DEFINE WINDOW ::oWin MDICHILD
....

else
::SetFocus()
endif

RETURN Self

this is to avoid opening the same window
but unfortunately it does not work because it reopens again how can I not make the same window open again?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Working on Mdi
Posted: Wed Jan 12, 2022 10:25 AM

Dear Silvio,

Do you use static oPaziente ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Working on Mdi
Posted: Wed Jan 12, 2022 11:12 AM

Antonio Linares wrote:Dear Silvio,

Do you use static oPaziente ?

CLASS TPaziente
DATA oWinClients
DATA oBar
DATA oPaziente
DATA oLbx
DATA cTitulo
DATA oTabs
DATA oIcon
DATA oCbx

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Working on Mdi
Posted: Wed Jan 12, 2022 01:21 PM

\samples\ADORICK.PRG

Code (fw): Select all Collapse

   oBtn1:Disable()
   oBtn2:Disable()

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Working on Mdi
Posted: Wed Jan 12, 2022 03:21 PM

.OR.

Code (fw): Select all Collapse

   PUBLIC lLigaBtnOrca := .T.

   DEFINE BUTTON oOrcam RESOURCE "ORCAMENTO" OF oBar PROMPT "Orçamento"      ;
      MESSAGE OemToAnsi( "Gera‡Æo do Or‡amento"  )                           ;
      ACTION( ORCAMENTO( oOrcam ) )                                          ;
      TOOLTIP OemToAnsi( "Gera‡Æo do Or‡amento"  )                           ;
      NOBORDER GROUP WHEN( lLigaBtnOrca )


   MENUITEM oMenuOrca PROMPT "&Orçamento"      ;
      COLORMENU   CLR_LGREEN,   CLR_HBLUE BOLD ;
      LEFTCOLOR   CLR_WHITE,    CLR_YELLOW     ;
      COLORPNEL   CLR_CYAN,     CLR_BROWN      ;
      COLORSELECT CLR_MSPURPLE, CLR_LGREEN     ;
      WHEN( lLigaBtnOrca )                     ;
      RESOURCE "152"


FUNCTION MDI_SILVIO()

   lLigaBtnOrca := .F.

   BUTTON oExit... ACTION( ..., lLigaBtnOrca := .T. )

RETURN NIL

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Working on Mdi
Posted: Wed Jan 12, 2022 03:31 PM

.AND.

Code (fw): Select all Collapse

STATIC oWndChild, lAbreOrcam := .F.

FUNCTION ORCAMENTO( oOrcam )

   PUBLIC lFechaJan, lFechaWin, lLigaBtnOrca

   lFechaJan      := .F.
   lFechaWin      := .F.

   // Para Impedir Uma 2¦ Abertura de Janela!!!
   IF lAbreOrcam = .F.

       lAbreOrcam := .T.

   ELSE

      MsgInfo( OemToAnsi( "ATTENTION:                     " +CRLF+ ;
                          "THE BUDGET WINDOW IS ALREADY   " +CRLF+ ;
                          "OPENED IN THE PROGRAM WHEEL    " +CRLF+ ;
                          "MAXIMIZE THE WINDOW TO WORK.   " +CRLF+ ;
                          "USE THE <Exit> BUTTON TO CLOSE." +CRLF+ ;
                          "BEWARE MAY BREAK THE BANKS.    " ),    ;
               OemToAnsi( "WINDOW IS ALREADY OPEN ON WHEEL" ) )

       lLigaBtnOrca := .F.
       oOrcam:Disable()
       oOrcam:Refresh()

       lAbreOrcam := .F.

       RETURN NIL

   ENDIF

   ....

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Working on Mdi
Posted: Thu Jan 13, 2022 08:09 AM

Perhaps I found a solution But I not understood if it can go good

On Main.prg

Code (fw): Select all Collapse

Static oItem[40], oBtns[20]

On buttonbar of Main.prg

Code (fw): Select all Collapse

DEFINE BUTTON oBtns[1] RESOURCE "paciente" OF ::oBar NOBORDER ;
      ACTION TPaziente():New(oItem[1],oBtns[1]):Activar(oItem[1],oBtns[1])

On menu of Main.prg

Code (fw): Select all Collapse

MENUITEM oItem[1] PROMPT "Anagrafica pazienti" ACTION TPaziente():New(oItem[1],oBtns[1]):Activar(oItem[1],oBtns[1])   RESOURCE "pazienti"

On TPaziente.prg

Code (fw): Select all Collapse

MemVar oMOpc, oBBar

I don't know if it is right to use Memvar, in clipper I never used them or so I remember

On method New()of Tpaziente

Code (fw): Select all Collapse

IF !Empty(oItem)
      oItem:Disable()
   ENDIF

   IF !Empty(oBtnB)
      oBtnB:Disable()
   ENDIF

   oMOpc:=oItem
   oBBar:=oBtnB

on Method activar()

Code (fw): Select all Collapse

METHOD Activar(oItem,oBtnB) CLASS TPaziente
   ACTIVATE WINDOW ::oWinClients MAXIMIZED ;
   VALID     (::oWinClients:=Nil,Exit_Wnd(oItem,oBtnB),.T.)
   RETURN NIL

Code (fw): Select all Collapse

 STAT FUNC Exit_Wnd(oItem,oBtnB)
    oBtnB:Enable()
    oItem:Enable()
RETURN (.T.)

So, This blocks both the main menu and the buttonbar of main.prg

For Now it seem run ok , I saw this technique on a source code by Alfredo Arteaga which I hope is fine even if I haven't heard from it for years

But there would be a problem.

while in the menu I see the locked option

the button of buttonbar is disabled but not is on different color

but I check it is disabled

any solution ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Working on Mdi
Posted: Thu Jan 13, 2022 12:47 PM

Si es posible haz una DEMO como la que hizo Goosfancito. Es más fácil ayudarte. Aquí, mostrando la clase:

If possible, make a DEMO like the one Goosfancito did. It's easier to help you. Here, showing the class:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=41284&sid=55eca92ee4e3cc58facdf99ecacdf610

¿Has probado con PÚBLIC?

Have you tried with PUBLIC?

Regards.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion