Jump to content
Fivewin Brasil

Dicas e Downloads


oziel

Recommended Posts

Em dicas não consegui achar o botão para baixar os arquivos

e em Downloads dar o erro abaixo - testei no Mozilla 3.66 e no Explorer 8.0. - alguém sabe o que é...

Microsoft OLE DB Provider for ODBC Drivers error '80040e37'

[MySQL][ODBC 3.51 Driver][mysqld-5.1.35-log]Table 'db2603.Download' doesn't exist

/download.asp, line 62

OZIEL LOPES

FW 22c - Clipper 5.3b - Workshop 4.0

Link to comment
Share on other sites

Em dicas não consegui achar o botão para baixar os arquivos

e em Downloads dar o erro abaixo - testei no Mozilla 3.66 e no Explorer 8.0. - alguém sabe o que é...

Microsoft OLE DB Provider for ODBC Drivers error '80040e37'

[MySQL][ODBC 3.51 Driver][mysqld-5.1.35-log]Table 'db2603.Download' doesn't exist

/download.asp, line 62

OZIEL LOPES

FW 22c - Clipper 5.3b - Workshop 4.0

Link to comment
Share on other sites

Estas estavam em dicas

1ª - voget

//-------------------- voget.ch ---------------------------------

// Alteramos apenas o nome da classe tget -> VotGet

//---------------------- Início da voget.ch ----------------------------------------------------//

/*----------------------------------------------------------------------------//

!short: GET */

#xcommand REDEFINE GET [ VAR ] ;

[ ID ] ;

[ ] ;

[ ] ;

[ VALID ] ;

[ PICTURE ] ;

[ [,] ] ;

[ FONT ] ;

[ CURSOR ] ;

[ MESSAGE ] ;

[ ] ;

[ WHEN ] ;

[ ON CHANGE ] ;

[ ] ;

[ [ON UP ] [ON DOWN ] [MIN ] [MAX ] ] ;

=> ;

[ := ] VoTGet():ReDefine( , bSETGET(), ,;

, , <{ValidFunc}>, , ,;

, , , <.update.>, <{uWhen}>,;

[ \{|nKey,nFlags,Self| \}], <.readonly.>,;

<.spin.>, <{SpnUp}>, <{SpnDn}>, <{Min}>, <{Max}>)

#command @ , GET [ VAR ] ;

[ ] ;

[ PICTURE ] ;

[ VALID ] ;

[ [,] ] ;

[ SIZE , ] ;

[ FONT ] ;

[ ] ;

[ CURSOR ] ;

[ ] ;

[ MESSAGE ] ;

[ ] ;

[ WHEN ] ;

[ ] ;

[ ] ;

[ ON CHANGE ] ;

[ ] ;

[ ] ;

[ ] ;

[ ] ;

=> ;

[ := ] VoTGet():New( , , bSETGET(),;

[], , , , <{ValidFunc}>,;

, , , <.design.>,;

, <.pixel.>, , <.update.>, <{uWhen}>,;

<.lCenter.>, <.lRight.>,;

[\{|nKey, nFlags, Self| \}], <.readonly.>,;

<.pass.>, [<.lNoBorder.>], )

#command @ , GET [ VAR ] ;

[ ] ;

[ PICTURE ] ;

[ VALID ] ;

[ [,] ] ;

[ SIZE , ] ;

[ FONT ] ;

[ ] ;

[ CURSOR ] ;

[ ] ;

[ MESSAGE ] ;

[ ] ;

[ WHEN ] ;

[ ] ;

[ ] ;

[ ON CHANGE ] ;

[ ] ;

[ ] ;

[ [ON UP ] [ON DOWN ] [MIN ] [MAX ] ] ;

=> ;

[ := ] VoTGet():New( , , bSETGET(),;

[], , , , <{ValidFunc}>,;

, , , <.design.>,;

, <.pixel.>, , <.update.>, <{uWhen}>,;

<.lCenter.>, <.lRight.>,;

[\{|nKey, nFlags, Self| \}], <.readonly.>,;

.f., .f., ,;

<.spin.>, <{SpnUp}>, <{SpnDn}>, <{Min}>, <{Max}> )

//------------------------- fim da voget.ch ----------------------------------------------------//

//---------------------- Início da voget.prg ---------------------------------------------------//

#Include "FiveWin.CH"

Class VoTget From TGet // Herdando todas as caracteiras da classe TGet

Data nClrForeFocus INIT CLR_WHITE // --\ Novas propriedade

Data nClrBackFocus INIT CLR_BLUE // --/

Data nOldClrFore

Data nOldClrBack

Method GotFocus() // -----------\ Ambos metodos j  existem, mas faremos

Method LostFocus( hCtlFocus)//-----/ algumas alteracoes na sua funcionalidade padrao

EndClass

Method GotFocus() Class VoTGet

If ::nClrForeFocus!=Nil.and.::nClrBackFocus!=Nil

// utiliza metodo o qual foi herdado da class tget

::nOldClrFore:=::nClrText

::nOldClrBack:=::nClrPane

::SetColor(::nClrForeFocus,::nClrbackFocus)

End

// Super-> faz o metodo continuar seu processo normal

Return Super:GotFocus()

Method LostFocus( hCtlFocus) Class VoTGet

If ::nClrForeFocus!=Nil.and.::nClrBackFocus!=Nil

// utiliza metodo o qual foi herdado da class tget e tambem as propriedade

// que contem a informacao da cor do controle

::SetColor(::nOldClrFore,::nOldClrBack)

End

// Super-> faz o metodo continuar seu processo normal

Return Super:LostFocus( hCtlFocus)

2ª CORGET

CORGET.CH

// Alteramos apenas o nome da classe tget -> CORGET

//---------------------- Início da corget.prg --------------------------------------------------//

#Include "FiveWin.CH"

// Ednaldo Inclua este programa em seu *.rmk e *.lnk.

#Define CLR_VERMELHO nRGB(255,000,000) //--> Vermelho Para o Fundo

#Define CLR_AMARELO nRgb(255,255,000) //--> Amarelo Para a Letra

Class CorGet From TGet // Herdando todas as caractisticas da classe TGet

Data nClrForeFocus INIT CLR_AMARELO // --> Nova Cor Para Letras

Data nClrBackFocus INIT CLR_VERMELHO // --> Nova Cor Para o Fundo

Data nOldClrFore

Data nOldClrBack

Method GotFocus() // -----------> Ambos metodos j  existem, mas faremos

Method LostFocus( hCtlFocus)//-----> algumas alteracoes na sua funcionalidade padrao

EndClass

Method GotFocus() Class CorGet

If ::nClrForeFocus!=Nil.and.::nClrBackFocus!=Nil

// utiliza metodo que foi herdado da class tget

::nOldClrFore:=::nClrText

::nOldClrBack:=::nClrPane

::SetColor(::nClrForeFocus,::nClrbackFocus)

Endif

// Super-> faz o metodo continuar seu processo normal

Return Super:GotFocus()

Method LostFocus( hCtlFocus) Class CorGet

If ::nClrForeFocus!=Nil.and.::nClrBackFocus!=Nil

// utiliza metodo que foi herdado da class tget e ;

// tambem as propriedades

// que contem a informacao da cor do controle

::SetColor(::nOldClrFore,::nOldClrBack)

Endif

// Super-> faz o metodo continuar seu processo normal

Return Super:LostFocus( hCtlFocus)

//---------------------- Fim da corget.prg -----------------------------------------------------//

Vander

HbMake v1.17

xHarbour build 0.99.70 Intl. (SimpLex)

Borland C++ 5.5.1

fivewin 6.12 (FREE)

Workshop 4.5

MEdit

Link to comment
Share on other sites

Você quer que todos os gets fiquem com essa mesma aparência ou somente gets que você escolher ?

Luis Fernando Jr. (Luisão)

Leme/SP

--

"Death smiles at us all. All a man can do is smile back"

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY + [Ghost/Java]Script

E-Mail: juninho.luisao@gmail.com

MSN: juninho_luisao@hotmail.com

Link to comment
Share on other sites

Boa Dia a todos..

Ontem a noite eu mandei 02 Corget.prg e 02 *.CH para ele, só to com uma duvida, não existe uma Corget 16 e outra 32 bits ???

Faz tanto tempo que não uso e fiquei na duvida, mas nos tempos de mudanças para xHarbour se não me engano tive que baixar outra Corget.

Abraços a todos..

Retorne avisando se a dica funcionouid=red>

arvoree.png

Luiz Arruda

Corumbá - MS

ico.corumba@gmai.com

Link to comment
Share on other sites

citação:

Boa Dia a todos..

Ontem a noite eu mandei 02 Corget.prg e 02 *.CH para ele, só to com uma duvida, não existe uma Corget 16 e outra 32 bits ???

Faz tanto tempo que não uso e fiquei na duvida, mas nos tempos de mudanças para xHarbour se não me engano tive que baixar outra Corget.

Abraços a todos..

Retorne avisando se a dica funcionouid=red>

arvoree.png

Luiz Arruda

Corumbá - MS

ico.corumba@gmai.com


id=quote>id=quote>

NÃO!!id=size5>

CORGET.PRG é apenas um COMPLEMENTO da CLASSE TGET.PRG

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...