boa tarde, essa classe e interessante, realmente funciona,, so que seria legal se criasse ela fora da dialog.prg,,, alguem saberia criar ela fora da dialog.prg ou postar aqui um exemplo.
/ Marllon, Meu Caro Amigo... Agora é Com Você Encerrar Este Tópico Tão
// Quente(Não tenha dúvidas, me deu altissima Satisfação).
// Por favor teste esta modificação em DIALOG.PRG faça os ajustes
// Finais(Pois notei que dá Pequenos desajustes em meus botões e dialogos,
// Mas, funciona perfeitamente. Como não entendo nada de Classe, solicito
// o Especial Obséquio de V.sa. Que Altere a Classe, Teste, e Poste as
// Mudanças que você fizer. Por Favor. Seu amigo de sempre, João.
// Não esqueça, que preciso de sua opinião isenta e profissional, com o
// Intuito de Ajudar Toda a Nossa Comunidade de FIVEWINNERS. Obrigado!!!
// Obs: Você é grande. Conte sempre com todo o meu respeito e apreço.
// Abraços. Quando quiser pegar no meu pé, pegue... Eu gosto! Me dá forças!
//---------------------------------------------------------------------------//
// Vagner, Elias e os demais, ajudem-me a modernizar isto, pois não sou
// bom para alterar Classes, e o meu amigo Ednaldo Rolim está sem tempo.
// Pelo menos, sou honesto em admitir quem em algumas coisas, não sou bom.
// Graças a Deus, Conto Com Amigos Tão Fantásticos como vocês e Ednaldo.
//---------------------------------------------------------------------------//
// Enviado por Ednaldo Rolim
// João,
// Aqui está a solução para o problema de dialogs com o Workshop
// em 3 etapas.
//---------------------------------------------------------------------------//
// 1) Definir o seguinte método na classe dialog.prg, Incorpore ao
// Seu Sistema. No *.rmk e no *.lnk
// Está em: \fw..\source\classes - DIALOG.PRG
METHOD MISetSize( aPor )
//---------------------------------------------------------------------------//
// Enviado por Ednaldo Rolim
// 2) Criar o método e a função a seguir:
METHOD MISetSize( aPor ) CLASS TDialog
LOCAL hDlg := ::hWnd
LOCAL hCtrl := GetWindow( hDlg, GW_CHILD )
LOCAL hFont, oFont, I, AINFO, aRect, nWidth, nHeight, lRepaint:=