Форум: "Начинающим";
Текущий архив: 2014.04.27;
Скачать: [xml.tar.bz2];

Вниз

шрифт одинаковой ширины   Найти похожие ветки 

← →
dis12345 ©   (2013-07-18 15:11) [0]

Подскажите, пожалуйста, надо сделать вроде-бы простейшее действие- в Memo поместить текстовые данные колонками-столбиками, даже если дополняю пробелами до одинаковой ширины слова- все равно разъезжаются колонки, может какой шрифт с фиксированной и одинаковой шириной символов есть, чтоб типа как в старом добром DOSe?

---

← →
MBo ©   (2013-07-18 15:19) [1]

Конечно, есть. Например, Courier New (используется в IDE Delphi по  умолчанию)

---

← →
RWolf ©   (2013-07-18 15:19) [2]

Courier New Cyr
Lucida Console

---

← →
dis12345 ©   (2013-07-18 15:28) [3]

Спасибо!!!

---

← →
dis12345 ©   (2013-07-18 15:28) [4]

Спасибо!!!

---

← →
Султан   (2013-07-18 15:48) [5]

от Palladin {©}   (30.01.09 19:00) [7]

Var
f:TFont;
dt:THandle;
i:Integer;
tm:TEXTMETRIC;

Function _FontPitchBitsToStr(Const b:Byte):String;
Begin
If (b and TMPF_FIXED_PITCH)<>TMPF_FIXED_PITCH Then Result:="Fixed," Else Result:="";
If (b and TMPF_VECTOR)=TMPF_VECTOR Then Result:=Result+"Vector,";
If (b and TMPF_TRUETYPE)=TMPF_TRUETYPE Then Result:=Result+"TrueType,";
If (b and TMPF_DEVICE)=TMPF_DEVICE Then Result:=Result+"Device,";
If Result<>"" Then SetLength(Result,Length(Result)-1);
End;

begin
f:=TFont.Create;
Try
dt:=GetDC(GetDesktopWindow);
Try
 For i:=0 to Screen.Fonts.Count-1 Do
  Begin
   f.Name:=Screen.Fonts[i];
   SelectObject(dt,f.Handle);
   GetTextMetrics(dt,tm);
   Memo1.Lines.Add(Screen.Fonts[i]+" - "+_FontPitchBitsToStr(tm.tmPitchAndFamily));
  End;
Finally
 ReleaseDC(GetDesktopWindow,dt);
End;
Finally
f.Free;
End;
end;

---

← →
брат Птибурдукова   (2013-07-18 16:58) [6]

*trollface* FixedSys! Совсем как дос.

---

← →
Султан   (2013-07-18 18:54) [7]

> Султан   (18.07.13 15:48) [5]
> от Palladin {©}   (30.01.09 19:00) [7]

Решает "проблему" не выборочно, а глобально
:)

---

← →
Dimka Maslov ©   (2013-07-19 09:14) [8]

> Султан   (18.07.13 15:48) [5]


Многие моноширинные шрифты являются служебными и декоративными. Поэтому из всего списка именно Courier (New), Lucida Console и относительно недавно появившийся Consolas даюи приемлемый результат.

---

← →
Inovet ©   (2013-07-19 09:51) [9]

> [8] Dimka Maslov ©   (19.07.13 09:14)
> Consolas

У меня какая-то зараза и з VS повадилась втихаря устанавливать старую версию этого шрифта без псевдографики, а я им в ФАР пользуюсь. Это когда случайно ткнёшь на файле xsd, и она запускается.

---

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

Форум: "Начинающим";
Текущий архив: 2014.04.27;
Скачать: [xml.tar.bz2];

Наверх

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