Новый Визуальный редактор

[INTERFACE]
DIALOG, "Диалог настроек", 577, 452;
BUTTON_OK, "Принять", 365, 400, 100, 25;
BUTTON_CANCEL, "Закрыть", 470, 400, 100, 25;
STATIC, "Простой Edit", 10, 10, 90, 18;
STATIC, "Мультитекст", 10, 40, 90, 18;
EDIT, 105, 8, 120, 18, string Edit_S;
EDIT, 255, 80, 120, 18, int Edit_I;
EDIT, 255, 110, 120, 18, double Edit_D;
EDIT_MULTILINE, 105, 38, 120, 108, string Edit_Sm;
CHECK, "Включить опцию", 10, 155, 105, 18, int Check;
COMBO, "Выбор строки 1" "Выбор строки 2" "Выбор строки 3", 10, 180, 212, 200, string Combo_S;
STATIC, "Вернет текст строки", 250, 180, 190, 18;
COMBO, "Выбор числа 1" "Выбор числа 2" "Выбор числа 3", 10, 250, 212, 200, int Combo_I;
STATIC, "Вернет номер строки", 250, 250, 190, 18;
BUTTON_FILE, "Выбрать файл", 255, 10, 200, 25, Edit_S;
BUTTON_PATH, "Выбрать путь", 255, 50, 200, 25, Edit_Sm;
[END]

[GLOBAL]
external(INT, "DeleteFile", "DeleteFileA", "kernel32.dll");
int Global_Var;
[END]

[FUNCTION_BODY]
function Fun(string Edit_S, int Edit_I, int Check, string Combo_S)
{
if (Combo_I==1)
{
if (Edit_S==Combo_S)return 1;
}
return 0;
}
[END]

[FUNCTION_CALL]
Fun("C:\", 52, 0, "Выбор строки 2")
[END]

[FUNCTION_RETURN]
ON;
TRUE, 1;
FALSE, 0;
[END]

[ESCAPE_CHAR]
^
[END]

[INTERFACE]
DIALOG, "Диалог настроек", 577, 452;
BUTTON_OK, "Принять", 365, 400, 100, 25;
BUTTON_CANCEL, "Закрыть", 470, 400, 100, 25;
STATIC, "Простой Edit", 10, 10, 90, 18;
STATIC, "Мультитекст", 10, 40, 90, 18;
EDIT, 105, 8, 120, 18, string Edit_S;
EDIT, 255, 80, 120, 18, int #Edit_I;
EDIT, 255, 110, 120, 18, double Edit_D;
EDIT_MULTILINE, 105, 38, 120, 108, string Edit_Sm;
CHECK, "Включить опцию", 10, 155, 105, 18, int Check;
COMBO, "Выбор строки 1" "Выбор строки 2" "Выбор строки 3", 10, 180, 212, 200, string Combo_S;
STATIC, "Вернет текст строки", 250, 180, 190, 18;
COMBO, "Выбор числа 1" "Выбор числа 2" "Выбор числа 3", 10, 250, 212, 200, int Combo_I;
STATIC, "Вернет номер строки", 250, 250, 190, 18;
BUTTON_FILE, "Выбрать файл", 255, 10, 200, 25, Edit_S;
BUTTON_PATH, "Выбрать путь", 255, 50, 200, 25, Edit_Sm;
[END]

[GLOBAL]
external(INT, "DeleteFile", "DeleteFileA", "kernel32.dll");
int Global_Var;
[END]

[FUNCTION_BODY]
function Fun(string Edit_S, int #Edit_I, double Edit_D, string Edit_Sm, int Check, string Combo_S, int Combo_I)
{
string a="^"[END]";
if (Combo_I==1)
{
if (Edit_S==Combo_S)return 1;
}
return 0;
}
[END]

[FUNCTION_CALL]
Fun("C:\boltalka\Log.txt", #Yk_I, 0.25, "Строка1^r^nСтрока 2", 1, "Выбор строки 2", 2);
[END]

[FUNCTION_RETURN]
ON;
TRUE, 1;
FALSE, 0;
[END]

[FUNCTION_CALL]
Fun("C:\boltalka\Log.txt", #Yk_I, 0.25, "Строка1^r^nСтрока 2", 1, "Выбор строки 2", 2);
[END]

[FUNCTION_BODY]
function Fun(string Edit_S, int #Edit_I, double Edit_D, string Edit_Sm, int Check, string Combo_S, int Combo_I)
{
.........

#define MAX_PATH 260
external(INT, "GetOpenFileName", "GetOpenFileNameA", "Comdlg32.dll");
external(INT, "sprintf_s", "sprintf_s", "msvcrt.dll");

new char path[MAX_PATH]; // сюда путь к файлу получим
path[0]=0;
char ofn[88]; // OPENFILENAMEA structure
initialarray(#ofn[0], 0);

char strFilter[99]; // формат файла
sprintf_s(address(#strFilter[0]), sizearray(strFilter), "%s%c%s%c%s%c%s%c%c",
"Точечный рисунок", 0, "*.bmp", 0,
"Текстовый файл", 0, "*.txt", 0, 0);

new char strInitialDir[MAX_PATH];
strcpy(#strInitialDir[0], pathfolder()); // начальный каталог

char strTitle[99];
strcpy(#strTitle[0], "Открыть файл"); // заголовок диалога

writeaddress(sizearray(ofn), address(#ofn[0]));
writeaddress(address(#strFilter[0]), address(#ofn[12])); // тип файла
writeaddress(address(#path[0]), address(#ofn[28])); // путь к файлу
writeaddress(sizearray(path), address(#ofn[32])); // размер буфера
writeaddress(address(#strInitialDir[0]), address(#ofn[44])); // начальный каталог
writeaddress(address(#strTitle[0]), address(#ofn[48])); // заголовок диалога

int x=GetOpenFileName(address(#ofn[0]));
if(x)messagebox(format(#path[0]));
else messagebox("Ничего не выбрано");