Здравствуйте. Появтлась необходимость накладывать в своей проге водяной знак на картинку(JPG). Водяной знак также представляет из себя обычную картинку. Собственно исходник по наложению картинки на картинку Я нашел. Но там 1-ая картинка полностью накладывается на вторую(ну только с прозрачностью), а Мне нужно на определенный участок первой картинки. Вот код Code: var bmp1, bmp2: TBitMap; Blend: TBlendFunction; begin bmp1 := TBitMap.Create; bmp2 := TBitMap.Create; bmp1.LoadFromFile('C:\1.bmp'); // загружаем 1 битмап bmp2.LoadFromFile('C:\2.bmp'); // и второй битмап bmp1.PixelFormat := pf32bit; // переводим оба в 32 бит bmp2.PixelFormat := pf32bit; Blend.BlendOp := AC_SRC_OVER; Blend.BlendFlags := 0; Blend.SourceConstantAlpha := 128; // прозрачность 50% (0 - 255) Blend.AlphaFormat := AC_SRC_ALPHA; // либо = 0 (другой алгоритм) // накладываем битмап 2 на битмап 1. Результат в bmp1 if Windows.AlphaBlend(bmp1.Canvas.Handle, 0, 0, bmp1.Width, bmp1.Height, bmp2.Canvas.Handle, 0, 0, bmp2.Width, bmp2.Height, Blend) then Canvas.Draw(0, 0, bmp1) // рисуем результат на форме else ShowMessage(IntToStr(GetLastError)); // или код ошибки, если наложить не удалось bmp1.Free; bmp2.Free; // уничтожаем битмапы end; Помогите пожалуйста
спрашивается: млять ты каким местом смотришь???????????????????????????????? тебе случайно ничего не говорят эти цифры: if Windows.AlphaBlend(bmp1.Canvas.Handle, 0, 0, bmp1.Width, bmp1.Height, bmp2.Canvas.Handle, 0, 0, bmp2.Width, bmp2.Height, Blend) then Или впадлу глянуть в MSDN и увидеть Когда задаете подобные вопросы, вы хотябы ищите сначало ответы в инете или хоть чуть сами подумайте над ответом. Тем более что на 99% вопросов по WinAPI - в MSDN есть ответы. Влом канать? Ну тогда юзайте онлайн версию. Не знаете англ языка, ну так смотрите уже переведенный вариант или кормите гуглопереводчика.
Slesh, простите Меня за такие глупые вопросы действительно про MSDN Я впервые узнал.. впредь обещаю быть более внимательным.. Вот Я сделал так Code: Windows.AlphaBlend(bmp1.Canvas.Handle, bmp1.Width-bmp2.Width, bmp1.Height- bmp2.Height, bmp1.Width, bmp1.Height, bmp2.Canvas.Handle, 0, 0, bmp2.Width, bmp2.Height, Blend) по Моим суждениям вторая картинка должна появится в правом нижнем углу. Однако картинки вообще не видно.
А зачем понадобилось добавить водный знак? Опытному человеку не очень сложно будет обойти такую реализацию (скажем, сделать скриншот проги, на котором должен быть ватермарк, но его не будет).
Мне на скриншоты нужно накладывать водяной знак, этой прогой особо опытные люди не будут пользоваться
Code: if Windows.AlphaBlend( bmp1.Canvas.Handle, // главная картинка bmp1.Width - bmp2.Width, // место куда начнет выводиться вторая картинка по X bmp1.Height - bmp2.Height, // место куда начнет выводиться вторая картинка по Y bmp2.Width, // сколько будет выводиться вторая картинка по X bmp2.Height, // сколько будет выводиться вторая картинка по Y bmp2.Canvas.Handle, // накладываемая картинка 0, // откуда наложить X 0, // откуда наложить Y bmp2.Width, // сколько наложить по X bmp2.Height, // сколько наложить по Y Blend) then Выражаясь простым языком команда принимает значения: Положение и размер региона куда впихиваются данные и положения и размер региона впихиваемых данных. Если первый меньше второго, то автоматически картинка уменьшится (масштаб станет меньше), если первый больше второго, то наоборот увеличится. т.е. чтото типа изменение размера еще можно тут реализовать. AC_SRC_ALPHA - мешивание светов + прозрачность AC_SRC_OVER - смешивание цветов без использование прозрачности