Как вставить с помощью ButtonClick символ диаметра в поле RichEdit. Не понимаю как сделать, чтобы Delphi 7 понимал Unicode. Объясните, пожалуйста….
У меня программа, в которой вводится текст в простой Edit. Нужно, с помощью кнопки Button вставлять символ диаметра в место, где находится курсор. Почитав я так понял что в простом Edit это нельзя сделать, т.к. не поддерживает символы из Unicode.

procedure TMainForm.diametr1Click(Sender: TObject);
var diam1: WideString;

begin

//diam1:=WideChar(#0216);
//diam1:=WideChar($00C18);
diam1:=WideChar($#2300);
//diam1:=WideChar(#$U+2300);

diam.SetSelTextBuf(PChar(diam1));

end;

(читать всё…)

Имеется RichEdit, в котором ведётся лог в уже отформатированном виде. У RichEdit’а есть свойство PlainText. Если оно стоит False, то RichEdit передаёт в файл не только голый текст, но и мета-данные. И можно уже не разбираться в особенностях тегирования RTF’а, а выгружать в файл уже отформатированный текст.
У RichEdit’а есть SaveToFile. Сохраняет в файл текст вместе со всем редактированием текста (цвет, шрифт, жирность/курсивность и т.д.). Но минус SaveToFile в том, что он всегда перезатерает файл.
Необходимо файл не перезатерать, а дополнять текстом.
Также как альтернатива есть SaveToStream.
Думал, что можно через него дозаписывать файл:

procedure asdasd;
var RTFfile: TFileStream;
begin
  RTFfile := TFileStream.Create('File.rtf', fmOpenWrite); //Открываем для записи в файл
  try
    RTFfile.Seek(0, soEnd); //Проматываем файл в конец
    RichEditLog.Lines.SaveToStream(RTFfile);
  finally
    RTFfile.Free;
  end
end;

Всё равно файл перезатерается, хотя в параметре Seek указал soEnd.
Залез в код SaveToStream, посмотреть как он работает, но ничего не понял.

Не подскажите как из RichEdit’a дозаписывать текст в имеющийся RTF-файл с форматированием в соответствии с тем, что было в RichEdit?

Delphi XE2.

(читать всё…)

Как вставить перевод строки #10#13 в RichEdit1 в позицию где сейчас находиться курсор?

(читать всё…)

Необходимо узнать координаты коретки RichEdit в пиксилях относительно высоты и ширины компонента.
CaretPos.X не предлагать, он показывает номер строки и символа, а не координаты.

(читать всё…)

Как задать верхний и нижний отступы в компоненте RichEdit?

(читать всё…)

Как можно в RichEdit найти и раскрасить нужное слово?

(читать всё…)

(читать всё…)

Вывожу данные из базы в RichEdit. А как сделать чтобы строка ‘Остановлен: ‘ + ADOTable1.FieldByName(‘Время_ост’). AsString выделялась жирным (читать всё…)

У меня к вам вопрос: на форме есть 4 RichEdit’a у всех введен разнообразный текст, и у каждого свое форматирование (жирный, курсив, цвет и т.д.), вопрос — как это все сохранить в один текстовый документ, желательно вордовский но это не принципиально, можно и ртф, главное что бы текст из первого поля был в самом верху, потом через строчку был текст из второго поля и так по очереди… Как такое провернуть? И вообще реально ли? (читать всё…)

необходимо вставить TBitMap в TRichEdit (читать всё…)