Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 15.12.2019
Сообщений: 12
1

Вывести изображение плавно переходящей кривой, не выходящей за пределы формы

10.03.2020, 20:00. Показов 263. Ответов 5
Метки нет (Все метки)

рандомная прямая
ввести изображение плавно переходящей кривой , не выходящей за пределы формы.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.03.2020, 20:00
Ответы с готовыми решениями:

Есть ли способ плавно вывести бордер при наведении, ну и плавно скрыть
Необходимо плавно вывести границу при наведении, и плавно чтобы скрывалась если убрать курсор. Что...

Как более плавно двигать мышь по кривой
Доброго времени суток. Я пишу бота для онлайн игры, мне нужно эмитировать действия пользователя, в...

Как сделать плавно меняющееся изображение
Всем привет! Очень нужна ваша помощь. Я написала такой код <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML...

Плавно передвигающееся изображение из одного угла экрана в другой.
Подскажите, пожалуйста алгоритм, что изображение передвинулось из одного угла в другой. Только...

__________________
5
Заводной мандарин
1065 / 627 / 239
Регистрация: 05.05.2015
Сообщений: 3,544
Записей в блоге: 2
11.03.2020, 10:38 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
...
const colors: Array[0..3] of TColor = (clRed, clYellow, clWhite, clBlack);
var  Form1: TForm1;
 
implementation {$R *.lfm} { TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var x, y: integer;
begin
  Randomize;
  y := Random(Height - 30) + 15;
  Canvas.Pen.Width := 2;
  Canvas.PenPos := Point(0, y);
  Canvas.Pen.Color := colors[Random(High(colors) + 1)];
  for x := 0 to Width do begin
      if Random(2) = 1 then begin
        if y < Height - 15 then y := y + 1
        end
          else
            if y > 15 then y := y - 1;
      Canvas.LineTo(x, y);
    end;
end;
0
Модератор
63373 / 47069 / 32443
Регистрация: 18.05.2008
Сообщений: 114,082
11.03.2020, 11:24 3
Evgenius001, А Вы не можете пояснить задание? А то фиг поймешь, то прямая, то кривая...
0
0 / 0 / 0
Регистрация: 15.12.2019
Сообщений: 12
11.03.2020, 12:08  [ТС] 4
Нужно построить именно кривую(в названии ошибся немного)
0
Модератор
63373 / 47069 / 32443
Регистрация: 18.05.2008
Сообщений: 114,082
11.03.2020, 12:28 5
Тогда как это?
Цитата Сообщение от Evgenius001 Посмотреть сообщение
изображение плавно переходящей кривой , не выходящей за пределы формы.
0
Заводной мандарин
1065 / 627 / 239
Регистрация: 05.05.2015
Сообщений: 3,544
Записей в блоге: 2
11.03.2020, 15:24 6
Цитата Сообщение от Joey Посмотреть сообщение
Pascal
Чем не устроил этот код?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.03.2020, 15:24

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Вывести изображение PNG без формы
как реализовать сабж? Например, чтобы после выбора пункта проги &quot;о программе&quot; поверх всех окон...

Как сохранить изображение из формы в файл и вывести из файла на страничку?
Здравствуйте Вопрос в том: как с помощью php сохранить изображение из формы в файл? как...

Создание Плавно открывающейся формы
Лазил по вашему форумо и нашол очень забавный пример кода, программа открывается плавно появляясь...

Изображение, выходящее за пределы
Доброе время суток подскажите, как быть с данной ситуацией. По умолчанию, изображение принимает...

Visual basic 6.0 изображение кривой
Помогите кто сможет в универе учат на Visual basik 6.0 задали написать вот такую вот программу ,я в...

Разработать приложение, обладающее возможностью плавно изменять цвет формы
Разработать приложение, обладающее возможностью плавно изменять цвет формы при перемещении...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.