Contribuição - Telas iguais SEMPRE!!!

[kapiaba]

citação:

Kapiaba vc poderia dar uma olhada na funcao e ver se descobre o pq disso ? Como aqui esta funcionando corretamente fica dificil eu descobrir o erro.

Me lembro que vc relatou um erro no seu computador com relacao a trocar fontes ou sumir fontes , nao seria isso ?

Como diminuiu a fonte como vc relatou, talvez possa ser isso. Verifique se as fontes utilizadas existem no seu wINDOWS. Ou entao troque a fonte e veja se continua o erro.

William

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0

Editado por - william on 20/08/2009 16:20:11

---

id=quote>id=quote>

Deixe eu testar em casa, meu xp de casa, redondo.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

[SAOliveira]

Willian, testou com PELLES ?

-------------------------------------------------------------------

Boleto with Personal/FastReport it is very, very good, beyond prettier.

FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX

[william]

Oliveira, nao testei com Pelles, uso o BCC aqui. Eu acredito que funcione sim, poderia testar e nos relatar ?

Obrigado

William

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0

[kapiaba]

citação:

Kapi, poste uma imagem de como ficou com 800x600 e outra de como ficou com 1024x768.

Uma imagem vale mais que mil palavras

=D

Luis Fernando Jr.(Luisão)

"Seize the day or die regretting the time you lost"

FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

---

id=quote>id=quote>

Assim que possivel, postarei Luis.

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

[kleyber]

William,

Testei aqui e foi 100%. Uso Windows XP SP3. Parabéns.

Abraço.

Kleyber Derick

xHarbour 1.1.0 + FWH 8.02 (BMW Zerada!!!) + xDevStudio + SQLLIB

Visite São Luís - MA A Ilha dos Amores

[william]

obrigado Kleyber, que bom que vc é + 1 que funcionou ok

abraço

William Adami

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0

[Ladinilson]

Aqui ficou show de bola!

Parabéns!

[FGSIST]

Olá Willian, ficou show de bola o problema é que não consegui fazer a resolução acompanhar a buttonbar ou seja em uma resolução 1280x800 eu tenho 15 botões na buttonbar fica legal mas se mudo a resolução pra 800x600 só me mostra 10 botões na buttonbar, tem como resolver isso? No mais voce se superou amigo parabéns.

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 /

[LUIS1361303120]

Nao e desprezando essa contribuicao nao, mas comigo as telas ficou todas fora do posicionamento,, eu uso essa que vou postar em baixo e nao da esse problema,, vc altera a dialog.prg de sua versao do fw...? e acrescenta essas opcoes, essa contribuicao foi do Ednaldo Rolim, essa alteracao e funciona legal tb..

/*

// Ol  pessoal... Dias atr s estava com problemas com o tamanho de uma

// dialog e acabei encontrando esta solu‡Æo desenvolvida pelo nosso amigo

// EDNALDO ROLIM.

// Esta Solu‡Æo foi postada no F¢rum por outro amigo o JoÆo Santos "KARINHA"

// Testei e achei muito boa, pois resolve quase que na totalidade os problemas

// de redirecionamento das Dialogs criadas tanto em WorkShop quanto que em

// @ Say nas diversas configura‡äes dos Monitores de nossos clientes...

// Existem ainda alguns pequenos problemas com os Botäes, como j  havia

// mencionado o amigo "KARINHA", m s f¢ra isto, funciona perfeitamente...

// Se algu‚m conseguir solucionar o Problema dos Botäes, poste novamente aqui

// em Dicas + Dicas a versÆo atualizada... Um abra‡o... Valdir - Jundia¡ - S.P.

// Como Usar ?

// Inclua esta Dialog.prg nos seus arquivos RMK e LNK

// Compile normalmente

// Em todos os Activate Dialog Usar Como Segue Abaixo:

// ACTIVATE DIALOG oDlg ON INIT oDlg:MISetSize() // É Isto. Show().

// Pronto. Seu diálogo vai se tornar do tamanho da sua tela,

// sendo acrescido por um fator aPor.

// Esse método usa um array com o percentual de ajuste, mas pode

// ser apenas um número, se vc não quiser passar valores fora dos padrões.

// Ednaldo Rolim

*/

#include "FiveWin.ch"

#include "Constant.ch"

