![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы
![]() |
Поиск в этой теме
![]() |
![]() |
#11 |
Пользователь
Регистрация: 02.01.2008
Сообщений: 27
|
![]()
Не понял, как работает отзыв... Извините.
Спасибо, _Dmitry, большое. Намного понятнее, чем в других местах, которые я нашел в инете. |
![]() |
![]() |
![]() |
#12 |
Пользователь
Регистрация: 02.01.2008
Сообщений: 27
|
![]()
Я немного доработал пример, который вы мне показали. Решил оформить это в виде процедуры с параметрами. Вот что получилось:
Код:
Вызываю это так: c_text(x1,y1,bvp); где x1 и y1 - ранее вычесленные координаты, bvp - ранее введенное и уже использованное значение размера. Процедуру описал в type как procedure c_text(x:integer; y:integer; z:real); При запуске программа ругается, что Image1 - незадекларированный идентификатор... Чего я делаю не так, подскажите, пожалуйста... Последний раз редактировалось Almaas; 04.01.2008 в 14:35. |
![]() |
![]() |
![]() |
#13 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
![]()
Обращайтесь к Image1 с имени формы Form1.Image1 или включайте процедуру в класс формы
Код:
|
![]() |
![]() |
![]() |
#14 |
Пользователь
Регистрация: 02.01.2008
Сообщений: 27
|
![]()
Спасибо, заработало... но только когда я убрал из type описание процедуры
Её разве не надо там описывать? |
![]() |
![]() |
![]() |
#15 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
![]()
Не понял вопроса, в каком месте раздела type она находилась?
Если вы ее включаете в класс формы, то объявляем ее так Код:
Если вы не включаете процедуру в класс формы, то обращаться ко всем ее компанентам нужно начиная с ее имени: Form1.Canvas... |
![]() |
![]() |
![]() |
#16 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
![]()
А вообще, зачем менять шрифт в прцедуре вывода текста? У вас, наверно, все значения размеров в едином стиле. Поэтому лучше сделать процедуру, которая только выводит текст, а менять шрифт перед ее вызовом
Код:
|
![]() |
![]() |
![]() |
#17 |
Пользователь
Регистрация: 02.01.2008
Сообщений: 27
|
![]()
Вот теперь все встало на свои места. СПАСИБО ОГРОМНОЕ.
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
программа, работающая под вистой, должна разделить hdd еще на 2 диска | KORT | Софт | 1 | 25.08.2008 13:57 |
Delphi 6 - Программа должна узнать уровень загруженности процессора | Никки | Общие вопросы Delphi | 3 | 20.11.2007 19:40 |
WinApi, программа должна выдавать основной номер версии ОС | MARGO | Win Api | 2 | 16.11.2007 21:14 |
Программа отлично работает при событии Button1Click, и отказывается работать в FormCreate | xTANATOSx | Общие вопросы Delphi | 3 | 19.09.2007 08:02 |
TListView; не рисует цветом TCanvas | JetAPI | Компоненты Delphi | 9 | 24.08.2007 22:22 |