Форум: "Прочее";
Текущий архив: 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.043 c