Update Base_Block.pas

albireo77 · Jan 6, 2025 · 6004ccf · 6004ccf
1 parent 4f400d4
commit 6004ccf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Blocks/Base_Block.pas b/Blocks/Base_Block.pas
@@ -65,7 +65,7 @@    TBlock = class(TCustomControl, IWithId, IWithFocus, IExportable, IMemoEx)
          FRefreshMode,
          FFrame,
          FMouseLeave,
-         FPosChanged: boolean;
+         FPosChanged: boolean;              // flag to indicate that block was moved from its initial position (0, 0)
          FShape: TColorShape;
          FRedArrow: integer;                // indicates active arrow; -1: none, 0: bottom, 1: branch1, 2: branch2...
          constructor Create(ABranch: TBranch; const ABlockParms: TBlockParms; AShape: TColorShape; AParserMode: TYYMode; AAlignment: TAlignment);