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

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Июль 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 30.07.04 09:18

Лучшее из нашего FAQ   |x|
Пример прорисовки "плазмы" 

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, 
  Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure makeplasma;
    procedure start1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
  end;
var
  Form1  : TForm1;
  plasma : array[0..768,0..768] of byte;
implementation
{$R *.DFM}
procedure TForm1.makeplasma;
  procedure halfway(x1,y1,x2,y2: integer);
    procedure adjust(xa,ya,x,y,xb,yb: integer);
    var
      d: integer;
      v: double;
    begin
      if plasma[x,y]<>0 then exit;
      d:=Abs(xa-xb)+Abs(ya-yb);

     v:=(plasma[xa,ya]+plasma[xb,yb])/2+(random-0.5)*d*2;
      if v<1 then v:=1;
      if v>=193 then v:=192;
      plasma[x,y]:=Trunc(v);
    end;
  var
    x,y: integer;
    v: double;
  begin
    if (x2-x1<2) and (y2-y1<2) then exit;
    x:=(x1+x2) div 2;
    y:=(y1+y2) div 2;
    adjust(x1,y1,x,y1,x2,y1);
    adjust(x2,y1,x2,y,x2,y2);
    adjust(x1,y2,x,y2,x2,y2);
    adjust(x1,y1,x1,y,x1,y2);
    if plasma[x,y]=0 then
    begin
      v:=(plasma[x1,y1]+plasma[x2,y1]+plasma[x2,y2]+plasma[x1,y2])/4;
      plasma[x,y]:=Trunc(v);
    end;
    halfway(x1,y1,x,y);
    halfway(x,y1,x2,y);
    halfway(x,y,x2,y2);
    halfway(x1,y,x,y2);
  end;
var
  x,y :integer ;
begin
  randomize;
  plasma[0,768]:=random(192);
  plasma[768,768]:=random(192);
  plasma[768,0]:=random(192);

 plasma[0,0]:=random(192);
  halfway(0,0,768,768);
end;
procedure TForm1.start1Click(Sender: TObject);!
 
v
ar
  x,y:integer;
begin
  makeplasma;
  for x:=0 to 255 do
  begin
    for y:=0 to 255 do
    begin
      image1.canvas.pixels[x,y]:=rgb(plasma[x,y],plasma[x+256,y+256],plasma[x+512,y+512]);
    end;
    image1.update;
  end;
end;
end.


»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Иерархические структуры данных в реляционных БД
Наряду с «плоскими» данными, при построении даже простых информационных систем, приходится хранить в БД и информацию о «вложенных» друг в друга сущностях, т.е иерархические данные. Организация хранения такой информации в реляционных БД проста, но не всегда очевидна для тех, кто впервые сталкивается с подобной задачей. В данной статье я попытаюсь поделиться накопленным опытом.
Новинки книжного рынка   |x|
Delphi. Программирование на языке высокого уровня: Учебник для вузов
Книга посвящена новейшей версии Delphi 7 Studio. Здесь изложены как приемы программирования в среде Delphi, ее главные составные части — галереи компонентов, хранилища объектов, вспомогательный инструментарий, так и сам язык программирования Delphi. Подробно рассматриваются компоненты программ, некоторые дополнительные возможности — динамически подключаемые библиотеки, интерфейсы, технология СОМ и система ModelMaker. Книга может быть полезна как начинающим — в качестве пособия для первоначального изучения среды и языка Delphi, так и опытным программистам, желающим пополнить свои знания в области применения языка Delphi. Допущено Министерством образования Российской Федерации в качестве учебника для студентов высших учебных заведений, обучающихся по направлению подготовки дипломированных специалистов «Информатика и вычислительная техника».
Автор: Фаронов В. В.
Опрос населения :)
Примите вы участие в олимпиаде по программированию на этом сайте?
»»» Обязательно
»»» Если понравятся призы
»»» Если будет время
»»» Наверное нет
»»» Точно нет
Для души

Хокку дня
Торговец веерами
Принес вязанку ветра -
Ну и жара...

Афоризмы
Дело пророков - пророчествовать, дело народов - побивать их камнями (Владислав Ходасевич)

Фраза дня
"Другие не лучше", - надпись на зеркале.

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В городе Омаха в Небраске (США) мужчинам запрещается брить волосы на груди.
В Неваде запрещено (США) ездить по шоссе на верблюде .

И на закуску коротенький анекдот
Добрый молодец Пяткин тщательно продумал, как он убьёт жену и спрячет тело... Только после этого он сделал первый шаг - женился.

Фотоприколы.
Начните день с хорошего настроения!
http://www.delphimaster.ru/cgi-bin/prikol.pl?id=34085083

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (merlin@delphimaster.ru)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
http://subscribe.ru/feedback/		 Адрес подписки
 Отписаться
В избранное