Размер Bitmap -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.226.169.169]

Модераторы: Rouse_, jack128, Krid

Размер Bitmap

s-mike

Сообщ. #1 , 03.03.05, 08:20

Unregistered

function PictureSize: TSize;

var

ResHandle: HWND;

ResData: HWND;

BMI: PBitmapInfo;

begin

Result.cx := 0;

Result.cy := 0;

ResHandle := FindResource(HInstance,

MAKEINTRESOURCE(200), RT_BITMAP);

if ResHandle <> 0 then

begin

ResData := LoadResource(HInstance, ResHandle);

if ResData <> 0 then

try

BMI := LockResource(ResData);

if Assigned(BMI) then

try

Result.cx := BMI.bmiHeader.biWidth;

Result.cy := BMI.bmiHeader.biHeight;

// размер картинки вот тут: BMI.bmiHeader.biSizeImage

finally

UnlockResource(ResData);

end;

finally

FreeResource(ResData);

end;

Автор: Rouse_

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0183 ] [ 16 queries used ] [ Generated: 22.12.24, 05:25 GMT ]