Как задать шрифт и диапазон его символов в charmap.exe? [D7, WinXP]
Dr.Andrew © (2008-04-13 12:41:00)
Как при вызове стандартной таблицы символов
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:00) [1]
Самому написать этот charmap не проще ? Там делов -то.
Наверх 
ЧАТ |
Орешник |
|
