FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour P茅rdida de bot贸n inferior de vscroll
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: P茅rdida de bot贸n inferior de vscroll
Posted: Mon Oct 28, 2013 06:00 PM

Horacio,

No he podido dar en como ocultar la barra horizontal,, :(
saludos
paco

____________________

Paco
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: P茅rdida de bot贸n inferior de vscroll
Posted: Mon Oct 28, 2013 07:01 PM

Ratifico, lo inicialmente expuesto por Horacio.
En W7, inicialmente el bot贸n inferior no se visualiza, la pasar el puntero del mouse por la zona aparece; aunque al hacerle clic, no hace nada.
Si la aplicaci贸n se ejecuta en XP el bot贸n funciona como corresponde

Uso FWH 12.04

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: P茅rdida de bot贸n inferior de vscroll
Posted: Mon Oct 28, 2013 07:06 PM
Aqui funciona bien asi:

horacio.prg
Code (fw): Select all Collapse
#include "FiveWin.ch"

function Main()

聽 聽local oDlg, oBrw, aData := { "one", "two", "three" }

聽 聽DEFINE DIALOG oDlg RESOURCE 1001

聽 聽REDEFINE XBROWSE oBrw ID 4001 ARRAY aData OF oDlg

聽 聽ACTIVATE DIALOG oDlg CENTERED
聽 聽
return nil


horacio.rc
Code (fw): Select all Collapse
#include <windows.h>

1001 DIALOGEX DISCARDABLE 6, 18, 314, 174
STYLE DS_SHELLFONT|WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Dialog"
FONT 8, "Tahoma", 0, 0
{
聽 CONTROL "OK", IDOK, "Button", WS_TABSTOP, 264, 8, 45, 15
聽 CONTROL "Cancel", IDCANCEL, "Button", WS_TABSTOP, 264, 28, 45, 15
聽 CONTROL "Custom control", 4001, "TXBrowse", WS_VSCROLL, 8, 8, 248, 156
}


La flecha inferior del browse se ve al situar el raton encima de la barra de scroll.
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: P茅rdida de bot贸n inferior de vscroll
Posted: Mon Oct 28, 2013 07:13 PM
Uso WorkShop, mi .rc este el siguiente:
Code (fw): Select all Collapse
brw_Capturas DIALOG 263, 100, 224, 248
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME
FONT 8, "MS Sans Serif"
{
聽CONTROL "TBitMap", 205, "TBitMap", WS_CHILD | WS_VISIBLE, 11, 222, 25, 25
聽CTEXT "Text", 10, 36, 226, 176, 12
聽CONTROL "", 300, "TxBrowse", 0 | WS_CHILD | WS_VSCROLL | WS_TABSTOP, 2, 2, 219, 218
}
No se corrige quitando WS_VISIBLE
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: P茅rdida de bot贸n inferior de vscroll
Posted: Tue Oct 29, 2013 03:26 PM

Estimados

No me habia dado cuenta, pero con la version 13.02 pasa igual el problema
con la clase TSBROWSE, no funciona el botton de la flecha hacia abajo, pero si uno presiona el boton derecho del mouse y le da
la opcion de desplazar hacia abajo funciona

el boton hacia arriba - teclas y rueda del mouse funciona correctamente
boton hacia abajo no fiunciona se queda sin hacer nada

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: P茅rdida de bot贸n inferior de vscroll
Posted: Tue Oct 29, 2013 03:44 PM

Revisando, el problema se produce con el style del dialogo

si se coloca el style 0x50B00000 //barra vertical y horizontal funciona normal

si se coloca el style 0x50A00000 //barra vertical solamente falla

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: P茅rdida de bot贸n inferior de vscroll
Posted: Tue Oct 29, 2013 06:49 PM

Patricio,

Puedes mostrar el RC completo del di谩logo ? gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: P茅rdida de bot贸n inferior de vscroll
Posted: Tue Oct 29, 2013 10:20 PM

Mario,

El boton vertical inferior no se ve, al pasr el raton por encima aparece, pero si das click no recorre hacia abajo, no funciona
saludos
paco

____________________

Paco
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: P茅rdida de bot贸n inferior de vscroll
Posted: Wed Oct 30, 2013 09:30 AM
Hola Antonio

adjunto lo solicitado

// RESOURCE SCRIPT generated by "Pelles C for Windows, version 7.00".

#include <windows.h>
#include <commctrl.h>
#include <richedit.h>

LANGUAGE LANG_SPANISH,SUBLANG_SPANISH_CHILE

SALIDAS DIALOG FIXED IMPURE 0, 0, 515, 297
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU
CAPTION "Salidas de productos Facturas"
FONT 8, "MS Sans Serif"
{
CONTROL "Datos documento", 301, "Button", BS_GROUPBOX, 4, 4, 508, 84
CONTROL "Total documento", 302, "Button", BS_GROUPBOX, 224, 236, 285, 56
CONTROL "", 21, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|WS_TABSTOP, 8, 16, 60, 12
CONTROL "N潞", 501, "Static", SS_CENTERIMAGE|WS_GROUP, 72, 16, 11, 12
CONTROL "", 22, "Edit", WS_BORDER|WS_TABSTOP, 84, 16, 44, 12
CONTROL "Bod.", 522, "Static", SS_CENTERIMAGE|WS_GROUP, 132, 16, 20, 12
CONTROL "", 48, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|WS_VSCROLL|WS_TABSTOP, 152, 16, 79, 68
CONTROL "Cotiza", 502, "Static", SS_RIGHT|SS_CENTERIMAGE|WS_GROUP, 232, 16, 24, 12
CONTROL "", 45, "Edit", WS_BORDER|WS_TABSTOP, 260, 16, 42, 12
CONTROL "Cliente", 503, "Static", SS_RIGHT|SS_CENTERIMAGE|WS_GROUP, 304, 16, 26, 12
CONTROL "", 23, "Edit", WS_BORDER|WS_TABSTOP, 332, 16, 59, 12
CONTROL "", 24, "Edit", WS_BORDER|WS_TABSTOP, 396, 16, 108, 12
CONTROL "Fec.Emi", 504, "Static", SS_RIGHT|SS_CENTERIMAGE|WS_GROUP, 16, 36, 36, 12
CONTROL "", 25, "Edit", WS_VSCROLL|WS_BORDER|WS_TABSTOP, 60, 36, 58, 12
CONTROL "Condici贸n", 505, "Static", SS_RIGHT|SS_CENTERIMAGE|WS_GROUP, 132, 36, 37, 12
CONTROL "", 27, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|WS_TABSTOP, 176, 36, 80, 49
CONTROL "Fec.vto.", 506, "Static", SS_RIGHT|SS_CENTERIMAGE|WS_GROUP, 264, 36, 33, 12
CONTROL "", 26, "Edit", WS_VSCROLL|WS_BORDER|WS_TABSTOP, 304, 36, 58, 12
CONTROL "O.Compra", 507, "Static", SS_RIGHT|SS_CENTERIMAGE|WS_GROUP, 372, 36, 37, 12
CONTROL "", 28, "Edit", WS_BORDER|WS_TABSTOP, 416, 36, 88, 12
CONTROL "Vendedor", 508, "Static", SS_CENTERIMAGE|WS_GROUP, 16, 56, 35, 12
CONTROL "", 29, "Edit", WS_BORDER|WS_TABSTOP, 52, 56, 34, 12
CONTROL "", 30, "Edit", WS_BORDER|WS_TABSTOP, 88, 56, 80, 12
CONTROL "Depto", 509, "Static", SS_CENTERIMAGE|WS_GROUP, 172, 56, 24, 12
CONTROL "", 31, "Edit", WS_BORDER|WS_TABSTOP, 196, 56, 64, 12
CONTROL "Retirado por", 510, "Static", SS_CENTERIMAGE|WS_GROUP, 264, 56, 44, 12
CONTROL "", 32, "Edit", WS_BORDER|WS_TABSTOP, 308, 56, 196, 12
CONTROL "Observaci贸n ", 511, "Static", SS_CENTERIMAGE|WS_GROUP, 16, 72, 47, 12
CONTROL "", 46, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 68, 72, 352, 12
CONTROL "Cr茅dito", 512, "Static", SS_CENTERIMAGE|WS_GROUP, 428, 72, 29, 12
CONTROL "", 47, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 460, 72, 44, 12
CONTROL "C贸digo", 513, "Static", SS_CENTER|WS_GROUP, 32, 92, 30, 8
CONTROL "Descripci贸n", 514, "Static", SS_CENTER|WS_GROUP, 88, 92, 172, 8
CONTROL "Cant.", 515, "Static", SS_CENTER|WS_GROUP, 272, 92, 25, 8
CONTROL "P.Unitario", 516, "Static", SS_CENTER|WS_GROUP, 308, 92, 37, 8
CONTROL "% Desc.", 517, "Static", SS_CENTER|WS_GROUP, 352, 92, 30, 8
CONTROL "P.Unitario", 518, "Static", SS_CENTER|WS_GROUP, 392, 92, 40, 8
CONTROL "", 33, "Edit", WS_BORDER|WS_TABSTOP, 4, 104, 77, 11
CONTROL "", 34, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 88, 104, 176, 11
CONTROL "", 35, "Edit", WS_BORDER|WS_TABSTOP, 272, 104, 30, 11
CONTROL "", 36, "Edit", WS_BORDER|WS_TABSTOP, 308, 104, 40, 11
CONTROL "", 37, "Edit", WS_VSCROLL|WS_BORDER|WS_TABSTOP, 352, 104, 35, 11
CONTROL "", 38, "Edit", WS_BORDER|WS_TABSTOP, 392, 104, 48, 11
CONTROL "&Agregar", 220, "Button", WS_TABSTOP, 452, 92, 53, 20
CONTROL "", 103, "TSBrowse", 0x00a00000, 4, 120, 504, 112
CONTROL "A N U L A D A ", 200, "Static", SS_CENTER|SS_CENTERIMAGE, 142, 264, 74, 12
CONTROL "&Limpiar", 221, "Button", WS_TABSTOP, 4, 246, 59, 20
CONTROL "&Grabar", 222, "Button", WS_TABSTOP, 4, 274, 59, 20
CONTROL "&Salir", 223, "Button", WS_TABSTOP, 72, 274, 59, 20
CONTROL "Total General:", 519, "Static", WS_GROUP, 252, 244, 28, 16
CONTROL "", 39, "Edit", WS_BORDER|WS_TABSTOP, 284, 244, 42, 12
CONTROL "Total Neto:", 520, "Static", WS_GROUP, 332, 248, 39, 8
CONTROL "", 41, "Edit", WS_BORDER|WS_TABSTOP, 372, 244, 44, 12
CONTROL "tot iva", 202, "Static", WS_GROUP, 420, 248, 34, 9
CONTROL "", 43, "Edit", WS_BORDER|WS_TABSTOP, 460, 244, 44, 12
CONTROL "Text", 100, "Static", WS_GROUP, 228, 264, 100, 8
CONTROL "", 40, "Edit", WS_VSCROLL|WS_BORDER|WS_TABSTOP, 284, 264, 28, 12
CONTROL "ajuste", 203, "Static", SS_RIGHT|SS_CENTERIMAGE|WS_GROUP, 332, 260, 36, 12
CONTROL "", 42, "Edit", WS_BORDER|WS_TABSTOP, 372, 260, 32, 12
CONTROL "T O T A L:", 521, "Static", SS_CENTERIMAGE|WS_GROUP, 420, 260, 35, 12
CONTROL "", 44, "Edit", WS_BORDER|WS_TABSTOP, 460, 260, 44, 12
CONTROL "Text", 102, "Static", SS_CENTERIMAGE|WS_GROUP, 228, 276, 275, 8
CONTROL "% Desc.:", 201, "Static", WS_GROUP, 248, 264, 30, 8
CONTROL "&Actualizar", 224, "Button", WS_TABSTOP, 72, 246, 59, 20
CONTROL "Text", 104, "Static", SS_CENTERIMAGE|WS_GROUP, 4, 234, 217, 8
}


cambiando a

CONTROL "", 103, "TSBrowse", 0x50B00000, 4, 120, 504, 112
cambiando a este style funciona

styles posibles
0x50000000 //-> desta forma ele fica por default com as barras Hor/Vert Ativas, ai sim, basta vc inserir no seu codigo :
0x50D00000 //-> Barra Horizontal
0x50A00000 //-> Barra Vertical
0x50B00000 //-> Barra Horizontal e Vertical

0x50010000 // sin barra




Uploaded with ImageShack.us
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Posts: 243
Joined: Wed Sep 19, 2007 04:32 PM
Re: P茅rdida de bot贸n inferior de vscroll
Posted: Wed Oct 30, 2013 01:51 PM

Antonio
Enlace un proyecto en XP, corre sin problemas.
Al copiar ese mismo ejecutable a una PC con Windows 8. ya no funciona el boton de abajo del scrollbar.

Saludos

Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: P茅rdida de bot贸n inferior de vscroll
Posted: Wed Oct 30, 2013 03:21 PM

Francisco: efectivamente, es lo que ocurre
Blessed: digamos que para W7 y superiores, se presenta el problema

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: P茅rdida de bot贸n inferior de vscroll
Posted: Wed Oct 30, 2013 05:54 PM

Oscar,

Pero es lo que hemos comentado aqui ? Que la barra de scroll muestra el bot贸n de abajo al pasar el rat贸n por encima de 茅l ?

En el ejemplo que je proporcionado, occure eso, y una vez mostrado, funciona bien.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: P茅rdida de bot贸n inferior de vscroll
Posted: Wed Oct 30, 2013 10:11 PM

Mario,

efectivamente el boton scroll con el style 0x50B10000 no funciona, con el style 0x50A10000 si funciona, desde windows 7
saludos
paco

____________________

Paco
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: P茅rdida de bot贸n inferior de vscroll
Posted: Sat Nov 02, 2013 10:05 PM
Paco;
supongo que quisiste decir lo contrario :-)
Francisco Horta wrote:Mario,
efectivamente el boton scroll con el style 0x50B10000 no funciona, con el style 0x50A10000 si funciona, desde windows 7
paco

Uso WS. En el recurso pongo: 0 | WS_CHILD | WS_VISIBLE | 0x50B00000 | WS_TABSTOP
Y en el c贸digo:
Code (fw): Select all Collapse
 聽 WITH OBJECT ::oLstLoc
聽 聽 聽 ...
聽 聽 聽 :lHScroll 聽:= FALSE
聽 聽END
Entonces, funciona Ok (en W7)
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: P茅rdida de bot贸n inferior de vscroll
Posted: Tue Nov 05, 2013 03:10 PM

Mario,

Fe de erratas, tiene raz贸n es a la inversa...
Pero confirmando tengo en el recurso 0x50B10000 y funciona, pero le agreo a mi codigo oBrw:lHScroll := .F. y la barra horizontal no se esconde, en lo personal me interesa que no se vea y funcione la vertical correctamente, pero no doy como hacerlo, estoy con win7.
Saludos
Paco

____________________

Paco