FunÃ§Ã£o MsgLogo dÃ¡ pra usar Resource?

Adelson (ADS e TI) · July 10, 2005

AlguÃ©m sabe me dizer se tem como usar Resource na funÃ§Ã£o MsgLogo? pois se for sÃ³ BitMap fica ruim, pois o usuÃ¡rio pode trocar de bitmap. Se for um Recurso ele jamais mexerÃ¡.

Se alguÃ©m souber eu agradeÃ§o.

AbraÃ§os.

ADELSON - (A&F Soft)

Pelles 3.00.4, FWH 2.6, xHarbor Comercial 0.99.5, Drive RDDSQL

gilmer · July 11, 2005

OlÃ¡,

Basta passar o nome do resource da imagem

citaÃ§Ã£o:

AlguÃ©m sabe me dizer se tem como usar Resource na funÃ§Ã£o MsgLogo? pois se for sÃ³ BitMap fica ruim, pois o usuÃ¡rio pode trocar de bitmap. Se for um Recurso ele jamais mexerÃ¡.

Se alguÃ©m souber eu agradeÃ§o.

AbraÃ§os.

ADELSON - (A&F Soft)

Pelles 3.00.4, FWH 2.6, xHarbor Comercial 0.99.5, Drive RDDSQL

id=quote>id=quote>

magnusistemas@hotmail.com · July 3, 2016

OlÃ¡,

Basta passar o nome do resource da imagem

citaÃ§Ã£o:

AlguÃ©m sabe me dizer se tem como usar Resource na funÃ§Ã£o MsgLogo? pois se for sÃ³ BitMap fica ruim, pois o usuÃ¡rio pode trocar de bitmap. Se for um Recurso ele jamais mexerÃ¡.

Se alguÃ©m souber eu agradeÃ§o.

AbraÃ§os.

ADELSON - (A&F Soft)

Pelles 3.00.4, FWH 2.6, xHarbor Comercial 0.99.5, Drive RDDSQL

"OlÃ¡,

Basta passar o nome do resource da imagem

"que grande explicação pra quem não sabe"

aff

Basta passar o nome do resource da imagem

Ariston Santos · July 3, 2016

Com MsgLogo eu não consegui por isso criei minha própria função: MsgSobre(nLong)

FUNCTION MsgSobre(nSecs)
   local oBmp, oDlg
   DEFAULT nSecs := 0
   DEFINE BITMAP oBmp RESOURCE "IMSOBRE" // Sua imagem no recurso
   DEFINE BRUSH  oBru RESOURCE "IMSOBRE"// Sua imagem no recurso
   DEFINE DIALOG oDlg FROM 0, 0 TO 20, 75 TITLE "Sobre o MEUPROG (Versão: ??????)"
   oDlg:lHelpIcon := .f.
   SET BRUSH OF oDlg TO oBru
   IF nSecs > 0
	   ACTIVATE DIALOG oDlg ON INIT ( oDlg:SetSize( oBmp:nWidth + 6, oBmp:nHeight + 22 ) , oDlg:CENTER) NOWAIT
	   SysWait(nSecs)
	   oDlg:End()
   ELSE
	   ACTIVATE DIALOG oDlg ON INIT ( oDlg:SetSize( oBmp:nWidth + 6, oBmp:nHeight + 22 ) , oDlg:CENTER)
   ENDIF
   oBmp:End()
   oBru:End()
RETURN NIL

Exemplos de uso:

MsgSobre() // Espera fechar manualmente

MsgSobre(nil)// Espera fechar manualmente

MsgSobre(2) // Espera dois segundos

MsgSobre(nSecs) // Espera nSecs segundos

aferra · July 4, 2016

Ola

magnusistemas@hotmail.com

seja bem vindo ao forum.

acredito que você tenha lido os manuais que acompanham o fivewin, porem é complicado mesmo quando não se sabe nada, porém te garanto que aqui tudo que precisar irá encontrar,

