На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Размер Bitmap
      ExpandedWrap disabled
        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_
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0149 ]   [ 16 queries used ]   [ Generated: 28.03.24, 10:35 GMT ]