Правила форума
Setuchsz.PASЯзык:
Русский
English
{ Пример программы для процедуры SetUserCharSize }
{ Иллюстрирует, как менять ширину и высоту текста }
uses Graph;
var
Driver, Mode : Integer;
begin
Driver := Detect;
InitGraph(Driver, Mode, 'X:\BP');
if GraphResult <> grOk then
Halt(1);
{ Выводим текст }
SetTextStyle(TriplexFont, HorizDir, 4);
OutText('Norm');
SetUserCharSize(1, 3, 1, 1);
OutText('Short ');
SetUserCharSize(3, 1, 1, 1);
OutText('Wide');
ReadLn;
CloseGraph;
end.
uses Graph;
var
Driver, Mode : Integer;
begin
Driver := Detect;
InitGraph(Driver, Mode, 'X:\BP');
if GraphResult <> grOk then
Halt(1);
{ Выводим текст }
SetTextStyle(TriplexFont, HorizDir, 4);
OutText('Norm');
SetUserCharSize(1, 3, 1, 1);
OutText('Short ');
SetUserCharSize(3, 1, 1, 1);
OutText('Wide');
ReadLn;
CloseGraph;
end.
::
::
::
