Примеры на Delphi → Попиксельное сравнение картинок

procedure tform1.button1click(sender: tobject);
var
b1, b2: tbitmap;
c1, c2: pbyte;
x, y, i,
different: integer; // counter for different pixels
begin
b1 := image1.picture.bitmap;
b2 := image2.picture.bitmap;
assert(b1.pixelformat = b2.pixelformat); // they have to be equal
different := 0;
for y := 0 to b1.height - 1 do
begin
c1 := b1.scanline[y];
c2 := b2.scanline[y];
for x := 0 to b1.width - 1 do

Опубликовал admin
26 Ноя, Понедельник 2007г.

Примеры на Delphi → Динамические PageControl и TabSheet

Вариант 1
var
t: ttabsheet;
p: tpagecontrol;
begin
// Создаем pagecontrol
// При создании получаем ссылку на pagecontrol, чтобы в дальнейшем на него ссылаться.
p := tpagecontrol.create(application);
with p do
begin
parent := form1; // устанавливаем его как элемент управления формы.
top := 30;
left := 30;
width := 200;
height := 150;
end; // with tpagecontrol

// Создаем 3 страницы
t := ttabsheet.create(p);
with t do
begin
visible := true;
Опубликовал admin
26 Ноя, Понедельник 2007г.

Примеры на Delphi → Работа с реестром в Delphi

 

Реестр очень нужная вещь! Им должен уметь пользоваться каждый. Сегодня я покажу маленький пример как сохранить некоторые параметры Вашей программы.

Первое что надо сделать это добавить в uses модуль Registry
Затем написать две процедуры:
type
TForm1 = class(TForm)
procedure SaveProgParam;
procedure LoadProgParam;

Опубликовал admin
17 Ноя, Суббота 2007г.

Примеры на Delphi → MASM32 и DELPHI - битва за размер

Часто говорят о потребностях в оптимизации проекта с целью уменьшения размера программы… Delphi является аутсайдером по этому показателю среди основных языков для разработки системных приложений… Действительно у ламеров есть очень сильный (как им кажется) аргумент - Делфи создаёт пустой проект весом почти 400 кб)).. Напротив асемблер считается передовиком направления создания компактных приложений и по мнению ламеров разница в размерах огромна по сравнению с делфи… Да это так..

Опубликовал admin
17 Ноя, Суббота 2007г.

Примеры на Delphi → Шифруем файл с помощью другого файла

 

Здравствуйте, уважаемые читатели моей очередной статьи.

Опубликовал admin
17 Ноя, Суббота 2007г.


RSS-материал

Программирование для чайников.