Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

1st
Окт

Плавное появление и исчезновение объекта TImage

Posted by micher under Delphi

На форме есть объект (пускай Image1). В данный момент на канвасе рисуется картинка. Нужно, чтобы при наведении мыши изображение плавно появлялось, а при отведении — плавно исчезало.

Хамяг



procedure SetBlend(Image: TImage; Original: TBitmap; Value: Byte);

var

  x,y: Integer;

  pd: PRGBTriple;

  Bit: TBitmap;

begin

  Bit:=TBitmap.Create;

  Bit.Assign(Original);

  Form1.Caption:=IntToStr(Bit.Width)+' '+IntToStr(Bit.Height);

  for y:=0 to Bit.Height-2 do

  begin

    pd:=Bit.ScanLine[y];

    for x:=0 to (Bit.Width-1)*4 div 3 do

    begin

      pd.rgbtBlue:=Round((1-Value/255)*pd.rgbtBlue);

      pd.rgbtGreen:=Round((1-Value/255)*pd.rgbtGreen);

      pd.rgbtRed:=Round((1-Value/255)*pd.rgbtRed);

      Inc(pd);

    end;

  end;

  Image.Picture.Assign(Bit);

  Bit.Free;

end;