Конференция "KOL" » А можно ли на KOL писать нативные Unicode приложения [Delphi, KOL, Windows]
 
  • Rirk (03.04.12 17:07) [20]
    QAZ
    напишите пример.
    Как на битмап выводить юникод.
    с RE_  тоже ничего. То есть вообще ничего.
  • QAZ (03.04.12 23:09) [21]
    ладно напишу но чур на апи :)


    type settextex =record
    flags:DWORD;
    codepage:UINT;
    end;
    var
    a:array[0..4]of Word;
    s:WideString ;
    SetText: settextex;
    const
    EM_SETTEXTEX = WM_USER + 97;
    ST_DEFAULT = 0;//заменить весь текст в риче
    ST_KEEPUNDO = 1;//память для отмены
    ST_SELECTION = 2;//замена выделеного
    begin
    a[0]:=$74C9;
    a[1]:=$72C1;
    a[2]:=$71C5;
    a[3]:=$73C5;
    a[4]:=$0000;//обязательно!!! конец строки

    SetText.flags :=ST_KEEPUNDO or ST_SELECTION;
    SetText.codepage := 1200;//уникод
    SendMessage(RichEdit1.Handle, EM_SETTEXTEX, integer(@SetText),integer(PWideChar(@a)));


    массив потому что в редакторе невозможно написать строку по китайски
    а в рунтайме просто юзай видестринг
  • RusSun © (04.04.12 10:11) [22]
    http://s1.ipicture.ru/uploads/20120404/2Yp44b55.png

    Добавил язык страны иероглифа + выбрал шрифт
  • Rirk (06.04.12 14:23) [23]
    Всё заработало. Причина была в том. что не срабатывал переключатель.
    Постоянно забываю, чтобы что-то переключилось, нужно проект пересобрать.
    Добавить переключатель и персобрать.
 
Конференция "KOL" » А можно ли на KOL писать нативные Unicode приложения [Delphi, KOL, Windows]
Есть новые Нет новых   [134427   +35][b:0][p:0.001]