Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 406

•  TDictionary Custom Sort  6 441

•  Fast Watermark Sources  6 221

•  3D Designer  9 183

•  Sik Screen Capture  6 567

•  Patch Maker  6 964

•  Айболит (remote control)  6 953

•  ListBox Drag & Drop  5 823

•  Доска для игры Реверси  96 920

•  Графические эффекты  7 158

•  Рисование по маске  6 462

•  Перетаскивание изображений  5 325

•  Canvas Drawing  5 693

•  Рисование Луны  5 400

•  Поворот изображения  4 941

•  Рисование стержней  3 521

•  Paint on Shape  2 788

•  Генератор кроссвордов  3 659

•  Головоломка Paletto  2 949

•  Теорема Монжа об окружностях  3 757

•  Пазл Numbrix  2 478

•  Заборы и коммивояжеры  3 160

•  Игра HIP  2 121

•  Игра Go (Го)  2 053

•  Симулятор лифта  2 415

•  Программа укладки плитки  2 108

•  Генератор лабиринта  2 567

•  Проверка числового ввода  2 257

•  HEX View  2 583

•  Физический маятник  2 197

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Эффект Блоки



Автор: Fenik

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Эффект 'Блоки'

Зависимости: Windows, Classes, Graphics
Автор:       Fenik, chook_nu@uraltc.ru, Новоуральск
Copyright:   Собственное написание (Николай федоровских)
Дата:        1 июня 2002 г.
***************************************************** }

procedure Blocks(Bitmap: TBitmap; Hor, Ver, MaxOffset:
  Integer; BackColor: TColor);
{вырезаем прямоугольники со сторонами Hor Ver
и копируем их в радиусе MaxOffset}

  function RandomInRadius(Num, Radius: Integer): Integer;
  begin
    if Random(2) = 0 then
      Result := Num + Random(Radius)
    else
      Result := Num - Random(Radius);
  end;

var
  x, y, xd, yd: Integer;
  Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.Assign(Bitmap);
    Bitmap.Canvas.Brush.Color := BackColor;
    Bitmap.Canvas.FillRect(Rect(0, 0, Bitmap.Width, Bitmap.Height));
    xd := (Bitmap.Width - 1) div Hor;
    yd := (Bitmap.Height - 1) div Ver;
    Randomize;
    for x := 0 to xd do
      for y := 0 to yd do
        BitBlt(Bitmap.Canvas.Handle,
          RandomInRadius(Hor * x, MaxOffset),
          RandomInRadius(Ver * y, MaxOffset),
          Hor, Ver, Bmp.Canvas.Handle, Hor * x, Ver * y, SRCCOPY);
  finally
    Bmp.Free;
  end;
end;

Пример использования:

Blocks(FBitmap, FBitmap.Width div 10, FBitmap.Height div 10, 4, clWhite); 




Похожие по теме исходники

Lamp (эффект лампы)

Эффект виньетки (Granny Mask)

Графические эффекты




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте