Простая точка

[Alex Cones]

Как нарисовать точку на канве не обращаясь к пикселям (Pixels), вроде бы можно только нарисовать прямоугольник 1*1 или битмап 1*1 определенного цвета?

[Izhic]

Я сделал то же самое, просто посмотрел как работает Pixel
Вторую часть недопонял.

function ColorToRGB(Color: TColor): Longint;
begin
  if Color < 0 then
    Result := GetSysColor(Color and $000000FF) else
    Result := Color;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  W: Word;
begin
  for W := 10 to 200 do
   Windows.SetPixel(GetDC(Form1.Handle), w, 3, ColorToRGB($00ff00));
end;

ЗЫ.Теперь понял. Я не знаю, Правда если цели будут яснее..

[Alex Cones]

Здесь хранится готовый проект, но там я рисую точки при помощи Pixels, что немного тормозит при увеличении картинки. Хотелось бы убрать торможение за счет замены оператора.

[Izhic]

Ускоренная работа с графикой

Чет я тормозов не увидел...

А Я ссылку вообще не сразу заметил. Да, у меня тоже нэт никаких тормозов.

[Stilet]

Чет я тормозов не увидел...
Кста, можно OpenGL или DirectX применить.