|
Вопрос # 29/ вопрос открыт / |
|
Помогите пожалуста. Уже не первый день парюсь...
1. искал, но так и не нашел, с помощью чег овставить картинку формата JIG? на сайтах пишут с помощью компонента TGIFImage - где найти?
2. добавляю в МЕМО-поле текст с помощью стандартного кода (приложение). Но он добавляет каждый раз на новую строку. Как сделать, что бы текст в МЕМО-поле дописывался в ту же строку? (а не в новую)
Приложение: Переключить в обычный режим- procedure TForm1.Image33Click(Sender: TObject);
- begin
- Memo1.Lines.Append('[img]http://img.combats.ru/i/align9.gif[/img]');
- end;
 |
Вопрос задал: 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.
Приложение: Переключить в обычный режим- procedure TForm1.Button1Click(Sender: TObject);
- begin
- Memo1.Lines.Delete(1);
//Удаляем
строку (по
номеру
строки)
- Memo1.Lines.Insert(1, 'Строка');
//Вставляем
на её
место
нужную
строку
- end;
 |
Ответ отправил: Евгений В (статус: 1-ый класс)
Время отправки: 30 мая 2006, 15:37
|
Ответ #3. Отвечает эксперт: min@y™
Короче:
1. Альтернатива TGIFImage - TRxGifAnimator из пакета RxLib.
2. Если надо писать текст в конец текста Memo, то проще наверно так (см. ниже).
Приложение: Переключить в обычный режим- Memo.Lines.BeginUpdate;
- try
- Memo.Text:= Memo.Text + '[img]http://img.combats.ru/i/align9.gif[/img]';
- finally
- Memo.Lines.EndUpdate;
- end;
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 30 мая 2006, 16:48
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|