qual é a sua dúvida?

Marca · July 4, 2016

Olá
magnusistemas@hotmail.com
seja bem vindo ao forum.

Somente um pitaco.

Pelo que pude ver esta é sua primeira postagem aqui no fórum e a meu entender de uma agressividade que não é muito comum aqui com os membros do mesmo.
Acredito que gentileza gera gentileza. Que tal recomeçar o tópico se identificando e solicitando alguma coisa que vc tenha dúvida ? O tópico se quer é seu,

poste sua dúvida ai que teremos total prazer em ajudar no que for necessário mas tente se desarmar, acredito que todos ganharemos com isso.

Um abraço.

marcioe · July 5, 2016

Apoiado....

gilmer · July 7, 2016

É o que eu falo! cada dia tenho menos esperança! quando penso em voltar a ajudar as pessoas, já vem algo rápido para desistir

AnaCatacombs · July 7, 2016

Oloko Gilmer... sei que deve ter alguns casos que não temos conhecimento, mas não pode desistir da gente, rapaz!

kapiaba · July 7, 2016

Não entendi porque a indignação:

"que grande explicação pra quem não sabe"

Realmente, eu também não entendi a explicação do Gilmer. O que vocês entenderam no que ele respondeu?

E olha que eu manjo um pouquinho de FiveWin, e juros por Deus, que não entendi a resposta do Gilmer.

abs.

AnaCatacombs · July 7, 2016

Jão, eu entendi que pra funcionar com resource é só passar o nome da imagem do resource na hora de fazer um redefine.

kapiaba · July 7, 2016

Jão, eu entendi que pra funcionar com resource é só passar o nome da imagem do resource na hora de fazer um redefine.

E? cadê o Exemplo ou um Link com o exemplo. Se eu não entendi, imagine um zé mané que acabou de comprar o Fivewin.

Assim não dá, assim não pode.

AnaCatacombs · July 7, 2016

Jão meu kiriiido, só pelo tópico dá pra ver que não é um cara que acabou de comprar o fivewin, não é um "zé mané"

Se alguem não entendeu, basta perguntar novamente, tenho certeza que seria muito bem respondido.
Agora vir aqui e criticar quem tá querendo ajudar não POODDYYYYYY

kapiaba · July 7, 2016

Como não podyyy?? Cadê a democracia do forum? assim não dá, assim não pode! kkkkkkkkkkkkkkkkkkkkkk

Marca · July 7, 2016

Boa noite.

Acredito não se tratar de indignação não. Somente não concordo com a maneira que o assunto foi abordado, se a resposta não foi a contento que o mesmo se manifestasse mais ai é a interpretação de cada um. Eu discordo da maneira usada.

kapiaba · July 7, 2016

Marca, respeito sua opinião. Mas as respostas tem que ser com um exemplo, principalmente ser for um novato. Se não sabe o exemplo, não responda e pronto.

Marca · July 7, 2016

João. Também acho que a resposta não foi das melhores rsss, se tratando de um iniciante realmente acho que o rapaz não entenderia nada. O que opinei e inclusive iniciei o tópico como "PITACO" é que esta faltando gentileza. Achei e acho completamente desnecessária a maneira com que ele respondeu
ainda mais se tratando de um iniciante. Se um tópico que se quer é dele ele já respondeu assim imagine se ele colocasse a pergunta e o mesmo não gostasse da resposta. Oq. ele não diria hein!!!!!!
Mais tranquilo. Não vou alongar isso não.

kapiaba · July 7, 2016

era só mandá-lo dar 1/2 hora de friozó e pronto! kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk

aferra · July 7, 2016

hehehehehehe, entendo o Gilmer, o Marcelo, Dona Ana, até o João eu consigo entender, só não entendi o indiginado.

Kdele?!

kapiaba · July 11, 2016

Achei algo legal...



#include "FiveWin.ch"


/* Standard icon resource IDs */

