Размер Bitmap |
Previous Top Next |
Code: |
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_
Взято из http://forum.sources.ru
©Drkb::03827