Скачать: CL | DM;

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

← →
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 и тд, лох гребаный... Прости, пьян я...

---

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

Скачать: CL | DM;



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