1. Как вставить смайлик в RxRichEdit ? Я вставляю но есть одна проблема, картинку потом можно расширять а мне надо чтобы у неё был ограниченный размер и её нельзя было растягивать/сужать.
2. Как потом мохранить текст так чтобы вместо этих смайлов был текст ":), , ".
3. Как при вставке текста изменить все ":),," на ?

Пасибки заранее.
Вроде вставил весь исходник отвечающий за вставку смайлика.
Первая процедура не эффективна для меня. Незнаю как сделать так чтобы можно было заменять битмапы и текст к битмапу (как-бы пакеты смайлов которые потом можно будет скачать).

Код

procedure TFrm_Main.send_EdtKeyPress( Sender: TObject; var Key: Char ); var   I: Integer;   sCode, SmileyName: string;   procedure RemoveText( RichEdit: TRxRichEdit );   begin     with RichEdit do     begin       SelStart := SelStart - 2;       SelLength := 2;       SelText := '';     end;   end; begin   { Надатие кнопки в редакторе текста }   if ( Key = key1 ) or ( Key = key2 ) then   begin     SmileyName := '';     for I := 0 to SmilesCount do     begin       sCode := Copy( Send_edt.Text, Send_edt.SelStart - 1, 2 ) + Key;       if sCode = SmileT[ I ] then         SmileyName := 'SMILE' + IntToStr( I + 51 );     end;     if SmileyName <> '' then     begin       Key := #0;       RemoveText( Send_edt );       InsertSmiley( Send_edt, SmileyName );     end;   end; procedure InsertSmiley( RE: TrxRichEdit; ASmiley: string ); var   SS: TStringStream; // Поток текста   BMP: TBitmap; // Картинка begin   BMP := TBitmap.Create; // Создать картинку   BMP.LoadFromResourceName( hInstance, Asmiley ); // Загрузить из ресурса   SS := TStringStream.Create( BitmapToRTF( BMP ) ); // Создать поток текста   try     PutRTFSelection( RE, SS ); // Попробовать вставить RTF   finally     SS.Free; // И уничтожить   end; end; procedure PutRTFSelection(RichEdit: TRxRichEdit; SourceStream: TStream);    // by P. Below  var    EditStream: TEditStream;  begin    with EditStream do    begin      dwCookie := Longint(SourceStream);      dwError := 0;      pfnCallback := EditStreamInCallBack;    end;    RichEdit.Perform(EM_STREAMIN, SF_RTF or SFF_SELECTION, Longint(@EditStream));  end; function EditStreamInCallback(dwCookie: Longint; pbBuff: PByte;    cb: Longint; var pcb: Longint): DWORD; stdcall;    // by P. Below  var    theStream: TStream;    dataAvail: LongInt;  begin    theStream := TStream(dwCookie);    with theStream do    begin      dataAvail := Size - Position;      Result := 0;      if dataAvail <= cb then      begin        pcb := read(pbBuff^, dataAvail);        if pcb <> dataAvail then          Result := UINT(E_FAIL);      end      else      begin        pcb := read(pbBuff^, cb);        if pcb <> cb then          Result := UINT(E_FAIL);      end;    end;  end;

Есть специальный Ascii-символ "смайл" - его и исполльзуй.

Это сообщение отредактировал(а) Girder - 8.8.2005, 17:41

Ты понял что написал?
Прочитай вопрос внимательно.

дык храни в ресурсах с именем прямо таким, как смайлик пишется.
Например - для обычного смайлика; ;) - для wink и т.д.

И также ещё нужно иметь массив, где их хранить для автоматической замены (или файл или реестр - как угодно).
Ну и слегка переписать StringReplace(), чтобы заменяла исходную строку на bitmap.

А вот как заменить текст на картинку? Или как стедалть чтобы она не растягивалась?

Это сообщение отредактировал(а) Girder - 9.8.2005, 09:38

Дык вот же у тебя у самого в коде делается: PutRTFSelection( RE, SS );

RxRichEdit морально устарел. В JvRichEdit - логическом продолжении RxRichEdit - это делается одной процедурой

картинку потом можно расширять а мне надо чтобы у неё был ограниченный размер и её нельзя было растягивать/сужать. Как сделать? И как смайлы при сохранении сменить на текстовые?

Не решен вопрос?
В описанном способе вставки не устраивает возможность растягивания картинки. Также если выделить текст и вставить этим способом картинку, то текст заменится.

Упомянутый JvRichEdit (вернее пакет JVCL) установить не удалось - ошибка при инсталяции. Есть ли смысл разбираться с ошибкой? Действительно ли в этом компоненте есть стандартная функция вставки картинки? Проявятся ли недостатки, как в RxRichEdit?

Установил JVCL.
Картинку вставляю как в коде в первом сообщении.
Как решить проблему возможности изменения размеров и перетаскивания картинки? Или есть какой другой способ вставки изображений в JvRichEdit?

Тоже очень интересует этот вопрос - на счет изменения размеров! Неужели никто не знает???    

  
насчёт изменения размеров ничего не посоветую, но.. хочу заметить, что в большинстве Чат-плагинов Мирандов смайлики тоже растягиваются. Вот только их растягиванием обычно никто не занимается