//----------------------------------------------------------------------------//

CLASS TDialog FROM TWindow

METHOD MISetSize( aPor )

ENDCLASS

*------------------------------------------

METHOD MISetSize( aPor ) CLASS TDialog

LOCAL hDlg := ::hWnd

LOCAL hCtrl:= GetWindow( hDlg, GW_CHILD )

LOCAL hFont, oFont, I, AINFO, aRect, nWidth, nHeight, lRepaint:=.T.

LOCAL nPorH, nPorV, nIdControl, nPosControl

DEFAULT aPor := DLG_RESOLUCION( Self )

nPorH := aPor[1]

nPorV := aPor[2]

if nPorh=1 .and. nPorv=1

return nil

endif

nWidth := ::nWidth * nPorH

nHeight:= ::nHeight * nPorV

Super:SetSize( nWidth, nHeight, lRepaint )

::Move( MAX( WndTop( hDlg),1), MAX(WndLeft( hDlg),1) )

**** Redimensionamento dos Controles

While hCtrl != 0 .AND. GetParent( hCtrl ) == hDlg

aRect := GetClientRect( hCtrl )

nWidth := (aRect[4]-aRect[2]) * nPorH

nHeight := (aRect[3]-aRect[1]) * nPorV

WndSetSize( hCtrl, nWidth, nHeight, lRepaint )

WndLeft( hCtrl, WndLeft( hCtrl) * nPorh)

WndTop( hCtrl, WndTop( hCtrl) * nPorv)

hCtrl = GetWindow( hCtrl, GW_HWNDNEXT )

Enddo

*** Redimensionamento das Fontes

FOR I=1 TO LEN(::aControls)

IF ::aControls:ofont != nil

hFont := ::aControls:ofont:hFont

aInfo = GetFontInfo( hFont )

oFont = TFont():New(::aControls:ofont:cFaceName, ;

(aInfo[2]*nPorV), (aInfo[1] * nPorH), , ;

::aControls:ofont:lBold, ;

::aControls:ofont:nEscapement, ;

::aControls:ofont:nOrientation, ;

aInfo[3], ::aControls:ofont:lItalic, ;

::aControls:ofont:lUnderline, ;

::aControls:ofont:lStrikeOut, ;

::aControls:ofont:nCharSet, ;

::aControls:ofont:nOutPrecision, ;

::aControls:ofont:nClipPrecision, ;

::aControls:ofont:nQuality, )

::aControls:SETFONT(ofont)

endif

NEXT

Return Nil

//----------------------------------------------------------------------------//

FUNCTION DLG_RESOLUCION( oDlg )

LOCAL aPor := {1,1}, nWidth := GetSysMetrics(0), ;

nHeight := GetSysMetrics(1)

LOCAL nPor_640 := 1, nPor_800 := 1.2500, nPor_1024 := 1.6000, ;

nPor_1152 := 1.800

DO CASE

// DIALOGO DESENHADO PARA 1152x864

CASE oDlg:nWidth>1360 .OR. oDlg:nHeight>768

nPor_640 := 0.5555 // 0.3

nPor_800 := 0.6944 // 0.5

nPor_1024 := 0.8897 // 0.8

nPor_1152 := 1.0

// DIALOGO DESENHADO PARA 1152x864

CASE oDlg:nWidth>1024 .OR. oDlg:nHeight>768

nPor_640 := 0.5555 // 0.3

nPor_800 := 0.6944 // 0.5

nPor_1024 := 0.8897 // 0.8

nPor_1152 := 1.0

// DIALOGO DESENHADO PARA 1024x768

CASE oDlg:nWidth>800 .OR. oDlg:nHeight>600

nPor_640 := 0.6250 // 0.6250

nPor_800 := 0.7812 // 0.7812

nPor_1024 := 1.0000 // 1.0000

nPor_1152 := 1.2500 // 1.1250

// DIALOGO DESENHADO PARA 800x600

CASE oDlg:nWidth>640 .OR. oDlg:nHeight>480

nPor_640 := 0.8 // 0.8

nPor_800 := 1.0 // 1.0

nPor_1024 := 1.2800 // 1.2800

nPor_1152 := 1.4400 // 1.4400

ENDCASE

IF nWidth >= 1280// ESTAMOS EM 1360x768

