zekasan

Olá Marcelo, é isso que estou precisando, mas como faço para colocar a imagem nas linhas dos dados? sou novo no fivewin... FWH 8.05 - xHarbour - xDev - VLib

Boa tarde, alguem poderia me ajudar a colocar um checkbox na xBrowse adaptada? estou usando-a com um banco de dados dbf, o usuário precisa marcar o item que será usado ou não no relatório, grato... FWH 8.05 - xHarbour - xDev - VLib

Boa tarde, alguem poderia me ajudar a colocar um checkbox na xBrowse adaptada? estou usando-a com um banco de dados dbf, o usuário precisa marcar o item que será usado ou não no relatório, grato... FWH 8.05 - xHarbour - xDev - VLib

oGet:=cGet:=0 ...button... action (cGet:=8,oGet:refresh()) FWH 8.05 - xHarbour - xDev - VLib

O resistor tem a finalidade de "isolar" o modem da linha telefônica,caso contrário ele ocupará o sinal quando for ativado para ler os dados que trafegam durante a chamada do seu telefone clipper - vasculhando fivewin e o xharbour

tente colocar no editor de recursos as propriedades como "transparent", use o brush como "transparent" também clipper - vasculhando fivewin e o xharbour

verifique a linha em vermelho se está faltando no script do fivewin /* * Põe os RCs do projeto */ aFiles := Project( "*.RES" ) t := Len( aFiles )id=red> FOR i := 1 TO Len( aFiles ) id=code>id=code>clipper - vasculhando fivewin e o xharbour

O quê (qual a fonte) e como (hardware) vc precisa gravar? clipper - vasculhando fivewin e o xharbour

vê se te serve: Func Main() local aRet := DisplayDevMode(), aMode := {}, i ,nMode //para verificar resolução de tela public Mudou_Video:=.f. ******************************************************************************** * Verificar e mudar resolução de tela for i := 1 to len( aRet ) step 3 if empty( aRet ) exit endif aadd( aMode, nTrim( aRet ) + ' x ' + nTrim( aRet[i + 1] ) + ' - ' + nTrim( aRet[i + 2] ) + ' Colors' ) next aRet := DisplayCurrentMode() nMode := ascan( aMode, nTrim( aRet[1] ) + ' x ' + nTrim( aRet[2] ) + ' - ' + nTrim( aRet[3] ) ) if aret[1] <> 800 .and. aret[2] <> 600 if msgyesno("Posso mudar sua configuração de vídeo para 800x600 ?"+CRLF+"Isto poderá bagunçar os ícones no seu desktop","ATENÇÃO") nMode1 := ascan( aMode, '800 x 600 - ' + nTrim( aRet[3] ) ) ChangeDisplayMode( nMode1 ) Mudou_Video:=.t. endif endif DEFINE window ... Activate window oWnd if Mudou_Video = .t. ChangeDisplayMode(nMode) endif return(nil) #pragma BEGINDUMP #define HB_OS_WIN_32_USED // mudar video #define _WIN32_WINNT 0x0400 // mudar video #include // mudar video #include "hbapi.h" // mudar video #include "hbapiitm.h" // mudar video // inicio funções mudar video HB_FUNC( DISPLAYDEVMODE ) { int i = 0; int j = 1; DEVMODE lpDevMode; hb_reta( 609 ); while (EnumDisplaySettings(NULL, i++, &lpDevMode)) { hb_storni( lpDevMode.dmPelsWidth, -1, j++ ); hb_storni( lpDevMode.dmPelsHeight, -1, j++ ); hb_storni( lpDevMode.dmBitsPerPel, -1, j++ ); } } HB_FUNC( DISPLAYCURRENTMODE ) { DEVMODE lpDevMode; hb_reta( 3 ); if (EnumDisplaySettings(NULL, ENUM_CURRENT_SETTINGS, &lpDevMode)) { hb_storni( lpDevMode.dmPelsWidth, -1, 1 ); hb_storni( lpDevMode.dmPelsHeight, -1, 2 ); hb_storni( lpDevMode.dmBitsPerPel, -1, 3 ); } } HB_FUNC( CHANGEDISPLAYMODE ) { DEVMODE dm; dm.dmSize = sizeof(dm); EnumDisplaySettings(NULL, hb_parni(1)-1, &dm); dm.dmFields = DM_PELSWIDTH | DM_PELSHEIGHT | DM_BITSPERPEL | DM_DISPLAYFREQUENCY; if (ChangeDisplaySettings(&dm, CDS_UPDATEREGISTRY) != DISP_CHANGE_SUCCESSFUL) MessageBox(GetActiveWindow(), "Wrong Change Display Settings!", "Error", MB_OK | MB_ICONERROR); SendMessage(HWND_BROADCAST, WM_DISPLAYCHANGE, SPI_SETNONCLIENTMETRICS, 0); } // fim funções mudar video #pragma ENDDUMP id=code>id=code>clipper - vasculhando fivewin e o xharbour

