Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.15;
Скачать: CL | DM;

Вниз

Вставка символа в RichEdit   Найти похожие ветки 

 
MAxiMum ©   (2002-06-27 18:13) [0]

Не могу вставить символ в RichEdit. Есть своя таблица символов.
Использую em_replacesel, вставляет по любому русский символ, даже если кодировка у меня какая-нибудь иврит. Как быть?
И еще вопрос. Допустим, это получится, а как потом можно пройтись по компоненту и прочесть значения символа и characterset для него (чтобы потом можно было сохранить в формате: characterset: Byte, symbol: char)?


 
MAxiMum ©   (2002-06-27 18:28) [1]

Ау!!!


 
Игорь Шевченко ©   (2002-06-27 19:02) [2]

На скорую руку:

procedure TForm1.Button4Click(Sender: TObject);
var
SelSt, Selln : Integer;
begin
SelSt := Length(RichEdit1.Lines[0]);
SelLn := Length(Edit1.Text);
RichEdit1.Lines[0] := RichEdit1.Lines[0] + Edit1.Text;
RichEdit1.SelStart := SelSt;
RichEdit1.SelLength := SelLn;
RichEdit1.SelAttributes.CharSet := HEBREW_CHARSET;
end;


Ввожу в Edit1 русский текст, в RichEdit получается иероглифами :)

D5, NT4



 
MAxiMum ©   (2002-07-01 11:01) [3]

Интересно, а почему под Windows 98 работает, а под Windows 2000 - нет?



Страницы: 1 вся ветка

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
1-47271
greenrul
2002-06-29 18:28
2002.07.15
CheckBox.Parent:=DrawGrid; - почему чекбокс ненажимаемый?


1-47247
Валет
2002-06-28 14:42
2002.07.15
Bmp


14-47676
AFROLOV
2002-06-17 10:59
2002.07.15
Длинная арифметика


1-47417
mazepa
2002-07-01 19:42
2002.07.15
Max Size Dynamic Array


3-47063
Дмитрий Баранов
2002-06-20 17:39
2002.07.15
Добавление данных ( LoadFromFile )