Регистрация
Ly3577
Есть ответ 👍

Как сделать ProgressBar в Windows.Forms PascalABC.net?

148
273
Посмотреть ответы 2

Ответы на вопрос:

marinandnatasha1
marinandnatasha1
4,8(94 оценок)

Function TextProgressBar(progint:integer):string;

begin

   if progint >= 0 then

       Result := '<$1>                     '+IntToStr(progint)+' <$3>                    <$2>';

   if progint >= 10 then

       Result := '<$1><$0>                 '+IntToStr(progint)+' <$3>                    <$2>';

   if progint >= 20 then

       Result := '<$1><$0><$0>             '+IntToStr(progint)+' <$3>                    <$2>';

   if progint >= 30 then

       Result := '<$1><$0><$0><$0>         '+IntToStr(progint)+' <$3>                    <$2>';

   if progint >= 40 then

       Result := '<$1><$0><$0><$0><$0>     '+IntToStr(progint)+' <$3>                    <$2>';

   if progint >= 50 then

       Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3>                    <$2>';

   if progint >= 60 then

       Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0>                <$2>';

   if progint >= 70 then

       Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0>            <$2>';

   if progint >= 80 then

       Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0><$0>        <$2>';

   if progint >= 90 then

       Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0><$0><$0>    <$2>';

   if progint >= 100 then

       Result := '<$1><$0><$0><$0><$0><$0>'+IntToStr(progint)+' <$3><$0><$0><$0><$0><$0><$2>';

   

end;

Пробуй

operovist
operovist
4,7(51 оценок)

Жанр / тематика

боевые искусства, приключения, фэнтези

Манга

Автор

Масаси Кисимото

Издатель

Япония Shueisha

На русском языке

Россия Комикс-Арт

Публикуется в

Япония Weekly Shonen Jump

Аудитория

сёнэн

Публикация

21 сентября 1999 года — 2 февраля 2015 года

Томов

72

Глав

700

Аниме-сериал «Наруто»

Режиссёр

Хаято Датэ

Студия

Studio Pierrot

Лицензиат

Япония Aniplex

Телесеть

Япония TV Tokyo

Прочие телевизионные сети:

Россия Jetix (1-25, 27-104 цензур. версия[источник не указан 119 дней]), 2x2[2]

Премьерный показ

3 октября 2002 года — 8 февраля 2007 года

Длительность

23 мин

Серий

220

Аниме-сериал «Наруто Сиппудэн»

Режиссёр

Хаято Датэ

Студия

Studio Pierrot

Лицензиат

Япония Aniplex

Телесеть

Япония TV Tokyo

Прочие телевизионные сети:

Россия 2x2 (1-318)[3]

Премьерный показ

15 февраля 2007 года — 23 марта 2017 года

Длительность

23 мин

Серий

500

Ранобэ

Автор

Масатоси Кусакабэ

Издатель

Япония Shueisha

Публикация

2002 год

Томов

8

Манга выпускалась с 21 сентября 1999 года по 10 ноября 2014 года издательством Shueisha в журнале Weekly Shonen Jump. Объединена в 72 танкобона.

По манге были созданы два аниме-сериала от компаний Aniplex и Studio Pierrot.

Первый аниме-сериал, «Наруто», транслировался в Японии по каналу TV Tokyo с 3 октября 2002 года по 8 февраля 2007 года и закончился 220-ой серией.

Второй аниме-сериал, «Наруто: Ураганные хроники» (яп. NARUTO -ナルト- 疾風伝 Наруто Сиппу:дэн), транслировался с 15 февраля 2007 года по 23 марта 2017 года и закончился 500-ой серией.

С момента начала трансляции в эфир вышло свыше 700 серий. В аниме-адаптацию манги входят: два аниме-сериала, одиннадцать анимационных фильмов и восемь OVA. На основе манги и аниме были созданы также видеоигры, романы, ранобэ и коллекционная карточная игра.

Манга и аниме оказались очень популярны как в Японии, так и за её пределами. На момент выхода 72-го тома, продажи которого составили 1 204 000 экземпляров, стало известно, что суммарные продажи томов превысили 205 миллионов экземпляров[4]. В США манга «Наруто», лицензированная издательством Viz Media, регулярно попадает в списки бестселлеров[5], а в 2006 году её продажи составили почти 10 % всех продаж манги в этой стране[6]. В России права на издание и распространение манги принадлежат компаниям «Эксмо» и «Комикс-Арт»[7]. Распространением аниме на территории СНГ занималась «МегаСистем»[8].

Популярно: Другие предметы