Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 29

Раздел: Delphi » Прочее
/ вопрос открыт /

Помогите пожалуста. Уже не первый день парюсь...
1. искал, но так и не нашел, с помощью чег овставить картинку формата JIG? на сайтах пишут с помощью компонента TGIFImage - где найти?
2. добавляю в МЕМО-поле текст с помощью стандартного кода (приложение). Но он добавляет каждый раз на новую строку. Как сделать, что бы текст в МЕМО-поле дописывался в ту же строку? (а не в новую)

Приложение:
  1. procedure TForm1.Image33Click(Sender: TObject);
  2. begin
  3. Memo1.Lines.Append('[img]http://img.combats.ru/i/align9.gif[/img]');
  4. end;


Aku Demon Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Aku Demon (статус: Посетитель)
Вопрос отправлен: 30 мая 2006, 14:00
Состояние вопроса: открыт, ответов: 3.

Ответ #1. Отвечает эксперт: Darya Ermakova

1) Тут есть TGIFImage 3.0:
http://www.sulako.com/files/gifimg30.zip
2) очень просто:
Memo1.Lines[0]:=Memo1.Lines[0]+'hello';

Ответ отправила: Darya Ermakova (статус: 8-ой класс)
Время отправки: 30 мая 2006, 14:47

Ответ #2. Отвечает эксперт: Евгений В

Здравствуйте!
Всё просто, насчёт строки.
Смотри пример в приложении.

Просто нужно сначало удалить старую строку, а потом на её место вставить новую с помощью метода Insert.

Приложение:
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. begin
  3. Memo1.Lines.Delete(1); //Удаляем строку (по номеру строки)
  4. Memo1.Lines.Insert(1, 'Строка'); //Вставляем на её место нужную строку
  5. end;


Ответ отправил: Евгений В (статус: 1-ый класс)
Время отправки: 30 мая 2006, 15:37

Ответ #3. Отвечает эксперт: min@y™

Короче:

1. Альтернатива TGIFImage - TRxGifAnimator из пакета RxLib.

2. Если надо писать текст в конец текста Memo, то проще наверно так (см. ниже).

Приложение:
  1. Memo.Lines.BeginUpdate;
  2. try
  3. Memo.Text:= Memo.Text + '[img]http://img.combats.ru/i/align9.gif[/img]';
  4. finally
  5. Memo.Lines.EndUpdate;
  6. end;


Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 30 мая 2006, 16:48


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:34
Выполнено за 0.02 сек.