Forum Webscript.Ru

Программирование => Perl => Тема начата: WG от 23 Апреля 2004, 20:13:44

Название: Как определить ширину строки?
Отправлено: WG от 23 Апреля 2004, 20:13:44

Как средствами perl определить ширину строки или ширину отдельно взятого символа строки, например $str="Ш";

Название: Как определить ширину строки?
Отправлено: NeoNox от 23 Апреля 2004, 20:20:38

WG ты можеш определить количество элементов в строке но размеры шрифта ты определить не сможеш.

Название: Как определить ширину строки?
Отправлено: Wyclef от 23 Апреля 2004, 21:16:56

WG
Если уж заинтересовал perl, то можно встречный вопрос:
А как и где (я имею ввиду - не "средствами perl") ты определял "ширину символа"?..

Название: Как определить ширину строки?
Отправлено: WG от 25 Апреля 2004, 00:34:12

Например в Delphi существует функция которая
возвращает ширину в пикселях, строки представленной в текущем шрифте.
function TextWidth(const Text: string): Integer;

Вот пример:

unit Unit1;
//----------//
var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.text:=inttostr(Canvas.TextWidth(Edit1.Text));
end;
end.

Название: Как определить ширину строки?
Отправлено: glebushka от 26 Апреля 2004, 22:02:10

посмотри Term::ReadKey, размер символа ты не определишь, а вот ширину и высоту окна в символах и пикселях, обещают рассказать.

Название: Как определить ширину строки?
Отправлено: Меняздесьдавнонет от 26 Апреля 2004, 22:38:43

если это для ГД, то для ТТФ шрифтов есть функция.
а если для экрана, то нужно делать так, чтобы ширина символа не требовалась.