Вверх ↑
Этот топик читают: Гость
Ответов: 1293
Рейтинг: 47
#16: 2011-09-11 22:30:49 ЛС | профиль | цитата
Спасибо всем большое за примеры, но к сожалению, ни один из них не показал ничего. Вообще НИЧЕГО.. Только в двух посл. примерах быстро возникала и исчезала прямоугольная форма и все. Может вы их для 7-ки делали? У меня ХРюша и ничего не видать. Ошибок компиляции никаких, Хиасм последний.. В чем может быть дело, помимо кривости пальцев и кривости рук (мозг тут пока не причем )
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
Ответов: 3889
Рейтинг: 362
#17: 2011-09-11 22:49:52 ЛС | профиль | цитата
Aziz, шрифт?



Add(MainForm,16475654,651,224)
{
Width=492
Height=100
BorderStyle=0
DragForm=0
Position=1
Point(doPicture)
Point(onMouseDown)
Point(Handle)
}
Add(Bitmap,2222039,553,189)
{
HWidth=200
HHeight=100
FillColor=16777215
Point(doCreate)
Point(onCreate)
Point(HWidth)
Point(HHeight)
link(onCreate,7093140:doDraw,[(598,195)(598,290)(541,290)(541,258)])
link(HWidth,7093140:TextWidth,[(559,179)(532,179)(532,299)(559,299)])
link(HHeight,7093140:TextHeight,[(566,177)(640,177)(640,300)(566,300)])
}
Add(Img_Text,7093140,553,252)
{
X=1
Y=1
Font=[System,40,1,255,204]
link(onDraw,1585717:doData,[])
link(Bitmap,13564592:Var2,[])
link(Text,205713:Result,[(566,244)(482,244)])
}
Add(DoData,1585717,602,252)
{
link(onEventData,16475654:doPicture,[])
link(Data,13564592:Var3,[(608,229)])
}
Add(GetDataEx,13564592,553,224)
{
link(Data,2222039:Bitmap,[])
}
Add(Timer,12684332,357,203)
{
link(onTimer,6181623:doSwitch,[])
}
Add(Time,16111401,476,147)
{
Format="h:m:s"
}
Add(StrCat,205713,476,203)
{
link(onStrCat,2222039:doCreate,[])
link(Str1,16111401:FormatTime,[])
}
Add(Switch,6181623,413,203)
{
DataOn=String(Тик !!!)
DataOff=String(Так !!!)
link(onSwitch,205713:doStrCat,[])
}

карма: 1

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#18: 2011-09-11 22:53:39 ЛС | профиль | цитата
Еще вариант вашего добра

code_25137.txt
карма: 22

0
файлы: 1code_25137.txt [1.3KB] [223]
Ответов: 16884
Рейтинг: 1239
#19: 2011-09-11 23:03:53 ЛС | профиль | цитата
nesco,
твой code_25137.txt = 12 компонент и 55268 bytes code, 2033 bytes data.
мой code_25135.txt = 11 компонент и 52776 bytes code, 1997 bytes data.

Мелочь, но приятно.



карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26170
Рейтинг: 2127
#20: 2011-09-11 23:08:16 ЛС | профиль | цитата
Tad писал(а):
твой code_25137.txt = 12 компонент и 55268 bytes code, 2033 bytes data

Мне сугубо нас..ть сколько он весит, у него меньше открытых связей на схеме, большинство связей -- виртуальные. И я совсем не гнался за уменьшением кода, а просто привел альтернативный пример
карма: 22

0
Ответов: 1293
Рейтинг: 47
#21: 2011-09-11 23:26:48 ЛС | профиль | цитата
Tad, nesco, спасибо.. Но заработал только вариант nesco, будем разбираться почему.. А шрифт я первым делом пытался поменять на TimesNewRoman но без пользы, у предпоследней схемы тоже возникало серое окошко лишь на миг. А вот что я наваял пока изучал - приложение с 2 нестандартными формами - показываются и скрываются 2 щелчком по форме. Также упростил чуть схему - картинка грузится с правой точек из потока, а не с верхней, что уменьшило число связей. Еще заметил такую особенность - чтобы форма стала прозрачной - надо обязательно выбрать параметр TransparentColor формы равный цвету clSilver. Иначе с любым др. цветом - форма остается квадратной и непрозрачной. Странно почему так? Или этот цвет - прозрачный цвет, а не серебрянный? Скорее всего так.. Надо тогда было обозвать его соответственно: clTransparent.
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
Ответов: 16884
Рейтинг: 1239
#22: 2011-09-11 23:32:36 ЛС | профиль | цитата
nesco, тоже шуток не понимаешь ?
ШУТКА = Так как мне нужно поддерживать характеристику "неудобоваримого", то извини, но
1. Виртуальные связи не способствуют читаемости схем.
2. "Алтернативный пример" имеет право на существование (но сильно смахивает на "индусский код")
=КОНЕЦ ШУТКИ

