View Full Version : O que substitui
Benedito
24-Apr-2019, 05:56 AM
No VDF 18.1 eu usava esta expressão: "Get CurrentBitMapPath Of (ProgramWorkspace(Self)) To sDir" , não encontrei nada que substitua esta expressão.
Alguem me ajude...
Fernando Faria
24-Apr-2019, 05:59 AM
Bom dia Benedito,
Tente usar Get psBitmapPath to StringVariable
Abraço
Queiroz
24-Apr-2019, 06:00 AM
No VDF 18.1 eu usava esta expressão: "Get CurrentBitMapPath Of (ProgramWorkspace(Self)) To sDir" , não encontrei nada que substitua esta expressão.
Alguem me ajude...Olá,
Procure por psBitmapPath se não me falha a memória.
Queiroz
Enviado de meu LM-G710 usando o Tapatalk
Joao Mauricio Rinardo
24-Apr-2019, 07:00 AM
Complementando as respostas do Fernando e do Queiroz, segue exemplo adaptado do Help do DataFlex (psBitmapPath (https://docs.dataaccess.com/dataflexhelp/mergedProjects/VDFClassRef/cWorkspace-Property-psBitmapPath.htm) / PathAtIndex (https://docs.dataaccess.com/dataflexhelp/mergedProjects/VDFClassRef/cWorkspace-Function-PathAtIndex.htm)):
String sCaminhoBitmap sCaminho
Handle hoWorkspace
Integer iQtdeCaminhos iCont
Get phoWorkspace of ghoApplication to hoWorkspace
Get psBitmapPath of hoWorkspace to sCaminhoBitmap
// Verificar quantidade de caminhos no BitmapPath
Get CountOfPaths of hoWorkspace sCaminhoBitmap to iQtdeCaminhos
// Se houver apenas um caminho, basta utilizar o conteúdo da variável sCaminhoBitmap
// Caso contrário, pode-se obter cada caminho existente no BitmapPath da seguinte forma com PathAtIndex
For iCont from 1 to iQtdeCaminhos
Get PathAtIndex of hoWorkspace sCaminhoBitmap iCont to sCaminho
Showln ("Caminho" * (String(iCont)) + ":" * sCaminho)
Loop
Até mais!
Benedito
25-Apr-2019, 10:52 AM
Fiz assim: "Get psBitmapPath of (phoWorkspace(ghoApplication)) to sDir"
ao executar a aplicação, aparece o seguinte erro: "Mensagem Inválida. MSG_0" "Erro 98"
Queiroz
25-Apr-2019, 11:48 AM
Manda o código todo para vermos.
Queiroz
Samuel Pizarro
25-Apr-2019, 10:03 PM
Você não informou qual versao do DF você está usando .
Esse sua workspace vem sendo convertida desde gerações passadas ?
Se deu erro 98, isso eh pq em seu .src nao existem as variaveis globais phoWorkspace e nem a ghoApplication definidas. Imagino que sua esqueleto inicial do .src seja diferente de um projeto recém criado.
Certifique-se que vc tenha esses objetos definidos em seu .src.
abcs
Benedito
26-Apr-2019, 10:45 AM
O Código completo é:
Object Usuarios.Foto is a dbBitmap
Entry_Item Usuarios.foto
Set Size to 76 76
Set Location to 87 183
Set Border_Style to Border_StaticEdge
Set Bitmap_Style to Bitmap_Stretch
Procedure Activating
String psBitmapPath
String sDir
Get psBitmapPath of (phoWorkspace(ghoApplication)) to sDir
Set Initial_Folder to sDir
End_Procedure
End_Object
Samuel Pizarro
26-Apr-2019, 03:33 PM
Benedito,
Você tentou da forma que o joão mandou ?
Get phoWorkspace of ghoApplication to hoWorkspace
Get psBitmapPath of hoWorkspace to sCaminhoBitmap
Dá o mesmo problema ?
Edgard
29-Apr-2019, 10:46 AM
Benedito,
Cadê o objeto:
Object oApplication is a cApplication
Sem ele as variáveis, não vão estar acessíveis.
Abraços
Edgard
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions Inc. All rights reserved.