Вниз
Скачать: CL | DM;

RichEdit & Charset   Найти похожие ветки 

← →
ALex44   (2003-02-15 19:22) [0]

Privet vsem! Znaet kto-nibud", kak zastavit" dolbanyj RichEdit izmenit" font (tochnee, Charset; menyaetsya vse, krome etogo!) zagruzhennogo texta? V Win98 rabotalo, a teper" perestalo (W2K, richedit 3.0; navernoe, bolee `prodvinutyj"...) Mne ne udalos" pridumat" nichego umnee, krome perezagruzki file"a s ispol"zovaniem takogo `elegantnogo" code:


var S: string;
Stream: TStringStream;
procedure Replace(const Old, New: string);
begin
S := StringReplace(S, Old, New, [rfReplaceAll]);
end;
begin
with FDRichEdit1 do begin
S := FileReadString("C:\!source\rus.txt");
Replace("\", "\\");
Replace("{", "\{");
Replace("}", "\}");
S := AdjustLineBreaks(S, tlbsCRLF);
Replace(#13#10, "\par ");
S := Concat(Format("{\rtf1{\fonttbl{\f0\fcharset%d}}\f0", [Font.Charset]), S, "}");
Stream := TStringStream.Create(S);
try
with Lines do try
BeginUpdate;
PlainText := False;
LoadFromStream(Stream);
Perform(CM_FONTCHANGED, 0, 0);
PlainText := True;
finally
EndUpdate;
end;
finally
Stream.Free;
end;
end;
end;


← →
Романов Р.В. ©   (2003-02-15 19:30) [1]

RichEdit.SelStart
RichEdit.SelLength
RichEdit.SelAttributes


← →
ALex44   (2003-02-15 19:39) [2]

A Vy sami eto probovali?


with FDRichEdit1 do begin
SelStart := 1;
SelLength := 5;
SelAttributes.Charset := RUSSIAN_CHARSET;
end;


Esli by eto bylo tak prosto, ne bylo by voprosov... Ya uzh dazhe i EM_SETCHARFORMAT emu posylal, vse bez tolku.


Eshe raz, Win2K, Richedit 3.0, Russian locale installirovana, no ne default.


← →
Романов Р.В. ©   (2003-02-15 21:00) [3]

Сам не пробовал, т.к. не на чем и не зачем.


← →
ALex44   (2003-02-15 21:07) [4]


> Сам не пробовал, т.к. не на чем


Russian locale installirovana, no ne default

Esli problema v eto, to poprobujte zagruzit" text na lyubom yazyke =/= Russian or English (chtoby byli international characters) i dobit"sya, chtoby on NE pokazyval cyrillics (vmesto, skazhem, &eaccute;)



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c
1-87408
Garmahis
2003-02-18 10:43
2003.02.27
Cкроллинг текста


9-87237
Ich Hasse
2002-09-21 13:30
2003.02.27
Как быстрее


1-87403
Btginer1
2003-02-15 13:58
2003.02.27
как создать свечение у Label


1-87459
Alessio2003
2003-02-18 21:47
2003.02.27
TMemo


3-87341
ArtemB
2003-02-11 08:44
2003.02.27
Сравнение и выборка




   Наверх