Нормальная процедура отображения графических шрифтов

Страница 2 из 4

Code:

Thead=record //Заголовок fnt файла

count:integer; //Количество изображений (вдруг вам русский шрифт не нужен а нужен только английский - тогда картинок будет 128

name:string[5]; //Имя шрифта (нужно для распаковки картинок)

tcl:tcolor; //Цвет прозрачности

end;

Автор: Spose

Добавляем на форму: Имя компонента: Название компонента: Описание

DXDIB TDXDIB Тут изображение сжимается

dlb TDirectoryListBox Тут выбор каталога с изображениями

flb TFileListBox Тут список BMP файлов

dcb TDriveComboBox Тут выбор диска с изображениями

Button1 TButton Начало сжатия

Button2 TButton Выход из программы

Edit1 TEdit Тут в формате String хранится цвет прозрачности

Edit2 TEdit От сюда берется название изображений

Теперь на нажатие первой кнопки пишем:

Ранние статьи