2015-12-28 14:25:15 +03:00
|
|
|
|
// Демонстрация работы со шрифтами
|
2015-05-14 22:35:07 +03:00
|
|
|
|
uses GraphABC;
|
|
|
|
|
|
|
|
|
|
|
|
begin
|
2015-12-28 14:25:15 +03:00
|
|
|
|
Window.Title := 'Шрифты';
|
2015-05-14 22:35:07 +03:00
|
|
|
|
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.
|
