35 lines
1.3 KiB
ObjectPascal
35 lines
1.3 KiB
ObjectPascal
uses GraphWPF;
|
|
|
|
begin
|
|
Window.Title := 'Выравнивание шрифта';
|
|
Font.Size := 20;
|
|
|
|
var sc := 40;
|
|
SetMathematicCoords;
|
|
|
|
var (x,y) := (-5,-2);
|
|
var (w,h) := (10,4);
|
|
DrawRectangle(x,y,w,h);
|
|
DrawText(x,y,w,h,'LeftTop',Alignment.LeftTop);
|
|
DrawText(x,y,w,h,'LeftCenter',Alignment.LeftCenter);
|
|
DrawText(x,y,w,h,'LeftBottom',Alignment.LeftBottom);
|
|
DrawText(x,y,w,h,'CenterTop',Alignment.CenterTop);
|
|
DrawText(x,y,w,h,'Center');
|
|
DrawText(x,y,w,h,'CenterBottom',Alignment.CenterBottom);
|
|
DrawText(x,y,w,h,'RightTop',Alignment.RightTop);
|
|
DrawText(x,y,w,h,'RightCenter',Alignment.RightCenter);
|
|
DrawText(x,y,w,h,'RightBottom',Alignment.RightBottom);
|
|
// Выравнивание относительно точки
|
|
TextOut(-5,5,'PointRightBottom',Alignment.RightBottom);
|
|
TextOut(-5,5,'PointRightTop',Alignment.RightTop);
|
|
TextOut(-5,5,'PointLeftTop',Alignment.LeftTop);
|
|
TextOut(-5,5,'PointLeftBottom',Alignment.LeftBottom);
|
|
FillCircle(-5,5,0.1,Colors.Red);
|
|
TextOut(5,5,'PointCenterTop',Alignment.CenterTop);
|
|
TextOut(5,5,'PointCenterBottom',Alignment.CenterBottom);
|
|
FillCircle(5,5,0.1,Colors.Red);
|
|
TextOut(5,-5,'PointLeftCenter',Alignment.LeftCenter);
|
|
TextOut(5,-5,'PointRightCenter',Alignment.RightCenter);
|
|
FillCircle(5,-5,0.1,Colors.Red);
|
|
end.
|