Changeset 67 for branches/Independent/Forms/FormScreen.pas

Timestamp:

Nov 2, 2024, 10:04:51 PM (3 weeks ago)

Author:

chronos

Message:

• Modified: Apps split into separate units.
• Modified: SystemApi moved into separate unit.

File:

• branches/Independent/Forms/FormScreen.pas (modified) (2 diffs)

branches/Independent/Forms/FormScreen.pas

@@ -31 +31 @@
 var
   I: Integer;
+const
+  TitleHeight = 40;
 begin
   PaintBox1.Canvas.Brush.Color := clBlack;
@@ -45 +47 @@
       PaintBox1.Canvas.Rectangle(Rect);
       PaintBox1.Canvas.TextOut(Rect.Left + 20, Rect.Top + 5, Name);
+      PaintBox1.Canvas.Line(Rect.Left, Rect.Top + TitleHeight, Rect.Right, Rect.Top + TitleHeight);
     end;
   end;