Erro GestureManager

Delphi

14/09/2015

Bom dia. Coloco um gesturemanager num form, vinculo o mesmo num listview na propriedade gesturemanager, até aí tudo bem, só que quando vou na subpropriedade gestures e clico em left aparace a seguinte mensagem:
Error reading TGestureStreamData.Control: Access violation at adress 500d4e00 in module "rtl220.bpl". Read of adress 00000008.
Alguem já passou por isso?
Cesar Castro

Cesar Castro

Curtidas 0

Respostas

Cesar Castro

Cesar Castro

14/09/2015

Alguém??
GOSTEI 0
Maximiliam Maximus

Maximiliam Maximus

14/09/2015

Agora em 2020 enfrentei o mesmo problema no Delphi Rio 10.3 e no Sydney Recem lançado (embarcadero da "real mvp" --'), isso é um problema que ocorre em Design Time.

Segue o que fiz para resolver.

Achei um tópico na embarcadero onde um cara falava o seguinte:

"...I'm having exactly the same problem.
What I did was opening the sample project that came with Delphi, opened the form as text, copied the Gesture Manager, reopened my project, opened the form as text and pasted it inside the Gesture Manager text.
After that, all worked fine.
It seems to be a design time property editor problem."

Entrei no meu form em modo texto (.dfm ou .fmx) e adicionei manualmente o gesture, ficando assim:

  

object GestureMng: TGestureManager
    Sensitivity = 80.000000000000000000
    Left = 296
    Top = 352
    GestureData = <
      item
        Control = Tab_RecuperaSenha
        Collection = <
          item
            GestureID = sgiRight
          end>
      end>
  end


A tag Item com o Control e Collection e aonde você ira o componente e o gesto. Feito isso verifique tambem a posicao do touch gesturemanager do teu componente, se estiver igual esse daqui:

    
object Tab_1: TTabItem
      Touch.GestureManager = GestureMng
      CustomIcon = <
        item
        end>
      IsSelected = False
      Size.Width = 8.000000000000000000
      Size.Height = 8.000000000000000000
      Size.PlatformDefault = False
    ......


Mude-o para uma linha abaixo, ficando da seguinte forma:

    
object Tab_1: TTabItem
      CustomIcon = <
        item
        end>
      Touch.GestureManager = GestureMng
      IsSelected = False
      Size.Width = 8.000000000000000000
      Size.Height = 8.000000000000000000
      Size.PlatformDefault = False
    ......


Depois é só voltar para DesignMode e mandar bronca via object inspector que não terá mais problemas.
GOSTEI 0
POSTAR