Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Программирование от Судьи [www.del5.da.ru] Выпуск от 7/06/2002 года


Информационный Канал Subscribe.Ru


- От Судьи -

 

- Основное месторасположение [http://del5.da.ru]

- Зеркало сайта [http://del50.by.ru]

- Mailto: [wadim274@permonline.ru]

 

Доброго времени суток, господа коллеги!

*****************************************

 

================================================================================

Рисовать на экране с помощью Canvas

 

procedure TForm1.Button1Click(Sender: TObject);
var
c: TCanvas;
i: integer;
begin
c := TCanvas.Create;
c.Handle := GetDC(0);
c.Pen.Mode := pmNotXor;
for i := 0 to 255 do begin
c.Pen.Color := RGB(0, 0, i);
c.MoveTo(50, 50 + i);

c.LineTo(150, 50 + i);
end;
ReleaseDC(0, c.Handle);
end;

================================================================================

 

Новости нашего сайта:

В данный момент новостей нет...

Ссылки на дружественные сайты:

В данный момент нет никаких ссылок:

На последок:

- Анекдот

Парень приглашает девушку на танец:
- Девушка, вас можно?
- Можно, только сначала потанцуем.


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное