Page 1 of 2

Toolbar bug ?

Posted: Fri Oct 12, 2012 1:22 am
by danielmaximiliano
Hola a Todos:
revisando la aplicacion de nuestro amigo Leopoldo Lugones <leopoldo_6691@yahoo.com.mx>.

el TOOLBAR con 14 BOTONES solo muestra 9 de ellos y los siguientes pierde el CAPTION.
probando varias cosas me encontre que la falla se debe a la cantidad de CONTROLES que contiene la VENTANA.
sacando algunos controles hasta que el TOOLBAR muestra la totalidad de sus BOTONES sin ningun error.
cuantos CONTROLES soporta un VENTANA alguien sabe ????

dejo las imagenes.

Translate Google:
Hi Everyone:
reviewing the application of our friend Leopoldo Lugones <leopoldo_6691@yahoo.com.mx>.

The toolbar with 14 buttons only shows 9 of them and lost following CAPTION.
testing various things I found that the failure is due to the amount of controls contained within the window.
removing some controls until the Toolbar shows all its buttons without any error.
WINDOW CONTROLS few supports anyone know????

let the images

SISTEMA DE Clientes!!!_2012-10-11_21-47-38.jpg
SISTEMA DE Clientes!!!_2012-10-11_21-47-38.jpg (104.54 KiB) Viewed 5118 times
SISTEMA DE Clientes!!!_2012-10-11_21-46-17.jpg
SISTEMA DE Clientes!!!_2012-10-11_21-46-17.jpg (94.94 KiB) Viewed 5118 times
SISTEMA DE Clientes!!!_2012-10-11_21-44-13.jpg
SISTEMA DE Clientes!!!_2012-10-11_21-44-13.jpg (103.99 KiB) Viewed 5118 times
I can send the complete code for the failure if needed.
can ask me for MP.

Re: Toolbar bug ?

Posted: Fri Oct 12, 2012 1:57 am
by Rathinagiri
Please make a small working sample. Let us work it out.

Re: Toolbar bug ?

Posted: Fri Oct 12, 2012 2:14 am
by danielmaximiliano
rathinagiri wrote:Please make a small working sample. Let us work it out.
Hi Rathinagiri :

Demo :
SISTEMA DE Clientes!!!_2012-10-11_23-16-38.jpg
SISTEMA DE Clientes!!!_2012-10-11_23-16-38.jpg (94.05 KiB) Viewed 5114 times
Sis2.rar
Drag & Drop Clientes.prg Over Mibuild.bat and compile with hmg.3.0.44
or double click over Mibuild.bat y enter only name "Clientes"
(19.32 KiB) Downloaded 328 times

Re: Toolbar bug ?

Posted: Fri Oct 12, 2012 3:36 am
by Rathinagiri
Yes, I can reproduce and confirm the problem. Let me research for the solution.

May be some C Gurus help us.

Re: Toolbar bug ?

Posted: Fri Oct 12, 2012 3:42 am
by danielmaximiliano
rathinagiri wrote:Yes, I can reproduce and confirm the problem. Let me research for the solution.

May be some C Gurus help us.
Gracias/ Thanks Rathi

Re: Toolbar bug ?

Posted: Fri Oct 12, 2012 3:45 pm
by srvet_claudio
Hi Daniel.
I checked your example and the bug appear in Windows 7 but not in Window XP.
Regards,
Claudio.

Re: Toolbar bug ?

Posted: Fri Oct 12, 2012 3:49 pm
by Rathinagiri
The problem exists in Vista too.

Re: Toolbar bug ?

Posted: Fri Oct 12, 2012 4:08 pm
by srvet_claudio
Sorry, I was wrong.
This is in XP, the bug is always in the button number 10.
Regards,
Claudio.

Re: Toolbar bug ?

Posted: Fri Oct 12, 2012 4:44 pm
by danielmaximiliano
srvet_claudio wrote:Hi Daniel.
I checked your example and the bug appear in Windows 7 but not in Window XP.
Regards,
Claudio.
Gracias / Thanks Claudio and Rathi

justo la maquina que tiene Windows XP no esta operativa en estos momentos, probe la aplicacion en Windows 7 Home premiun 64 con el mismo resultado, no funciona bien el Toolbar.

just the Windows XP machine that is not ready right now, I tried the application on Windows 7 Home premium 64 with the same result, the Toolbar does not work well.

Re: Toolbar bug ?

Posted: Fri Oct 12, 2012 5:23 pm
by danielmaximiliano
Hola a todos :
Resolvi de manera muy tosca el defecto que tiene el Toolbar.

sobre el evento On Init de la ventana Win_clie

Code: Select all

DEFINE WINDOW Win_Clie;
   AT 0,0 ;
   WIDTH AnchoWin ;
   HEIGHT AltoWin ;
   TITLE 'SISTEMA DE Clientes!!!';
   BACKCOLOR NIL;
   ON INIT ( ActRegClie('Ultimo'),IIF(Lastrec()==0,NuevoClie(.T.),NuevoClie(.F.)));
   CHILD

Code: Select all

*-----------------------------------------------------------------------------
PROCEDURE ActRegClie(cParam)
Local cRegistro
Local nCodigo := 0
Local nBusca := 0
Local nReg := 0
Win_Clie.Button_10a.Caption := 'Ultimo' 
Win_Clie.Button_11a.Caption := 'Ir A' 
Win_Clie.Button_12a.Caption := 'Browse' 
Win_Clie.Button_13a.Caption := 'Buscar'
Win_Clie.Button_14a.Caption := 'Salir'

MiArea('Clientes',1)
por ahora esa es la solución temporaria.
SISTEMA DE Clientes!!!_2012-10-12_14-21-54.jpg
SISTEMA DE Clientes!!!_2012-10-12_14-21-54.jpg (106.64 KiB) Viewed 5034 times