Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.239.90.61] |
|
Сообщ.
#1
,
|
|
|
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; end; end; Автор: Rouse_ |