Jump to content
Fivewin Brasil

Desligar Scroll de uma Listbox

aldreks

By aldreks
in Programação

 Share

Recommended Posts

aldreks Newbie

aldreks

Posted
Posted

Pessoal, tentei desligar o scroll do browse ListBox e deu ero de run-time.

Onde está o erro?? A sintaxe é esta mesmo??

oListBox:lVScroll := .f.

oListBox:lHScroll := .f.

Erro apresentado:

Error description: Error Objects/6 No Exp. Method: TWBROWSE:_LVSCROLL

Stack Calls

===========

Called from LOCKERRHAN(0)

Called from (b)INITHANDL$(0)

Called from TWBROWSE:_LVSCROLL(0)

Called from FUNCIONAZO(512)

Called from FUNCIONABR(326)

Called from (b)MFUNCIONA(43)

Called from TBTNBMP:CLICK(0)

Called from TBTNBMP:LBUTTONUP(0)

Called from TBTNBMP:HANDLEEVEN(0)

Called from WINRUN(0)

Called from TWINDOW:ACTIVATE(0)

Called from MAIN(227)

Aguardo ajuda!

-------------------------

aldreksa@hotmail.com Clipper 5.3b/BLinker7/FW2.3C/WS4.5

(Recife-PE)

"A palavra branda sufoca a ira. A palavra dura suscita a ira. "

Link to comment
Share on other sites
aldreks Newbie

aldreks

Posted
  • Author
Posted

Pessoal, tentei desligar o scroll do browse ListBox e deu ero de run-time.

Onde está o erro?? A sintaxe é esta mesmo??

oListBox:lVScroll := .f.

oListBox:lHScroll := .f.

Erro apresentado:

Error description: Error Objects/6 No Exp. Method: TWBROWSE:_LVSCROLL

Stack Calls

===========

Called from LOCKERRHAN(0)

Called from (b)INITHANDL$(0)

Called from TWBROWSE:_LVSCROLL(0)

Called from FUNCIONAZO(512)

Called from FUNCIONABR(326)

Called from (b)MFUNCIONA(43)

Called from TBTNBMP:CLICK(0)

Called from TBTNBMP:LBUTTONUP(0)

Called from TBTNBMP:HANDLEEVEN(0)

Called from WINRUN(0)

Called from TWINDOW:ACTIVATE(0)

Called from MAIN(227)

Aguardo ajuda!

-------------------------

aldreksa@hotmail.com Clipper 5.3b/BLinker7/FW2.3C/WS4.5

(Recife-PE)

"A palavra branda sufoca a ira. A palavra dura suscita a ira. "

Link to comment
Share on other sites
aldreks Newbie

aldreks

Posted
  • Author
Posted

Pessoal, tentei desligar o scroll do browse ListBox e deu ero de run-time.

Onde está o erro?? A sintaxe é esta mesmo??

oListBox:lVScroll := .f.

oListBox:lHScroll := .f.

Erro apresentado:

Error description: Error Objects/6 No Exp. Method: TWBROWSE:_LVSCROLL

Stack Calls

===========

Called from LOCKERRHAN(0)

Called from (b)INITHANDL$(0)

Called from TWBROWSE:_LVSCROLL(0)

Called from FUNCIONAZO(512)

Called from FUNCIONABR(326)

Called from (b)MFUNCIONA(43)

Called from TBTNBMP:CLICK(0)

Called from TBTNBMP:LBUTTONUP(0)

Called from TBTNBMP:HANDLEEVEN(0)

Called from WINRUN(0)

Called from TWINDOW:ACTIVATE(0)

Called from MAIN(227)

Aguardo ajuda!

-------------------------

aldreksa@hotmail.com Clipper 5.3b/BLinker7/FW2.3C/WS4.5

(Recife-PE)

"A palavra branda sufoca a ira. A palavra dura suscita a ira. "

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

abra-a no workshop -> click duas vezes em cima dela... veja que eu liguei todos os controles... delsigue o que voce nao quiser... nao é via codigo que se desliga... agora voce esta usando recursos.

TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

Bad Boy - São Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Link to comment
Share on other sites
ZECA Newbie

ZECA

Posted
Posted

citação:

Pessoal, tentei desligar o scroll do browse ListBox e deu ero de run-time.

Onde está o erro?? A sintaxe é esta mesmo??

oListBox:lVScroll := .f.

oListBox:lHScroll := .f.

Erro apresentado:

Error description: Error Objects/6 No Exp. Method: TWBROWSE:_LVSCROLL

Stack Calls

===========

Called from LOCKERRHAN(0)

Called from (b)INITHANDL$(0)

