Jump to content
Fivewin Brasil

Como Maximizar um Dialog dentro de uma MDI?


FGSIST

Recommended Posts

Olá pessoal tem como maximizar uma dialog dentro de uma window MDI tipo uma MDICHILD? Quando tento maximizar normalmente usando o Activate oDlg on init oDlg:maximize() a tela abre mas a minha dialog definida no pelles fica pequena. Tem como maximizar tudo junto? Fico no aguardo.

Abraços

Gilson

E-mail: Fgsistem@yahoo.com.br

MSN: fgsistem@hotmail.com

Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Link to comment
Share on other sites

Olá pessoal tem como maximizar uma dialog dentro de uma window MDI tipo uma MDICHILD? Quando tento maximizar normalmente usando o Activate oDlg on init oDlg:maximize() a tela abre mas a minha dialog definida no pelles fica pequena. Tem como maximizar tudo junto? Fico no aguardo.

Abraços

Gilson

E-mail: Fgsistem@yahoo.com.br

MSN: fgsistem@hotmail.com

Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Link to comment
Share on other sites

Veja se isso te ajuda ^^

citação:

#include "FiveWin.ch"

extern Set

static oWnd

function Main()

local oBar

DEFINE WINDOW oWnd FROM 1, 1 To 22, 75 TITLE "TESTE com MDI :P" MDI

DEFINE BUTTONBAR oBar OF oWnd

DEFINE BUTTON OF oBar ACTION CreateChild()

ACTIVATE WINDOW oWnd

return nil

function CreateChild()

local oWndChild, oIcon

local oBar

local cName := "Hello"

DEFINE ICON oIcon RESOURCE "test"

DEFINE WINDOW oWndChild MDICHILD OF oWnd ICON oIcon

DEFINE BUTTONBAR oBar OF oWndChild

DEFINE BUTTON OF oBar ACTION oWndChild:End()

oWndChild:maximize()

ACTIVATE WINDOW oWndChild VALID MsgYesNo( "Fechar (:P) ?" )

return nil


id=quote>id=quote>

[X]Harbour 1.1.0|Fwh 8.5|Bcc55|Pelles|MySQL ^^

user.jpg

Link to comment
Share on other sites

citação:

Veja se isso te ajuda ^^

citação:

#include "FiveWin.ch"

extern Set

static oWnd

function Main()

local oBar

DEFINE WINDOW oWnd FROM 1, 1 To 22, 75 TITLE "TESTE com MDI :P" MDI

DEFINE BUTTONBAR oBar OF oWnd

DEFINE BUTTON OF oBar ACTION CreateChild()

ACTIVATE WINDOW oWnd

return nil

function CreateChild()

local oWndChild, oIcon

local oBar

local cName := "Hello"

DEFINE ICON oIcon RESOURCE "test"

DEFINE WINDOW oWndChild MDICHILD OF oWnd ICON oIcon

DEFINE BUTTONBAR oBar OF oWndChild

DEFINE BUTTON OF oBar ACTION oWndChild:End()

oWndChild:maximize()

ACTIVATE WINDOW oWndChild VALID MsgYesNo( "Fechar (:P) ?" )

return nil


id=quote>id=quote>

[X]Harbour 1.1.0|Fwh 8.5|Bcc55|Pelles|MySQL ^^

user.jpg


id=quote>id=quote>

Gilson,no caso voce tem uma janela MDI e ao invez de uma mdichild, voce tem uma DIALOGid=red>, correto ??

Bom , ja analizando o que voce possui, creio que voce teria que pegar as medidas internas dessa janela MDI e mudar o SIZE de sua DIALOG para que ela se enquadre dentro de sua janela MDI...

.. como pegar as medidas?

não sei mas acabei de ter uma pequena idéia !!!!

Acho que existe alguma função que pegue a as medidas de uma janela , WIDTH & HEIGHT , no caso acho que seria possivel um vHEIGHT=-100

Bom foi só uma idéia :)

____________________________

Eder Xavier

Msn:eder_xavier_2@hotmail.com

naruto.gif

C:\Xharbour Free\fivewin 8.05\workshop\VSX

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...