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

Как задать шрифт и диапазон его символов в charmap.exe?   Найти похожие ветки 

← →
Dr.Andrew   (2008-04-13 12:41) [0]

Как при вызове стандартной таблицы символов WinExec("charmap.exe", SW_SHOW) задавать открытие нужного шрифта в этом окошке, например с именем "Symbol" и как выбранный символ после закрытия таблицы символов внести в позицию каретки в компоненте Edit1, например так:

procedure Form1.ButtonClick(......);
var Symbol : WideString;
begin
Как-то задать начальные параметры открытия таблицы символов
WinExec("charmap.exe", SW_SHOW); потом ее вызвать
как-то уопределить положение каретки
Edit1.Text := Symbol; внести символ в редактируемое поле в положение каретки.
end;

попробовал так задать открытие нужного шрифта:

procedure TForm1.ElGraphicButton2Click(Sender: TObject);
begin
ShellExecute(Handle, "OPEN", "charmap.exe", PAnsiChar("Times New Roman"), nil, SW_SHOW);
end;

но ничего не получается.
А можно вообще задать открытие нужного шрифта и диапазон его символов по их кодам? Пожалуйста, с примером, если не сложно.
Спасибо всем!

---

← →
tesseract ©   (2008-04-13 18:57) [1]

Самому написать этот charmap не проще ? Там делов -то.

---

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

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



Память: 0.45 MB
Время: 0.012 c