Changeset 30 for trunk/Forms/UFormNew.pas

Timestamp:

Dec 23, 2016, 10:07:39 AM (8 years ago)

Author:

chronos

Message:

• Modified: Drawing and loading using bitmap rawimage improvement.

File:

• trunk/Forms/UFormNew.pas (modified) (1 diff)

trunk/Forms/UFormNew.pas

@@ -74 +74 @@
 
   // Default
-  SpinEditWidth.Value := 200;
-  SpinEditHeight.Value := 100;
+  if Assigned(Core.Project) then begin
+    SpinEditWidth.Value := Core.Project.Bitmap.Size.X;
+    SpinEditHeight.Value := Core.Project.Bitmap.Size.Y;
+  end else begin
+    SpinEditWidth.Value := 200;
+    SpinEditHeight.Value := 100;
+  end;
   SpinEditDPI.Value := 72;
 end;