PDA

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