Размер Bitmap.

Размер Bitmap.

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.