FiveTech Software tech support forums

... some bitmaps, I have also used @ 0,0 Bitmap... ...main program @ 0,0 Image oLogo File Mcs_AppPath() + "Images\SqlServerLogo.bmp" Of oWnd:oWndClient No Border ACTIVATE WINDOW oWnd VALID MCS_EXIT(oWnd,cPath,pPRG_ABRV) ON INIT OpenMast() On Resize SetLogo( oLogo,oWnd ) RETURN (NIL) Function ...

Querido Juan,

Prueba asi:

@ 10,10 SAY "LICENCIA " OF oDp:oFrameDp:oWndClient

... ) DEFINE WINDOW oWnd MDI DEFINE BUTTONBAR oBar OF oWnd SIZE 45,45 2007 DEFINE BUTTON OF oBar PROMPT "TEST" CENTER ACTION Test() oWnd:oWndClient:bPainted := {||oWnd:oWndClient:DrawImage( "c:\fwh\bitmaps\logo.bmp", "BR" )} ACTIVATE WINDOW oWnd return nil Function ...

Dear Silvio, Even if you modify the size of oWndClient, the child windows will exceed its area, it is the way Windows is designed. You may try to use oWndChild:aMinMaxInfo to restrict the child dimensions ok But for a sample If I move on left ...

Dear Silvio,

Even if you modify the size of oWndClient, the child windows will exceed its area, it is the way Windows is designed.

You may try to use oWndChild:aMinMaxInfo to restrict the child dimensions

... I have this Main window and I put the image as you can see but I have a Bar at right, when I hide the bar the oWinMain:oWndClient not bpainted and when I reopen the bar right I must redraw the image how I can resolve it ? I add oApp:oWinMain:bResized := { || SetLogo( ...

... Time from start: 0 hours 0 mins 5 secs Error occurred at: 13/10/2022, 08:40:42 Error description: Warning BASE/1004 Message not found: TWINDOW:OWNDCLIENT Stack Calls =========== Called from: source\rtl\tobject.prg => TWINDOW:ERROR( 0 ) Called from: source\rtl\tobject.prg => TWINDOW:MSGNOTFOUND( ...

Prueba con oWnd:oWndClient:Resize()

... nil  I could also use a Tpanel but then it's not good because I would like the child not to go in that part that is the area in the window (owndclient) is determined as it happens with the tbar

Antonio Linares wrote:João,

Please try this:

oMetro := MakeMetroPanel( oWnd:oWndClient )

Perfecto mi amado GURU. Eres simplemente mi mayor ídolo. Me gustas más que Bill Gates. jajajajajajajajaja.

https://imgur.com/FyOHeWp



Regards, saludos.

João,

Please try this:

oMetro := MakeMetroPanel( oWnd:oWndClient )

... code I used in the main program just before the Activate Window: @ 0,0 Bitmap oLogo File Mcs_AppPath() + "Images\EocwdLogo.bmp" of oWnd:oWndClient PIXEL NOBORDER oWnd:CoorsUpdate() oWnd:bPainted := {|| SetLogo( oLogo,oWnd )} Here is the function that runs during the paint event. Function ...

... // Esta funcion selecionada una ventana MDI si ya esta abierta. LOCAL i:=0, lSuccess:=.f. cTitle:=upper(cTitle) FOR i=1 TO LEN(oWndP:oWndClient:aWnd) IF UPPER( oWndP:oWndClient:aWnd[i]:cCaption )=cTitle oWndP:oWndClient:aWnd[i]:SetFocus() lSuccess:=.t. ENDIF NEXT RETURN lSuccess Return

Robert,

As you are using a MDI environment you have to change this line this way:

local oRb := TRibbonBar():New( oWnd:oWndClient )

... oMenu brush oBrush1 It errors out on this line because it expects the MDI window to exist. DEFINE DIALOG oDlgRB[1] FROM 0,0 TO 538,782 OF oWndr:oWndClient PIXEL I suggest trying panels instead. I haven't tried this but I am pretty sure it will work. You can Hide() the current one and Show() ...