Форум: "Потрепаться";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];

Вниз

Помогите найти компонент.   Найти похожие ветки 

← →
Lexxx   (2004-09-23 13:50) [0]

У него в About есть такая штука, как TPanel, с переливающимся фоном разл. цветов радуги. Исходник там же был. Хотел бы посмотреть ещё раз, как они это изобразили. Может кто знет, а? Я смотрел 2 года назад на D5. Компонент это что то типа набор интерфейсных элементов типа AbfEffects, но это не они :(
Заранее спасибо.

---

← →
easy ©   (2004-09-23 15:53) [1]

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ExtCtrls;

type
 TForm1 = class(TForm)
   Timer1: TTimer;
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
   procedure FormResize(Sender: TObject);
   procedure Timer1Timer(Sender: TObject);
 private
   collBitmap: TBitmap;
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 collBitmap := TBitmap.Create;
 collBitmap.Canvas.Pen.Style := psClear;
 Randomize;
 Timer1.Interval := 20;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 collBitmap.Free;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
 collBitmap.Height := ClientHeight;
 collBitmap.Width := ClientWidth;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 i, j, k: integer;
begin
 i := 0;
 j := 0;
 while i <= ClientWidth do begin
   while j <= ClientHeight do begin
     collBitmap.Canvas.Brush.Color := RGB(random(255), random(255), random(255));
     collBitmap.Canvas.FillRect(rect(i, j, i + 30, j + 30));
     collBitmap.Canvas.Brush.Color := RGB(random(255), random(255), random(255));
     collBitmap.Canvas.Pen.Color := RGB(random(255), random(255), random(255));
     k := Random(10);
     collBitmap.Canvas.Ellipse(i + k, j + k, i + 30 - k, j + 30 - k);
     inc(j, 30);
   end;
   j := 0;
   inc(i, 30);
 end;
 bitblt(canvas.Handle, 0, 0, ClientWidth, ClientHeight,
   collBitmap.Canvas.Handle, 0, 0, srccopy);
 Timer1.Interval := random(200) + 40;
end;

end.

зы: слабонервным не запускать..

---

← →
Amoeba ©   (2004-09-23 17:08) [2]

Есть подобный компонентик в AHM TritonTools

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.073 c