Changeset 36 for trunk/Forms/UFormMain.pas

Timestamp:

May 4, 2018, 1:36:00 PM (7 years ago)

Author:

chronos

Message:

• Modified: Drawing using pen with connected lines instead of individual pixels.
• Added: Negative image function for RGB8 format.

File:

• trunk/Forms/UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -223 +223 @@
       P := Core.Project.View.DestToSrcPos(Point(X, Y));
       if (P.X >= 0) and (P.X < Core.Project.Bitmap.Size.X) and (P.Y >= 0) and (P.Y < Core.Project.Bitmap.Size.Y) then
-        Core.Project.Bitmap.Pixels[P.X, P.Y] := TFColor.Create(Core.Project.Bitmap.ColorFormat, ColorButton1.ButtonColor);
+        Core.Project.Bitmap.Canvas.Pen.MoveTo(Point(P.X, P.Y));
       Redraw;
     end;
@@ -253 +253 @@
     if ImageTool = itPen then begin
       P := Core.Project.View.DestToSrcPos(Point(X, Y));
-      if (P.X >= 0) and (P.X < Core.Project.Bitmap.Size.X) and (P.Y >= 0) and (P.Y < Core.Project.Bitmap.Size.Y) then
-        Core.Project.Bitmap.Pixels[P.X, P.Y] := TFColor.Create(Core.Project.Bitmap.ColorFormat, ColorButton1.ButtonColor);
+      if (P.X >= 0) and (P.X < Core.Project.Bitmap.Size.X) and (P.Y >= 0) and (P.Y < Core.Project.Bitmap.Size.Y) then begin
+        Core.Project.Bitmap.Canvas.Pen.Color := TFColor.Create(Core.Project.Bitmap.ColorFormat, ColorButton1.ButtonColor);
+        Core.Project.Bitmap.Canvas.Pen.LineTo(Point(P.X, P.Y));
+      end;
       Redraw;
     end;