Como colocar o ICONE

[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

[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.

[sygecom]

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

[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

[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 ?

[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 ?

[sygecom]

Tente apenas assim:
wvw_seticon(, "hrb.ico" )

[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.)

[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

[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

[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.