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

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

•  TDictionary Custom Sort  6 170

•  Fast Watermark Sources  5 966

•  3D Designer  8 847

•  Sik Screen Capture  6 309

•  Patch Maker  6 721

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

•  ListBox Drag & Drop  5 573

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

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

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

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

•  Canvas Drawing  5 470

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

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

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

•  Paint on Shape  2 575

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

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

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

•  Пазл Numbrix  2 345

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

•  Игра HIP  1 984

•  Игра Go (Го)  1 907

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

•  Программа укладки плитки  1 970

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

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

•  HEX View  2 429

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

 
скрыть

  Форум  

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

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