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;)

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