jufer

Meu caro Ladinilson, Eu também uso xDevStudio v0.72 BlackEdition, simplesmente ele crachou mas consegui reinstalar e agora está funcionando bem. Também uso Pells C (9.00.9) Fastreport ainda não experimentei. Já agora o que é que ele faz? Fiz a pergunta sobre o FIVEDIT porque não consigo trabalhar com ele porque penso que deve ser porque não estou a configurar correctamente. O FIVEDIT faz-me lembrar um editor VERCE que eu usei há muitos anos. Abraços

Bom dia, Baixei o FIVEDIT e não consigo trabalhar porque deve-me faltar qualquer elemento que não consigo verificar. Fiz as configurações todas (penso que correctamente) mas quando quero compilar surge a mensagem de erro que "ficheiro "AGENDA" não localizado. Quando baixei o FIVEDIT não encontrei as instruções. Será que não há? Alguém me poderá ajudar? Abraços JuFer

Sim, seria desse tipo. Ignoro de quem seja. Peço desculpas por não ter respondido tão rápido quanto desejava mas estive ausente e sem computador. Abraços

Estive a testar o PRG que anexo e detectei um erro quando faço um "check" no Browse. Como não tenho conhecimentos suficientes para ultrapassar a situação peço uma ajuda a algum amigo que queira ajudar-me. Antecipadamente agradeço JuFer (Portugal) //************************************************************************************************************** #Include "FiveWin.Ch" Func Main() Set Date Brit Set Cent On Set 3DLook On aHBitMaps := { LoadBitmap( GetResources(), "Check0" ), ; // BitMaps de 14 x 32 LoadBitmap( GetResources(), "Check1" ) } Define Dialog oDlg From 0,0 To 200,200 Pixel aArqLo := { {.F.,.T.,.F.,.F.,"Estou Aqui 1"},; {.T.,.F.,.F.,.F.,"Estou Aqui 2"},; {.F.,.F.,.T.,.F.,"Estou Aqui 3"},; {.F.,.F.,.F.,.T.,"Estou Aqui 4"} } bVars := {||{" "," "}} aCabe := {"1","2","3","4","Teste"} aColu := {20,20,20,20,150} oLoca := TWBrowse():New(001,003,090,095, bVars,aCabe,aColu,oDlg, , , , , , , , , , , , , ,.T.) oLoca:lMChange := .F. oLoca:Set3dStyle() oLoca:SetArray(aArqLo) oLoca:bLDblClick := { | nRow, nCol | Teste1(nRow,nCol) } oLoca:nAt := 1 oLoca:bLine := { || { aHBitmaps[Iif(aArqLo[oLoca:nAt][1],2,1)],aHBitmaps[Iif(aArqLo[oLoca:nAt][2],2,1)],aHBitmaps[Iif(aArqLo[oLoca:nAt][3],2,1)],aHBitmaps[Iif(aArqLo[oLoca:nAt][4],2,1)],aArqLo[oLoca:nAt][5] } } oLoca:Set3dStyle() oLoca:lMChange := .F. oLoca:bGoTop := { || oLoca:nAt := 1 } oLoca:bGoBottom := { || oLoca:nAt := Eval( oLoca:bLogicLen ) } oLoca:bSkip := { | nWant, nOld | nOld := oLoca:nAt, oLoca:nAt += nWant,; oLoca:nAt := Max( 1, Min( oLoca:nAt, Eval( oLoca:bLogicLen ) ) ),; oLoca:nAt - nOld } oLoca:bLogicLen := { || Len( aArqLo ) } oLoca:cAlias := "Array" // Just put something Activate Dialog oDlg Center Retu Static Func Teste1(nRow,nCol) Local nClickRow := nWRow( oDlg:hWnd, oDlg:hDC, nRow, 0 ) Local nClickCol If nClickRow == oLoca:nRowPos nClickCol = oLoca:nAtCol( nCol ) Endif For nX := 1 To 4 aArqLo[nClickRow][nX] := .F. Next aArqLo[nClickRow][nClickCol] := .T. oLoca:DrawSelect() Retu("") //*****************************************************************************

