LineTo рисование на экране - lineto(0,1000,1000) - LineTo(DC, 1000, 1000);

[Crivel]

Мне нужно нарисовать простую линию на экране. Пишу:

lineto(0,1000,1000)

Но не работает. Где ошибка?
Заранее благодарен.

[Kotofff]

Тут все не просто так.
Вот немного кода - смотри, разбирайся, спрашивай ...
http://www.delphisources.ru/pages/fa...on_screen.html

И вот еще на форуме : http://programmersforum.ru/showthread.php?t=45180

[mihali4]

Ставим курсор на слово LINETO и жмем заветную копку F1.
Она расскажет, что у этой команды всего 2 параметра - координаты конечной точки. Кстати, там и пример приведен...

[Mikhail Bakurov]

lineto(GetDC(0),1000,1000);

Вот это будет самый простой вариант

[Showy]

Сообщение от Mikhail Bakurov

lineto(GetDC(0),1000,1000);

Вот это будет самый простой вариант

Вообще-то это плохой пример. А как же ReleaseDC?.

var
  DC: HDC;
begin
  DC := GetDC(0);
  //Рисуем
  ReleaseDC(0, DC);
end;

[Mikhail Bakurov]

так я ж ничего никому не присваивал, что убивать?

[Showy]

Сообщение от Mikhail Bakurov

так я ж ничего никому не присваивал, что убивать?

Возьмём простой пример:

var
  i: Integer;
begin
  for I := 0 to 10000 do
    LineTo(GetDC(0),1000,1000);
end;

Сколько ваша программа будет занимать памяти после выполнения данного кода?
и после:

var
  DC: HDC;
  i: Integer;
begin
  for I := 0 to 10000 do
  begin
    DC := GetDC(0);
    LineTo(DC, 1000, 1000);
    ReleaseDC(0, DC);
  end;
end;

?
Так же

After painting with a common DC, the ReleaseDC function must be called to release the DC. Class and private DCs do not have to be released. ReleaseDC must be called from the same thread that called GetDC. The number of DCs is limited only by available memory. MSDN

[Mikhail Bakurov]

Спасибо, что рассказал Showy не знал, сейчас проверил, действительно все так

[Crivel]

Спасибо всем! Я раньше делал и всё получалось, а сейчас забыл про GetDC.