topic-45997

shri_fwh

Posts: 336

Joined: Mon Dec 07, 2009 02:49 PM

Dialog / Window Title Like TDockPnl
Posted: Thu Oct 02, 2025 11:34 AM

Dear All ,

I am looking Window Title as TDockPnl Title. Could you please share code for the same. Thanks in advance..!!

sample Testdoc01.prg

Thanks

Shridhar

Thanks

Shridhar

FWH 24.04, BCC 7 32 bit, MariaDB

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Dialog / Window Title Like TDockPnl
Posted: Thu Oct 02, 2025 04:50 PM

I'm not sure if I understood what you need correctly, but follow these steps and let me know if the result is adequate:

Create a window with the WS_POPUP style, which removes the window title.
Create a TDockPnel that occupies the entire oClient of the previous window, and give the title to the TDockPnel you created. You can even add buttons ( in the title of TDockPnel ) to simulate, for example, "MINIMIZE" the window.

I'm not including an example because I don't know if I can provide one with the version of fivewin you're using.

Regards

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

shrifw

Posts: 76

Joined: Fri Aug 28, 2009 05:25 AM

Re: Dialog / Window Title Like TDockPnl
Posted: Fri Oct 03, 2025 06:46 AM

Dear Cnavarro ,

I will try the provided tips, however I have query on TDockPnl . As there are GET & XBROWSE control in the DIALOG window ( OF oDlg ) so any impact on their syntax definition such as :

Code: Select all Collapse

@ 10,20 GET aGET[1] var cAcctName OF oDlg // so here [b]oDlg[/b] is used.

shri_fwh

Posts: 336

Joined: Mon Dec 07, 2009 02:49 PM

Re: Dialog / Window Title Like TDockPnl
Posted: Fri Oct 03, 2025 04:16 PM

Dear Cnavarro ,

I tried but it is not working fully as expected all SAY objects are disappeared when add TDockPnl.

Code: Select all Collapse

   DEFINE DIALOG oDlg FROM nTop, nLeft TO nBottom, nRight TITLE ctitle PIXEL TRUEPIXEL   ;
   STYLE nOR  ( (WS_POPUP + WS_BORDER)  ) 
       oDock1  := TDockPnel():New( oDlg )
       oDlg:oClient := oDock1   
       WITH OBJECT oDock1
          :SetCoors( { || 0 }, { || 0 }, { || nBottom }, { || nRight } )
          :SetHeightCaption( 25 )
          :SetBorderSize( 0 )
          :SetCaption( ctitle )
           :SetColors( CLR_WHITE,  RGB(45,137,239), CLR_WIN_BACK02, CLR_WHITE )
          :SetFont( oApp:oFontHTitle )
          :Activate()
       END

Thanks

Shridhar

FWH 24.04, BCC 7 32 bit, MariaDB

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Dialog / Window Title Like TDockPnl
Posted: Mon Nov 03, 2025 05:15 PM

Sorry, I haven't seen your message

Add of WITH OBJECT

:SetCtrlsPnel( { | o, nT, nL, nH, nW, oB | YourFunctionMakeSays( o ) } )

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

FiveTech Support Forums

Continue the discussion