Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Движение текста (картинок) в окне

Автор: BreakMeThunder 21.5.2006, 22:59

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

Автор: Poseidon 21.5.2006, 23:06

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

Автор: Yanis 21.5.2006, 23:06

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

А если серьёзно прочти http://www.ln.ua/~openxs/articles/smart-questions-ru.html.

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

Автор: BreakMeThunder 21.5.2006, 23:12

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

Автор: Poseidon 21.5.2006, 23:16

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

Автор: Yanis 21.5.2006, 23:26

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

)

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

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

Автор: Gensun 22.5.2006, 20:56

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

Автор: BreakMeThunder 22.5.2006, 22:24

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

Автор: skyboy 22.5.2006, 22:39

http://homepages.borland.com/jedi/jvcl/ - там среди бесчисленного множества компонентов есть то, что ищешь. Правда, под рукой нет пакета, потому название нужного компонента сказать не могу...

Автор: BreakMeThunder 22.5.2006, 23:22

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

Автор: skyboy 22.5.2006, 23:41

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

Автор: x77 22.5.2006, 23:58

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

Код


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'а.