Сделать изображение затемненным/полупрозрачным

[Kronos913]

Возможно ли сделать изображение TImage полупрозрачным, или затемнённым?

Вариант с тем, чтобы "затемнить" через промежуточный bitmap - не вариант, потому что нельзя портить изначальные данные

[Arigato]

Сообщение от Kronos913

нельзя портить изначальные данные

А каким образом они испортятся?

[Kronos913]

Мне нужно чтобы это действие было обратимым

Есть несколько TImage на форме
К каждому из них привязан TCheckBox

Если убирается галочка с CheckBox - то изображение должно стать темнее, если же возвращается галочка - изображение становится таким как было

Вот такое вот нужно сделать...

[Alar]

https://programmersforum.ru/showthre...ge.transparent

в delphi7 что-то типа timage.transparent было

ещё возможно timage.scale

[Arigato]

transparent дает полную прозрачность для пикселей определенного цвета. На счет альфа-канала что-то не припомню. Но что мешает держать изображение где-то в TBitMap и выводить на TImage по мере необходимости?

[NetSpace]

сверху накладываете вторую форму, на который выведен, скажем, тёмно-синий цвет и регулируете его прозрачность. будет типа как тёмно-синяя прозрачная плёнка поверх вашего первого рисунка.
----------
как-то давно, в 2011-м году, делал совмещение двух картинок, чтоб что-то проверить с координатами. кажется, сборную панораму из 100 файлов.

procedure TForm1.TrackBar1Change(Sender:TObject);
begin
   Edit1.Text:=IntToStr(TrackBar1.Position);
   Form2.AlphaBlendValue:=Round(TrackBar1.Position*255/100);
end;

[Arigato]

Сообщение от Kronos913

или затемнённым?

Не ясна конечная цель. Если просто затенить, то можно сверху наложить затемняющую маску. Например, поверх TImage разместил TShape, задал стиль заливки, получилось такое:

1.png

Можно абсолютно любую маску сделать подобным образом.

[Alar]

Сообщение от Arigato

Не ясна конечная цель.

там скорее всего торговля картинками, типа размытый предпросмотр голых жоп.
типа попытки первоначальные реализовать, чуть позже будет похожая тема в разделе PHP или Perl )
Хотя и на делфи можно сервер поднять для обработки.

[DIONISKA]

Если нужно именно прозрачность, то можно разместить Timage на панели, и сделать как в прикреплении. Через alphablend и изменения стиля. Но это из разряда как нельзя и не стоит. (Щас набегут злые дядьки и обьяснят почему :D)
А вообще лучше использовать graphics32, там прозрачность, размытие и тп из коробки, а изображения хранить отдельно, где-нибудь в TDictionary<Integer,TPicture> или Tbitmap32List и отрисовывать их в onpaint с затенением/прозрачностью/размытием или оригинал.

торговля картинками

Вроде ещё раньше ТС когда-то пилил свой "мегакомбайн для изображений" с блэкджеком и тп Типа не устраивали аналоги вроде xnview/convert, picasa и тп