aPor := { nPor_1024, nPor_1024 }

elseif nWidth >= 1152 // ESTAMOS EM 1152x864

aPor := { nPor_1152, nPor_1152 }

ELSEIF nWidth >= 1024 // ESTAMOS EM 1024x768

aPor := { nPor_1024, nPor_1024 }

ELSEIF nWidth >= 800 // ESTAMOS EM 800x600

aPor := { nPor_800, nPor_800 }

ELSEIF nWidth >= 640 // ESTAMOS EM 640x480

aPor := { nPor_640, nPor_640 }

ENDIF

RETURN aPor

e usa esse como exemplo em suas dialogs:

on init odlg1:misetsize()

[FGSIST]

Alguém testou o problema com a buttonbar como eu postei acima? 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 /

[william]

Gilson boa tarde, ainda nao testei com barra de botoes, assim que testar e resolver posto as mudancas.

Luis, as telas ficaram diferentes no exemplo que eu postei ? Ou em algum exemplo seu ?

O unico problema do seu exemplo Luiz é que mexe em classes nativas do FW, daí toda vez que mudar de versao tem que verificar se a classe que vc modificou ainda é compativel com a nova versao , e substitui-la e refazer a LIB... pra mim da muito trabalho.

O seu FWH está com a dialog.prg modificada? Talvez a funcao RESIZ() nao funcione corretamente, ela foi feita para trabalhar com a dialog NATIVA do FW. Se puder descobrir o motivo de nao funcionar contigo, fico muito agradecido.

Abraço

William

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0

[FGSIST]

Valeu Willian fico no aguardo, no mais estou satisfeito com esta função só tá faltando mesmo é a parte da buttonbar, fora isso como já disse show de bola.

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 /

[LUIS1361303120]

e pode ser isso, vou olhar sem usar a modificacao,, valeu e parabens pela sua iniciativa, eu acho que na minha opniao, todos de uma forma deveria tb se tiver alguma novidade no fw e criaram tb compartilhar com todos nos, para que o fw se torne a biblioteca universal,,, parabens..

[kapiaba]

William, não consegui usar nem a pau.

Coloquei comandos na 1ª. Dialog, funcionou, quando coloquei na segunda dialog, explodiu este erro abaixo:

Aplica‡Æo:

===========

Caminho(Path): C:\AGENDA\AGENDA.EXE (32 bits)

Tamanho: 1,282,048 bytes

Hora Inicial: 0 hours 0 mins 2 secs

Ocorrencia de Erro: 23/08/2009, 10:55:54

Descri‡Æo do Erro: Error BASE/1089 Erro nos parƒmetros: ABS

Argumentos:

[ 1] = U

Chamada da Pilha:

=================

Chamada De: ABS(0)

Chamada De: AJA_FLD(618)

Chamada De: AUTRESIZ(291)

Chamada De: (b)AGENDTEL(594)

Chamada De: TDIALOG:INITIATE(0)

Chamada De: TDIALOG:HANDLEEVENT(0)

Chamada De: DIALOGBOX(0)

Chamada De: TDIALOG:ACTIVATE(0)

Chamada De: AGENDTEL(594)

Chamada De: (b)GERADOR_FW(494)

Chamada De: TBUTTON:CLICK(0)

Chamada De: TBUTTON:HANDLEEVENT(0)

Chamada De: _FWH(3351)

Chamada De: SENDMESSAGE(0)

Chamada De: TDIALOG:COMMAND(0)

Chamada De: TWINDOW:HANDLEEVENT(0)

Chamada De: TDIALOG:HANDLEEVENT(0)

Chamada De: DIALOGBOX(0)

Chamada De: TDIALOG:ACTIVATE(0)

Chamada De: GERADOR_FW(620)

Chamada De: MAIN(91)

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

[william]

Joao bom dia, nao tenho o codigo fonte da sua agenda para ver, mas pelas telas (legais) do seu sistema pude verificar o seguinte:

- vc esta usando um say que se move, talvez seja a classe Dsay ou outra, e essa ainda nao implementei no AutResiz()

- Vc esta usando Listbox, eu ainda nao testei

- Vc esta usando Group sem atribuir uma fonte a ele

Lembre-se que é obrigatorio atribuir fonte a todos os controles, aos group, checkboxes, radio, etc...

