Эксперт
Покинул форум
Сообщений всего: 4465
Дата рег-ции: Нояб. 2017
Репутация: 585
|
Или что-то вроде этого:
code (Отобразить)CODE:external(INT, "GetDC", "GetDC", "User32.dll");
external(INT, "CreatePen", "CreatePen", "Gdi32.dll");
external(INT, "SelectObject", "SelectObject", "Gdi32.dll");
external(INT, "CreateSolidBrush", "CreateSolidBrush", "Gdi32.dll");
external(INT, "Rectangle", "Rectangle", "Gdi32.dll");
external(INT, "Ellipse", "Ellipse", "Gdi32.dll");
createdialog(0);
showdialog(0, "Dialog", 835, 390, 300, 300, 1, 1);
int diametr=10; // размер точек
int x=200, y=150; // начальные координаты зелёной точки
int brush1=CreateSolidBrush(rgb(205, 245, 250)); // заливка диалога
int pen1=CreatePen("PS_SOLID", 1, rgb(205, 245, 250)); // цвет контура
int brush2=CreateSolidBrush(255); // красная точка
int pen2=CreatePen("PS_SOLID", 1, 255); // толщина и цвет контура красной точки
int brush3=CreateSolidBrush(rgb(20, 130, 20)); // зелёная точка
int pen3=CreatePen("PS_SOLID", 1, rgb(20, 130, 20)); // толщина и цвет контура зелёной точки
while(window ("Dialog")==0)sleep(10);
win w=window ("Dialog");
int hdc=GetDC(formatwi(w));
loop()
{
SelectObject(hdc, pen1);
SelectObject(hdc, brush1);
Rectangle(hdc, 0, 0, w.widthclient, w.heightclient); // рисуем прямоугольник на диалоге
SelectObject(hdc, pen3);
SelectObject(hdc, brush3);
Ellipse(hdc, x, y, x+diametr, y+diametr); // рисуем зелёную точку
SelectObject(hdc, pen2);
SelectObject(hdc, brush2);
Ellipse(hdc, w.widthclient/2, w.heightclient/2, w.widthclient/2+diametr, w.heightclient/2+diametr); // рисуем красную точку в центре диалога
x=x+rand(-10, 10); y=y+rand(-10, 10); // считаем новые координаты зелёной точки
sleep(500);
} |