Temos superlib!

[Itamar M. Lins Jr.]

2009-05-28 17:30 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+ contrib/examples/hbsuper
+ contrib/examples/hbsuper/hbsuper.hbm
+ contrib/examples/hbsuper/hbsuper.dif
+ contrib/examples/hbsuper/hbsuper.prg
+ contrib/examples/hbsuper/readme.txt
+ Added SuperLib portability patch and Harbour make script.
Original sources need to be downloaded from The Oasis,
just like for DBU and RL.
This is a slightly minimal patch than my previous version
to minimize any unnecessary space/command changes, and
I also reverted to original C code where it was possible.

Saudações,
Itamar M. Lins Jr.

[carlos_dornelas]

E o que tem de bom nela?

[DLZ]

Eis a questão !! ehehhe

[asimoes]

Olá Itamar,

A alguns dias atrás abri um tópico em contribuições perguntando como baixar, configurar, compilar, etc o harbour.
Você teria como me informar os procedimentos para isto?
Desde o inicio sempre usei o xharbour e ultimamente estou vendo muitas recomendações para o harbour.
Você poderia me ajudar com as informações necessárias para montar o ambiente harbour.
Outra coisa é possível o convivio do xharbour e harbour no memo s.o.?

Obrigado,

Atencipadamente.

[]´s

[Itamar M. Lins Jr.]

Responderei abrindo novo tópico. Saiu nova versão.


Saudações,
Itamar M. Lins Jr.

[asimoes]

Olá Itamar,

Responderei abrindo novo tópico. Saiu nova versão.

O tópico já tinha aberto a muito tempo, todo mundo olha e não responde nada.

https://pctoledo.org/forum/viewto ... =43&t=9386

[]´s

[Itamar M. Lins Jr.]

Porque já tinha sido respondido.

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

E o que tem de bom nela?

Na verdade, quem usa(va) no clipper agora não terá tantos problemas quando mudar.
Eu, li algumas coisas sobre ela:
São umas 300 funções, para manipulação de datas, tbrowse e com array 2 dimensões, funções para impressoras LaserJet, calculadoras no get, mensagens(sim,não) com várias linhas etc, etc, etc, e é claro etc... e para mouse também.

Saudações,
Itamar M. Lins Jr.

[vailton]

E o que tem de bom nela?

A superlib é para o Clipper o mesmo que a Visual Lib que tanto se popularizou aqui no Brasil. E além do fato dela possuir inúmeros recursos (alguns dos quais lá destacados acima) existe um que com certeza é motivo de muita satisfação: ter sido ela portada para o Harbour significa que mais usuários do Clipper podem migrar para Harbour sem perder parte da funcionalidade de seu código!

Ha alguns anos atrás eu portei da Visual Lib do Clipper para Harbour e batizei-a como Visual Lib 2.x.. hoje muitos usam esta LIB com Harbour e outros com xHarbour com sucesso e não podemos negar que existe um grande benefício e um enorme ganho de tempo ao podermos aproveitar nossas antigas rotinas com estas LIBs evitando que tenhamos escrever códigos alternativos para podermos rodar nossos aplicativos em 32Bits.

Realmente o pessoal que cuida do Harbour (e especialmente o Viktor Szakats ) estão de parabéns pelo feito!
:-Y

[sygecom]

Realmente o pessoal do Harbour esta de parabéns, esta muito bom o Harbour. Para quem quiser a SuperLib tem no The Oasis para Clipper com até mesmo um NG das funções.
http://www.the-oasis.net/files/library/supfree.zip

[fladimir]

Pessoal desculpe a minha ignorancia, mas mesmo lendo o read da pasta harbour\examples\hbsuper

Não consegui entender como vou fazer pra utilizar os arquivos constantes na pasta hbsuper compilando com meu sistema.

Meu objetivo é usar as funções da superlib pra habilitar o uso do mouse no meu sistema.

Grato

Sds.
:xau

[alxsts]

Olá!

Como você postou na seção [x]Harbour, presumo que utilize esta ferramenta. Se assim for, não será necessário usar uma lib externa para utilizar o mouse, visto que o [x]Harbour tem tudo isto embutido. Veja exemplo extraido da documenteção (xHarbour Language Reference Guide (Version 1.1)):

Código: Selecionar todos

// The example changes the event mask for Inkey() to ALL events
// and displays the mouse cursor position.

   #include "Inkey.ch"

   PROCEDURE Main
      LOCAL nEvent

      SET EVENTMASK TO INKEY_ALL

      DO WHILE Lastkey() <> K_ESC
         ? nEvent := Inkey(0)

         IF nEvent > 999
            // exibe a posição do cursor do mouse
            ?? MRow(), MCol()
         ENDIF
      ENDDO

   RETURN

Existem várias outras funções para tratar o mouse em gets, tbrowse, etc. Consulte. Veja também as definições em InKey.ch. Se tiver outras dúvidas, poste.

[fladimir]

Verdade mano, deu certinho... rsrs... quem diria ein...

Obrigado.

Sds.

:)Pos