Приветствую Вас Гость | RSS

Меню сайта

Реклама

Категории раздела
Bitmap [50]
Canvas [0]
DirectX и DelphiX [39]
GIF [3]
ICO [24]
JPEG [14]
MetaFile [6]
OpenGL [9]
ScreenSaver и ScreenMate [13]
Векторная графика [2]
Графика [37]
Изображения [0]
Картография [6]
Компоненты и Графика [0]
Создание игр [17]
Цвета и Палитра [0]
Шрифты [0]

Наш опрос
Оцените мой сайт
Всего ответов: 30

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Статьи » Графика и Игры » ICO

Сравнить две иконки
function IconsAreEqual(const Icon1, Icon2: TIcon): Boolean;
var
ms1: TMemoryStream;
ms2: TMemoryStream;
begin
Result := False;
ms1 := TMemoryStream.Create;
try
Icon1.SaveToStream(ms1);
ms2 := TMemoryStream.Create;
try
Icon2.SaveToStream(ms2);
if ms1.Size = ms2.Size then
// Compare the streams, Streams vergleichen:
Result := CompareMem(ms1.Memory, ms2.Memory, ms1.Size)
finally
ms2.Free
end
finally
ms1.Free
end
end;

procedure TForm1.Button1Click(Sender: TObject);
var
icon1: TIcon;
icon2: TIcon;
begin
icon1 := TIcon.Create;
icon2 := TIcon.Create;
try
icon1.LoadFromFile('c:\Icon1.ico');
icon2.LoadFromFile('c:\Icon2.ico');
if IconsAreEqual(icon1, icon2) then
ShowMessage('Icon 1 and Icon 2 match')
else
ShowMessage('Icon 1 and Icon 2 don''t match');
finally
icon1.Free;
icon2.Free;
end;
end;
Категория: ICO | Добавил: Angel (13.07.2008)
Просмотров: 438 | Рейтинг: 0.0/0
  Delphi Lab   Главная   Регистрация   Вход  
Интересная Цитата

Поиск

Магазин


Copyright MyCorp © 2025 Хостинг от uCoz