Meu caro amigo João Santos, Agradeço a sua tão rápida mensagem que veio em meu auxílio. O problema subsiste e penso que deve ser por falta do arquivo strmiids.lib e estive a ver o forum e constatei que o problema só deve ficar resolvido quando adquirir a versão FWH20.04. Um abraço Júlio Fernandes

Boa noite amigo Silva, Copiei sua programação e inclui no meu projecto mas tive que abandonar porque faltam algumas funções. No entanto tenho um programa do César E. Lozada, da Venezuela, que estava funcionando muito bem até eu ter comprado um novo computador. Não sei porque razão vejo o sinal de luz que a camera está funcionando mas na tela não aparece a imagem. Encontrei no forum uma informação para fazer as seguintes alterações no ficheiro C:\FWH\samples\build64.bat: - cl -TC -W3 -O2 -c -I%hdir%\include %1.c para cl -TP -W3 -O2 -c -I%hdir%\include %1.c e acrescentar echo strmiids.lib >> msvc.tmp só que não tenho a LIB strmiids.lib será que é por falta do ficheiro strmiids.lib que a camera não aparece na tela? Se assim for vc pode-me ceder aquele ficheiro? Abraços Júlio Fernandes (Portugal)

Faz tempo que eu não navegava neste fórum e hoje calhou ver a notícia do falecimento do meu amigo Luis Carlos Nogueira. Quando estive no Brasil em Fevereiro de 2005 o acaso não quis que me encontrasse com ele pois tinhamos marcado um encontro, se não me engano em Mogi Mirim, cidade onde vivia. Ele foi uma pessoa que me ajudou muito quando me iniciei no Fivewin for xHarbour, Falávamos via Skype e ele resolvia os meus erros informáticos e ensinou-me muito. O Luis Carlos NOgueira foi-me apresentado por um outro meu grande amigo o Luis Augusto Martins (gunafe) ambos foram muito especiais na minha iniciação no FW. Bem haja por isso. Apesar de não o ter conhecido pessoalmente posso dizer, sem dúvida alguma, que ele era uma pessoa que qualquer ser humano gostaria de o ter como amigo. Sinto-me bafejado pela sorte em ter sido ajudado por ele. Muito obrigado. Que descanse em paz, até à eternidade, meu amigo. Júlio Fernandes (jufer) - Portugal

Muito obrigado. Extraordinária ajuda. O que faltava era realmente o ficheiro adsloc32.dll na directoria \WINDOWS\SISTEM64. RESOLVIDO. Abraços

