{"id":160455,"date":"2012-11-27T22:35:03","date_gmt":"2012-11-27T18:35:03","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=160455"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=160455","title":{"rendered":"\u041a\u0440\u0430\u0441\u0438\u0432\u044b\u0435 disabled \u0438\u043a\u043e\u043d\u043a\u0438 \u00ab\u043c\u0430\u043b\u043e\u0439 \u043a\u0440\u043e\u0432\u044c\u044e\u00bb<\/span>"},"content":{"rendered":"
\tDelphi \u0434\u0430\u0432\u043d\u043e \u0441\u043b\u0430\u0432\u0438\u0442\u0441\u044f \u0442\u0435\u043c, \u0447\u0442\u043e disabled \u0438\u043a\u043e\u043d\u043a\u0438 \u043f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e \u0432\u044b\u0433\u043b\u044f\u0434\u044f\u0442 \u043a\u0430\u043a-\u0442\u043e \u0442\u0430\u043a:<\/p>\n

<\/p>\n

\u0410 \u0445\u043e\u0442\u0435\u043b\u043e\u0441\u044c \u0431\u044b, \u0447\u0442\u043e\u0431 \u043e\u043d\u0438 \u0432\u044b\u0433\u043b\u044f\u0434\u0435\u043b\u0438 \u0432\u043e\u0442 \u043a\u0430\u043a-\u0442\u043e \u0442\u0430\u043a:<\/p>\n

<\/p>\n

\u0412\u043e\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\u0441\u044f \u0442\u0435\u043c, \u0447\u0442\u043e Delphi \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u0437\u0430\u043c\u0435\u043d\u0438\u0442\u044c disabled \u0438\u043a\u043e\u043d\u043a\u0438 \u0441\u0432\u043e\u0438\u043c\u0438, \u0443\u043a\u0430\u0437\u0430\u0432 \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0439 \u0441\u043f\u0438\u0441\u043e\u043a \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0439. \u041d\u043e \u0440\u0438\u0441\u043e\u0432\u0430\u0442\u044c \u0438 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0430\u0442\u044c \u0442\u0430\u043a\u0438\u0435 \u0438\u043a\u043e\u043d\u043a\u0438 \u043a\u0430\u0436\u0434\u044b\u0439 \u0440\u0430\u0437 \u0437\u0430\u043d\u044f\u0442\u0438\u0435 \u0443\u0442\u043e\u043c\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0435. \u041f\u043e\u044d\u0442\u043e\u043c\u0443 \u043c\u044b \u0441\u043e\u0437\u0434\u0430\u0434\u0438\u043c \u044d\u0442\u043e\u0442 \u0441\u043f\u0438\u0441\u043e\u043a \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0439 \u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u0438, \u0432\u043e \u0432\u0440\u0435\u043c\u044f \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b.<\/p>\n

\u0421\u043e\u0437\u0434\u0430\u0432\u0430\u0442\u044c \u0442\u0430\u043a\u043e\u0439 \u0441\u043f\u0438\u0441\u043e\u043a \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0439 \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u0432 \u0441\u043f\u0435\u0446\u0438\u0430\u043b\u044c\u043d\u043e\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 CreateSpecialImageList(). \u0412 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u0430 \u043d\u0430\u043c \u043f\u043e\u043d\u0430\u0434\u043e\u0431\u0438\u0442\u0441\u044f \u0441\u043f\u0438\u0441\u043e\u043a \u0441 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b\u044c\u043d\u044b\u043c\u0438 \u0438\u043a\u043e\u043d\u043a\u0430\u043c\u0438, \u0430 \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c\u043e\u0433\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0443\u0436\u0435 \u0431\u0443\u0434\u0435\u0442 \u043d\u0443\u0436\u043d\u044b\u0439 \u043d\u0430\u043c TImageList. \u0422\u043e\u0433\u0434\u0430 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0438\u0442\u044c \u043d\u0430\u0448\u0438 \u043d\u043e\u0432\u044b\u0435 \u0438\u043a\u043e\u043d\u043a\u0438 \u043c\u044b \u0441\u043c\u043e\u0436\u0435\u043c \u043f\u0440\u0438 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0438 \u0444\u043e\u0440\u043c\u044b \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0439 \u0441\u0442\u0440\u043e\u0447\u043a\u043e\u0439 \u043a\u043e\u0434\u0430:<\/p>\n

ActionManager.DisabledImages := CreateSpecialImageList(ImageList); <\/code>
<\/a> <\/p>\n

\u041d\u043e \u044f \u0434\u0443\u043c\u0430\u044e, \u043c\u044b \u0434\u043e\u043b\u0436\u043d\u044b \u043f\u043e\u0439\u0442\u0438 \u0433\u043b\u0443\u0431\u0436\u0435…<\/h5>\n

<\/p>\n

\u0420\u0430\u0441\u0448\u0438\u0440\u0438\u043c \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u0438, \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u0434\u0435\u043b\u0430\u0442\u044c \u043d\u0435 \u0442\u043e\u043b\u044c\u043a\u043e \u0441\u0435\u0440\u044b\u0435 \u043f\u043e\u043b\u0443\u043f\u0440\u043e\u0437\u0440\u0430\u0447\u043d\u044b\u0435 \u0438\u043a\u043e\u043d\u043a\u0438, \u043d\u043e \u0438 \u0434\u0435\u043b\u0430\u0442\u044c \u0438\u0445 \u044f\u0440\u0447\u0435 \u0438\u043b\u0438 \u043a\u043e\u043d\u0442\u0440\u0430\u0441\u0442\u043d\u0435\u0435. \u042d\u0442\u043e \u043c\u043e\u0436\u0435\u0442 \u043f\u043e\u043d\u0430\u0434\u043e\u0431\u0438\u0442\u044c\u0441\u044f \u043f\u0440\u0438 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0438 \u0438\u043a\u043e\u043d\u043e\u043a \u0434\u043b\u044f \u0441\u0432\u043e\u0439\u0441\u0442\u0432 HotImages. \u0422\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c, \u0443 \u043d\u0430\u0441 \u0431\u0443\u0434\u0435\u0442 \u0443\u043d\u0438\u0432\u0435\u0440\u0441\u0430\u043b\u044c\u043d\u0430\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0434\u043b\u044f \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u0438\u043a\u043e\u043d\u043e\u043a \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u0438\u0445 \u0441\u043f\u0435\u0446\u0438\u0430\u043b\u044c\u043d\u044b\u0445 \u0441\u043e\u0441\u0442\u043e\u044f\u043d\u0438\u0439.<\/p>\n

\u0418\u0441\u0445\u043e\u0434\u043d\u044b\u0439 \u043a\u043e\u0434 \u0444\u0443\u043d\u043a\u0446\u0438\u0438:<\/h5>\n


function<\/b><\/font> CreateSpecialImageList(<\/font>ASource:<\/font> TCustomImageList;<\/font>
  ABrightness,<\/font> AContrast,<\/font> AGrayscale,<\/font> AAlpha:<\/font> Single<\/b><\/font>)<\/font>:<\/font> TCustomImageList;<\/font>
type<\/b><\/font>
  PBGRA =<\/font> ^<\/font>TBGRA;<\/font>
  TBGRA =<\/font> packed<\/b><\/font> record<\/b><\/font>
    B,<\/font> G,<\/font> R,<\/font> A:<\/font> Byte<\/b><\/font>;<\/font>
  end<\/b><\/font>;<\/font>
  TByteLUT =<\/font> array<\/b><\/font> [<\/font>Byte<\/b><\/font>]<\/font> of<\/b><\/font> Byte<\/b><\/font>;<\/font><\/p>\n

  function<\/b><\/font> ByteRound(<\/font>const<\/b><\/font> Value:<\/font> Single<\/b><\/font>)<\/font>:<\/font> Byte<\/b><\/font>;<\/font> inline<\/b><\/font>;<\/font>
  begin<\/b><\/font>
    if<\/b><\/font> Value < 0<\/font> then<\/b><\/font>
      Result :<\/font>=<\/font> 0<\/font>
    else<\/b><\/font> if<\/b><\/font> Value > 255<\/font> then<\/b><\/font>
      Result :<\/font>=<\/font> 255<\/font>
    else<\/b><\/font>
      Result :<\/font>=<\/font> Round<\/font>(<\/font>Value)<\/font>;<\/font>
  end<\/b><\/font>;<\/font><\/p>\n

  procedure<\/b><\/font> GetLinearLUT(<\/font>var<\/b><\/font> LUT:<\/font> TByteLUT;<\/font> X1,<\/font> Y1,<\/font> X2,<\/font> Y2:<\/font> Integer<\/b><\/font>)<\/font>;<\/font>
  var<\/b><\/font>
    X,<\/font> DX,<\/font> DY:<\/font> Integer<\/b><\/font>;<\/font>
  begin<\/b><\/font>
    DX :<\/font>=<\/font> X2 —<\/font> X1;<\/font>
    DY :<\/font>=<\/font> Y2 —<\/font> Y1;<\/font>
    for<\/b><\/font> X :<\/font>=<\/font> 0<\/font> to<\/b><\/font> 255<\/font> do<\/b><\/font>
      LUT[<\/font>X]<\/font> :<\/font>=<\/font> ByteRound(<\/font>(<\/font>X —<\/font> X1)<\/font> *<\/font> DY \/<\/font> DX +<\/font> Y1)<\/font>;<\/font>
  end<\/b><\/font>;<\/font><\/p>\n

  function<\/b><\/font> GetBrightnessContrastLUT(<\/font>var<\/b><\/font> LUT:<\/font> TByteLUT;<\/font> const<\/b><\/font> Brightness,<\/font> Contrast:<\/font> Single<\/b><\/font>)<\/font>:<\/font> Boolean<\/b><\/font>;<\/font>
  var<\/b><\/font>
    B,<\/font> C:<\/font> Integer<\/b><\/font>;<\/font>
    X1,<\/font> Y1,<\/font> X2,<\/font> Y2:<\/font> Integer<\/b><\/font>;<\/font>
  begin<\/b><\/font>
    X1 :<\/font>=<\/font> 0<\/font>;<\/font>
    Y1 :<\/font>=<\/font> 0<\/font>;<\/font>
    X2 :<\/font>=<\/font> 255<\/font>;<\/font>
    Y2 :<\/font>=<\/font> 255<\/font>;<\/font>
    B :<\/font>=<\/font> Round<\/font>(<\/font>Brightness *<\/font> 255<\/font>)<\/font>;<\/font>
    C :<\/font>=<\/font> Round<\/font>(<\/font>Contrast *<\/font> 127<\/font>)<\/font>;<\/font>
    if<\/b><\/font> C >=<\/font> 0<\/font> then<\/b><\/font>
    begin<\/b><\/font>
      Inc<\/font>(<\/font>X1,<\/font> C)<\/font>;<\/font>
      Dec<\/font>(<\/font>X2,<\/font> C)<\/font>;<\/font>
      Dec<\/font>(<\/font>X1,<\/font> B)<\/font>;<\/font>
      Dec<\/font>(<\/font>X2,<\/font> B)<\/font>;<\/font>
    end<\/b><\/font>
    else<\/b><\/font>
    begin<\/b><\/font>
      Dec<\/font>(<\/font>Y1,<\/font> C)<\/font>;<\/font>
      Inc<\/font>(<\/font>Y2,<\/font> C)<\/font>;<\/font>
      Inc<\/font>(<\/font>Y1,<\/font> B)<\/font>;<\/font>
      Inc<\/font>(<\/font>Y2,<\/font> B)<\/font>;<\/font>
    end<\/b><\/font>;<\/font>
    GetLinearLUT(<\/font>LUT,<\/font> X1,<\/font> Y1,<\/font> X2,<\/font> Y2)<\/font>;<\/font>
    Result :<\/font>=<\/font> (<\/font>B <> 0<\/font>)<\/font> or<\/b><\/font> (<\/font>C <> 0<\/font>)<\/font>;<\/font>
  end<\/b><\/font>;<\/font><\/p>\n

var<\/b><\/font>
  LImageInfo:<\/font> TImageInfo;<\/font>
  LDibInfo:<\/font> TDibSection;<\/font>
  I,<\/font> L:<\/font> Integer<\/b><\/font>;<\/font>
  P:<\/font> PBGRA;<\/font>
  R,<\/font> G,<\/font> B,<\/font> A:<\/font> Byte<\/b><\/font>;<\/font>
  LUT:<\/font> TByteLUT;<\/font>
  LHasLUT:<\/font> Boolean<\/b><\/font>;<\/font>
begin<\/b><\/font>
  Result :<\/font>=<\/font> nil<\/b><\/font>;<\/font>
  if<\/b><\/font> (<\/font>ASource =<\/font> nil<\/b><\/font>)<\/font> or<\/b><\/font> (<\/font>ASource.<\/font>ColorDepth<\/font> <> cd32bit)<\/font> then<\/b><\/font>
    Exit<\/font>;<\/font>
  Result :<\/font>=<\/font> TImageList.<\/font>Create<\/font>(<\/font>ASource.<\/font>Owner<\/font>)<\/font>;<\/font>
  try<\/b><\/font>
    Result.<\/font>ColorDepth<\/font> :<\/font>=<\/font> cd32bit;<\/font>
    Result.<\/font>Assign<\/font>(<\/font>ASource)<\/font>;<\/font>
    Result.<\/font>Masked<\/font> :<\/font>=<\/font> False<\/b><\/font>;<\/font>
    FillChar<\/font>(<\/font>LImageInfo,<\/font> SizeOf<\/font>(<\/font>LImageInfo)<\/font>,<\/font> 0<\/font>)<\/font>;<\/font>
    ImageList_GetImageInfo(<\/font>Result.<\/font>Handle<\/font>,<\/font> 0<\/font>,<\/font> LImageInfo)<\/font>;<\/font>
    FillChar<\/font>(<\/font>LDibInfo,<\/font> SizeOf<\/font>(<\/font>LDibInfo)<\/font>,<\/font> 0<\/font>)<\/font>;<\/font>
    GetObject(<\/font>LImageInfo.<\/font>hbmImage<\/font>,<\/font> SizeOf<\/font>(<\/font>LDibInfo)<\/font>,<\/font> @<\/font>LDibInfo)<\/font>;<\/font>
    P :<\/font>=<\/font> LDibInfo.<\/font>dsBm<\/font>.<\/font>bmBits<\/font>;<\/font>
    LHasLUT :<\/font>=<\/font> GetBrightnessContrastLUT(<\/font>LUT,<\/font> ABrightness,<\/font> AContrast)<\/font>;<\/font>
    for<\/b><\/font> I :<\/font>=<\/font> 0<\/font> to<\/b><\/font> LDibInfo.<\/font>dsBm<\/font>.<\/font>bmHeight<\/font> *<\/font> LDibInfo.<\/font>dsBm<\/font>.<\/font>bmWidth<\/font> —<\/font> 1<\/font> do<\/b><\/font>
    begin<\/b><\/font>
      A :<\/font>=<\/font> P.<\/font>A<\/font>;<\/font>
      R :<\/font>=<\/font> MulDiv(<\/font>P.<\/font>R<\/font>,<\/font> $FF<\/font>,<\/font> A)<\/font>;<\/font>
      G :<\/font>=<\/font> MulDiv(<\/font>P.<\/font>G<\/font>,<\/font> $FF<\/font>,<\/font> A)<\/font>;<\/font>
      B :<\/font>=<\/font> MulDiv(<\/font>P.<\/font>B<\/font>,<\/font> $FF<\/font>,<\/font> A)<\/font>;<\/font>
      if<\/b><\/font> LHasLUT then<\/b><\/font>
      begin<\/b><\/font>
        R :<\/font>=<\/font> LUT[<\/font>R]<\/font>;<\/font>
        G :<\/font>=<\/font> LUT[<\/font>G]<\/font>;<\/font>
        B :<\/font>=<\/font> LUT[<\/font>B]<\/font>;<\/font>
      end<\/b><\/font>;<\/font>
      if<\/b><\/font> AGrayscale > 0<\/font> then<\/b><\/font>
      begin<\/b><\/font>
        L :<\/font>=<\/font> (<\/font>R *<\/font> 61<\/font> +<\/font> G *<\/font> 174<\/font> +<\/font> B *<\/font> 21<\/font>)<\/font> shr<\/b><\/font> 8<\/font>;<\/font>
        if<\/b><\/font> AGrayscale >=<\/font> 1<\/font> then<\/b><\/font>
        begin<\/b><\/font>
          R :<\/font>=<\/font> L;<\/font>
          G :<\/font>=<\/font> L;<\/font>
          B :<\/font>=<\/font> L;<\/font>
        end<\/b><\/font>
        else<\/b><\/font>
        begin<\/b><\/font>
          R :<\/font>=<\/font> ByteRound(<\/font>R +<\/font> (<\/font>L —<\/font> R)<\/font> *<\/font> AGrayscale)<\/font>;<\/font>
          G :<\/font>=<\/font> ByteRound(<\/font>G +<\/font> (<\/font>L —<\/font> G)<\/font> *<\/font> AGrayscale)<\/font>;<\/font>
          B :<\/font>=<\/font> ByteRound(<\/font>B +<\/font> (<\/font>L —<\/font> B)<\/font> *<\/font> AGrayscale)<\/font>;<\/font>
        end<\/b><\/font>;<\/font>
      end<\/b><\/font>;<\/font>
      if<\/b><\/font> AAlpha <> 1<\/font> then<\/b><\/font>
      begin<\/b><\/font>
        A :<\/font>=<\/font> ByteRound(<\/font>A *<\/font> AAlpha)<\/font>;<\/font>
        P.<\/font>A<\/font> :<\/font>=<\/font> A;<\/font>
      end<\/b><\/font>;<\/font>
      P.<\/font>R<\/font> :<\/font>=<\/font> MulDiv(<\/font>R,<\/font> A,<\/font> $FF<\/font>)<\/font>;<\/font>
      P.<\/font>G<\/font> :<\/font>=<\/font> MulDiv(<\/font>G,<\/font> A,<\/font> $FF<\/font>)<\/font>;<\/font>
      P.<\/font>B<\/font> :<\/font>=<\/font> MulDiv(<\/font>B,<\/font> A,<\/font> $FF<\/font>)<\/font>;<\/font>
      Inc<\/font>(<\/font>P)<\/font>;<\/font>
    end<\/b><\/font>;<\/font>
  except<\/b><\/font>
    FreeAndNil<\/font>(<\/font>Result)<\/font>;<\/font>
  end<\/b><\/font>;<\/font>
end<\/b><\/font>;<\/font><\/p>\n

 <\/font> <\/p>\n

\u0410\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u044b \u0444\u0443\u043d\u043a\u0446\u0438\u0438:<\/h5>\n

<\/p>\n