Changeset 36 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 648
+  Left = 546
   Height = 640
-  Top = 323
+  Top = 316
   Width = 920
   Caption = 'LibrePaint'

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;