P.S. Срочно нужно добавить теги ШУТКА.



------------ Дoбавленo в 23.32:
Aziz, а так project12_test.rar
У меня в ХР работает нормально
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1project12_test.rar [33.4KB] [153]
Ответов: 1293
Рейтинг: 47
#23: 2011-09-11 23:37:08 ЛС | профиль | цитата
Глянул в схему nesco... Куда делись все компоненты Щутка. Но судя по схеме - там совсем другая технология применена, поэтому часы заработали у меня. А что с другими схемами пока не ясно. Tad, экзешник работает, а схема нет.. Компилятор дельфи. Может глюки винды, хотя другие примеры запускаются..
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
Разработчик
Ответов: 26170
Рейтинг: 2127
#24: 2011-09-11 23:41:03 ЛС | профиль | цитата
Tad писал(а):
но сильно смахивает на "индусский код"

С твоих слов -- все менеджеры индусский код, что теперь Тебе не нравится -- не ешь, а другим нравится, и им сугубо наплевать на твое мнение.
карма: 22

0
Ответов: 1293
Рейтинг: 47
#25: 2011-09-12 00:04:10 ЛС | профиль | цитата
А вот произвольная форма из одного компонента и белой розы. Но она работает только при параметре TransparentColor формы равный цвету clWhite.. Ничего не понимаю.. Но наверное так надо.
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
Разработчик
Ответов: 26170
Рейтинг: 2127
#26: 2011-09-12 00:22:25 ЛС | профиль | цитата
Aziz писал(а):
и белой розы

Какая это к черту роза -- это опавший кленовый лист, и цвет фона у него белый, вот и делается форма прозрачной при белом цвете
карма: 22

0
Ответов: 1293
Рейтинг: 47
#27: 2011-09-12 00:33:28 ЛС | профиль | цитата
Tad писал(а):
P.S. Срочно нужно добавить теги ШУТКА.
Да! И не один, а сразу 2 - <bhum> (black || bad humour) и <whum> (white humour) или <злой щутка> <добрый щутка>
------------ Дoбавленo в 00.33:
Ой, не то залил. У меня сразу 2 рабочих каталога - один сам Хиасм выбрал, в дебрях винды, другой я.. Вот и путаюсь. А теперь точно роза.. Специально для nesco, и Tad

А насчет прозрачности понял - надо знать какого цвета фон у картинки чтобы ее получить. А ее фон еле разглядишь на контуре..

nesco писал(а):
Какая это к черту роза
да.. подарить вместо Белой Розы опавший кленовый лист.. Это нешуточное оскорбление.
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
файлы: 2Роза.sha [6.9KB] [225], whiterose.gif [1.8KB] [257]
Гость
Ответов: 17029
Рейтинг: 0
#28: 2011-09-12 01:09:01 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2021-05-21 12:33:58
карма: 0

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#29: 2011-09-12 01:14:22 ЛС | профиль | цитата
Aziz писал(а):
надо знать какого цвета фон у картинки чтобы ее получить

Любой цвет не пойдет для получения прозрачности, а только тот, который указан в описании к свойству Transparent вот тут -- RGN_OutlinePicture
------------ Дoбавленo в 01.14:
Aziz, а оригинальный прозрачный файл png твоей розы есть Тогда можно замутить альфа форму, она гораздо красивее обычной прозрачности. Пример такой формы можно посмотреть вот здесь -- %Hiasm%ElementsDelphiExampleFormsMultiLayerForms.sha и вот здесь http://www.hiasm.com/sha/shatools.php?q=5&id=213
карма: 22

0
Ответов: 1293
Рейтинг: 47
#30: 2011-09-12 01:32:51 ЛС | профиль | цитата
[flood]
adsl.93.84.7.116.grodno.b писал(а):
тем более мужчинам
adsl.93.84.7.116.grodno.b, в том -то и дело что на 2-х. Иначе меня бы уже обвинили во всех смертных грехах. Это я для их примирения или улучшения настроения. А то без розы еще вдруг спалицца пара ценных извилин весьма ценных мозгов, кто нам помогать тогда будет Мозги надо всячески поощрять и беречь. [/flood]
nesco, спасибо, будем изучать.
------------ Дoбавленo в 01.32:
nesco, вот тут оригинал (png не было) и еще больших цветков накидал с альфа-каналом: см. пост выше.
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
30
Сообщение
...
Прикрепленные файлы
(файлы не залиты)