Форум: "Основная";
Текущий архив: 2003.05.08;
Скачать: [xml.tar.bz2];

Вниз

Вопрос про шрифты   Найти похожие ветки 

← →
lamak   (2003-04-26 23:27) [0]

Использую в своей программе нестандартные шрифты, которые не установлены у других пользователей, что нужно сделать, чтобы шрифты устанавливались автоматически?

---

← →
N134   (2003-04-26 23:32) [1]

AddFontResource()

---

← →
lamak   (2003-04-26 23:55) [2]

А прикрепить его как res файл к программе нельзя? А потом оттуда загружать?

---

← →
Proton   (2003-04-27 00:51) [3]

Можно
=== font.rc
cps ttffont loadoncall WESTM.TTF
===

Procedure RegFont;
var rs:TResourceStream;
fs:TFileStream;
fn:string;
begin
{$R font.res}
if not QueryFont("Westminster") then
begin
fn := VclGetTempFileName("_");
rs := TResourceStream.Create(hinstance,"cps","ttffont");
try
fs := TFileStream.Create(fn,fmCreate);
try
fs.CopyFrom(rs,0);
finally
fs.free;
end;
finally
rs.Free;
end;
AddFontResource(pchar(fn));
end;
end;


---

← →
Proton   (2003-04-27 01:03) [4]

Простите великодушно господа, кое что забыл
Function QueryFont(const name:string):boolean;
function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
FontType: Integer; Data: Pointer): Integer; stdcall;
begin
Result := 2;
end;
var dc:hdc;
begin
dc := GetDC(0);
result := integer(EnumFontFamilies(dc,pchar(name),@EnumFontsProc,0)) = 2;
ReleaseDC(0,dc);
end;

---

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

Форум: "Основная";
Текущий архив: 2003.05.08;
Скачать: [xml.tar.bz2];

Наверх

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