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 )

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

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"

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

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?