Utilities like DBU, Make, IDE written in HMG/ used to create HMG based applications
Moderator: Rathinagiri
-
esgici
- Posts: 4543
- Joined: Wed Jul 30, 2008 9:17 pm
- DBs Used: DBF
- Location: iskenderun / Turkiye
-
Contact:
Post
by esgici »
Hi Claudio
Wonderful
This isn't only "builder" but a File Manager
bpd2000 wrote:I suggest to open last visited directory / location by "HMG Easy Build"
+1
My two cent :
Code: Select all
*-----------------------------------------------------------------------------*
PROCEDURE Grid1OnChange()
*-----------------------------------------------------------------------------*
LOCAL cFileName := aFiles [This.CellRowFocused, 5 ]
LOCAL cFileExtn := UPPER( SUBSTR( cFileName, RAT( ".", cFileName ) + 1 ) )
Form_1.StatusBar.Item(1) := cFileName
Form_1.Button_6.Enabled := cFileExtn $ "HBPPRG"
RETURN // Grid1OnChange()
Viva
INTERNATIONAL HMG
-
danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
-
Contact:
Post
by danielmaximiliano »
esgici wrote:
My two cent :
Geniooooo !!!!
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
-
srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
-
Contact:
Post
by srvet_claudio »
esgici wrote:My two cent :
Code:
ON CHANGE Grid1OnChange() ;
Code:
*-----------------------------------------------------------------------------*
PROCEDURE Grid1OnChange()
*-----------------------------------------------------------------------------*
LOCAL cFileName := aFiles [This.CellRowFocused, 5 ]
LOCAL cFileExtn := UPPER( SUBSTR( cFileName, RAT( ".", cFileName ) + 1 ) )
Form_1.StatusBar.Item(1) := cFileName
Form_1.Button_6.Enabled := cFileExtn $ "HBPPRG"
RETURN // Grid1OnChange()
Very nice Friend !
-
esgici
- Posts: 4543
- Joined: Wed Jul 30, 2008 9:17 pm
- DBs Used: DBF
- Location: iskenderun / Turkiye
-
Contact:
Post
by esgici »
Congrats amigo !
I wish you thousands 1000 posts
Because you are continuously working for HMG community and all your works are always extremely useful and educative for us
Happy HMG'ing
Last edited by
esgici on Sat Sep 06, 2014 9:21 pm, edited 1 time in total.
Viva
INTERNATIONAL HMG
-
esgici
- Posts: 4543
- Joined: Wed Jul 30, 2008 9:17 pm
- DBs Used: DBF
- Location: iskenderun / Turkiye
-
Contact:
Post
by esgici »
danielmaximiliano wrote:Geniooooo !!!!
srvet_claudio wrote:
Very nice Friend !
Gracias amigos
But
isn't good
instead
Code: Select all
( cFileExtn == "HBP") .OR. ( cFileExtn == "PRG")
is better.
Happy HMG'ing
Viva
INTERNATIONAL HMG
-
pctoledo
- Posts: 123
- Joined: Wed Aug 25, 2010 10:45 am
- Location: Araçatuba - SP - Brazil
-
Contact:
Post
by pctoledo »
esgici wrote: Form_1.StatusBar.Item(1) := cFileName
With that my search function will not work properly then follows a small change:
Code: Select all
****************************************************
PROCEDURE SEARCH_OPEN()
*********************************************************
LOCAL Key_Search, Url_Search := URL_FORUM
LOCAL cPath := UPPER(Form_1.Tree_1.Cargo (Form_1.Tree_1.Value))+"\", cPath_
IF UPPER(cFolderHMG+"\SAMPLES\") $ cPath
cPath := StrTran(cPath,UPPER(cFolderHMG)+"\SAMPLES\","")
IF !EMPTY(cPath)
Key_Search := ""
DO WHILE AT("\",cPath)>0
cPath_ := LEFT(cPath,AT("\",cPath)-1)
IF !(cPath_ $ [ADVANCED|APPLICATIONS|BASICS|CONTROLS|EVENTS|FUNCTIONS|HFCL|HPDF|MISCELLANEOUS|UNICODE])
IF IsDigit(RIGHT(cPath_,1))
cPath_:=LEFT(cPath_,RAT("_",cPath_)-1)
ENDIF
IF !(cPath_ $ Key_Search)
Key_Search += "+"+cPath_
ENDIF
ENDIF
cPath := SUBS(cPath,AT("\",cPath)+1)
ENDDO
IF !EMPTY(Key_Search)
Url_Search := URL_FORUM + "/search.php?keywords="+Key_Search+"&ch=300"
ENDIF
ENDIF
ENDIF
URL_OPEN ( Url_Search )
RETURN
-
esgici
- Posts: 4543
- Joined: Wed Jul 30, 2008 9:17 pm
- DBs Used: DBF
- Location: iskenderun / Turkiye
-
Contact:
Post
by esgici »
pctoledo wrote:
With that my search function will not work properly then follows a small change:
Thanks Toledo
Viva
INTERNATIONAL HMG
-
srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
-
Contact:
Post
by srvet_claudio »
esgici wrote:
Congrats amigo !
I wish you thousands 1000 posts
Because you are continuously working for HMG community and all your works are always extremely useful and educative for us
Happy HMG'ing
Thank you very much Friend, as always you're very kind
-
srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
-
Contact:
Post
by srvet_claudio »
Esgici and Toledo:
I adapted the functions of you and works Ok for me.
Code: Select all
*-----------------------------------------------------------------------------*
PROCEDURE Grid1OnChange()
*-----------------------------------------------------------------------------*
LOCAL cFullName := aFiles [This.CellRowFocused, 5 ]
LOCAL cExt
HB_FNameSplit (cFullName, NIL, NIL, @cExt, NIL)
Form_1.StatusBar.Item(1) := cFullName
Form_1.Button_6.Enabled := HMG_UPPER(cExt) $ ".HBP|.PRG"
RETURN
Code: Select all
***********************************************************************************
PROCEDURE SEARCH_OPEN()
***********************************************************************************
LOCAL Key_Search, Url_Search := URL_FORUM
LOCAL cPath := HMG_UPPER (Form_1.StatusBar.Item(1))+"\", cPath_
IF HMG_UPPER (cFolderHMG+"\SAMPLES\") $ cPath
cPath := STRTRAN (cPath,HMG_UPPER(cFolderHMG)+"\SAMPLES\","")
IF !EMPTY(cPath)
Key_Search := ""
DO WHILE HB_UTF8AT ("\",cPath)>0
cPath_ := HB_ULEFT(cPath,HB_UTF8AT("\",cPath)-1)
IF !(cPath_ $ [ADVANCED|APPLICATIONS|BASICS|CONTROLS|EVENTS|FUNCTIONS|HFCL|HPDF|MISCELLANEOUS|UNICODE])
IF HMG_ISDIGIT (HB_URIGHT(cPath_,1))
cPath_:= HB_ULEFT (cPath_,HB_UTF8RAT("_",cPath_)-1)
ENDIF
IF !(cPath_ $ Key_Search)
Key_Search = Key_Search + "+" +cPath_
ENDIF
ENDIF
cPath := HB_USUBSTR (cPath,HB_UTF8AT("\",cPath)+1)
ENDDO
IF !EMPTY(Key_Search)
Url_Search := URL_FORUM + "/search.php?keywords="+Key_Search+"&ch=300"
ENDIF
ENDIF
ENDIF
URL_OPEN ( Url_Search )
RETURN