USANDO PANEL COM STYLE WS_VSCROLL

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

marcos.gurupi
Usuário Nível 4
Usuário Nível 4
Mensagens: 939
Registrado em: 06 Jul 2004 11:53
Localização: Gurupi-TO

USANDO PANEL COM STYLE WS_VSCROLL

Mensagem por marcos.gurupi »

Caros estou tentando usar o PANEL com a barra vertical para rolagem e o mesmo nao estah rolando. Tem algo errado em meu codigo:

Código: Selecionar todos

   @  16, 48 PANEL oControleMesa SIZE 299,363 BACKCOLOR 15779190 STYLE  WS_VSCROLL // + WS_HSCROLL

   //@ 14,12 OWNERBUTTON oMesa01  OF oControleMesa SIZE 68,96 COLOR 255   CHECK TEXT '01' COLOR 255  FONT HFont():Add( 'Courier New',0,-19,700,,,) COORDINATES 1, 0, 0, 0 BITMAP '..\pocket2\figuras\mesabar3.jpg' TRANSPARENT COORDINATES 0, 0, 0, 0 
   @  14, 12 OWNERBUTTON oMesa01  OF oControleMesa TEXT StrZero(vMesa01,2) COORDINATES 1, 0, 0, 0 BITMAP oDirIma+"MesaBar3.JPG" TRANSPARENT COORDINATES 0,2,0,0 SIZE 68,96 ON CLICK {||.T.} CHECK
   @ 104, 12 OWNERBUTTON oMesa02  OF oControleMesa TEXT StrZero(vMesa02,2) COORDINATES 1, 0, 0, 0 BITMAP oDirIma+"MesaBar3.JPG" TRANSPARENT COORDINATES 0,2,0,0 SIZE 68,96 ON CLICK {||.T.} CHECK
   @ 194, 12 OWNERBUTTON oMesa03  OF oControleMesa TEXT StrZero(vMesa03,2) COORDINATES 1, 0, 0, 0 BITMAP oDirIma+"MesaBar3.JPG" TRANSPARENT COORDINATES 0,2,0,0 SIZE 68,96 ON CLICK {||.T.} CHECK
   @  14,122 OWNERBUTTON oMesa04  OF oControleMesa TEXT StrZero(vMesa04,2) COORDINATES 1, 0, 0, 0 BITMAP oDirIma+"MesaBar3.JPG" TRANSPARENT COORDINATES 0,2,0,0 SIZE 68,96 ON CLICK {||.T.} CHECK
   @ 104,122 OWNERBUTTON oMesa05  OF oControleMesa TEXT StrZero(vMesa05,2) COORDINATES 1, 0, 0, 0 BITMAP oDirIma+"MesaBar3.JPG" TRANSPARENT COORDINATES 0,2,0,0 SIZE 68,96 ON CLICK {||.T.} CHECK
   @ 194,122 OWNERBUTTON oMesa06  OF oControleMesa TEXT StrZero(vMesa06,2) COORDINATES 1, 0, 0, 0 BITMAP oDirIma+"MesaBar3.JPG" TRANSPARENT COORDINATES 0,2,0,0 SIZE 68,96 ON CLICK {||.T.} CHECK
   @  14,232 OWNERBUTTON oMesa07  OF oControleMesa TEXT StrZero(vMesa07,2) COORDINATES 1, 0, 0, 0 BITMAP oDirIma+"MesaBar3.JPG" TRANSPARENT COORDINATES 0,2,0,0 SIZE 68,96 ON CLICK {||.T.} CHECK
   @ 104,232 OWNERBUTTON oMesa08  OF oControleMesa TEXT StrZero(vMesa08,2) COORDINATES 1, 0, 0, 0 BITMAP oDirIma+"MesaBar3.JPG" TRANSPARENT COORDINATES 0,2,0,0 SIZE 68,96 ON CLICK {||.T.} CHECK
   @ 194,232 OWNERBUTTON oMesa09  OF oControleMesa TEXT StrZero(vMesa09,2) COORDINATES 1, 0, 0, 0 BITMAP oDirIma+"MesaBar3.JPG" TRANSPARENT COORDINATES 0,2,0,0 SIZE 68,96 ON CLICK {||.T.} CHECK
   @  14,342 OWNERBUTTON oMesa10  OF oControleMesa TEXT StrZero(vMesa10,2) COORDINATES 1, 0, 0, 0 BITMAP oDirIma+"MesaBar3.JPG" TRANSPARENT COORDINATES 0,2,0,0 SIZE 68,96 ON CLICK {||.T.} CHECK
   @ 104,342 OWNERBUTTON oMesa11  OF oControleMesa TEXT StrZero(vMesa11,2) COORDINATES 1, 0, 0, 0 BITMAP oDirIma+"MesaBar3.JPG" TRANSPARENT COORDINATES 0,2,0,0 SIZE 68,96 ON CLICK {||.T.} CHECK
   @ 194,342 OWNERBUTTON oMesa12  OF oControleMesa TEXT StrZero(vMesa12,2) COORDINATES 1, 0, 0, 0 BITMAP oDirIma+"MesaBar3.JPG" TRANSPARENT COORDINATES 0,2,0,0 SIZE 68,96 ON CLICK {||.T.} CHECK
   @  14,452 OWNERBUTTON oMesa12  OF oControleMesa TEXT StrZero(vMesa12,2) COORDINATES 1, 0, 0, 0 BITMAP oDirIma+"MesaBar3.JPG" TRANSPARENT COORDINATES 0,2,0,0 SIZE 68,96 ON CLICK {||.T.} CHECK
   @ 104,452 OWNERBUTTON oMesa13  OF oControleMesa TEXT StrZero(vMesa13,2) COORDINATES 1, 0, 0, 0 BITMAP oDirIma+"MesaBar3.JPG" TRANSPARENT COORDINATES 0,2,0,0 SIZE 68,96 ON CLICK {||.T.} CHECK
   @ 194,452 OWNERBUTTON oMesa14  OF oControleMesa TEXT StrZero(vMesa14,2) COORDINATES 1, 0, 0, 0 BITMAP oDirIma+"MesaBar3.JPG" TRANSPARENT COORDINATES 0,2,0,0 SIZE 68,96 ON CLICK {||.T.} CHECK

Marcos Roberto.
Marcos Roberto
NetService Software
marcos.gurupi
Usuário Nível 4
Usuário Nível 4
Mensagens: 939
Registrado em: 06 Jul 2004 11:53
Localização: Gurupi-TO

USANDO PANEL COM STYLE WS_VSCROLL

Mensagem por marcos.gurupi »

Tudo indica que era um bug do xharbour pq mudei para a hwgui copilada com o xhb 1.2.1 e funcionou que eh uma beleza

Marcos Roberto.
Marcos Roberto
NetService Software
Responder