Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#76: 2008-10-11 01:46:46 ЛС | профиль | цитата
iarspider, без картинки не получается.
------------ Дoбавленo:

nesco, не понял
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26067
Рейтинг: 2121
#77: 2008-10-11 01:59:39 ЛС | профиль | цитата
Tad писал(а):
без картинки не получается

Не понял



Add(MainForm,2953706,287,161)
{
Point(Handle)
Point(onPaint)
link(onPaint,9450264:doDraw,[(331,188)(331,216)(275,216)(275,244)])
}
Add(Img_Text,9450264,287,238)
{
X=10
Y=10
DrawSource=1
Font=[MS Sans Serif,14,1,0,1]
Text="Привет"
link(Bitmap,2953706:Handle,[])
}


------------ Дoбавленo:


Можно еще так



Add(MainForm,2953706,231,217)
{
Point(Handle)
Point(onPaint)
link(onPaint,9450264:doDraw,[])
}
Add(Img_Text,9450264,294,238)
{
X=10
Y=10
DrawSource=1
Font=[MS Sans Serif,14,1,0,1]
Text="Привет"
link(onDraw,15696349:doWork1,[])
}
Add(ChildPanel,15696349,357,238)
{
}
BEGIN_SDK
Add(EditMulti,14958136,21,21)
{
WorkCount=1
link(doWork1,2521416:doVisible,[(67,27)(67,76)])
}
Add(Panel,2521416,112,63)
{
Left=110
Top=55
Width=170
Height=140
Visible=1
BorderStyle=1
BevelOuter=2
Point(onPaint)
Point(Handle)
Point(doVisible)
link(onPaint,9450264:doDraw,[])
}
Add(Img_Text,9450264,175,70)
{
X=10
Y=10
DrawSource=1
Font=[MS Sans Serif,14,1,0,1]
Text="Привет"
}
END_SDK

карма: 22

0
Ответов: 16884
Рейтинг: 1239
#78: 2008-10-11 02:04:30 ЛС | профиль | цитата
nesco, а у меня не пишет на форме. Потому и спрашивал. Раньше вроде пользовался. Думал, что применял другой компонент. Сейчас попробую в старых HiAsm-ах
------------ Дoбавленo:

В старых работает в новой НЕТ
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26067
Рейтинг: 2121
#79: 2008-10-11 02:24:09 ЛС | профиль | цитата
Tad писал(а):
В старых работает в новой НЕТ

А у меня что, в старой, что ли
Да, а схема где, которая не рисует
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#80: 2008-10-11 02:45:35 ЛС | профиль | цитата
Только что обновился и по HiUpdate и с SWN - не работает.
У меня 172.
Схема та, что ты выложил выше.
Был заказ на календарь/ Хотел сделать на HiAsm-е, но пришлось перепросить Delphi.

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26067
Рейтинг: 2121
#81: 2008-10-11 02:50:55 ЛС | профиль | цитата
Tad писал(а):
Только что обновился и по HiUpdate и с SWN - не работает

Что, вообще не рисует, оригинально
А почему же она тогда у меня рисует


карма: 22

0
Ответов: 16884
Рейтинг: 1239
#82: 2008-10-11 02:59:51 ЛС | профиль | цитата
А вот вид у меня

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1notxt.jpg [8.2KB] [386]
Разработчик
Ответов: 26067
Рейтинг: 2121
#83: 2008-10-11 03:02:47 ЛС | профиль | цитата
Tad, а у тебя KOL старый или последний
карма: 22

0
файлы: 1draw_dc_001.png [6.7KB] [398]
Ответов: 16884
Рейтинг: 1239
#84: 2008-10-11 03:09:45 ЛС | профиль | цитата
самый последний
Главное в 171 работает, а в 172 нет . А на картинке пишет.
Все. Пошли спать
------------ Дoбавленo:

Ну кто нибудь попробует еще примеры nesco ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26067
Рейтинг: 2121
#85: 2008-10-11 03:09:56 ЛС | профиль | цитата
Tad писал(а):
Главное в 171 работает, а в 172 нет

Очень странно. Жаль, что никто еше не проверил в новой версии, так тяжело судить, тк я не могу повторить этот баг, у меня его просто нет
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#86: 2008-10-11 03:15:13 ЛС | профиль | цитата
nesco, а панель ты можешь покрасить в другой цвет ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26067
Рейтинг: 2121
#87: 2008-10-11 03:20:46 ЛС | профиль | цитата
Так, что ли



------------ Дoбавленo:


Да пожалуйста, хоть в серо-буро-малиноый



Add(MainForm,2953706,119,119)
{
Width=241
Height=236
Position=1
}
Add(ChildPanelEx,14222674,217,168)
{
}
BEGIN_SDK
Add(EditMultiEx,6305477,21,21)
{
WorkCount=#15:doColor=doColor|
link(doColor,1242881:doColor,[(53,27)(53,97)])
}
Add(Panel,1242881,84,84)
{
Left=15
Top=20
Width=195
Height=145
Point(Handle)
Point(doColor)
}
END_SDK
Add(Button,482970,119,168)
{
Left=90
Top=170
link(onClick,4212102:doOpen,[])
}
Add(ColorDialog,4212102,168,168)
{
link(onSelect,14222674:doColor,[])
}

карма: 22

0
файлы: 1color_panel_001.png [4.3KB] [410]
Ответов: 16884
Рейтинг: 1239
#88: 2008-10-11 03:25:10 ЛС | профиль | цитата
Нет. Так и я могу. В том верхнем примере (с Приветом )
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26067
Рейтинг: 2121
#89: 2008-10-11 03:26:20 ЛС | профиль | цитата
Внимание! Строка компиляции Delphi для особо продвинутых

"%fname%" "-U%upath%." -Q "-E%opath%

это, чтобы не грузить юниты из папки проектов
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#90: 2008-10-11 03:30:18 ЛС | профиль | цитата
У меня точно такая.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)