HMGforum.com

With the BROWSE command is it possible to edit the record in a separate window (so not inplace)?

Thanks Richard

You need to define your own window to edit data. You can also use InputWindow.
Edit procedure can be called from upper menu, context menu, bottom or hetkey.

t57042 wrote:With the BROWSE command is it possible to edit the record in a separate window (so not inplace)?

Demo prg of EDIT EXTENDED already works in this way

Regards

Hola a Todos :
a pesar que en la referencia de HMG dice que puedo mirar los distintos ejemplos
hmg.3.0.46 no contiene dichos ejemplos : \hmg\samples\browse_5\ , donde puedo conseguir dichos ejemplos para no tener que recurrir a Minigui ext.
gracias /thanks

Google Translate

Hi Everyone:
although the HMG reference says that I can look at many examples
hmg.3.0.46 not contain these examples: \hmg\samples\browse_5\ , where I can get these examples to avoid resorting to MiniGUI ext.

I enter the data to browse do not come a .dbf

danielmaximiliano wrote: hmg.3.0.46 not contain these examples: \hmg\samples\browse_5\ , where I can get these examples to avoid resorting

Hola Daniel

Browse samples extracted from official HMG distribution for a long time ago

Thanks / Gracias Esgici.

Hola Daniel,

Is it this the sort of Code your looking for?

#include "minigui.ch" // Minigui 2.9.5

Function Main

SET DELETED ON

DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 640 HEIGHT 480 ;
TITLE 'MiniGUI Browse Demo)' ;
MAIN NOMAXIMIZE ;
ON INIT OpenTables() ;
ON RELEASE CloseTables()

DEFINE MAIN MENU
POPUP 'File'
ITEM 'Delete' ACTION Def_Excluir()
ITEM 'Refresh' ACTION Form_1.Browse_1.Refresh
SEPARATOR
ITEM 'Exit' ACTION Form_1.Release
END POPUP
END MENU

@ 10,10 BROWSE Browse_1 ;
WIDTH 610 ;
HEIGHT 390 ;
HEADERS { 'Code' , 'First Name' , 'Last Name', 'Birth Date', 'Married' , 'Biography' } ;
WIDTHS { 150 , 150 , 150 , 150 , 150 , 150 } ;
WORKAREA Test ;
FIELDS { 'Test->Code' , 'Test->First' , 'Test->Last' , 'Test->Birth' , 'Test->Married' , 'Test->Bio' } ;
TOOLTIP 'Browse Test' ;
DELETE ;
LOCK ;
EDIT APPEND


END WINDOW

CENTER WINDOW Form_1

Form_1.Browse_1.SetFocus

ACTIVATE WINDOW Form_1

Return Nil

Procedure OpenTables()

Use Test Index Code

Go Top

Form_1.Browse_1.Value := RecNo()

Return Nil

Procedure CloseTables()
Use
Return Nil

Function Def_Excluir()

if MsgYesNo("Deseja excluir o registro corrente?",'')
TEST->(DBGoto(Form_1.Browse_1.Value))
While(TEST->(!RLOCK()))
enddo
TEST->(DBDelete())
TEST->(DBUnlock())
Form_1.Browse_1.Refresh()
MsgInfo(" Concluido! ",)
endif

Return Nil

Here the full set of browse in 2.9.5
So by now that's the full set of the past.
I just looked in Esgicis examples and thought
the 2.9.5 examples could be useful.


Greetings klauskugel

Looks like the BROWSE command now is orphaned in favor of GRID. Only misleading echoes of those good times can be heard, among other in the priceless Esgici's guide to IDE, quote:

Step - 2 : Copy TEST.DBF and TEST.DBT from C:\hmg\SAMPLES\BROWSE_1 folder to your new folder.

Fortunately these files can be found elsewhere.

Also the Browse button hit the little honorable last place in the toolbox roster.

BTW, thank you folks for BROWSE examples, when I came here, these examples were kissed goodbay already.

klauskugel wrote: I just looked in Esgicis examples

FYI :

That are official samples of HMG, not mine.

Regards