Ok, thankssrvet_claudio wrote:Esgici and Toledo:
I adapted the functions of you and works Ok for me.
@Toledo :
Code: Select all
Url_Search := URL_FORUM + "/search.php?keywords="+Key_Search+"&ch=300"
@Dr. Soto :
Now, another suggestion :
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