Текст, находящийся в компоненте label, должен изменять свои размеры

[DenSuper007x]

Помогите решить задачу, так как у меня не получается а мне через день её сдавать.
Создайте приложение с "дышащим" текстом. Текст, находящийся в компоненте label, должен изменять свои размеры от 8 до 24 пунктов, а затем обратно, с шагом 1 пункт. Скорость изменения размера шрифта регулируется компонентом TrackBar от 10 до 500 мсек

[Hollander]

while(true) do
for i:=8 to 24 do
begin
Sleep(x); // х -это время которое ты задал в TrackBar
Label1.Font.Heigth := Label1.Font.Heigth + 1;
Application.ProcessMessages;
end;

[Air]

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

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]

Если, Вы это мне, пиши судь задач, посмотрим что можно сделать.

[mutabor]

Автору уже наверное не надо, уже сдал (или не сдал =). Вобщем такое делается так: определяем минимальный размер, здесь он 8. Создаем глобальную переменную Prirost: integer;
И в таймере такой код (интервал таймера соотв. позиции трекбара):

Inc(Prirost);
if Prirost > 16 then Prirost:= -15;
Label1.Font.Height:=8 + Abs(Prirost);

[NTFS]

Найти приближенное значение бесконечной суммы
X+X^3/3+X^5/5... (|X|>1).

[DenSuper007x]

Спасибо всем, уже здал. Слушайте, поможете решить ещё 5 задач? А то я чёт не догоняю в делфи

[DenSuper007x]

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 недели, а я не знаю как сделать

[mihali4]

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



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