Página 1 de 1
Como colocar o ICONE
Enviado: 14 Mai 2012 15:47
por helio
Pessoal gostaria de saber como posso colocar o ICONE para quando executar o SISTEMA ficar aparecendo no canto superior esquerdo e criar um atalho na area de trabalho com um ICONE uso o XHARBOUR 0.977, GTWVW e SQLRDD se alguem poder me ajudar fico grato.
Helio Beltrao
helio@hrbsistemas.com.br
Como colocar o ICONE
Enviado: 14 Mai 2012 17:37
por Pablo César
Apenas complementando ou esclarecendo...
Hélio o que você quis dizer com "como posso colocar o ICONE para quando executar o SISTEMA ficar aparecendo no canto superior esquerdo" seria o ícone da janela ?
Eu não uso xHarbour, mas pelo que eu sei (em HMG) isso é definido no .rc que será utilizado durante a compilação. Você iria colocar no arquivo (por exemplo):
MAIN ICON "Clock.ico" e acho que a dimensão teria que ser 16 x 16 e para criar o .ico eu utilizo o
Ìcone Fácil, baixaki
Com respeito ao atalho no desktop. Você teria que fazer uma rotina, mas sugiro que não seja dentro do seu PRG principal. Faça algo separado. Pois isso irá gerar apenas uma vez só. Aqui no fórum tem soluções para a linha de comando como por exemplo:
https://pctoledo.org/forum/viewto ... lho#p33104
Na internet também deve ter algum aplicativo que funcione na linha de comando para esse fim.
Como colocar o ICONE
Enviado: 14 Mai 2012 17:43
por sygecom
helio escreveu:Pessoal gostaria de saber como posso colocar o ICONE para quando executar o SISTEMA ficar aparecendo no canto superior esquerdo e criar um atalho na area de trabalho com um ICONE uso o XHARBOUR 0.977, GTWVW e SQLRDD se alguem poder me ajudar fico grato.
Use assim:
WVW_SetIcon( , , 'c:\sistema\imagem.ico' )
ou caso use arquivos de recursos .RC
WVW_SetIcon( ,nID_IMAGEM ) // onde
nID_IMAGEM é o identificador no arquivo.RC
Como colocar o ICONE
Enviado: 14 Mai 2012 20:17
por helio
Leonardo,
Fiz isso que voce me passou mais funcionou porque ou estou colocando no lugar errado e que pode ser
?
Helio Beltrao
helio@hrbsistemas.com.br
Como colocar o ICONE
Enviado: 14 Mai 2012 21:45
por sygecom
Olá Helio,
fiquei confuso, afinal, funcionou ou não funcionou ? se não, post como está usando e se é com arquivo direto ou com recursos ?
Como colocar o ICONE
Enviado: 14 Mai 2012 22:00
por helio
Leonardo,
So funciona quando coloco a linha:
WVW_SetIcon( ,,'hrb.ico')
wvw_setmaincoord(.T.)
mais quando coloco esta funcao desconfigura todas as minhas telas, tem como usar sem esta funcao ?
Como colocar o ICONE
Enviado: 14 Mai 2012 22:26
por sygecom
Tente apenas assim:
wvw_seticon(, "hrb.ico" )
Como colocar o ICONE
Enviado: 15 Mai 2012 06:26
por helio
Leonardo,
So funciona quando coloco a linha:
WVW_SetIcon( ,'hrb.ico')
Fiz os testes mais nao funcionou so funciona com esta funcao:
wvw_setmaincoord(.T.)
Como colocar o ICONE
Enviado: 15 Mai 2012 12:36
por sygecom
Eu não consigo fazer o teste aqui, mas segundo o manual em PDF da GTWVW que está em anexo no post do link abaixo diz que essa função muda o modo da janela, então pode ser que tenha haver algo sim, mas não faço ideia do porque.
Tentou usar via RECURSOS em vez de arquivo direto ?
viewtopic.php?f=47&t=8007&p=44734&hilit=+gtwvw+pdf#p44734
Como colocar o ICONE
Enviado: 19 Mai 2012 23:24
por Adalberto
Caro amigo,
Puedes probar la siguiente funcion, me funciona muy bien con XHb modo consola y con MiniGui 2.1.1 do Grigory?, sorte!.
Código: Selecionar todos
//
STATIC FUNCTION AccesoDirecto()
//
LOCAL cRuta := ( GetDesktopFolder() + '\' )
LOCAL oWSHShell := CreateObject( 'Wscript.Shell' )
LOCAL aShortCut := oWSHShell:CreateShortcut( ( cRuta + 'EninSoft CONTABILIDAD.Lnk' ) )
//
aShortCut:TargetPath := ( cDiscoDefa + '\' + cEnin + '\Prg\' + cContab + '\' + cEnin + '.Exe' )
aShortCut:Arguments := 'par1'
aShortCut:WorkingDirectory := ( cDiscoDefa + '\' + cEnin + '\Prg\' + cContab )
aShortCut:IconLocation := ( cDiscoDefa + '\' + cEnin + '\Prg\' + cContab + '\' + cEnin + '.Ico' )
aShortCut:Save()
RETURN NIL
[] Adalberto
Como colocar o ICONE
Enviado: 19 Mai 2012 23:42
por Pablo César
Obrigado Adalberto por compartilhar conosco. Esse código vi aqui mesmo no fórum, código postado pelo colega Rochinha em FW e pelo Leonardo no site do FW.
Irei testar ele na semana que vem em Harbour/HMG mas pareceu-me que não terei problemas.