My Tbrowse Example

[franco]

FIRST YOU MUST CHANGE THE BUILD.BAT FILE TO YOUR HMG FOLDER.

THIS SAMPLE IS MAINLY FOR SHOWING HOW TO US MY BROWSE PROGRAM. I HAVE ADDED THE EDIT AND EDIT EXTENDED JUST FOR INFO.
THIS IS SET FOR 1 MILLION RECORDS IN THE INV FILE. I YOU HAVE A SLOWER COMPUTER OR HAVE LOW MEMORY. YOU CAN CHANGE THE
RECORD COUNT OF THE INV FILE BEFORE COMPILING. OR LATER DELETE THE INV FILE AND SET THE RECCOUNT TO A SMALLER AMOUNT
AND RECOMPILE THE PROGRAM.
You can start the exe program if inv table is to big. Change in the main program and change and run build.bat.
Once it starts you can look at short help file for info.

[tonton2]

Merci beaucoup pour le partage

[franco]

Could you understand how it work`s. My last post some members could not understand.

[SALINETAS24]

Hola Franco.
Esta muy chulo pero ..., de verdad necesitas cargar 1.000.000.- de registros en un Tbrowse.??
Trabajando yo solo apenas tarda 5" segundos, pero en RED...., ¿que tal ...?

Yo utilizo un sistema parecido, en un GRID, pero solo cargo unos cuantos registros., 1000, 2000, 3000...., me he creado un sistema de navegación de forma que si cargo 1000 registros y la DBF tiene 100.000, el usuario puede seguir avanzando.
El numero de registros que cargo lo puedo modificar dependiendo del tipo de cliente, tipo de red, terminales..., etc. y así mejoro la velocidad de respuesta.
Trabajo todo en GRID, utilizando ARRAYS y para realizar la búsqueda sobre un 2º indice uso la función OrdWildSeek.
Estoy preparando los fuentes del programa para AUTÓNOMOS para publicarlos.
De todas formas si quieres ver el EXE como funciona lo colgué en este enlace. Busca el ultimo, se llama "INSTALA"

http://www.hmgforum.com/viewtopic.php?f ... ana#p64057

[franco]

Here is a repost with a smaller inv file. I made to big in starting post fo slower computers. Original 1,000,000. This 5,000.

[compras]

Hi Franco! I have a few questions after trying to learn your example, and fully understand it.

I understand the intention, and is great your contrib, but I cant fix how calculate ideal sizes on browse windows to avoid last record dont fit on it, in your program I have test changing Wide, Height on window properties, so font size too, trying to change values or formula in rw variable, but nothing work fine, specially if run it on several pc's. Could you tell me how? by the way, I cant adjust the text into the "help window", to fit into it, because some lines appear not completed to read, and resizing the text window to right, appear a blank space and it dont contains a horizontal bar to navigate trough left and right sides so anybody can read the text, similar to vertical bar that exists and is possible navigate down/up into your help text.... again, is here some way to do it?

But my most important question is to know if exist any form to do a browse without launching a new window for it....I mean, like your example, I click on a buttom and I want the browse window appear as part of main window, so user cant resize it, move or change size columns, etc. It is possible? what do you think about?


Thanks a lot for your attention.

Congratulations!

[franco]

Remember I only use browse for lookups to set a file to a certain record for other functions to refer to.
I do not work or edit the browse. I use grids for editing and usually when working in a file you only need a few selected records.
When creating the send for the browse make sure the window will fit the screen and the total of lengths are less then the window width.
I only send important fields for the lookup to browse.
You can extend the width of browse fields by moving the header bar.
I will look at help and repost.
Franco

[franco]

Sorry,
To fix help go to function helping and change widow width to 1050 and change listbox width to 990'

[compras]

very thanks Franco, really I trying with several widhts and heights, but not resulting in office monitor, but trying with more trademarks and sizes of monitors, I conclude it affects, meaby for the pixel size on it, or something like. Anyway thank you!

[franco]

Compras, under the height in the browse you could change font size like

Code: Select all

 FONTSIZE 9            // FONTSIZE 6

You could also change the multiplier of widths

Code: Select all

W1 := LEN(&FC21) * 5  // or //    W1 := LEN(&FC21) * 10

remember these widths are set from the the field widths you send to the browse.
Also the windows you are using may change sizes also the resolution.
Franco