Contforme disse em outro tópico comprei um computador novo que me está a dar diversos problemas quando quero compilar e\ou executar projectos antigos que funcionavam muito bem no computador velho. Agora, quando executo o meu projecto não consegue aceder a um ficheiro que existe em determinada página. O ERRO que aparece é o seguinte: Application =========== Path and name: C:\P_FWHB\CONDOM\xDex\CONDOM.EXE (32 bits) Size: 12,661,760 bytes Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106) FiveWin Version: FWHX 14.12 Windows version: 6.2, Build 9200 Time from start: 0 hours 0 mins 0 secs Error occurred at: 24/05/2019, 14:18:13 Error description: Error ADSCDX/6082 Erro de abertura: ..\DATA\ArqSenha.SNH Stack Calls =========== Called from: => DBUSEAREA( 0 ) Called from: C:\P_FWHB\CONDOM\Prg\Condom.Prg => USEREDE( 1492 ) Called from: C:\P_FWHB\CONDOM\Prg\SENHA.PRG => PASSW( 27 ) Called from: C:\P_FWHB\CONDOM\Prg\Condom.Prg => ENTRADA( 1409 ) Called from: C:\P_FWHB\CONDOM\Prg\Condom.Prg => (b)MAIN( 288 ) Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1039 ) Called from: C:\P_FWHB\CONDOM\Prg\Condom.Prg => MAIN( 288 ) System ====== CPU type: Intel(R) Core(TM) i7-8550U CPU @ 1.80GHz 2000 Mhz Hardware memory: 16232 megs Free System resources: 90 % GDI resources: 90 % User resources: 90 % Windows total applications running: 4 1 , C:\P_FWHB\CONDOM\xDex\CONDOM.EXE 2 , C:\WINDOWS\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.17134.285_none_42efceb 3 DDE Server Window, C:\WINDOWS\System32\OLE32.DLL 4 G, Variables in use ================ Procedure Type Value ========================== DBUSEAREA Param 1: L .T. Param 2: U Param 3: C "..\DATA\ArqSenha.SNH" Param 4: C "ArqSenha" Param 5: L .T. Param 6: L .F. Param 7: U Param 8: U Local 1: U Local 2: U USEREDE Param 1: C "..\DATA\ArqSenha.SNH" Param 2: L .F. Param 3: N 10 Param 4: C "ArqSenha" Local 1: N 0 PASSW Local 1: U Local 2: U Local 3: U Local 4: U ENTRADA Param 1: U Param 2: O Class: TBAR Param 3: O Class: TFONT Param 4: O Class: TBITMAP Param 5: O Class: TMDIFRAME Param 6: O Class: TTIMER Param 7: O Class: TCURSOR Local 1: U Local 2: U Local 3: U (b)MAIN Param 1: O Class: TMDIFRAME TMDIFRAME:ACTIVATE Param 1: C "MAXIMIZED" Param 2: U Param 3: U Param 4: U Param 5: U Param 6: B {|| ... } Param 7: U Param 8: B {|| ... } Param 9: U Param 10: U Param 11: U Param 12: U Param 13: U Param 14: U Param 15: U Param 16: U Param 17: B {|| ... } Param 18: U Param 19: U Param 20: L .F. Local 1: O Class: TMDIFRAME Local 2: U Local 3: U MAIN Local 1: O Class: TICON Local 2: O Class: TCURSOR Local 3: O Class: TBAR Local 4: U Local 5: U Local 6: U Local 7: U Local 8: N 11842740 Local 9: U Local 10: U Local 11: U Local 12: U Local 13: U Local 14: U Local 15: U Local 16: O Class: TFONT Local 17: O Class: TBTNBMP Local 18: U Local 19: O Class: TBRUSH Linked RDDs =========== ADS ADT ADSVFP ADSCDX ADSNTX DBF DBFFPT DBFCDX DBFBLOB DBFNTX DataBases in use ================ Classes in use: =============== 1 ERROR 2 HASHENTRY 3 HBCLASS 4 HBOBJECT 5 TBRUSH 6 TWINDOW 7 TCONTROL 8 TICON 9 TCURSOR 10 TFONT 11 TMDIFRAME 12 TMENU 13 TMENUITEM 14 TMRU 15 TINI 16 TMDICLIENT 17 TBAR 18 TRECT 19 TBTNBMP 20 TTIMER 21 TBITMAP 22 TMSGBAR 23 TMSGITEM 24 TREG32 Memory Analysis =============== 1306 Static variables Dynamic memory consume: Actual Value: 0 bytes Highest Value: 0 bytes

Penso que está resolvido uma vez que aquele erro deixou de aparecer. Aparece um outro erro que vou postar em outro lugar para pedir ajuda. Um muito obrigado a todos.

E como se faz isso? Run as administrator?

O computador é novo e é o windows Pro

Muito obrigado. Já consegui baixar e reinstalar o xDev que vc me enviou. Só que quando quero abrir o projecto dá um erro "Property webframework does not exist". Alguma burrada da minha parte ou falta alguma configuração?

Aqui não consegui baixar porque pede para registar.

Tentei sim, mas continua o mesmo erro.

Tenho um computador novo e reinstalei o editor e compilador xDevStudio 0.72. Quando compilei o meu projecto começou a dar o erro 509. Sera que a versao xDestudio nao compativel com o Windows Pro? Ou alguem me pode indicar onde posso baixar o xDevStudio?