#define IDI_APPLICATION     32512

#define IDI_HAND            32513

#define IDI_QUESTION        32514

#define IDI_EXCLAMATION     32515

#define IDI_ASTERISK        32516


MEMVAR oBut01, oBut02, oBut03, oBut04, oBut05, oBut06, oBut07


FUNCTION Main()


   MsgSelect( {" @Imprimir "," @PDF "," @HTML "," Titulo " },"Mensagem?" ) // ,2


RETURN NIL


Function MsgSelect( aItems, cValue, cTitle,nPosInicial)


   LOCAL nOpcao:=1,cVar,nTam,cOpcao,oBmp

   LOCAL cTitulo:="Selecione uma Opcao !", oDlgMsgS, oFontLH, NI, oIcon


   #ifdef __CLIPPER__

   #Else

      #include "TSButton.ch"

   #EndIf


   If cValue != Nil

      cTitulo:=cValue

   Endif


   cTitle := If(cTitle=Nil, "Selecione uma Opcao: ", cTitle)


   nPosInicial := If(nPosInicial=NIL,1,nPosInicial)


   nTam := Len(aItems)*13.33


   DEFINE FONT oFontLH NAME "Ms Sans Serif" SIZE 00, -14 BOLD


   DEFINE DIALOG oDlgMsgS FROM 5,10 TO 14, 14+nTam TITLE cTitulo Font oFontLH


   oDlgMsgS:lHelpIcon := .F.


   @ 00.7,01 ICON oICon Of oDlgMsgS


   oIcon:hIcon := LoadIcon(0, IDI_QUESTION)


   @ 00.7,05 Say Alltrim(cTitle) Of oDlgMsgS


   nI:=1


   #ifdef __CLIPPER__


    If Len(aITems) >= 1

       @ 02, 4+((nI-1)*7.5) BUTTON OBUT01 Prompt aItems[nI] OF oDlgMsgS ;

              SIZE 45, 12 ;

       ACTION  ( OBUT01:Cargo:="2", oDlgMsgS:End() )

    EndIf


    If Len(aITems) >= 2

       nI:=2

       @ 02, 4+((nI-1)*7.5) BUTTON OBUT02 Prompt aItems[nI] OF oDlgMsgS ;

          SIZE 45, 12 ACTION  ( OBUT02:Cargo:="2", oDlgMsgS:End() )

    EndIf


    If Len(aITems) >= 3

       nI:=3

       @ 02, 4+((nI-1)*7.5) BUTTON OBUT03 Prompt aItems[nI] OF oDlgMsgS ;

          SIZE 45, 12 ;

       ACTION  ( OBUT03:Cargo:="2", oDlgMsgS:End() )

    EndIf


    If Len(aITems) >= 4

       nI:=4

       @ 02, 4+((nI-1)*7.5) BUTTON OBUT04 Prompt aItems[nI] OF oDlgMsgS ;

          SIZE 45, 12 ;

       ACTION  ( OBUT04:Cargo:="2", oDlgMsgS:End() )

    EndIf


    If Len(aITems) >= 5

       nI:=5

       @ 02, 4+((nI-1)*7.5) BUTTON OBUT05 Prompt aItems[nI] OF oDlgMsgS ;

      SIZE 45, 12 ;

       ACTION  ( OBUT05:Cargo:="2", oDlgMsgS:End() )

    EndIf


    If Len(aITems) >= 6

       nI:=6

       @ 02, 4+((nI-1)*7.5) BUTTON OBUT06 Prompt aItems[nI] OF oDlgMsgS ;

      SIZE 45, 12 ;

       ACTION  ( OBUT06:Cargo:="2", oDlgMsgS:End() )

    EndIf


    If Len(aITems) >= 7

       nI:=7

       @ 02, 4+((nI-1)*7.5) BUTTON OBUT07 Prompt aItems[nI] OF oDlgMsgS ;

          SIZE 45, 12 ;

       ACTION  ( OBUT07:Cargo:="2", oDlgMsgS:End() )

    EndIf


   #else


    If Len(aITems) >= 1

       @ 02.45, 3.5+((nI-1)*8) BUTTON OBUT01 Prompt aItems[nI] OF oDlgMsgS ;

              SIZE 45, 12 Font oFontLH /* ;

       ACTION  ( OBUT01:Cargo:="2", oDlgMsgS:End() )  ;

       ToolTip StrTran(aItems[nI],"&","") */ // XP

    EndIf


    If Len(aITems) >= 2

       nI:=2

       @ 02.45, 3.5+((nI-1)*8) BUTTON OBUT02 Prompt aItems[nI] OF oDlgMsgS ;

          SIZE 45, 12 Font oFontLH /* ;

            ACTION  ( OBUT02:Cargo:="2", oDlgMsgS:End() ) ;

          ToolTip StrTran(aItems[nI],"&","") */ //XP

    EndIf


    If Len(aITems) >= 3

       nI:=3

       @ 02.45, 3.5+((nI-1)*8) BUTTON OBUT03 Prompt aItems[nI] OF oDlgMsgS ;

          SIZE 45, 12 Font oFontLH /* ;

       ACTION  ( OBUT03:Cargo:="2", oDlgMsgS:End() ) ;

       ToolTip StrTran(aItems[nI],"&","") */ //XP

    EndIf


    If Len(aITems) >= 4

       nI:=4

       @ 02.45, 3.5+((nI-1)*8) BUTTON OBUT04 Prompt aItems[nI] OF oDlgMsgS ;

          SIZE 45, 12 Font oFontLH /* ;

       ACTION  ( OBUT04:Cargo:="2", oDlgMsgS:End() ) ;

       ToolTip StrTran(aItems[nI],"&","") */ //XP

    EndIf


    If Len(aITems) >= 5

       nI:=5

       @ 02.45, 3.5+((nI-1)*8) BUTTON OBUT05 Prompt aItems[nI] OF oDlgMsgS ;

      SIZE 45, 12 Font oFontLH /* ;

       ACTION  ( OBUT05:Cargo:="2", oDlgMsgS:End() ) ;

       ToolTIp StrTran(aItems[nI],"&","") */ // XP

    EndIf


    If Len(aITems) >= 6

       nI:=6

       @ 02.45, 3.5+((nI-1)*8) BUTTON OBUT06 Prompt aItems[nI] OF oDlgMsgS ;

      SIZE 45, 12 Font oFontLH /* ;

       ACTION  ( OBUT06:Cargo:="2", oDlgMsgS:End() ) ;

       ToolTip StrTran(aItems[nI],"&","") */ // XP

    EndIf


    If Len(aITems) >= 7

       nI:=7

       @ 02.45, 3.5+((nI-1)*8) BUTTON OBUT07 Prompt aItems[nI] OF oDlgMsgS ;

          SIZE 45, 12 Font oFontLH /* ;

       ACTION  ( OBUT07:Cargo:="2", oDlgMsgS:End() ) ;

       ToolTIp StrTran(aItems[nI],"&","") */ // XP

    EndIf


   #Endif


   For nI := 1 to Len(aITems)

      cVar := "OBUT"+StrZero(nI,2)

      &(cVar):Cargo:="1"

   Next


   cVar := "OBUT"+StrZero(nPosInicial,2)


   oDlgMsgS:BStart := {|| &(cVar):SetFocus() }


   ACTIVATE DIALOG oDlgMsgS CENTERED


   For nI := 1 to Len(aITems)

      cVar := "OBUT"+StrZero(nI,2)


      If &(cVar):Cargo = "2"

          nOpcao:=nI

      Endif


   Next


   oFontLH:End()


Return(nOpcao)

FunÃ§Ã£o MsgLogo dÃ¡ pra usar Resource?

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation