Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#16: 2004-12-21 22:50:03 ЛС | профиль | цитата
Хотя это и дискуссионный вопрос. До какой-то степени, вопрос стратегии развития проекта..............


Я с этим согласен и будем считать, что это просто предложение.

В принципе можно работать и так как есть, но если много Лабелек
и применяется пропорциональные шрифты то концы строк никак не хотят ставать в одну линию по вертикали!

Спасибо за все! Тему можно закрывать.

С уважением, TAD
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 16884
Рейтинг: 1239
#17: 2005-05-26 09:26:28 ЛС | профиль | цитата
Почему:
[code:1]Add(Label,13283054,84,35) {
Left=20
Top=20
Font=[MS Sans Serif,8,0,0,1]
Caption="Free Pascal Compiler version 1.9.6 [2004/12/31] for i386"
}[/code:1]Если Caption внести в режиме редактора форм или в процессе работы программы, то все нормально, а если в режиме редактора схем то после компиляции на лабельке будет только первое слово (Free). Если первое слово длинное, то только 8-м знаков. Это было и в предыдущих версиях и в 144 тоже.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Администрация
Ответов: 15295
Рейтинг: 1519
#18: 2005-05-26 09:44:32 ЛС | профиль | цитата
Опять история с 8ю знаками... Будем разбираться
карма: 27
0
Ответов: 9906
Рейтинг: 351
#19: 2005-05-26 09:54:51 ЛС | профиль | цитата
Убежден, что это мы уже проходили раза два
карма: 9

0
Ответов: 16884
Рейтинг: 1239
#20: 2005-05-26 15:47:53 ЛС | профиль | цитата

Удежден, что это мы уже проходили раза два

Видно и вправду - бог троицу любит.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 9906
Рейтинг: 351
#21: 2005-05-26 19:35:23 ЛС | профиль | цитата
Тогда напомню загадку из прошлой серии.

Обратите внимание, Tad, что в этом примере, упомянутый Вами эффект, отсутствует:
Add(MainForm,6899064,21,105)
{
Left=20
Top=105
Font=[Arial,8,0,0,204]
}
Add(Label,13283054,84,105)
{
Left=20
Top=20
Font=[MS Sans Serif,8,0,0,1]
Caption="Free Pascal Compiler version 1.9.6 [2004/12/31] for i386"
}
карма: 9

0
Ответов: 16884
Рейтинг: 1239
#22: 2005-05-26 19:45:59 ЛС | профиль | цитата
А почему?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 9906
Рейтинг: 351
#23: 2005-05-26 19:56:45 ЛС | профиль | цитата
А почему Вы не задали этот вопрос в прошлой серии ?
Я задавал.

Может Dilma отгадает......

Чего-то с кодировкой связано. Потому что такое, тоже свободно от Вашего открытия:
Add(Label,11930138,77,105)
{
Left=75
Top=105
Font=[MS Sans Serif,8,0,0,204]
Caption="Free Pascal Compiler version 1.9.6 [2004/12/31] for i386"
}
карма: 9

0
Администрация
Ответов: 15295
Рейтинг: 1519
#24: 2005-05-26 21:36:47 ЛС | профиль | цитата
У меня везде все верно работает...
карма: 27
0
Ответов: 9906
Рейтинг: 351
#25: 2005-05-26 21:39:58 ЛС | профиль | цитата
Dilma, и такой пример тоже верно работает
Add(MainForm,6899064,21,105) 
{ 
Left=20
Top=105
Font=[MS Sans Serif,8,0,0,1]
}
Add(Label,13283054,84,105)
{
Left=20
Top=20
Font=[MS Sans Serif,8,0,0,1]
Caption="Free Pascal Compiler version 1.9.6 [2004/12/31] for i386"
}
Всмысле, отражаеьый текст более 8.5 символов
карма: 9

0
Администрация
Ответов: 15295
Рейтинг: 1519
#26: 2005-05-26 22:26:25 ЛС | профиль | цитата
Такой работает не верно. Ошибка была связана со шрифтами в целом и по идее не работь должно было в любом случае(раз есть прецидент).
Исправлено.
карма: 27
0
Ответов: 16884
Рейтинг: 1239
#27: 2005-05-27 19:30:44 ЛС | профиль | цитата
Dilma, скачал hiLabel.pas c reg.php. Намного лучше, но...
При пустом проекте открываю редактор форм. Ставлю лабель. Заношу длинную строку. Все великолепно. Закрываю редактор форм. Делаю необходимые соединения. Открываю редактор форм и... опять лабель с уже 7-ю знаками текста (т.к. в свойствах элемента длинна=50 не изменяется). По моему нужно както связать жестко при вводе надписи изменение значения " длинна". Между прочим, в Дельфи при наборе надписи цифры в окошке "Длинна" меняются с каждым изменением.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 9906
Рейтинг: 351
#28: 2005-05-27 19:40:46 ЛС | профиль | цитата
Tad, а разве изменения в элементе могли повлиять на работу редактора форм
карма: 9

0
Ответов: 16884
Рейтинг: 1239
#29: 2005-05-28 00:33:25 ЛС | профиль | цитата

Tad, а разве изменения в элементе могли повлиять на работу редактора форм

Нет, конечно. Но если значение "Длинна" свяэать с надписью то и Редактор форм будет работать корректно(c Label).
После компиляции (в готовой программе) все работает великолепно !!!!
Dilma, Спасибо!
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 16884
Рейтинг: 1239
#30: 2009-12-27 21:27:27 ЛС | профиль | цитата
Есть

#pas
procedure THILabel._OnClick;

begin
_hi_OnEvent(_event_OnClick);
end;
предлагаю изменить на

#pas
procedure THILabel._OnClick;
begin
_hi_OnEvent(_event_OnClick,Control.Caption);
end;

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)