Perfeito. Era isto mesmo que eu precisava. Muito obrigado. Um grande abraço Jufer

Muito obrigado pela ajuda. Eu é que me expliquei mal. O que eu pretendo é, sempre que eu chamo a função Choose() e quiser alterar as opções lStrikeOut e lUnderline saber como captar automaticamente. Já experimentei de todas as maneiras e não consigo. Admito as minhas limitações. Abraços

LOCAL xFont, nColor:=aDat[6] oFont:Choose(@nColor) xFont:=TFont():New() xFont:Choose(@nColor) * ? xfont[10]:lStrikeOut ? xFont:lStrikeOut ? xFont:lUnderline Não consigo carregar nem lStrikeout nem lUndrline Alguém me pode ensinar como fazer? Abraços Jufer

Muito obrigado amigo. Vc que é mestre quando diz que não dá nem preciso pensar duas vezes. Um grande abraço.

Exemplo original que funciona bem mas requer os BITMAPS estejam numa directoria DEFINE METROBUTTON OF oMetro ; PROMPT "Files" COLOR CLR_WHITE, RGB( 2, 174, 224 ) ; IMAGE "..\bitmaps\metro\files.bmp" ; ACTION Files() Preciso alterar para usar Bitmap em ficheiro RES mas não funciona mesmo alterando usando o modo clássico do FWH DEFINE METROBUTTON OF oMetro ; PROMPT "Files" COLOR CLR_WHITE, RGB( 2, 174, 224 ) ; IMAGE BITMAP "files.bmp" ; ACTION Files() Alguém me pode ajudar e ensinar como se faz para dar certo? Obrigado JuFer

Meus amigos, Afinal o erro parece que foi meu porque pensei que na área do RESOURCE podia usar CALENDAR e afinal tenho que usar CUSTOM CONTROL. Mas parece-me estranho que com CALENDAR não funcione. Fiz a alteração do RESOURCE de CALENDAR para CUSTOM CONTROL e já funciona na perfeição. Muito obrigado pela vossa prestação. Um grande abraço para todos JuFer

Boa tarde meus amigos, Fiz a revisão toda depois de consultar os exemplos e os arquivos que me aconselharam e continua sem funcionar. Um abraço Jufer

Meu caro Judson, Quer dizer que já não se pode usar mais DBLCLICK? Quando consulto o arquivo TCBROWSE.CH está claro que a função está disponível. Será porque é incompatível com Windows 10? Abraços

Desde que alterei o meu sistema operativo para Windows 10 que a função DbClick dentro do XBROWSE que deixou de funcionar. REDEFINE XBROWSE oLbx FIELDS Padc(IF( ( cAlias )->Concilia,"S","N"), 7), ; DTOC( ( cAlias )->Datam ), ; ( cAlias )->Descricao, ; Num2Str( ( cAlias )->Receita, 12, 2 ), ; Num2Str( ( cAlias )->Despesa, 12, 2 ), ; ( cAlias )->Plano, ; ( cAlias )->cheque, ; dtoc(( cAlias )->datac) ; HEADERS "Conc", Padc("Data", 10) , Padc("Descrição", 100), ; "Receitas", "Despesas" , ; Padc("Referência (Plano)", 100) , ; "Cheque", "Data Ch." ; FIELDSIZES 40, 70, 360, 80, 80, 380, 70, 70 ; CELL LINES NOBORDER ; JUSTIFY AL_CENTER, AL_CENTER, .F., .T., .T., .F., .T., AL_CENTER ; COLOR CLR_BLACK, CLR_WHITE ; ID 101 ; OF oDlg CURSOR oHand ; ON DBLCLICK ( MarcaCon( cAlias, oLbx, 2 ), oLbx:Refresh() ) Não sei qual a deficiência. Alguém me pode ajudar? Uso FWH 14.12, BCC582, xHarbour123 e xDevStudio V0.70