netsys Posted September 5, 2005 Report Share Posted September 5, 2005 #include "Fivewin.ch" STATIC oDlg, hBorland *-------------- Function Main() *-------------- Local oBmp, oProd Local cProd:=Space(15) hBorland := loadlibrary("BWCC.DLL") Set Resources TO "TESTE.DLL" SET 3DLOOK ON Define DIALOG oDlg Resource "T7SUP1A" Redefine Get oProd Var cProd ID 101 of oDlg oProd:Set3dLook() Activate DIALOG oDlg Return Nil // Teste.Dll contém uma única Dialog T7SUP1A com 1 get (101) // Abraços! // Zamai Quote Link to comment Share on other sites More sharing options...
netsys Posted September 5, 2005 Author Report Share Posted September 5, 2005 #include "Fivewin.ch" STATIC oDlg, hBorland *-------------- Function Main() *-------------- Local oBmp, oProd Local cProd:=Space(15) hBorland := loadlibrary("BWCC.DLL") Set Resources TO "TESTE.DLL" SET 3DLOOK ON Define DIALOG oDlg Resource "T7SUP1A" Redefine Get oProd Var cProd ID 101 of oDlg oProd:Set3dLook() Activate DIALOG oDlg Return Nil // Teste.Dll contém uma única Dialog T7SUP1A com 1 get (101) // Abraços! // Zamai Quote Link to comment Share on other sites More sharing options...
netsys Posted September 5, 2005 Author Report Share Posted September 5, 2005 #include "Fivewin.ch" STATIC oDlg, hBorland *-------------- Function Main() *-------------- Local oBmp, oProd Local cProd:=Space(15) hBorland := loadlibrary("BWCC.DLL") Set Resources TO "TESTE.DLL" SET 3DLOOK ON Define DIALOG oDlg Resource "T7SUP1A" Redefine Get oProd Var cProd ID 101 of oDlg oProd:Set3dLook() Activate DIALOG oDlg Return Nil // Teste.Dll contém uma única Dialog T7SUP1A com 1 get (101) // Abraços! // Zamai Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 5, 2005 Report Share Posted September 5, 2005 PONHA MAIS UM CONTROLE NA DIALOG, USE O <1,2> DO WORKSHOP.EXE E CLICK EM MULTIPLE LINE E DEIXE O TAB STOP LIGADO. TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU. Bad Boy - São Paulo. kmt_karinha@pop.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 5, 2005 Report Share Posted September 5, 2005 Define DIALOG oDlg Resource "T7SUP1A" PROCURE NAO FAZER ISSO, DE NOME AOS 'BOIS'. EXEMPLO: "DLG_SUPRIMENTOS" TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU. Bad Boy - São Paulo. kmt_karinha@pop.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
netsys Posted September 5, 2005 Author Report Share Posted September 5, 2005 Fiz isso também mas continua igual,,,, só um detalhe: Fivewin.lib = 19/10/1995 (1.92) Winapi.lib = 07/03/1997 Ctl3d.dll = 05/05/1999 (idem p. Ctl3dv2.dll) Será por isso? Grato Zamai FW 1.92 + Clipper 5.3a + Blinker 5.10 + Ws 4.5 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 6, 2005 Report Share Posted September 6, 2005 crie uma menu, e desvie para um modulo. veja em samples -> TUTOR??.PRG escolha aquele que voce gostar mais. TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU. Bad Boy - São Paulo. kmt_karinha@pop.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 6, 2005 Report Share Posted September 6, 2005 REDEFINE GET oNome VAR Nome PICTURE "@K!" ; ID 101 OF oDlg ; FONT oFont UPDATE ; COLORS CLR_HRED, CLR_YELLOW SE ISTO ESTIVER OCORRENDO NO WINDOWS XP, AVISE. TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU. Bad Boy - São Paulo. kmt_karinha@pop.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 6, 2005 Report Share Posted September 6, 2005 click duas vezes na sua dialog veja window style window type popup dialog style system menu -> ligado thick frame -> ligado absolute align -> ligado visible -> ligado click duas vezes no get case insensitive - ligado multiple line -> ligado tab stop ligado border -> ligado visible -> ligado center -> ligado no menu do workshop options preferences dialog ->ligado thick frame -> ligado wyswyg -> ligado use ctl3dv2.dll -> ligado -> deve estar em c:\workshop\bin Use o <1,2> do WorkShop.exe Para Identar os Gets, ponha pelo menos 2 - Idente-os. Teste com o veja se a 'queda' deles esta correta. Salve TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU. Bad Boy - São Paulo. kmt_karinha@pop.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Editado por - kapiaba on 06/09/2005 09:26:34 Quote Link to comment Share on other sites More sharing options...
netsys Posted September 6, 2005 Author Report Share Posted September 6, 2005 Ola Kapiaba! Obrigado pela paciência! Desculpe a demora mas estava testando todas as dicas que vc forneceu. Infelizmente o prob continua. Fiz todas as verificações no programa e no Workshop e estão exatamente como vc sugeriu. Também testei no Win 98 / Me / 2000 e Xp e acontece o mesmo. Tem mais alguma alteração? Grato Zamai Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 6, 2005 Report Share Posted September 6, 2005 solucao, é enviar-me para eu ver. Não faço ideia do que esteja errado. Deveria funcionar. Teste alguma coisa do samples... quem sabe... Abraços. TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU. Bad Boy - São Paulo. kmt_karinha@pop.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
pasim Posted September 6, 2005 Report Share Posted September 6, 2005 Se tiver em Class isto: BorDlg_Gray, tire-o pois foi assim que resolvi 3d no get. espero ter ajudado. Quote Link to comment Share on other sites More sharing options...
netsys Posted September 6, 2005 Author Report Share Posted September 6, 2005 Valeu Paulo! Gol p. vc! Realmente, usando BorDlg ou BorDlg_Gray em class os gets perdem o efeito 3D, deixei em branco e ficou OK! Obrigado ao Kapiaba Tb. Forte Abraço! Alberto Zamai Vip Netsystem Informática Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.