| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Каждая буква одинаковой ширины. Как это сделать? [D6, WinXP]
Kordel © (2002-05-23 22:42:00)Нужно чтобы в Memo все буквы были одинаковой щирина, ну чтобы в каждой строчке умещалось столько же "1" сколько и "ж", как в консоли. Наверняка можно просто какой-то такой шривт поставить, только не знаю какой. Подскажите, пожалуйста.
Сенин (2002-05-24 22:24:00) [1]Используй Courier New и тд, лох гребаный... Прости, пьян я...
MBo (2002-05-24 09:17:00) [2]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;
Song (2002-05-24 08:40:00) [3]TScreen.Fonts
Елена (2002-05-24 07:10:00) [4]Хороший вопрос. Как, кстати, можно получить список таких моноширинных шрифтов?
Johnmen (2002-05-24 00:39:00) [5]>Song © (23.05.02 22:51) : ...моноширийный...
Kordel (2002-05-23 22:54:00) [6]2Song
Спасибо
Song (2002-05-23 22:51:00) [7]Нужен моноширный фонт, например Courier
| |
