browse
Moderator: Rathinagiri
Re: browse
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.
Edit procedure can be called from upper menu, context menu, bottom or hetkey.
- esgici
- Posts: 4543
- Joined: Wed Jul 30, 2008 9:17 pm
- DBs Used: DBF
- Location: iskenderun / Turkiye
- Contact:
Re: browse
Demo prg of EDIT EXTENDED already works in this wayt57042 wrote:With the BROWSE command is it possible to edit the record in a separate window (so not inplace)?
Regards
Viva INTERNATIONAL HMG
- danielmaximiliano
- Posts: 2614
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: browse
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
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
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
- esgici
- Posts: 4543
- Joined: Wed Jul 30, 2008 9:17 pm
- DBs Used: DBF
- Location: iskenderun / Turkiye
- Contact:
Re: browse
Hola Danieldanielmaximiliano wrote: hmg.3.0.46 not contain these examples: \hmg\samples\browse_5\ , where I can get these examples to avoid resorting
Browse samples extracted from official HMG distribution for a long time ago
Viva INTERNATIONAL HMG
- danielmaximiliano
- Posts: 2614
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: browse
Thanks / Gracias Esgici.
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
-
- Posts: 90
- Joined: Tue Oct 09, 2012 2:28 pm
Re: browse
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
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
- Attachments
-
- mybrowse295.zip
- (3.54 KiB) Downloaded 518 times
-
- Posts: 90
- Joined: Tue Oct 09, 2012 2:28 pm
Re: browse
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
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
- Attachments
-
- brow295.zip
- (97.29 KiB) Downloaded 563 times
- Czarny_Pijar
- Posts: 172
- Joined: Thu Mar 18, 2010 11:31 pm
- Location: 19.2341 E 50.2267 N
Re: browse
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:
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.
Fortunately these files can be found elsewhere.Step - 2 : Copy TEST.DBF and TEST.DBT from C:\hmg\SAMPLES\BROWSE_1 folder to your new folder.
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.
- esgici
- Posts: 4543
- Joined: Wed Jul 30, 2008 9:17 pm
- DBs Used: DBF
- Location: iskenderun / Turkiye
- Contact:
Re: browse
FYI :klauskugel wrote: I just looked in Esgicis examples
That are official samples of HMG, not mine.
Regards
Viva INTERNATIONAL HMG