Каждая буква одинаковой ширины. Как это сделать?

← →
Kordel (2002-05-23 22:42) [0]

Нужно чтобы в Memo все буквы были одинаковой щирина, ну чтобы в каждой строчке умещалось столько же "1" сколько и "ж", как в консоли. Наверняка можно просто какой-то такой шривт поставить, только не знаю какой. Подскажите, пожалуйста.

← →
Song (2002-05-23 22:51) [1]

Нужен моноширный фонт, например Courier

← →
Kordel (2002-05-23 22:54) [2]

2Song

Спасибо

← →
Johnmen (2002-05-24 00:39) [3]

>Song © (23.05.02 22:51) : ...моноширийный...

← →
Елена (2002-05-24 07:10) [4]

Хороший вопрос. Как, кстати, можно получить список таких моноширинных шрифтов?

← →
Song (2002-05-24 08:40) [5]

TScreen.Fonts

← →
MBo (2002-05-24 09:17) [6]

function EnumFontProc(var lf:TEnumLogFont;var tm:TNewTextMetric;
fnt:cardinal;items:TStrings): Integer; stdcall;
var s:string;
begin
if (lf.elfLogFont.lfPitchAndFamily and FIXED_PITCH)=FIXED_PITCH then
s:=" * Fixed *"
else
s:="";
Items.Add(lf.elfLogFont.lfFaceName+s);
Result := 1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Sorted:=true;
EnumFontFamilies(Canvas.Handle,nil,@EnumFontProc,integer(ListBox1.Items));
end;

← →
Сенин (2002-05-24 22:24) [7]

Используй Courier New и тд, лох гребаный... Прости, пьян я...

Каждая буква одинаковой ширины. Как это сделать? Найти похожие ветки