Вверх ↑
Этот топик читают: Гость
Ответов: 18
Рейтинг: 0
#1: 2007-12-29 00:21:42 ЛС | профиль | цитата
Хочу сделать так, чтоб при редактировании картинок можно было бы отменить хотя бы один шаг. Тут добавлять файлы я не имею права (кто скажет почему?) Sha тут:
http://www.lutor17.narod.ru/sha.html
Называется "Отмена"(Хотя там больше ничего и нет).
Подскажите что надо исправить пожалуйста.
карма: 1

0
Ответов: 2059
Рейтинг: 28
#2: 2007-12-29 01:03:47 ЛС | профиль | цитата
Lutor17, используё теги сode

#sha
Add(MainForm,5214875,49,8)
{
Left=20
Top=105
Width=572
Height=501
}
Add(Image,1098067,357,36)
{
Left=5
Top=30
Width=555
Height=440
}
Add(Button,15692939,105,36)
{
Left=5
Top=5
Width=65
Caption="Открыть"
link(onClick,2410340:doExecute,[])
}
Add(PictureStream,14513369,217,36)
{
link(onLoad,12072462:doEvent1,[])
}
Add(ODialog,2410340,154,36)
{
StartDir="D:Antony KrutenokОбои"
link(onExecute,14513369:doLoad,[])
}
Add(Negative,9832749,189,148)
{
link(onResult,12072462:doEvent2,[(254,154)(254,49)])
link(Bitmap,9545784:Data1,[(195,132)(363,132)])
}
Add(Button,13228927,133,148)
{
Left=75
Top=5
Width=65
Caption="Негатив"
link(onClick,9832749:doNegative,[])
}
Add(Hub,12072462,287,36)
{
InCount=3
OutCount=1
link(onEvent1,1098067:doLoad,[])
}
Add(Button,918939,350,274)
{
Left=145
Top=5
Width=65
Caption="Отмена"
link(onClick,4783269:doData,[])
}
Add(DoData,13523247,343,183)
{
Data=Real(0)
link(onEventData,9512170:doLoad,[])
link(Data,9545784:Data2,[(349,150)(370,150)])
}
Add(GetData,9545784,357,85)
{
link(Data,1098067:ImageBitmap,[])
}
Add(Button,13706520,280,183)
{
Left=215
Top=5
Width=65
Caption="Запомнить"
link(onClick,13523247:doData,[])
}
Add(Bitmap,9512170,413,183)
{
}
Add(DoData,4783269,413,274)
{
Data=Real(0)
link(onEventData,12072462:doEvent3,[(457,280)(457,168)(275,168)(275,56)])
link(Data,9512170:Bitmap,[])
}
Add(PointHint,1703195,210,421)
{
Info=#6:Отмена|
Width=43
Height=25
link(Data,918939:Handle,[(231,363)(356,363)])
}
Add(PointHint,2281324,273,267)
{
Info=#9:Запомнить|
Height=39
link(Data,13706520:Handle,[(305,241)(286,241)])
}
Add(PointHint,7605015,112,239)
{
Info=#7:Негатив|
Width=43
Height=25
link(Data,13228927:Handle,[(133,209)(139,209)])
}
Add(PointHint,15607250,49,141)
{
Info=#7:Открыть|
Width=50
Height=25
link(Data,15692939:Handle,[(74,105)(111,105)])
}
карма: 1

0
Ответов: 18
Рейтинг: 0
#3: 2007-12-29 01:08:50 ЛС | профиль | цитата
Эдик, спасибо. Что то я сглупил... Наверно каникулы так действуют))
карма: 1

0
Ответов: 1328
Рейтинг: 69
#4: 2007-12-29 01:09:40 ЛС | профиль | цитата
Lutor17, code_8060.txt
Вот так
карма: 2

0
файлы: 1code_8060.txt [1.6KB] [214]
Ответов: 18
Рейтинг: 0
#5: 2007-12-29 01:14:08 ЛС | профиль | цитата
Konst, Спасибо огромное!
карма: 1

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