24 lines
534 B
ObjectPascal
24 lines
534 B
ObjectPascal
// Демонстрация работы со шрифтами
|
||
uses GraphABC;
|
||
|
||
begin
|
||
Window.Title := 'Шрифты';
|
||
SetWindowSize(760,460);
|
||
Font.Name := 'Arial';
|
||
Font.Style := fsBoldItalic;
|
||
for var i:=4 to 14 do
|
||
begin
|
||
Font.Size := 2*i;
|
||
Font.Color := clRandom;
|
||
TextOut(30,2*i*i-15,'PascalABC.NET');
|
||
end;
|
||
Font.Name := 'Times New Roman';
|
||
Font.Style := fsBoldUnderline;
|
||
for var i:=4 to 14 do
|
||
begin
|
||
Font.Size := 2*i;
|
||
Font.Color := clRandom;
|
||
TextOut(400,2*i*i-15,'PascalABC.NET');
|
||
end;
|
||
end.
|