kapiaba

Esta classe que o Eduardo postou, é do mister Rochinhasssssss..... http://www.pctoledo.com.br/forum/viewtopic.php?f=43&t=16787 Regards, saludos.

Leitor de QrCode? Qual vocês indicam no Play Store que seja seguro e muito bom? Thanks. Regards, saludos.

Legal. Muito bom. Infelizmente com o FAST REPORT, não sei fazer.

Eu não entendi a parte de fazer isso no FAST REPORT? Uma simples DIALOG TRANSPARENT com as Imagens que você postou e BTNBMP na COR BRANCA, e PIMBA!! Eu faria assim, enfim... Regards, saludos.

Sinceramente eu não entendi a pergunta.

Aqui, também tem exemplo de uso de BTNBMP: https://forums.fivetechsupport.com/viewtopic.php?f=3&t=24479&sid=ab86d181acc9af0c978f4e217eedba37 Regards, saludos.

Com FWH19.05 funciona de boas FONT oFont em BTNBMP, veja no exemplo que postei. Compile ai. Modifique o CX.BAT y CX.LNK ou HB.BAT y HB.LNK se usas HARBOUR. Regards, saludos.

Ladinilson: Verifique se a FONTE está instalada na pasta: FONTES do Windows. Download completo: https://mega.nz/file/0JdikKhb#xyLex9_521pWMAvTJs3fDi-2l31-nn2g7qDhow53Vy8 Regards, saludos.

Tirar a MAIOR SUPER POTÊNCIA DO FIVEWIN BRASIL, não é uma boa... kkkkkkkkkkkkkkkkkkkkkkkkkkkkk Veja se é isso: https://imgur.com/t0VsJ9h

Valeu Gio, onde eu consigo o PELLESC.exe para 32 bits? Gracias.

https://pt.stackoverflow.com/questions/190690/como-comparar-a-estrutura-de-duas-tabelas-e-atualizar-a-outra https://pt.stackoverflow.com/questions/285909/comparar-registros-entre-duas-tabelas-no-mysql Aproveitando, o que é MONGODB? kkkkk https://revista.fatectq.edu.br/index.php/interfacetecnologica/article/download/664/411/ abs.

Erro BASE/1005 Class: 'NIL' has no property: BSTART quando que isso ocorre? é quando você clicka dentro da TXBROWSE()? como você definiu a Variável oBrw? O que você quer STARTAR? Iniciar? Tá super estranho e nos DIALOGOS, fora os NOMES das DIALOGS, não vi nada de "anormal", o phoda é que não entendo de PELLESC. Eu fiquei no muro. So sorry. Nem abrir os dialogos eu consigo. Abs. Regards, saludos.

Sunset, não sei o que ouve, más este ECF.RC, está totalmente cheio de lixo eletrônico. Seria interessante você pedir ajuda a alguém que manje de PELLESC.exe tem boi na linha. E outra, estas BITMAPS deveriam estar DENTRO do .RC ou .RES e não externo, para isso que usamos .RC ou .RES., se bem que como não uso PELLESC.exe posso estar falando besteira. No WORKSHOP.exe é tudo interno, nada fora do .RES. abs.

Sunset, isto no PELLESC, e o que BOTOES ou BITMAPS? CONTROL "Button", 4002, "Button", BS_BITMAP|WS_TABSTOP, 4, 60, 135, 27 CONTROL "Button", 4005, "Button", BS_BITMAP|WS_TABSTOP, 4, 88, 135, 27 CONTROL "Button", 4003, "Button", BS_BITMAP|WS_TABSTOP, 4, 116, 135, 27 CONTROL "Button", 4006, "Button", BS_BITMAP|WS_TABSTOP, 4, 144, 135, 27 CONTROL "Button", 4004, "Button", BS_BITMAP|WS_TABSTOP, 4, 172, 135, 27 CONTROL "Button", 4007, "Button", BS_BITMAP|WS_TABSTOP, 4, 200, 135, 27 CONTROL "Button", 4013, "Button", BS_BITMAP|BS_MULTILINE|WS_TABSTOP, 4, 228, 135, 27 CONTROL "Button", 4014, "Button", BS_BITMAP|BS_MULTILINE|WS_TABSTOP, 4, 256, 135, 27 Regards, saludos.

Sunset, estas BITMAPS e as demais, estão onde? SELETORCX2 BITMAP "res38.bmp" SELETORCX1 BITMAP "res39.bmp" SELETORCX3 BITMAP "res40.bmp" abs.

Mostre o .RC: DLG_CBR_VENDA1366X768 Melhor seria: DLG_CBR_VENDA_1366_768 Regards, saludos.

