Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.01;
Скачать: CL | DM;

Вниз

Как получить список шрифтов только фиксированной ширины?   Найти похожие ветки 

 
Aleksandr ©   (2002-04-04 10:40) [0]

Уважаемые коллеги!
Надо мне отфильтровать список экранных шрифтов, чтобы остались только те, которые имеют фиксированную ширину (типа Courierа). Только вот не получается... Может, кто знает?


 
Dimka Maslov ©   (2002-04-04 11:41) [1]

procedure CreateFontList(FontList: TStringList);
var
i:integer;
S:String;
Ch:Char;
W:integer;
Flag:Boolean;
B:TBitmap;
begin
with FontList do begin
B:=TBitmap.Create;
B.Width:=32;
B.Height:=32;
B.Canvas.Font.Size:=8;
for i:=0 to Screen.Fonts.Count-1 do begin
S:=Screen.Fonts[i];
B.Canvas.Font.Name:=S;
W:=B.Canvas.TextWidth(#32);
Flag:=True;
for Ch:=#33 to #255 do begin
if (B.Canvas.TextWidth(Ch)<>w) then Flag:=False;
if not Flag then Break;
end;
if Flag then Add(S);
end;
B.Free;
end;
end;



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

Текущий архив: 2002.07.01;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.009 c
1-1052
Донской
2002-06-16 17:17
2002.07.01
Мастера, подскажите, пожалуйста - не могу понять, откуда этот глю


6-1119
Georg
2002-04-19 17:04
2002.07.01
Вопрос по прокси-серверам.


1-1025
DeMoN-777
2002-06-17 16:31
2002.07.01
Надо запустить разные функции на разних виндах.


1-1082
VDen
2002-06-19 10:26
2002.07.01
Путь к файлу


14-1210
SleD
2002-06-01 19:01
2002.07.01
Заработок в Интернете?