O seu erro parece ser de algum controle sem ter a fonte atribuida, pois a funcao AJA_FLD() faz justamente isso, redimensiona as fontes.

verifique e me diga

William

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0

[FGSIST]

Olá Willian tá ficando muito bom mesmo, fora o ajuste na buttonbar que estou aguardando, testei na listbox e não deu certo não, ou seja os headers e fields da listbox não acompanham a resolução.

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 /

[william]

olá Gilson boa tarde, o Listbox eu ainda nao ajustei, mas deve seguir o mesmo principio da Xbrowse. Eu estou tentando arrumar a toolbar e a barbutton, mas ambas estao dando problema e ainda nao finalizei. Assim que tiver adaptado mais controles na funcao, postarei as mudancas para todos.

Se puderes ir me ajundando a testar com outros controles , seria bom se tivesse uma lista dos controles que faltam para corrigir. Desta forma o AutResiz() uma hora vai estar completo e redondinho....

abraço

William

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0

[kleyber]

citação:

Nao e desprezando essa contribuicao nao, mas comigo as telas ficou todas fora do posicionamento,, eu uso essa que vou postar em baixo e nao da esse problema,, vc altera a dialog.prg de sua versao do fw...? e acrescenta essas opcoes, essa contribuicao foi do Ednaldo Rolim, essa alteracao e funciona legal tb..

/*

// Ol  pessoal... Dias atr s estava com problemas com o tamanho de uma

// dialog e acabei encontrando esta solu‡Æo desenvolvida pelo nosso amigo

// EDNALDO ROLIM.

// Esta Solu‡Æo foi postada no F¢rum por outro amigo o JoÆo Santos "KARINHA"

// Testei e achei muito boa, pois resolve quase que na totalidade os problemas

// de redirecionamento das Dialogs criadas tanto em WorkShop quanto que em

// @ Say nas diversas configura‡äes dos Monitores de nossos clientes...

// Existem ainda alguns pequenos problemas com os Botäes, como j  havia

// mencionado o amigo "KARINHA", m s f¢ra isto, funciona perfeitamente...

// Se algu‚m conseguir solucionar o Problema dos Botäes, poste novamente aqui

// em Dicas + Dicas a versÆo atualizada... Um abra‡o... Valdir - Jundia¡ - S.P.

// Como Usar ?

// Inclua esta Dialog.prg nos seus arquivos RMK e LNK

// Compile normalmente

// Em todos os Activate Dialog Usar Como Segue Abaixo:

// ACTIVATE DIALOG oDlg ON INIT oDlg:MISetSize() // É Isto. Show().

// Pronto. Seu diálogo vai se tornar do tamanho da sua tela,

// sendo acrescido por um fator aPor.

// Esse método usa um array com o percentual de ajuste, mas pode

// ser apenas um número, se vc não quiser passar valores fora dos padrões.

// Ednaldo Rolim

*/

#include "FiveWin.ch"

#include "Constant.ch"

//----------------------------------------------------------------------------//

CLASS TDialog FROM TWindow

METHOD MISetSize( aPor )

ENDCLASS

*------------------------------------------

METHOD MISetSize( aPor ) CLASS TDialog

LOCAL hDlg := ::hWnd

LOCAL hCtrl:= GetWindow( hDlg, GW_CHILD )

LOCAL hFont, oFont, I, AINFO, aRect, nWidth, nHeight, lRepaint:=.T.

LOCAL nPorH, nPorV, nIdControl, nPosControl

DEFAULT aPor := DLG_RESOLUCION( Self )

nPorH := aPor[1]

nPorV := aPor[2]

if nPorh=1 .and. nPorv=1

return nil

endif

nWidth := ::nWidth * nPorH

nHeight:= ::nHeight * nPorV

Super:SetSize( nWidth, nHeight, lRepaint )

::Move( MAX( WndTop( hDlg),1), MAX(WndLeft( hDlg),1) )

**** Redimensionamento dos Controles

While hCtrl != 0 .AND. GetParent( hCtrl ) == hDlg

aRect := GetClientRect( hCtrl )

nWidth := (aRect[4]-aRect[2]) * nPorH

nHeight := (aRect[3]-aRect[1]) * nPorV

WndSetSize( hCtrl, nWidth, nHeight, lRepaint )

