Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 26148
Рейтинг: 2126
#286: 2010-07-30 09:57:03 ЛС | профиль | цитата
Nic писал(а):
ColorConstant.txt

А его нет, блин, точно. Перезалил со встроенным набором цветов
Tad, я проверяю на стандартном Delphi, сейчас не пользую KOL Galkov'a, дабы не было разночтений
Но на стандартном такого быть не должно. Отключи DoubleBuffered в таблице

Проверил в трех режимах -- Delphi_orig, Delphi_new, FPC, все нормально отображает



карма: 22

0
Ответов: 16884
Рейтинг: 1239
#287: 2010-07-30 16:17:26 ЛС | профиль | цитата
Кинул на форму пустую Label с прозрачностью. Все нормально.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26148
Рейтинг: 2126
#288: 2010-07-30 16:24:02 ЛС | профиль | цитата
Tad, это можно все повыкидывать, я поставил буферизацию только для того, чтобы не дергалось при возней по окну мышой
карма: 22

0
Ответов: 1376
Рейтинг: 197
#289: 2010-08-10 19:13:26 ЛС | профиль | цитата
Вот, на днях приспичило и немного наваял, кому-то и пригодится! Вопрос о многострочном хинте периодически всплывает...
code_19932.txt
nesco писал(а):
foksov, а че так сложно-то, проще никак нельзя

А вот и проще

Add(MainForm,2953706,469,217)
{
Width=331
Height=97
BorderStyle=1
Point(Handle)
}
Add(UserHintManager,221974,371,252)
{
Name="h"
link(onShow,12499505:doWork1,[])
link(onHide,12499505:doWork2,[])
}
Add(BaloonToolTips,1729105,469,259)
{
Title="Подсказка..."
Icon=1
link(Handle,2953706:Handle,[])
}
Add(Button,4127087,567,259)
{
Left=140
Top=25
Color=25
Hint="Примерчик многострочного
хинтика средствами HiAsm"
HintManager="h"
}
Add(MultiElement,12499505,420,259)
{
link(onEvent1,1729105:doCreate,[])
link(onEvent2,1729105:doDestroy,[])
link(onEvent3,1729105:doShow,[])
}
BEGIN_SDK
Add(EditMulti,1844093,21,21)
{
EventCount=3
WorkCount=2
link(doWork1,10635030:doEvent1,[(59,27)(59,97)])
link(doWork2,12671711:doEvent1,[(48,34)(48,125)])
}
Add(Hub,443003,175,98)
{
link(onEvent1,1844093:onEvent3,[(261,104)(261,41)])
link(onEvent2,3114063:doTimer,[(203,111)(203,125)])
}
Add(Timer,3114063,210,119)
{
@Hint=#18:Чтоб ненадоедал...|12:Висит 5 сек.|
Interval=5000
Enable=1
AutoStop=1
Point(onStop)
link(onStop,1844093:onEvent2,[(250,132)(250,34)])
AddHint(-48,54,112,26,@Hint)
}
Add(Hub,12671711,84,119)
{
link(onEvent1,13342912:doStop,[(112,125)(112,111)])
link(onEvent2,3114063:doStop,[])
}
Add(Timer,13342912,126,98)
{
@Hint=#48:Задержка перед появлением подсказки (от мигания)|
Interval=1500
Enable=1
AutoStop=1
Point(onStop)
link(onTimer,443003:doEvent1,[])
AddHint(-64,-42,167,26,@Hint)
}
Add(Hub,10635030,84,91)
{
link(onEvent1,1844093:onEvent1,[(239,97)(239,27)])
link(onEvent2,13342912:doTimer,[])
}
END_SDK
Add(StyleXP,5315245,371,210)
{
}


карма: 1

0
файлы: 1code_19932.txt [5.7KB] [639]
Разработчик
Ответов: 26148
Рейтинг: 2126
#290: 2010-08-10 19:32:23 ЛС | профиль | цитата
foksov, а че так сложно-то, проще никак нельзя
карма: 22

0
Ответов: 1376
Рейтинг: 197
#291: 2010-08-10 19:38:53 ЛС | профиль | цитата
А проще и схем небыло!
------------ Дoбавленo в 19.38:
Выложил на обсуждение, простота приветствуется!
карма: 1

0
Ответов: 875
Рейтинг: 322
#292: 2010-08-10 20:15:02 ЛС | профиль | цитата
наверное так попроще. code_19934.txt
карма: 1

1
файлы: 1code_19934.txt [1.2KB] [752]
Голосовали:foksov
Ответов: 1376
Рейтинг: 197
#293: 2010-08-10 23:44:19 ЛС | профиль | цитата
А стандартно? Я, по сути, консерватор! Но красиво получилось! От меня ПЛЮС
------------ Дoбавленo в 23.27:
Опять же, я использовал штатный Менеджер и текст задаётся в в штатном поле ввода! Я не прав?!
------------ Дoбавленo в 23.38:
И вообще, что за темень, почему забыли Этюды ваять? Умные люди, не наглость ли это с вашей стороны
------------ Дoбавленo в 23.44:
И ещё... Вот кто-нибудь мнет объяснит, почему Memo следит за своими строками (при изменении размера меняется количество строк), а StrList нет?!?!
карма: 1

0
Разработчик
Ответов: 26148
Рейтинг: 2126
#294: 2010-08-10 23:57:42 ЛС | профиль | цитата
foksov писал(а):
Вот кто-нибудь мнет объяснит, почему Memo следит за своими строками (при изменении размера меняется количество строк), а StrList нет?!?!

Memo работает с текстом, а StrList (или, все же, ListBox) со строками. Memo и ListBox стандартные классы системы, так задумано изначально, и не нами, а StrList -- организован по принципу именно строкового накопителя, перенос строк там категорически не должен быть
карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#295: 2010-08-11 01:00:31 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2021-05-21 04:02:18
карма: 0

0
Разработчик
Ответов: 26148
Рейтинг: 2126
#296: 2010-08-11 01:30:00 ЛС | профиль | цитата
bzq-79-179-97-19.red.beze писал(а):
какая разница между ТЕКСТОМ и НАБОРОМ СТРОК

Текст -- это непрерывный поток символов, доступ к конкретной строке, в этом случае, осуществляется распарсиванием строк по разделителю, коим является конец строки (символ #13), или спарка -- коней строки + перевод каретки (символы #13#10). Набор строк -- несвязанный массив строк, находящихся в любом месте и не представляющими непрерывную последовательность, обращение к этим строкам осуществляется по указателям, что в разы повышает быстродействие доступа к каждой конкретной строке, те, StrList хранит не сами строки, а список указателей на эти строки
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#297: 2010-08-11 19:56:40 ЛС | профиль | цитата
nesco, согласен.
foksov писал(а):
почему Memo следит за своими строками
Потому, что Memo - это Редакто текста.
"Зима." - для Memo это текст.
"Зима." - для ListBox это строка.
И то и то верно.
(я тоже думаю, что речь шла о ListBox, а не о StrList)

А вот в Memo точками doDelete и Count пользоваться опасно особенно при "резиновых" размерах.

И если в Memo ScrollBars = None или Vertical , то при выводе на экран "длинная строка" разбивается на куски вставкой "невидимых символов мягких переносов", подгоняя длину строки под ширину окна Memo. А так как Memo - это простейший Редактор текстов, то и разбивка строки применена простейшая - по словам.
Почему при ScrollBars = None не работают клавиши курсора Вверх и Вниз (PageUp и PageDown работают) - тайна сия великая.

Открыть в корневой HiAsm
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1memo.sha [1.3KB] [508]
Ответов: 1379
Рейтинг: 86
#298: 2010-08-11 20:13:06 ЛС | профиль | цитата
Tad писал(а):
при ScrollBars = None не работают клавиши курсора Вверх и Вниз
Они работают - но только каретку перемещают и все.
А пример интересный
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#299: 2010-08-11 21:05:35 ЛС | профиль | цитата
petrocan писал(а):
Они работают - но только каретку перемещают и все.
тектовый курсор должен всегда быть еа экране (в редакторе текстов), а не за пределами и неизвестно где он там - вверху или внизу .
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1376
Рейтинг: 197
#300: 2010-08-31 22:55:36 ЛС | профиль | цитата
Шлюхался по разделам форума и увидел упоминание о функции DrawFocusRect, решил попробовать её применить...
Может кому и пригодится...
карма: 1

0
файлы: 1imgclip_dfr.rar [17KB] [435]
Сообщение
...
Прикрепленные файлы
(файлы не залиты)