• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Прозрачная форма, а на ней картинка

  • Автор темы DolWeb
  • Дата начала
Статус
Закрыто для дальнейших ответов.
D

DolWeb

Как сделать, что-бы картинка с прозрачными местами отображалась прозрачно (т.е Как включит прозрачность формы и картинки,у меня получилось в аттаче)
1.png
 
D

DolWeb

Уже 9> просмотров и никто не поможет?
 
P

Pasha

DolWeb
На приаттаченной картинке совершенно непонятно где фон, где форма и где картинка.
 
Z

zubr

Как я понимаю там белый цвет - это фон.
Не берусь утверждать, но по моему с 6 билдера у формы есть свойства AlphaBlend, AlphaBlendValue, Transparent, TransparentColor. Думаю, остальное понятно, в крайнем случае по этим свойствам есть Help. Данный вариант решения самый простой, но есть и другие варианты (через регионы).
 
D

DolWeb

AlphaBlend, AlphaBlendValue, Transparent
Это я пробовал
На приаттаченной картинке белое - это прозрачная область (должна быть), фон это цветное нечто (обычный виндус скрин)
Всю форму картинка загораживает, на форме ставил Visible false Enabled false

картинку вставил через TImage
 
Z

zubr

Должно работать.
Transparent=TRUE;
TransparentColor=clWhite;

Проверь свою картинку в графическом редакторе. Важно, чтобы белый цвет был действительно белым - RGB(255, 255, 255)
 
D

DolWeb

Спасибо!

У меня еще вопрос, как сделать картинку с полупрозрачными областями, например, что бы была видна тень
 
Z

zubr

Попробуй просто сделать с определенной прозрачностью. Что типа этого (код на Delphi, думаю сам переведешь):
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
bmp:TBitmap;
bf:BLENDFUNCTION;
begin
bmp:=TBitmap.Create;
try
bmp.LoadFromFile('d:\1.bmp');

bf.BlendOp:=AC_SRC_OVER;
bf.BlendFlags:=0;
bf.SourceConstantAlpha:=100;//величина прозрачности (0-255)
bf.AlphaFormat:=0;
Windows.AlphaBlend(Image1.Canvas.Handle, 0, 0, Image1.ClientWidth, Image1.ClientHeight,
bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, bf);
finally
bmp.Free;
end;
end;
 
D

DolWeb

Кодом и я могу написать, исходник проги есть, а настройками, как - нибудь нельзя?
 
Z

zubr

Какими настройками? Настройками чего?
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!