Changeset 9 for trunk/UCore.pas


Ignore:
Timestamp:
Sep 21, 2014, 8:11:48 PM (10 years ago)
Author:
chronos
Message:
  • Modified: Not TGBitmap and TGColor data are stored as TBitMemory to support color formats with lower bit width size then 8.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        22LibrePaint
        33lib
         4backup

  • trunk/UCore.pas

    r8 r9  
    6666
    6767  // Set default
    68   Project.Bitmap.Size := Point(800, 600);
     68  Project.Bitmap.Size := Point(200, 100);
    6969  if ColorManager.FormatCount > 0 then
    7070    Project.Bitmap.ColorFormat := ColorManager.Formats[0];
    … …  
    7979    Project.Bitmap.Size := Point(FormNew.SpinEditWidth.Value, FormNew.SpinEditHeight.Value);
    8080    Project.Bitmap.ColorFormat := ColorManager.Formats[FormNew.ComboBoxColorFormat.ItemIndex];
     81    Project.Bitmap.BackgroundColor.FromTColor(clBlack);
    8182    Project.Bitmap.DPI := FormNew.SpinEditDPI.Value;
    8283    FormMain.Redraw;
    … …  
    112113  Project.Bitmap.Canvas.Pen.Color.Format := Project.Bitmap.ColorFormat;
    113114  Project.Bitmap.Canvas.Pen.Color.FromTColor(clWhite);
    114   Project.Bitmap.Canvas.Pen.MoveTo(Point(100, 100));
    115   Project.Bitmap.Canvas.Pen.LineTo(Point(700, 500));
     115  Project.Bitmap.Canvas.Pen.MoveTo(Point(80, 80));
     116  Project.Bitmap.Canvas.Pen.LineTo(Point(50, 20));
    116117  FormMain.Redraw;
    117118end;
Note: See TracChangeset for help on using the changeset viewer.