Toolbutton grau machen + disable !!!

[Progman]

Die folgende Procedure macht ein TPNGObject halbtransparent (stammt aus der Unit der TPNGButton-Komponente):

Delphi-Quellcode:

procedure MakeImageHalfTransparent(Source, Dest: TPNGObject);
var
  i, j: Integer;
begin
  Dest.Assign(Source);
  Dest.CreateAlpha;
  if (Dest.Header.ColorType <> COLOR_PALETTE) then
    for j := 0 to Source.Height - 1 do
      for i := 0 to Source.Width - 1 do
        Dest.AlphaScanline[j]^[i] := Dest.AlphaScanline[j]^[i] div 3;
end;

Vielleicht nützt es dir ja was.