Тип выравнивания текста

zamtmn · Sep 18, 2024 · 30bb758 · 30bb758
1 parent 55e153f
commit 30bb758
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/cad_source/components/zebase/uzbtypes.pas b/cad_source/components/zebase/uzbtypes.pas
@@ -185,6 +185,18 @@ TCalculatedString=record
   format:string;
 end;
 TOSnapModeControl=(On,Off,AsOwner);
+TTextJustify=(jstl(*'TopLeft'*),
+              jstc(*'TopCenter'*),
+              jstr(*'TopRight'*),
+              jsml(*'MiddleLeft'*),
+              jsmc(*'MiddleCenter'*), //СерединаЦентр
+              jsmr(*'MiddleRight'*),
+              jsbl(*'BottomLeft'*),
+              jsbc(*'BottomCenter'*),
+              jsbr(*'BottomRight'*),
+              jsbtl(*'Left'*),
+              jsbtc(*'Center'*),
+              jsbtr(*'Right'*));
 {EXPORT-}
 function IsIt(PType,PChecedType:Pointer):Boolean;