• turecloer


    ColorDeep: TPixelFormat = pf16bit;
    procedure ChangeDIBPixelFormat(adib:TDIB;pf:TPixelFormat);
    begin
        if pf=pf8bit then begin
          with aDib.PixelFormat do begin
            RBitMask:=$FF0000;
            GBitMask:=$00FF00;
            BBitMask:=$0000FF;
          end;
          aDib.BitCount:=8;
        end else if pf=pf16bit then begin
          with aDib.PixelFormat do begin 
            RBitMask:=$F800;
            GBitMask:=$07E0;
            BBitMask:=$001F;
          end;
          aDib.BitCount:=16;
        end else if pf=pf24bit then begin
            with aDib.PixelFormat do begin
            RBitMask:=$FF0000;
            GBitMask:=$00FF00;
            BBitMask:=$0000FF;
          end;
          aDib.BitCount:=24;
        end else if pf=pf32Bit then begin
          with aDib.PixelFormat do begin
            RBitMask:=$FF0000;
            GBitMask:=$00FF00;
            BBitMask:=$0000FF;
          end;
          aDib.BitCount:=32;
        end;
    end;

    procedure TWMImages.Initialize;
    var
      Idxfile: String;
      Header :TWMImageHeader;
    begin
      if not (csDesigning in ComponentState) then begin
          if FFileName = '' then begin
            raise Exception.Create ('FileName not assigned..');
            exit;
          end;
          if (LibType <> ltLoadBmp) and (FDDraw = nil) then begin
            raise Exception.Create ('DDraw not assigned..');
            exit;
          end;
          if FileExists (FFileName) then begin
            if m_FileStream = nil then
                m_FileStream := TFileStream.Create (FFileName, fmOpenRead or fmShareDenyNone);
            m_FileStream.Read (Header, SizeOf(TWMImageHeader));

            if header.VerFlag = 0 then begin
              btVersion:=1;
              m_FileStream.Seek(-4,soFromCurrent);
            end;
            FImageCount := Header.ImageCount;

              if header.ColorCount=256 then begin
                FBitFormat:=pf8Bit; FBytesPerPixels:=1;
              end else if header.ColorCount=65536 then begin
                  FBitFormat:=pf16bit; FBytesPerPixels:=2;
              end else if header.colorcount=16777216 then begin
                  FBitFormat:=pf24Bit; FBytesPerPixels:=4;
              end else if header.ColorCount>16777216 then begin
                  FBitFormat:=pf32Bit; FBytesPerPixels:=4;
              end;
              ChangeDIBPixelFormat(lsDIB,FBitFormat);

              if (LibType = ltUseCache) then begin
                m_ImgArr:=AllocMem(SizeOf(TDxImage) * FImageCount);
                if m_ImgArr = nil then
                  raise Exception.Create (self.Name + ' ImgArr = nil');
              end;
            idxfile := ExtractFilePath(FFileName) + ExtractFileNameOnly(FFileName) + '.WIX';
            LoadPalette;
              LoadIndex (idxfile);
          end else begin
          end;
      end;
    end;


    procedure TWMImages.LoadDxImage (position: integer; pdximg: PTDxImage);
    var
      imginfo: TWMImageInfo;
      DBits: PByte;
    begin

      m_FileStream.Seek (position, 0);
      if btVersion <> 0 then m_FileStream.Read (imginfo, SizeOf(TWMImageInfo)-4)
      else m_FileStream.Read (imginfo, SizeOf(TWMImageInfo));
          lsDib.Clear;
          lsDib.Width := imginfo.nWidth;
          lsDib.Height := imginfo.nHeight;
          lsDib.ColorTable := MainPalette;
          lsDib.UpdatePalette;
          DBits := lsDib.PBits;
          m_FileStream.Read (DBits^, imginfo.nWidth * imgInfo.nHeight * FBytesPerPixels);
          pdximg.nPx := imginfo.px;
          pdximg.nPy := imginfo.py;
          pdximg.surface := TDirectDrawSurface.Create (FDDraw);
          pdximg.surface.SystemMemory := TRUE;
          pdximg.surface.SetSize (imginfo.nWidth, imginfo.nHeight);
          pdximg.surface.Canvas.Draw (0, 0, lsDib);
          pdximg.surface.Canvas.Release;
          pdximg.surface.TransparentColor := 0;
          lsDib.Clear;
    end;



    procedure DrawBlend(dsuf: TDirectDrawSurface; x, y: integer; ssuf:
      TDirectDrawSurface; blendmode: integer);
    begin
      DrawBlendEx(dsuf, x, y, ssuf, 0, 0, ssuf.Width, ssuf.Height, blendmode);
    end;

    procedure DrawBlendEx(dsuf: TDirectDrawSurface; x, y: integer; ssuf:
      TDirectDrawSurface; ssufleft, ssuftop, ssufwidth, ssufheight, blendmode:
      integer);
    var
      Header: TWMImageHeader;
    begin
      if (dsuf.canvas = nil) or (ssuf.canvas = nil) then exit;
      if x >= dsuf.Width then exit;
      if y >= dsuf.Height then exit;
      if blendMode = 1 then
      begin
        dsuf.DrawAdd(rect(x, y, x + ssufWidth, y + ssufHeight), rect(ssufLeft,
          ssufTop, ssufLeft + ssufWidth, ssufTop + ssufHeight), ssuf, true, 225);
      end
      else
        dsuf.DrawAlpha(rect(x, y, x + ssufWidth, y + ssufHeight), rect(ssufLeft,
          ssufTop, ssufLeft + ssufWidth, ssufTop + ssufHeight), ssuf, true, 192);

    end;
  • 相关阅读:
    python 函数
    python控制流
    python数据类型转换
    python变量
    chardet查看字符串的编码(非常好用)
    python编码转换
    系统、浏览器兼容性测试注意事项
    python数据类型
    Python二进制转十进制算法、十进转二进制算法
    介绍几个C#正则表达式工具
  • 原文地址:https://www.cnblogs.com/zerovirs/p/1759493.html
Copyright © 2020-2023  润新知