Объединить две картинки в одну

Форумы Помощь по пакетуОбъединить две картинки в одну ← Ctrl1Ctrl →

Этот топик читают: Гость

Этот топик был перемещен из раздела "Помощь по среде"

Ответов: 537

Рейтинг: 14

#1: 2022-03-19 14:52:03 ЛС | профиль | цитата

Нужно объединить две картинки в одну, первую поставить слева, вторую рядом с права, по середине между картинкаму будет пробел, как объединить

Add(Image,9439258,420,392)
{
 Left=165
 Top=65
 Width=20
 Color=16777215
 ViewStyle=4
 Point(doHeight)
 Point(doWidth)
}
Add(Button,8575134,182,406)
{
 Left=150
 Top=110
 link(onClick,3754026:doEvent1,[])
}
Add(DoData,12377116,287,406)
{
 link(onEventData,9439258:doHeight,[])
 link(Data,3274264:ImageHeight,[])
}
Add(Hub,3754026,238,406)
{
 OutCount=3
 link(onEvent1,12377116:doData,[])
 link(onEvent2,9293321:doOperation,[(273,419)(273,461)])
 link(onEvent3,12988606:doData,[(270,426)(270,503)])
}
Add(Math,9293321,294,455)
{
 link(onResult,14215350:doOperation,[])
 link(Op1,3274264:ImageWidth,[])
 link(Op2,15364832:ImageWidth,[])
}
Add(Math,14215350,343,455)
{
 Op2=5
 link(onResult,9439258:doWidth,[(397,461)(397,419)])
}
Add(DoData,12988606,287,497)
{
 link(onEventData,9439258:doLoad,[(369,503)(369,398)])
 link(Data,3274264:ImageBitmap,[(293,482)(286,482)])
}
Add(Image,3274264,280,287)
{
 Left=100
 Top=15
 Picture=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FFFFFF19A61932E0C420794218973A72F4CBC9C991AD1FA41786A9693FB630A3B6FF29097F72ECA4A67E6AA49FE3C78F636072F483E28F5CFDC8E9879AF6239B8B9CBEA8E97F72C31F003E185201]
 Point(ImageHeight)
 Point(ImageWidth)
}
Add(Image,15364832,294,231)
{
 Left=220
 Top=15
 Picture=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FFFFFF47311AA6245C2809576201257AF1B98D52FD94FA9F1AE13F8A49C300CEEE8FFA]
 Point(ImageWidth)
}

Редактировалось 1 раз(а), последний 2022-03-19 14:54:32

карма: 4

Ответов: 2059

Рейтинг: 132

#2: 2022-03-19 19:22:17 ЛС | профиль | цитата

Sersey, Эта схема, как принцип решения.
Конечно нужен обвес с изменением размеров картинок и надо сделать рамку выделения.
--------------------------------------------------------------------------
Картинки двигать мышкой.
https://disk.yandex.ru/d/3Z8U-v2LsmmLyw
Схема не уместилась из за картинок.

Редактировалось 2 раз(а), последний 2022-03-19 19:37:48

карма: 6

Ответов: 537

Рейтинг: 14

#3: 2022-03-19 19:38:51 ЛС | профиль | цитата

Нужна пакетная обработка картинок. Открывается картинки 1 и 2, объединяются, результат сохраняется в другую паку, открывается 3 и 4, объединяются, результат сохраняется и т.д. Размеры картинок для объединения будут одинаковы

карма: 4

Ответов: 2059

Рейтинг: 132

#4: 2022-03-19 19:55:33 ЛС | профиль | цитата

Нужна пакетная обработка картинок. Открывается картинки 1 и 2, объединяются, результат

Ну и чего тут?
Загружаешь картинку в один hiImage и делаешь его равным размеру картинки, а если размеры фиксированы - тем проще. Другую картинку в другой.
Если их положение фиксировано и не надо тусовать их на форме - тем более проще сделать.
Можно и какую нибудь фоновую картинку подложить, если надо.
Ключевое слово - делаешь снимок области окна, да и всё, а пакетная, не пакетная обработка - это по барабану.

Редактировалось 2 раз(а), последний 2022-03-19 20:04:13

карма: 6

Ответов: 495

Рейтинг: 163

#5: 2022-03-19 21:35:57 ЛС | профиль | цитата

Sersey писал(а):

Sersey,Возможно как вариант

Пример

