Главная » Таги : "Bitmap"

RSS

Blobs

Не нравитсяНравится   Рейтинг 0


Модель деления клеток, пример так же интересен быстрым ( прямым ) способом создания Bitmap’а. Чем то похож на фракталы, так же завораживает.

Размер 2 кб
Скачать

Таги: , ,

Способы хранение графики в играх и бизнес приложениях

Не нравитсяНравится   Рейтинг 0

В предыдущей статье я рассказал, как можно считывать растры напрямую из файла ( надеюсь информация оказалась для Вас интересная). Теперь поговорим о том, как создать собственный, удобный для нас, формат хранения графической информации. Рассматриваемый подход пригодится не только для хранения графики, но и для совершенно различных бинарных данных. Это могут быть и музыкальные треки в популярном формате MP3, видео фрагменты, текстовые данные – в общем, любые данные Вашего приложения.

Хранение графики в приложениях

В конце предыдущей статьи, я изложил краткий алгоритм для создания таких файлов, теперь я попытаюсь последовательно описать все его тонкости.

Читать далее »

Таги: , , ,

Низкоуровневая загрузка растра

Не нравитсяНравится   Рейтинг 0

В статье рассматриваются два способа загрузки растра – из ресурсной секции PE файла (для тех кто не в курсе, это обычных исполняемый exe файл семейства Widows 9X, NT) и непосредственно из файла. Зачем я всё это описываю, если есть прекрасный, отработанный код

1
2
3
4
5
Var
Bitmap : Tbitmap;
…
Bitmap.LoadFromFile('somepicture.bmp');

… действительно, метод хорош, но есть несколько моментов, по которым использовать данный метод не желательно.

Читать далее »

Таги: , , ,

Быстрая работа с графикой в среде Windows

Не нравитсяНравится   Рейтинг 0

Быстрая работа с графикой

Пример быстрой работы с графикой в среде Windows без использования средств DirectX
Совместимость: Windows 95, 98, NT, 2000, Me, TrE, XP, Whistler, Tristler :) )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
type
TfmMain = class(TForm)
pbDraw: TPaintBox;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
procedure CreateBitmap(aSX, aSY: Integer);
procedure RecreateBitmap(aSX, aSY: Integer);
procedure DeleteBitmap;
procedure RestrictSize(var msg: TMessage); message WM_GETMINMAXINFO;
procedure pbDrawPaint(Sender: TObject);
private
ScrBitmap: TBitmap;
Scr: Pointer;
SX, SY: Integer;

Читать далее »

Таги: , ,