Graphics32 - Layer (Transparenz, zechnen)

[moonwhaler]

Ich habe vor kurzem eine kleine Prozedur gebastelt, die mir auf einem TImage32 ein Layer erstellt und einen Alpha setzt. Dies war für mich wichtig, damit ich quasi ein MouseEnter mit Alpha-Effekt habe:

Delphi-Quellcode:

  
procedure ImageAlpha( Image: TImage32;
                      Layer: TBitmap32;
                      Background: TBitmap32 = nil );
var
  L: TBitmapLayer;
const
  MasterAlpha: SmallInt = 100;
  Width: SmallInt = 24;
  Height: SmallInt = 24;
  Left: SmallInt = 0;
  Top: SmallInt = 0;
begin
  Image.Layers.Clear();

  if ( Assigned( Background ) ) then
    Image.Bitmap := Background;

  L := TBitmapLayer.Create( Image.Layers );
  L.Bitmap.SetSize( Width, Height );
  L.Location := FloatRect( Left, Top, Width, Height );
  L.Bitmap.CombineMode := cmBlend;
  L.Bitmap.DrawMode := dmBlend;
  L.Bitmap := Layer;
  L.Bitmap.MasterAlpha := MasterAlpha;
end;

Der Aufruf ist sehr einfach:

ImageAlpha( lock_image_bg, icon_list.Bitmaps[0].Bitmap ); Bei MouseEnter beim entsprechenden TImage32 dann folgendes:

Delphi-Quellcode:

  
if ( Sender is TImage32 ) then
  with Sender as TImage32 do
    TBitmapLayer( Layers[0] ).Bitmap.MasterAlpha := 255;

Und bei MouseLeave:

Delphi-Quellcode:

  
if ( Sender is TImage32 ) then
  with Sender as TImage32 do
    TBitmapLayer( Layers[0] ).Bitmap.MasterAlpha := 100;

Lässt sich natürlich beliebig ausbauen...