Краткое описание :

Для кнопки EditButton нужна возможность изменения иконки, заданной по умолчанию.

Описание :

?

Что измененно :

Видимые элементы

----- СУТЬ ПРЕДЛОЖЕНИЯ -----
Для кнопки EditButton нужна возможность изменения иконки, заданной по умолчанию.

Как измененно :

Сделана языковая конструкция для описания произвольной кнопки в строке ввода.

Пример

interface a;
create view as select * from x$files,x$fields;

browse b;
show at (,,,20);
QSearchPosChanged;
table x$files;
fields
xf$code:protect,{button={command=cmPick;picture='qqq';hotkey=kbAltA}};
xf$name:protect;
end;

var pc_count : longint;
i_count : longint;

screen s;
show at (,21);
table x$fields;
fields
pc_count:protect,{button={command=cmPick;picture='qqq';hotkey=kbAltA}};
i_count;
<<

pc .@@@@@@@@@@@@ i .@@@@@@@@@@@@

>>
end;

handleevent
cminit:
{
}
cmPositionChanged:
{
pc_count++;
redrawpanel (#x$fields);
}
cmIdle:
{
i_count++;
redrawpanel (#x$fields);
}
end;
end.