Отправляет 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

Выпуск от 10.03.04 17:27

Лучшее из нашего 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);
var
  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|
  • Описание AVI функций
    Народ! Есть вопрос. Имеется последовательность bmp- шек. Я согнал их в avi, но без сжатия с помощю виндовских функций (...
  • IdSMTPServer отправка минуя сервер
    Нужно зделать отправку почты, минуя сервер, кто что посоветует? желательно с примерами, дуиаю вот это: IdSMTPServer но ...
  • Преобразование типов в Delphi!
    Пожалуйста подскажите где взять исходные тексты (или какими функциями воспользоваться для того, чтобы преобразовать ...
  • Ошибка в IBX?
    Пользую TIBSql. Для поля Decimal(15,6) при переборе выборки в строке q.Fields[j].AsVariant возникает ошибка. При чем ...
  • Приведите пример с использовнием функции VirtualQueryEx() ///////
    Приведите пример с использовнием функции VirtualQueryEx() ////////// в справке есть пример, но там ничего не понятно
  • Printers - из VCL в KOL
    Привет! Помогите перевести кусок кода из VCL в KOL, пожалуйста. Пытаюсь воспользоваться модулем KOLMHPrinters, но вот ...
  • Как работать с POA в Delphi 7.
    Сервер написан на билдере, работа с объектами идет через POA. Возникла необходимость обращаться к серверу из делфийской ...
У нас большой выбор статей   |x|
Как вызвать private метод класса, находящегося в другом модуле
Иногда возникает необходимость вызвать private метод другого класса, расположенного в другом модуле. Это противоречит принципам ООП, заложенным в Delphi, но все-таки попробуем это сделать. Для примера рассмотрим случай, когда требуется сохранить/прочитать все свойства обьекта наследника TPersistent, например обьекта класса TFont.
Новинки книжного рынка   |x|
Профессиональная работа в Delphi 6 (+ дискета)
В предлагаемой вашему вниманию книге описываются нетривиальные возможности системы программирования Delphi 6. Книга является логическим продолжением двух других книг этого же автора: `Delphi 6. Учебный курс` и `Программирование баз данных в Delphi 6. Учебный курс`, вышедших ранее в издательстве `Питер`. Все три пособия дают практически полное описание интегрированной среды разработки приложений Delphi. Достаточно сложный материал изложен на примерах, что позволяет наглядно оценить возможности той или иной технологии. Все примеры снабжены подробным комментарием, а их исходные тексты вы найдете на прилагаемой к книге дискете. Книга предназначена для опытных пользователей.
Автор: Валерий Фаронов
Другие сайты о DELPHI   |x|
Курс борьбы с DELPHI
Статьи. Исходники. Форум. Каталог статей, исходников и сайтов программистов.
» Оценка сайта: 4
Опрос населения :)
Какой сайт по Delphi лучший?
»»» Королевство Дельфи
»»» Этот сайт
»»» Дельфи. Вокруг да около
»»» Другой
»»» Чем больше, тем лучше!
Для души

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

Афоризмы
Есть только один способ сделать брак счастливым, и мы все хотели бы его узнать.... (Andrew)

Фраза дня
Тот, кто храпит, засыпает первым.

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

И на закуску коротенький анекдот
В какой ещё стране спирт хранится в бронированных сейфах, а "ядерная кнопка" - в пластмассовом чемоданчике...

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

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

Добро пожаловать на сайт -= Мастера DELPHI =- 


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