Called from TWBROWSE:_LVSCROLL(0)

Called from FUNCIONAZO(512)

Called from FUNCIONABR(326)

Called from (b)MFUNCIONA(43)

Called from TBTNBMP:CLICK(0)

Called from TBTNBMP:LBUTTONUP(0)

Called from TBTNBMP:HANDLEEVEN(0)

Called from WINRUN(0)

Called from TWINDOW:ACTIVATE(0)

Called from MAIN(227)

Aguardo ajuda!

-------------------------

aldreksa@hotmail.com Clipper 5.3b/BLinker7/FW2.3C/WS4.5

(Recife-PE)

"A palavra branda sufoca a ira. A palavra dura suscita a ira. "

id=quote>id=quote>

Bom dia !!!

A Sintaxe correta é

TWBrowse():lHScroll:= .F. // retira scroll horizontal

Sds

José Carlos - ZECA

fw23c-clipper52e-blinker 7.0 - six 3.02

Link to comment
Share on other sites
aldreks Newbie

aldreks

Posted
  • Author
Posted

Zeca, infelizmente não deu. O erro continua.

Eis o erro e as linhas das duas formas q usei:

Ou assim,

oListBox:lHScroll := .F.

Ou assim,

TWBrowse():lHScroll:= .F. // retira scroll horizontal

Dá erro do mesmo jeito.

Erro usando TWBrowse():lHScroll:= .F.:

**************************************

Error description: Error Objects/6 No Exp. Method: TWBROWSE:_LHSCROLL

Stack Calls

===========

Called from LOCKERRHAN(0)

Called from (b)INITHANDL$(0)

Called from TWBROWSE:_LHSCROLL(0)

Called from FUNCIONAZO(517)

Called from FUNCIONABR(326)

Called from (b)MFUNCIONA(43)

Called from TBTNBMP:CLICK(0)

Called from TBTNBMP:LBUTTONUP(0)

Called from TBTNBMP:HANDLEEVEN(0)

Called from WINRUN(0)

Called from TWINDOW:ACTIVATE(0)

Called from MAIN(227)

Erro usando oListBox:lHScroll := .F.:

**************************************

Error description: Error Objects/6 No Exp. Method: TWBROWSE:_LHSCROLL

Stack Calls

===========

Called from LOCKERRHAN(0)

Called from (b)INITHANDL$(0)

Called from TWBROWSE:_LHSCROLL(0)

Called from FUNCIONAZO(515)

Called from FUNCIONABR(326)

Called from (b)MFUNCIONA(43)

Called from TBTNBMP:CLICK(0)

Called from TBTNBMP:LBUTTONUP(0)

Called from TBTNBMP:HANDLEEVEN(0)

Called from WINRUN(0)

Called from TWINDOW:ACTIVATE(0)

Called from MAIN(227)

Aguardo ajuda...

********

citação:

citação:

Pessoal, tentei desligar o scroll do browse ListBox e deu ero de run-time.

Onde está o erro?? A sintaxe é esta mesmo??

oListBox:lVScroll := .f.

oListBox:lHScroll := .f.

Erro apresentado:

Error description: Error Objects/6 No Exp. Method: TWBROWSE:_LVSCROLL

Stack Calls

===========

Called from LOCKERRHAN(0)

Called from (b)INITHANDL$(0)

Called from TWBROWSE:_LVSCROLL(0)

Called from FUNCIONAZO(512)

Called from FUNCIONABR(326)

Called from (b)MFUNCIONA(43)

Called from TBTNBMP:CLICK(0)

Called from TBTNBMP:LBUTTONUP(0)

Called from TBTNBMP:HANDLEEVEN(0)

Called from WINRUN(0)

Called from TWINDOW:ACTIVATE(0)

Called from MAIN(227)

Aguardo ajuda!

-------------------------

aldreksa@hotmail.com Clipper 5.3b/BLinker7/FW2.3C/WS4.5

(Recife-PE)

"A palavra branda sufoca a ira. A palavra dura suscita a ira. "

id=quote>id=quote>

Bom dia !!!

A Sintaxe correta é

TWBrowse():lHScroll:= .F. // retira scroll horizontal

Sds

José Carlos - ZECA

fw23c-clipper52e-blinker 7.0 - six 3.02

id=quote>id=quote>

-------------------------

aldreksa@hotmail.com Clipper 5.3b/BLinker7/FW2.3C/WS4.5

(Recife-PE)

"A palavra branda sufoca a ira. A palavra dura suscita a ira. "

Link to comment
Share on other sites
aldreks Newbie

aldreks

Posted
  • Author
Posted

Meu amigo, mesmo com este novo comando, dá erro.

