HMG Easy Build

[esgici]

Esgici and Toledo:
I adapted the functions of you and works Ok for me.

Ok, thanks

@Toledo :

Code: Select all

Url_Search := URL_FORUM + "/search.php?keywords="+Key_Search+"&ch=300"

Very nice, masterly; thanks to hint

@Dr. Soto :

Now, another suggestion :

Settings suggestion

EasyBuildSettingsSuggest.PNG (43.83 KiB) Viewed 5446 times

Code: Select all

***********************************************************************************
PROCEDURE SETTING_OPTIONS
***********************************************************************************
LOCAL nWidth, nInc := 20, cFolderHMG_aux := cFolderHMG

   DEFINE WINDOW Form_2;
         AT 0,0;
         WIDTH  420;
         HEIGHT 450;
         TITLE 'Setting Options';
         ICON  '';
         MODAL;
         NOSIZE
         
      ON KEY ESCAPE ACTION ThisWindow.Release()
      
      nWidth := Form_2.ClientAreaWidth

      @ 20, nInc        FRAME   Frame_1  CAPTION "HMG path library:" WIDTH (nWidth - nInc*2)      HEIGHT 50 BOLD
      @ 40, nInc + 10   TEXTBOX Text_1   VALUE   cFolderHMG          WIDTH (nWidth - nInc*2 - 50) HEIGHT 20 READONLY
      @ 35, nWidth - 55 BUTTON  Button_1 PICTURE "_open_folder"      WIDTH  30                    HEIGHT 30 ACTION (Form_2.Text_1.VALUE := SETTING_Folder(), cFolderHMG_aux := Form_2.Text_1.VALUE)

      @ 100, nInc      FRAME      Frame_2       CAPTION "Build in:" WIDTH (nWidth - nInc*2) HEIGHT 80 BOLD
      @ 120, nInc + 20 RADIOGROUP RadioGroup_1  OPTIONS {'32 bits','64 bits'}  VALUE nBuildBAT

      @ 200, nInc      FRAME      Frame_4       CAPTION "ON DBLCLICK HBP / PRG files:" WIDTH (nWidth - nInc*2) HEIGHT 60 BOLD
      @ 220, nInc + 20 RADIOGROUP RadioGroup_3  OPTIONS {'Build','Open'} VALUE 1 HORIZONTAL 
      
      @ 280, nInc      FRAME      Frame_3       CAPTION "Open .HBP file with:" WIDTH (nWidth - nInc*2) HEIGHT 60 BOLD
      @ 300, nInc + 20 RADIOGROUP RadioGroup_2  OPTIONS {'Default','IDE ANSI','IDE Unicode', 'NotePad'} VALUE nOpenHBP HORIZONTAL SPACING 90

      @ 360, nInc BUTTON  Button_2 CAPTION "Save"   PICTURE "_save"   LEFT  WIDTH 100 HEIGHT 30  ACTION (SETTING_Save (cFolderHMG_aux), Form_2.Release)
      @ 360, 165  BUTTON  Button_3 CAPTION "Apply"  PICTURE "_check"  LEFT  WIDTH 100 HEIGHT 30  ACTION (cFolderHMG := cFolderHMG_aux, nBuildBAT := Form_2.RadioGroup_1.VALUE, nOpenHBP := Form_2.RadioGroup_2.VALUE, Form_2.Release)
      @ 360, 295  BUTTON  Button_4 CAPTION "Cancel" PICTURE "_cancel" LEFT  WIDTH 100 HEIGHT 30  ACTION Form_2.Release

   END WINDOW

   Form_2.Button_4.SetFocus

   CENTER WINDOW Form_2
   ACTIVATE WINDOW Form_2

RETURN

[srvet_claudio]

Now, another suggestion :

Very Good!!!

[danielmaximiliano]

Now, another suggestion :

Very Good!!!

CONTEXT MENU

Build
Edit

......Better....

[Pablo César]

Now, another suggestion :

Very Good!!!

Contex menu......Better

Or DROPDOWN BUTTON ?

[danielmaximiliano]

Or DROPDOWN BUTTON ?

Seria mejor sobre el Grid.. es un poco tedioso hacer click sobre el archivo despues sobre el Dropdown y elegir el modo..
boton contextual sobre el archivo prg o hbp y elegir la accion...

[pctoledo]

Esgici and Toledo:
I adapted the functions of you and works Ok for me.

Dr. Claudio, only a small modification is required:

Code: Select all

LOCAL cPath := HMG_UPPER (Form_1.StatusBar.Item(1))+"\", cPath_

replace with:

Code: Select all

LOCAL cPath := HMG_UPPER(Form_1.Tree_1.Cargo (Form_1.Tree_1.Value))+"\", cPath_

Using Form_1.StatusBar.Item(1) will not work properly, because of the changes suggested by Esgici.

[srvet_claudio]

boton contextual sobre el archivo prg o hbp y elegir la accion...

Muy buena idea!

replace with:
Code:
LOCAL cPath := HMG_UPPER(Form_1.Tree_1.Cargo (Form_1.Tree_1.Value))+"\", cPath_

thanks!

[Rathinagiri]

A request from a lazy man.

Can we have the latest version?

[Rathinagiri]

This post is totally useless, it's just to complete my first 1000 posts.

Wow! Congrats Claudio. Many more 1000s expected.

[bpd2000]

This post is totally useless, it's just to complete my first 1000 posts.

Congrats
Best wishes