Em @SAY também faço.... kkkkkkkkkkkkkk E fica perfeito, mira ahi. Me diz que tú "fais" milhor JmSilva!!! kkkkkkkkkk // https://forums.fivetechsupport.com/viewtopic.php?f=6&t=33306&p=196282&hilit=radio+horizontal&sid=dd5f866f48975669f27c71cabcc27441#p196282 // C:\FWH..\SAMPLES\RADHORIZ.PRG - Author: Eu mesmo, nem lembrava... kkkkkkk #include "FiveWin.ch" function main() local oDlg, oRad, nValue := 1 local oGet1 local lSave := .f. local ctestget if !file("test1.dbf") createfilea() endif if (Select("test1") == 0) use test1 new index on field -> msg1 to temp else select Select("test1") endif Append Blank onerror("APPEND") Replace field -> msg1 With "This is Radio 1" Replace field -> msg2 With "This is Radio 2" Replace field -> msg3 With "This is Radio 3" if nValue = 1 ctestget = field -> msg1 elseif nValue = 2 ctestget = field -> msg2 else ctestget = field -> msg3 endif DEFINE DIALOG oDlg FROM 0, 0 TO 26, 79 ; TITLE "Test Radio Horizontal - FWHX16.10" @ 0.2, 2 RADIO oRad VAR nValue ITEMS "Radio 1" OF oDlg SIZE 40, 10 ; ON CHANGE { || radiobtntest(oRad:nOption, oGet1, @ctestget) } UPDATE @ 0.2, 17 RADIOITEM "Radio 2" RADIOMENU oRad OF oDlg SIZE 40, 10; UPDATE @ 0.2, 32 RADIOITEM "Radio 3" RADIOMENU oRad OF oDlg SIZE 40, 10; UPDATE @ 6, 1 get oGet1 VAR ctestget size 100, 11 @ 9.95, 18.7 BUTTON "&Accept" OF oDlg ACTION (lSave := .t.) ; SIZE 40, 12 @ 9.95, 25.7 BUTTON "&Exit" OF oDlg ACTION (oDlg:End()) SIZE 40, 12 ACTIVATE DIALOG oDlg CENTERED if lSave select test1 onerror("RLOCK") if nValue = 1 replace field -> msg1 with ctestget elseif nValue = 2 replace field -> msg2 with ctestget else replace field -> msg3 with ctestget endif endif close databases return nil ******************************************* function radiobtntest(nValue, oGet1, ctestget) if nValue = 1 ctestget = field -> msg1 elseif nValue = 2 ctestget = field -> msg2 else ctestget = field -> msg3 endif oGet1:ReFresh() return nil ******************************************** function createfilea() // "File : test1.dbf" local tmpdbf:= {} AAdd(tmpdbf, {"msg1", "c", 50, 0}) AAdd(tmpdbf, {"msg2", "c", 50, 0}) AAdd(tmpdbf, {"msg3", "c", 50, 0}) dbcreate("test1.dbf", tmpdbf) close return nil ******************************************* function ONERROR parameters errortype errortype:= Upper(errortype) do case case errortype == "RLOCK" if (RLock()) return .T. endif do while (!RLock()) InKey(3) enddo case errortype == "APPEND" if (!neterr()) onerror("RLOCK") return .T. endif do while (neterr()) InKey(3) append blank enddo onerror("RLOCK") endcase return .T. ******************************** Regards, saludos.

Com WORKSHOP.exe the best, eu faço como eu quiser. Abs. Regards, saludos.

Para atualizar: Gilmer@fivewin.com.br Más agora vamos a aula: esse erro é simples para kcte(kkk), imagine que você colocou uma BITMAP no dialogo, e não faz referência a ela no módulo(.PRG), outra: imagine um LISTBOX, e você usa outro recurso que não seja a WBROWSE e por ai vai, um controle BORLAND sem sua devida chamada ou esquecer de carregar a DLL da BORLAND(BWCC32.DLL), entende? O mais fácil neste caso, e postar o .RC do dialogo aqui para análise. É isso. abs. Regards, saludos.

Esse site não sei não... tem algo errado que não está certo. Se poderia fazer facilmente assim: cUrl := "https://www.jesmondfruitbarn.com.au/wp-content/uploads/2016/10/Jesmond-Fruit-Barn-Oranges.jpg" XIMAGE( cUrl ) Regards,saludos.

Ariston? Tais vivo ainda? Faz a pergunta e some kralho! kkkkkkkkkk abs.

mira: \SAMPLES\TESTCALR.PRG - TESTCALR.RC Regards, saludos.

Super interessante... // C:\FWH..\SAMPLES\XBRSTRUC.PRG // Embaralhar o conteudo da xBrowse() - By Mister Nages. #Include "FiveWin.ch" STATIC oWnd FUNCTION Main() LOCAL aCols, oBrw USE CUSTOMER GO TOP aCols := ArrTranspose( DBSTRUCT() )[ 1 ] aCols := AShuffle( aCols, 2, 9 ) // Embaralhar o conteudo da xBrowse() DEFINE WINDOW oWnd TITLE "CUSTOMER.dbf - Embaralhar o conteudo da xBrowse()" @ 0,0 XBROWSE oBrw SIZE 0, 0 PIXEL OF oWnd ; DATASOURCE "CUSTOMER" COLUMNS aCols CELL LINES NOBORDER oBrw:AutoFit() oBrw:CreateFromCode() oWnd:nWidth := 900 oWnd:nHeight := 300 ACTIVATE WINDOW oWnd CENTERED RETURN NIL // FIN / END - kapiabafwh@gmail.com Regards, saludos.

OXXYYYYY, a minha é mais nova, quando clicko no segundo botão e ele faz a troca de Botões, ao passar o MOUSE no MENU de BOTÕES da BUTTONBAR, os que deveriar ficar "desaparecidos", reaparecem e deveriar ficar Hide() entende? abs.

Fala Aguinaldo meu rei... Qual é a versão do Seu FWH? Estou usando FWH1905. Obg. abs.