WndLeft( hCtrl, WndLeft( hCtrl) * nPorh)

WndTop( hCtrl, WndTop( hCtrl) * nPorv)

hCtrl = GetWindow( hCtrl, GW_HWNDNEXT )

Enddo

*** Redimensionamento das Fontes

FOR I=1 TO LEN(::aControls)

IF ::aControls:ofont != nil

hFont := ::aControls:ofont:hFont

aInfo = GetFontInfo( hFont )

oFont = TFont():New(::aControls:ofont:cFaceName, ;

(aInfo[2]*nPorV), (aInfo[1] * nPorH), , ;

::aControls:ofont:lBold, ;

::aControls:ofont:nEscapement, ;

::aControls:ofont:nOrientation, ;

aInfo[3], ::aControls:ofont:lItalic, ;

::aControls:ofont:lUnderline, ;

::aControls:ofont:lStrikeOut, ;

::aControls:ofont:nCharSet, ;

::aControls:ofont:nOutPrecision, ;

::aControls:ofont:nClipPrecision, ;

::aControls:ofont:nQuality, )

::aControls:SETFONT(ofont)

endif

NEXT

Return Nil

//----------------------------------------------------------------------------//

FUNCTION DLG_RESOLUCION( oDlg )

LOCAL aPor := {1,1}, nWidth := GetSysMetrics(0), ;

nHeight := GetSysMetrics(1)

LOCAL nPor_640 := 1, nPor_800 := 1.2500, nPor_1024 := 1.6000, ;

nPor_1152 := 1.800

DO CASE

// DIALOGO DESENHADO PARA 1152x864

CASE oDlg:nWidth>1360 .OR. oDlg:nHeight>768

nPor_640 := 0.5555 // 0.3

nPor_800 := 0.6944 // 0.5

nPor_1024 := 0.8897 // 0.8

nPor_1152 := 1.0

// DIALOGO DESENHADO PARA 1152x864

CASE oDlg:nWidth>1024 .OR. oDlg:nHeight>768

nPor_640 := 0.5555 // 0.3

nPor_800 := 0.6944 // 0.5

nPor_1024 := 0.8897 // 0.8

nPor_1152 := 1.0

// DIALOGO DESENHADO PARA 1024x768

CASE oDlg:nWidth>800 .OR. oDlg:nHeight>600

nPor_640 := 0.6250 // 0.6250

nPor_800 := 0.7812 // 0.7812

nPor_1024 := 1.0000 // 1.0000

nPor_1152 := 1.2500 // 1.1250

// DIALOGO DESENHADO PARA 800x600

CASE oDlg:nWidth>640 .OR. oDlg:nHeight>480

nPor_640 := 0.8 // 0.8

nPor_800 := 1.0 // 1.0

nPor_1024 := 1.2800 // 1.2800

nPor_1152 := 1.4400 // 1.4400

ENDCASE

IF nWidth >= 1280// ESTAMOS EM 1360x768

aPor := { nPor_1024, nPor_1024 }

elseif nWidth >= 1152 // ESTAMOS EM 1152x864

aPor := { nPor_1152, nPor_1152 }

ELSEIF nWidth >= 1024 // ESTAMOS EM 1024x768

aPor := { nPor_1024, nPor_1024 }

ELSEIF nWidth >= 800 // ESTAMOS EM 800x600

aPor := { nPor_800, nPor_800 }

ELSEIF nWidth >= 640 // ESTAMOS EM 640x480

aPor := { nPor_640, nPor_640 }

ENDIF

RETURN aPor

e usa esse como exemplo em suas dialogs:

on init odlg1:misetsize()

---

id=quote>id=quote>

Uma pergunta, Luis: Isto funciona somente com as dialogs, certo? E quanto a Window, como ficaria, por exemplo, um sistema onde a tela principal é uma Window e o restante das telas são dialogs? (que é o meu caso)

Kleyber Derick

xHarbour 1.1.0 + FWH 8.02 (BMW Zerada!!!) + xDevStudio + SQLLIB

Visite São Luís - MA A Ilha dos Amores

[william]

Keyber , sua pergunta foi para o Luis mas me deixe te perguntar, vc testou a minha funcao com Window ao inves de dialog ? Funcionou ?

Obrigado

William

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0

