Модератор: Модераторы
Trojan Bot писал(а):Delphi - это не мое.
glPointSize (30); // размер точки в пикселях
glColor3f (1.0, 0.0, 0.5); //Цвет точки в RGB
glBegin(GL_POINTS)
glVertex2f(X, Y); //Координаты точки
glEnd;
SwapBuffers(ХэндлПоверхностиКудаРисовать);
Спасибо, буду шарить WinApi. Хотелось бы посмотреть на аналогичный код для WinApi... Не подскажешь ли нужную функцию?
Canvas.Pixels[x,y]:=clGreen;
Uses Windows;
...
Randomize;
DC:=GetDC(0); //Получим контекст устройства рабочего стола
For i:=0 To 999 Do
SetPixel(DC, Random(Кол-во пикселей по горизонтали), Random(Кол-во пикселей по вертикали), RGB(R, G, B));
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1