Changeset 36 for trunk/UCore.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/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -234 +234 @@
 procedure TCore.AFileSaveAsExecute(Sender: TObject);
 begin
-  SavePictureDialog1.FileName := Project.FileName;
+  SavePictureDialog1.InitialDir := ExtractFileDir(Project.FileName);
+  SavePictureDialog1.FileName := ExtractFileName(Project.FileName);
   if SavePictureDialog1.Execute then begin
     Project.FileName := SavePictureDialog1.FileName;
@@ -251 +252 @@
     Image := TImage.Create(nil);
     Image.Picture.Bitmap.SetSize(Project.Bitmap.Size.X, Project.Bitmap.Size.Y);
-    Project.Bitmap.PaintToCanvas(Image.Picture.Bitmap.Canvas,
+    Project.Bitmap.PaintToBitmap(Image.Picture.Bitmap,
       Rect(0, 0, Image.Picture.Bitmap.Width, Image.Picture.Bitmap.Height));
     Image.Picture.SaveToFile(SavePictureDialog1.FileName);