Форум: "Прочее";
Текущий архив: 2006.01.29;
Скачать: [xml.tar.bz2];
ВнизКак из обычного файла шрифта создать bmp шрифт? Найти похожие ветки
← →
Dark Lord © (2006-01-05 11:17) [0]Здравствуйте! Нашел интересную библиотеку, облегчающую работу с графикой, так там шрифты используют текстурные, вот и интересуюсь, как можно было бы перевести шрифт в рисунок
← →
wicked © (2006-01-05 11:34) [1]отрендерить в картинку...... правда, тогда придется попрощаться с лигатурами, хинтами и еще многим из того, чего содержат шрифты....
← →
Dark Lord © (2006-01-05 11:45) [2]Понятно, что надо как-то отрендерить... Вопрос - как? А точнее чем? Какая прога может открыть обычный шрифт и экспортнуть его в рисунок?
← →
TUser © (2006-01-05 11:49) [3]GetGlyphOutline
← →
Lamer@fools.ua © (2006-01-05 11:49) [4]>Понятно, что надо как-то отрендерить... Вопрос - как? А точнее чем?
ЦикломFOR
, я думаю.
← →
wicked © (2006-01-05 11:52) [5]1) любая, например WordPad или даже Notepad - набрать что-то вроде THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG, установить нужный шрифт, нажать Alt+Print Screen и вставить в любимый графический редактор..... там порезать на буковки....
2) написать самому.... ключевое слово для поиска и изучения в мсдн - GetGlyphOutline....
← →
TUser © (2006-01-05 11:54) [6]+ Canvas.TextOut
← →
КиТаЯц © (2006-01-05 15:07) [7]Поправка к
> wicked © (05.01.06 11:52) [5]
Alt+Print Screen не обязательно...
Ctrl+A, Ctrl+C в Word-е или блокноте; Ctrl+V в паните...
← →
boalse © (2006-01-05 15:39) [8]Я как-то делал вот это:
procedure TForm1.Button1Click(Sender: TObject);
var
B: TBitMap;
I,J,Sim: Integer;
begin
B:=TBitmap.Create;
B.Width:=16*11;
B.Height:=14*20;
With B.Canvas do
begin
Brush.Color:=clblack;
FillRect(rect(0,0,600,600));
Font.Color:=clWhite;
Font.Name:="Lucida Console";
Font.Size:=14;
// Font.Style:=[fsBold];
B.PixelFormat:=pf1bit;
end;
Sim:=32;
for I:=0 to 13 do
for J:= 0 to 15 do
begin
B.Canvas.TextOut(J*11,I*20,chr(Sim));
Inc(Sim);
end;
with Image1.Picture.Bitmap do
begin
Width:=600;
Height:=600;
Canvas.Draw(0,0,B);
end;
B.SaveToFile(ExtractFilePath(ParamStr(0))+"font.bmp");
end;
Код корявый, оптимизировать не стал, потому как работает.
← →
Dark Lord © (2006-01-05 16:39) [9]boalse © (05.01.06 15:39) [8]
Большое спасибо!
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2006.01.29;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.034 c