[kapiaba]

citação:

Joao bom dia, nao tenho o codigo fonte da sua agenda para ver, mas pelas telas (legais) do seu sistema pude verificar o seguinte:

- vc esta usando um say que se move, talvez seja a classe Dsay ou outra, e essa ainda nao implementei no AutResiz()

- Vc esta usando Listbox, eu ainda nao testei

- Vc esta usando Group sem atribuir uma fonte a ele

Lembre-se que é obrigatorio atribuir fonte a todos os controles, aos group, checkboxes, radio, etc...

O seu erro parece ser de algum controle sem ter a fonte atribuida, pois a funcao AJA_FLD() faz justamente isso, redimensiona as fontes.

verifique e me diga

William

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0

---

id=quote>id=quote>

William, desculpe a demora, então, você precisa instruir o programa, para avisar, ou ignorar se não achou as fontes, e se eu não quiser fonte em algum lugar??

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

[william]

Kapi , obrigado pela dica. Se nao houver fonte atribuida ao controle a funcao AutResiz() deve pegar a fonte defaut do controle e redimensiona-la. Quando nao se define a fonte no controle, a instrucao odlg:acontrols:oFont retorna NIL , por isso da o erro.

Ja anotei e assim que tiver + mudancas postarei novamente.

PS: Mas nao custa nada fazer : controle:ofont:= suafonte ate resolver isso.

Obrigado

William

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0

[LUIS1361303120]

kleyber

nao desmerecendo a telas do William,, mas essa funcao que eu estou usando ate agora nas minhas aplicacoes cumpre certinho, e em todas as dialogs ficaram redondinhas,, mas nao fui eu que fiz, esta aqui no forum, e so coloquei na dialog.prg que acompanha o meu fivewin 9.04 mas parece que as telas do william vai evoluir muito, e isso e muito bom,, parabens, faca um teste ai kleyber....

[william]

Luis boa noite, nesta funcao que vc mostrou ela redimensiona a Barbutton e a Toolbar corretamente ?

O principio de redimensionamento dela é parecido com o da minha , porem nao estou conseguindo fazer redimensionar nem a buttonbar e nem a toolbar. E os folders e todos os controles dentro do folder, ela redimensiona corretamente ?

obrigado

William

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0

Editado por - william on 24/08/2009 21:49:26

[william]

Luis bom dia, testei a funcao que vc postou e veja o que eu notei:

- Nao redimensiona as fontes dos headers , footers e colunas do xbrowse

- Nao encaixa o say com fonte corretamente no controle (daí vc precisa ficar se preocupando com o tamanho das fontes...)

- Nao redimensiona nada que estiver dentro de um folder. (erro grave)

- Redimensiona a largura da barra de botoes ( buttonbar ), mas nao redimensiona o tamanho dos botoes.

- nao redimensiona a TOOLBAR , nem a largura nem os fontes. Os fontes da toolbar ficaram todos errados (maiores).

- Nao redimensiona os botoes da toolbar

- na classe timage nao redimensiona e nao posiciona corretamente o controle.

- tem que mexer na classe Dialog.prg, nativa do FW (muito trabalhoso)

Eu testei em cima do meu exemplo que eu postei (Testfld2.exe) e infelismente nao ficou bom.

Portanto concluí que está bem mais incompleta do que a minha...

Por isso , sigo tentando melhorar a AutResiz() mesmo, é a + completa.

Abraço

William

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0

Editado por - william on 25/08/2009 10:11:39

[LUIS1361303120]

Willian,, nao fui eu que desenvolvi essa classe ou alterei a dialog.prg,, foi um tal de rolim, que nem conheco.,, entao fica dificil, te dizer se esta certo ou nao,, eu uso, por que foi a primeira opcao que tive para resolver o meu problema,, mas pode ter certeza se o seu funcionar comigo, vou largar mao do dialog.prg e passar a usar o seu,,, a hora que tiver todos resolvivo os problemas com outros usuarios me avise para usar,,,,, fiz uns teste aqui,, mas eu acho que e obrigatorio colocar fonts em todos os objetos, para dar certo, vai ver ai que eu estou errando, e boa sorte para todos nos e parabens + uma vez...

luis antonio da paixao

sao sebastiao do paraiso/MG

fw 905 e xharbour e wokrshop...