Zireael пишет:
стиль поверх всех окон
хз что такое стиль /а просто исчезала надпись ,
сейчас заработало.
убрал это
win wind=getwindow(1,1810,5);activate(wind); //1 то КОНТРОЛЛ ПО КООР X=1810,Y=5
хотел на окно сразу наводить
Спасибо за терпение
(Добавление)
Val_027 пишет:
Спасибо
//Для определения координат курсора /очень помогает при написании,
давно что то такое хотел. вот выключить по выходу пока не работает команды
end_paint - закончить рисовать как то не так или не там пищу...
external(INT, "begin_paint", "begin_paint", pathfolder()+"Draw.dll"
external(INT, "Textout", "textout", pathfolder()+"Draw.dll"
string s="Tahoma";
begin_paint();
//enable_item();
int x,y,x1,y1; win w; int ind=1;//если 0 - на главное окно
int X11,Y11,WORK[135][4]; loadimage(#WORK[0][0],"Z:\!!!\WORK.bmp"
int X12,Y12,WAIT[135][4]; loadimage(#WAIT[0][0],"Z:\!!!\WAIT.bmp"
loop(30000){
if(getkeystate NUMPAD0){goto KOOR} // КООРДИНАТЫ 0
if(getkeystate NUMPAD1){goto KONT} // КОНТРОЛ 1
if(getkeystate 145){goto EXIT} // НА ВЫХОД
END:visualwindow(0,0,0,135,4,547,735,245,#WAIT[0][0]);sleep(90)}
KOOR:
visualwindow(0,0,0,135,4,547,735,245,#WORK[0][0]);
textbkcolor (255,4259584);
a: getmouse(x, y);
//textout(4,500,590,"X "+format (x)+" Y "+format (y)+" цвет "+format (getcolor(x, y)),0); // где 0 то не моргает
Textout(0,547,705,"X "+format (x)+" Y "+format (y)+" цвет "+format (getcolor(x, y)), 16000000,65280,"Arial",-24,0,0,0,0,0,0,0);
sleep(300);
if(getkeystate (8)){goto END} // <--
if(getkeystate 145){goto EXIT}
goto a;
KONT:
visualwindow(0,0,0,135,4,547,735,245,#WORK[0][0]);
textbkcolor (0,65535);
a1: getmouse(x1, y1);
w=getwindow(ind, x1, y1);
//textout(4,500,590, "Название: "+w.name+"Класс: "+w.class+" Размер X1: "+format (w.widthclient)+" Размер Y1: "+format (w.heightclient),0);
Textout(0,500,590, "Название: "+w.name+"Класс: "+w.class+" Размер X1: "+format (w.widthclient)+" Размер Y1: "+format (w.heightclient), 16000000,65280,"Arial",-24,0,0,0,0,0,0,0);
if(getkeystate (8)){goto END} // <--
if(getkeystate 145){goto EXIT}
goto a1;
EXIT: