VPF::Движение текста (картинок) в окне

BreakMeThunder

Дата 21.5.2006, 22:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 6.5.2006

Репутация: нет
Всего: нет

Подскажите, как сделать что бы текст (вместе с картинками) двигался cнизу вверх окна (типа скроллинг)? Для этого нужен компонент RichEdit?

Poseidon

Дата 21.5.2006, 23:06 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Для этого нужен компонент ScrollBox

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Yanis

Дата 21.5.2006, 23:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Для этого нужен компонент TBrain smile

А если серьёзно прочти вот это руководство.

P. S. И ещё... за тебя никто не сделает.

--------------------

*щёлк*

BreakMeThunder

Дата 21.5.2006, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 6.5.2006

Репутация: нет
Всего: нет

Печально... Могли бы и подсказать, если уж знаете, а сделать я и сам сделаю

Poseidon

Дата 21.5.2006, 23:16 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Я и подсказал. Делай!

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Yanis

Дата 21.5.2006, 23:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(BreakMeThunder @ 22.5.2006, 00:12

)

Могли бы и подсказать, если уж знаете, а сделать я и сам сделаю

Нет не знаю. Потому что я не понял вопроса smile

--------------------

*щёлк*

Gensun

Дата 22.5.2006, 20:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 26.10.2005
Где: wWw

Репутация: нет
Всего: нет

Воспользуйся компонентом LSVGauge
Есле надо то скину по почте вместе с примерами для ознакомления его возможностей. А возможности унего весьма велики. (как помне покрайнимере)

BreakMeThunder

Дата 22.5.2006, 22:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 6.5.2006

Репутация: нет
Всего: нет

Отлично! Скинь плз (сюда)

skyboy

Дата 22.5.2006, 22:39 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 4
Всего: 260

Jedi VCL - там среди бесчисленного множества компонентов есть то, что ищешь. Правда, под рукой нет пакета, потому название нужного компонента сказать не могу...

BreakMeThunder

Дата 22.5.2006, 23:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 6.5.2006

Репутация: нет
Всего: нет

И все-таки хотелось бы узнать способ без использования не стандартных компонентов...

skyboy

Дата 22.5.2006, 23:41 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 4
Всего: 260

BreakMeThunder, рисуй на канве формы.

x77

Дата 22.5.2006, 23:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

всё будет зависеть от того, как (в чём) заданы картинки и текст. вот, например, в меру дебильный способ:

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered := TRUE;
  AutoScroll := FALSE;
  Image1.AutoSize := TRUE;
  Image1.Picture.LoadFromFile('C:\Program Files\Common Files\Borland Shared\Images\Splash\16Color\athena.bmp');
  Label1.Caption := 'Hello, World!';
  Label1.Font.Size := 24;
  Panel1.Top := Height;
  Timer1.Interval := 100;
  Timer1.Enabled := TRUE;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Panel1.Top < -Panel1.Height then
    Panel1.Top := Height
  else
    Panel1.Top := Panel1.Top - 2;
end;

смысл в том, что берём панель, на панели располагаем все картинки, лэйблы и вообще всё на свете, а потом по таймеру двигаем панель со всем добром.

правильнее, конечно, рисовать на канве. того же PaintBox'а.

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »