Changeset 49 for branches/paintbox/Forms/UMainForm.lfm

Timestamp:

Aug 22, 2019, 9:50:21 AM (5 years ago)

Author:

chronos

Message:

• Modified: Use TPaintBox for drawing.

File:

• branches/paintbox/Forms/UMainForm.lfm (modified) (2 diffs)

branches/paintbox/Forms/UMainForm.lfm

@@ -47 +47 @@
     SimplePanel = False
   end
-  object Image1: TImage
+  object PaintBox1: TPaintBox
     Left = 0
     Height = 462
@@ -53 +53 @@
     Width = 642
     Align = alClient
-    OnMouseLeave = Image1MouseLeave
-    OnResize = Image1Resize
+    OnPaint = PaintBox1Paint
+    OnResize = PaintBox1Resize
   end
   object TimerDraw: TTimer