только с частотой кадров поосторожней - можно убить монитор. В StringTable - список допустимых значений для подключенного монитора. Перед сменой резолюции нужно проверить или есть в списке нужная тебе.
Если нет, то вывести сообщение и прервать выполнение.
Разберешся. Специально делал без коментариев, что-бы ты побыл в нашей с Nic шкуре
------------ Дoбавленo:
Или так
Add(MainForm,16589913,140,105)
{
Left=20
Top=105
Width=233
Height=157
Point(onClose)
Point(Close)
link(onCreate,9597672:doEvent1,[])
link(Close,32968:Value,[])
}
Add(MultiElementEx,9597672,199,112)
{
link(onData,9898864:doText,[])
}
BEGIN_SDK
Add(EditMultiEx,15869104,21,21)
{
WorkCount=#12:doResolution|8:doEvent1|
EventCount=#6:onData|
Width=384
Height=263
link(doResolution,2027986:doResolution,[(73,27)(73,104)])
link(doEvent1,13645196:doEvent1,[(35,34)(35,139)])
}
Add(Screen,2027986,126,98)
{
X=0
Y=0
EnumMask="%v;%h;%f"
link(onEnum,700139:doAdd,[])
link(X,11433178:Value,[(132,86)(114,86)(114,221)(132,221)])
link(Y,15788999:Value,[(139,74)(215,74)(215,264)(139,264)])
link(Frequency,9260558:Value,[(146,86)(208,86)(208,237)(174,237)])
}
Add(Hub,13645196,49,133)
{
OutCount=5
link(onEvent1,2027986:doEnum,[(103,139)(103,118)])
link(onEvent2,9260558:doValue,[(163,146)(163,202)])
link(onEvent3,11433178:doValue,[(103,153)(103,188)])
link(onEvent4,15788999:doValue,[(96,160)(96,244)])
link(onEvent5,700139:doGetIndex,[(225,167)(225,146)])
}
Add(Screen,485868,350,112)
{
X=1024
Y=768
Frequency=60
}
Add(Memory,11433178,126,182)
{
Point(Data)
link(Data,2027986:Width,[])
}
Add(Memory,9260558,168,196)
{
Point(Data)
link(Data,2027986:CurFrequency,[(174,141)(146,141)])
}
Add(Memory,15788999,133,238)
{
Point(Data)
link(Data,2027986:Height,[])
}
Add(StrList,700139,231,98)
{
Point(StrToFind)
Point(doGetIndex)
Point(onGetIndex)
link(StrToFind,7206704:Value,[])
link(onGetIndex,11346412:doCompare,[])
}
Add(Memory,7206704,245,49)
{
Default=String(1024;768;60)
}
Add(If_else,11346412,287,105)
{
Op2=Integer(-1)
link(onTrue,13678887:doClear,[(335,111)(335,76)])
link(onFalse,485868:doResolution,[])
}
Add(Memory,13678887,350,63)
{
Default=String(Ваш дисплей не поддерживает необходимый режим)
link(onData,15869104:onData,[(394,69)(394,27)])
}
END_SDK
Add(Label,9898864,252,112)
{
Left=10
Top=25
Caption="asdas"
}
Add(Button,15220664,7,84)
{
Left=105
Top=65
Caption="Close"
link(onClick,9969452:doEvent1,[])
}
Add(Memory,32968,140,49)
{
Default=Integer(1)
}
Add(Hub,9969452,56,84)
{
link(onEvent1,9597672:doResolution,[(183,90)(183,118)])
link(onEvent2,16589913:doClose,[(114,97)(114,132)])
}