Olá Sr. Shark, funcionou? clipper - vasculhando fivewin e o xharbour

veja se isto te serve: function f_gravar() mciSendStringA("OPEN NEW TYPE WAVEAUDIO ALIAS SAMPLE","",0,0) mciSendStringA("RECORD SAMPLE","",0,0) return(nil) function f_parar() meuarq:="MEUSOM.WAV" mciSendStringA("STOP SAMPLE","",0,0) mciSendStringA("SAVE SAMPLE " + meuarq , "",0,0) mciSendStringA("CLOSE SAMPLE","",0,0) return(nil) DLL function mciSendStringA ( cFile as LPSTR ,zFile as LPSTR,; uReturnLenght as LONG, wndCallback as LONG) as LONG PASCAL LIB "WINMM.DLL" id=code>id=code>clipper - vasculhando fivewin e o xharbour

MENU oMenu MENUITEM oItem1 prompt "Comercial" ... MENU MENUITEM "CLIENTES" ... MENUITEM "FORNECEDOR" ... ENDMENU END MENU proc Desativa_Menu() oItem1:Disable() return proc Ativa_Menu() oItem1:Enable() return É isso que vc queria???? clipper - vasculhando fivewin e o xharbour

Olá Carlos, vc poderia usar um scanner usando o software de reconhecimento de escrita, mas o tempo que vc vai ficar conferindo depois, creio que não vale a pena, faça um pequeno programa para digitar estes dados e divida este serviço para várias pessoas ir digitando, depois agrupe tudo, esta é a minha dica clipper - vasculhando fivewin e o xharbour

Sr Vailton, no seu script do Fivewin faltou uma linha: /* * Põe os RCs do projeto */ aFiles := Project( "*.RES" ) t := Len( aFiles ) id=red> FOR i := 1 TO Len( aFiles ) IF i == t AADD( aLines, '"'+aFiles+'"' ) else AADD( aLines, '"'+aFiles+'" + ' ) End End id=code>id=code>

Olá Ricardo, não faz isso com a gente não, a IDE tá ficando 10, um trabalho muito bom, para quem está começando é a maior mão na roda, trabalhar com resource é a maior chatice...

Querido KAPIABA, preste atenção no que lê, o Júlio tá entrando na JB e, o Guilherme deve ter colocado o "jb" para termos uma referência quando ele postar algo, estou errado?

tenta assim DEFINE DIALOG oDlg FROM 5, 5 TO 15, 40 STYLE nOr(WS_POPUP+WS_SYSMENU,WS_THICKFRAME)

Olá Carlos, o redefine é usado para atribuir "novos comandos" aos controles que estão dentro do arquivo de resources(*.RES), igual a tela principal que você deduziu, por isso que eles não aparecem no seu executável, eles também foram construídos pelo Workshop ou o Pelles C

Olá, coloque a função DESIGN como no exemplo abaixo: @ nRow, nCol FOLDER oFolder ; OF, WINDOW, DIALOG oWnd ; PROMPT, PROMPTS, ITEMS cPrompt,... ; DIALOG, DIALOGS, PAGE, PAGES cDlgName1[, cDlgNameN] ; PIXEL ; DESIGN ; COLOR, COLORS nClrFore[, nClrBack ] ; OPTION nOption ; SIZE nWidth, nHeight ; MESSAGE cMsg ; ADJUST ; FONT oFont

Olá Ricardo, sua interface está ficando muito boa, com códigos limpos e isto é legal principalmente para quem está iniciando, como eu. Este programa poderia ter o código aberto ? Para que outras pessoas o ajudassem a progredir cada vez mais e mais rápido? ou você pretende torná-lo comercial daqui a algum tempo?