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

made in programmersforum 8

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

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

22nd
Май

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

Posted by obzor 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;