Add(Image,9439258,924,427)
{
 Left=165
 Top=65
 Width=50
 Color=16777215
 Name="5"
 AutoSize=0
 ViewStyle=4
 Point(doHeight)
 Point(doWidth)
}
Add(Button,8575134,532,315)
{
 Left=150
 Top=110
 link(onClick,3754026:doEvent1,[])
}
Add(Hub,3754026,588,315)
{
 link(onEvent1,14215350:doOperation,[])
 link(onEvent2,12779587:doDraw,[(630,328)(630,433)])
}
Add(Math,9293321,693,315)
{
 link(onResult,12912214:doCreate,[])
 link(Op2,15364832:ImageWidth,[(706,281)(832,281)])
}
Add(Math,14215350,644,315)
{
 Op2=5
 link(onResult,9293321:doOperation,[])
 link(Op1,3274264:ImageWidth,[(650,269)(769,269)])
}
Add(DoData,12988606,868,427)
{
 link(onEventData,9439258:doLoad,[])
 link(Data,424431:Var3,[(874,390)])
}
Add(Image,3274264,749,196)
{
 Left=100
 Top=15
 Picture=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FFFFFF19A61932E0C420794218973A72F4CBC9C991AD1FA41786A9693FB630A3B6FF29097F72ECA4A67E6AA49FE3C78F636072F483E28F5CFDC8E9879AF6239B8B9CBEA8E97F72C31F003E185201]
 Point(ImageHeight)
 Point(ImageWidth)
}
Add(Image,15364832,819,196)
{
 Left=220
 Top=15
 Picture=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FFFFFF47311AA6245C2809576201257AF1B98D52FD94FA9F1AE13F8A49C300CEEE8FFA]
 Point(ImageWidth)
}
Add(Img_Bmp,12779587,742,427)
{
 Point(Transform)
 Point(X)
 link(onDraw,16741063:doDraw,[])
 link(Bitmap,424431:Var1,[(748,390)])
 link(SourceBitmap,3274264:ImageBitmap,[])
}
Add(Img_Bmp,16741063,812,427)
{
 Point(X)
 link(onDraw,12988606:doData,[])
 link(Bitmap,424431:Var2,[])
 link(SourceBitmap,15364832:ImageBitmap,[])
 link(X,14215350:Result,[(832,374)(650,374)])
}
Add(Bitmap,12912214,784,301)
{
 FillColor=16777215
 Point(doCreate)
 Point(HWidth)
 Point(HHeight)
 link(HWidth,9293321:Result,[(790,296)(739,296)(739,360)(699,360)])
 link(HHeight,3274264:ImageHeight,[(797,253)(762,253)])
}
Add(GetDataEx,424431,812,385)
{
 link(Data,12912214:Bitmap,[(818,341)(790,341)])
}

Пример с наглядной регулировкой пробела

Add(Image,9439258,1127,406)
{
 Left=160
 Top=90
 Width=50
 Color=16777215
 Name="5"
 AutoSize=0
 ViewStyle=4
 Point(doHeight)
 Point(doWidth)
}
Add(Button,8575134,735,294)
{
 Left=160
 Top=145
 link(onClick,3754026:doEvent1,[])
}
Add(Hub,3754026,791,294)
{
 link(onEvent1,14215350:doOperation,[])
 link(onEvent2,12779587:doDraw,[(833,307)(833,412)])
}
Add(Math,9293321,896,294)
{
 link(onResult,12912214:doCreate,[])
 link(Op2,15364832:ImageWidth,[(909,260)(1035,260)])
}
Add(Math,14215350,847,294)
{
 Op2=5
 link(onResult,9293321:doOperation,[])
 link(Op1,3274264:ImageWidth,[(853,248)(972,248)])
 link(Op2,4982966:Position,[])
}
Add(DoData,12988606,1071,406)
{
 link(onEventData,9439258:doLoad,[])
 link(Data,424431:Var3,[(1077,369)])
}
Add(Image,3274264,952,175)
{
 Left=100
 Top=15
 Picture=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FFFFFF19A61932E0C420794218973A72F4CBC9C991AD1FA41786A9693FB630A3B6FF29097F72ECA4A67E6AA49FE3C78F636072F483E28F5CFDC8E9879AF6239B8B9CBEA8E97F72C31F003E185201]
 Point(ImageHeight)
 Point(ImageWidth)
}
Add(Image,15364832,1022,175)
{
 Left=220
 Top=15
 Picture=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FFFFFF47311AA6245C2809576201257AF1B98D52FD94FA9F1AE13F8A49C300CEEE8FFA]
 Point(ImageWidth)
}
Add(Img_Bmp,12779587,945,406)
{
 Point(Transform)
 Point(X)
 link(onDraw,16741063:doDraw,[])
 link(Bitmap,424431:Var1,[(951,369)])
 link(SourceBitmap,3274264:ImageBitmap,[])
}
Add(Img_Bmp,16741063,1015,406)
{
 Point(X)
 link(onDraw,12988606:doData,[])
 link(Bitmap,424431:Var2,[])
 link(SourceBitmap,15364832:ImageBitmap,[])
 link(X,14215350:Result,[(1035,353)(853,353)])
}
Add(Bitmap,12912214,987,280)
{
 FillColor=16777215
 Point(doCreate)
 Point(HWidth)
 Point(HHeight)
 link(HWidth,9293321:Result,[(993,275)(942,275)(942,339)(902,339)])
 link(HHeight,3274264:ImageHeight,[(1000,232)(965,232)])
}
Add(GetDataEx,424431,1015,364)
{
 link(Data,12912214:Bitmap,[(1021,320)(993,320)])
}
Add(ScrollBar,4982966,854,77)
{
 Left=155
 Top=50
 Width=65
 Max=100
 Position=5
 link(onPosition,897992:doText,[])
}
Add(Label,897992,910,77)
{
 Left=225
 Top=50
 Width=10
 Height=17
 Caption="5"
}

Редактировалось 2 раз(а), последний 2022-03-19 22:08:26

карма: 4

Ответов: 537

Рейтинг: 14

#6: 2022-03-20 12:12:30 ЛС | профиль | цитата

tig-rrr писал(а):

Пример с наглядной регулировкой пробела

Спасибо, то что нужно

карма: 4

Форумы Помощь по пакетуОбъединить две картинки в одну ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)