Eis:

===========

Application

Path and name: C:\TEMP\ALDREKS\APOLLO\APOLLO.EXE (16 bits)

Size: 1,134,336 bytes

Max files handles permited: ( SetHandleCount() ) 255

Time from start: 0 hours 0 mins 13 secs

Error occurred at: 24/08/2005, 13:13:29

Error description: Error Objects/6 No Exp. Method: TWBROWSE:_LNOHSCROL

Stack Calls

===========

Called from LOCKERRHAN(0)

Called from (b)INITHANDL$(0)

Called from TWBROWSE:_LNOHSCROL(0)

Called from FUNCIONAZO(519)

Called from FUNCIONABR(326)

Called from (b)MFUNCIONA(43)

Called from TBTNBMP:CLICK(0)

Called from TBTNBMP:LBUTTONUP(0)

Called from TBTNBMP:HANDLEEVEN(0)

Called from WINRUN(0)

Called from TWINDOW:ACTIVATE(0)

Called from MAIN(227)

Variables in use

================

Procedure Type Value

==========================

LOCKERRHAN

Param 1: O Class: ERROR

Param 2: B { || ... } CodeBlock

(b)INITHANDL$

Param 1: O Class: ERROR

TWBROWSE:_LNOHSCROL

Param 1: L .F.

FUNCIONAZO

Local 1: U

Local 2: U

Local 3: U

Local 4: U

FUNCIONABR

(b)MFUNCIONA

Param 1: O Class: TBTNBMP

TBTNBMP:CLICK

Local 1: O Class: TBTNBMP

TBTNBMP:LBUTTONUP

Param 1: N 27

Param 2: N 19

Param 3: O Class: TBTNBMP

Local 1: U

Local 2: L .T.

TBTNBMP:HANDLEEVEN

Param 1: N 514

Param 2: N 0

Param 3: N 1769491

WINRUN

Param 1: N 518

TWINDOW:ACTIVATE

Param 1: C "MAXIMIZED"

Param 2: U

Param 3: U

Param 4: U

Param 5: U

Param 6: B { || ... } CodeBlock

Param 7: U

Param 8: U

Param 9: U

Param 10: U

Param 11: U

Param 12: U

Param 13: U

Param 14: U

Param 15: U

Param 16: U

Param 17: U

Param 18: U

Param 19: U

Local 1: O Class: TWINDOW

Local 2: U

Local 3: U

MAIN

Classes in use:

===============

1 TBRUSH

2 TFONT

3 TWINDOW

4 TCONTROL

5 TICON

6 TMENU

7 TMENUITEM

8 TACCTABLE

9 TDIALOG

10 TGROUP

11 TSAY

12 TVGET

13 GET

14 TBUTTON

15 TMSGBAR

16 TRECT

17 TMSGITEM

18 TTIMER

19 TBAR

20 TBTNBMP

21 TBITMAP

22 TWBROWSE

23 ERROR

24 TSTRUCT

**********

citação:

aldreks, tente assim: olistbox:lNoHScroll:=.T. / oBrw:lNoVScroll:=.T.

Abraços.

Beto

betovsp@hotmail.com

(16)9148-1515

CL53B + FW2.0 + @ SAY + BLINKER 7

Ribeirão Preto/SP

III ENCONTRO DE FIVEWINERS -> ESSE EU NÃO PERCO

id=quote>id=quote>

-------------------------

aldreksa@hotmail.com Clipper 5.3b/BLinker7/FW2.3C/WS4.5

(Recife-PE)

"A palavra branda sufoca a ira. A palavra dura suscita a ira. "

Link to comment
Share on other sites
aldreks Newbie

aldreks

Posted
  • Author
Posted

Beto, aí ferrou tudo!!!!!

Kapa, vc q é outro expert em listbox de tWBrowse, fala aí:

Como eu desligo um scroll de uma listbox, q ainda é em @SAY??

E se me responder q "NUM SAY", e q não usa essa coisa do "@SAY", ........

No aguardo... rs

-------------------------

aldreksa@hotmail.com Clipper 5.3b/BLinker7/FW2.3C/WS4.5

(Recife-PE)

"A palavra branda sufoca a ira. A palavra dura suscita a ira. "

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

Tente:

oLbx:HScroll := .F.

oLbx:VScroll := .F.

Caso não funcione, terás que incorporar a WBROWSE.PRG do ERNAN CECARELLI em tuas aplicações, ou usar o WORKSHOP.EXE the best... Você já sabe com fazer... Basta desligar os controles.

TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

Bad Boy - São Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
 Share
Go to topic listing
×
×
  • Create New...