Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 12.03.2008, 14:50   #1
DenSuper007x
Пользователь
 
Регистрация: 12.03.2008
Сообщений: 24
По умолчанию Текст, находящийся в компоненте label, должен изменять свои размеры

Помогите решить задачу, так как у меня не получается а мне через день её сдавать.
Создайте приложение с "дышащим" текстом. Текст, находящийся в компоненте label, должен изменять свои размеры от 8 до 24 пунктов, а затем обратно, с шагом 1 пункт. Скорость изменения размера шрифта регулируется компонентом TrackBar от 10 до 500 мсек
DenSuper007x вне форума
Старый 12.03.2008, 17:28   #2
Hollander
Участник клуба
 
Аватар для Hollander
 
Регистрация: 03.05.2007
Сообщений: 1,189
По умолчанию

Код:
while(true) do
for i:=8 to 24 do
begin
Sleep(x); // х -это время которое ты задал в TrackBar
Label1.Font.Heigth := Label1.Font.Heigth + 1;
Application.ProcessMessages;
end;
Hollander вне форума
Старый 13.03.2008, 13:44   #3
Air
Участник клуба
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,307
По умолчанию

или примерно так.

Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
timer1.Enabled:=false;
for i:=8 to 24 do
 begin
  sleep(TrackBar1.Position);
  Label1.Font.Size := i;
  application.ProcessMessages;
 end;
for i:=24 downto 8 do
 begin
  sleep(TrackBar1.Position);
  Label1.Font.Size := i;
  application.ProcessMessages;
 end;
timer1.Enabled:=true;
end;
можно без таймера с помощью "while true do"
Всё гениальное - просто!

Последний раз редактировалось Air; 13.03.2008 в 13:46.
Air вне форума
Старый 14.03.2008, 21:18   #4
Air
Участник клуба
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,307
По умолчанию

Если, Вы это мне, пиши судь задач, посмотрим что можно сделать.
Всё гениальное - просто!
Air вне форума
Старый 14.03.2008, 22:07   #5
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Автору уже наверное не надо, уже сдал (или не сдал =). Вобщем такое делается так: определяем минимальный размер, здесь он 8. Создаем глобальную переменную Prirost: integer;
И в таймере такой код (интервал таймера соотв. позиции трекбара):
Код:
Inc(Prirost);
if Prirost > 16 then Prirost:= -15;
Label1.Font.Height:=8 + Abs(Prirost);
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог

Последний раз редактировалось mutabor; 14.03.2008 в 22:12.
mutabor вне форума
Старый 14.03.2008, 22:43   #6
NTFS
 
Регистрация: 14.03.2008
Сообщений: 6
Хорошо Помоги решить задачу на Паскале пож. мне ее скоро сдавать )

Найти приближенное значение бесконечной суммы
X+X^3/3+X^5/5... (|X|>1).
NTFS вне форума
Старый 15.03.2008, 08:31   #7
DenSuper007x
Пользователь
 
Регистрация: 12.03.2008
Сообщений: 24
По умолчанию

Спасибо всем, уже здал. Слушайте, поможете решить ещё 5 задач? А то я чёт не догоняю в делфи
DenSuper007x вне форума
Старый 16.03.2008, 14:39   #8
DenSuper007x
Пользователь
 
Регистрация: 12.03.2008
Сообщений: 24
По умолчанию

1)Создайте приложение, на форму которого помещены компоненты: Button и Open-Dialog.Напишите обработчик события OnClick компонента Button, который открывает диа-лог OpenDialog и, в случае положительного ответа, загружает в память компьютера выбранный пользователем графический файл BMP и отображает его в центре формы.
Примечание: если на компьютере нет графических файлов формата BMP, то создай-те его в приложении MS Paint.
2)Создайте приложение, на форму которого помещены компоненты:
Button — 1 шт.Label — 1 шт.Edit — 2 шт.Напишите обработчик события OnClick компонента Button, в котором происходит деление числа, записанного в первом компоненте Edit, на число, записанное во вто-ром. В компоненте Label отображается результат этого отношения. В случае деления на ноль в компоненте Label должно быть отображено соответствующее сообщение об ошибке.
3)Создайте приложение, на форму которого помещены компоненты: Button и PaintBox. Напишите обработчик события OnClick компонента Button, который закрашивает компонент PaintBox жёлтым цветом и рисует на нём 100 закрашенных красных окружностей со случайными радиусами (от 5 до 20 пикселей). Окружности должны быть случайным образом распределены по всей области компонента PaintBox.
4)Создайте приложение, на форму которого помещен компонент Button.
Напишите обработчик события OnClick компонента Button, который рисует на по-верхности формы по её периметру прямоугольник. Прямоугольник должен быть за-крашен красным цветом. Линии прямоугольника — зелёные, толщиной 4 пикселя.
5)Создайте приложение, на форму которого помещены компоненты: Image и Button.Напишите обработчик события OnClick компонента Button, который загружает файл с рисунком формата BMP в память компьютера, добавляет в него 500 случайных то-чек со случайными координатами и случайным цветом, а результат отображает в ком-поненте Image.
Помогите плиз, мне на выполнение этого дали 2 недели, а я не знаю как сделать
DenSuper007x вне форума
Старый 16.03.2008, 14:58   #9
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Ваши задачки настолько примитивны, что вывод напрашивается один - вы просто любитель халявы, даже собственным рогом шевелить лень!
Модераторов прошу закрыть тему.



//Тема закрыта. NTFS и DenSuper007x - штраф за флуд.
//Модератор.

Последний раз редактировалось AlDelta; 16.03.2008 в 15:12.
mihali4 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Продолжения написания на компоненте label Дикий Помощь студентам 4 12.05.2008 18:44
Текст из label Domoffou Win Api 1 07.01.2008 09:49
TreeView2.Items.Item[j+1].text забито мусором, а должен быть текст AlDelta Общие вопросы Delphi 1 07.09.2007 16:37
Как сделать так,чтобы при выборе варианта,его текст оказывался в компоненте Edit1.tex InseR Компоненты Delphi 8 03.07.2007 11:52
Как изменять размеры StringGrid Мышкой Inbox Компоненты Delphi 4 30.06.2007 14:34