Changeset 40 for trunk/Forms


Ignore:
Timestamp:
Oct 15, 2018, 5:17:15 PM (6 years ago)
Author:
chronos
Message:
  • Added: 16-bit channel RGB color format.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.lfm

    r37 r40  
    11object FormMain: TFormMain
    2   Left = 546
     2  Left = 577
    33  Height = 640
    4   Top = 316
     4  Top = 304
    55  Width = 920
    66  Caption = 'LibrePaint'

  • trunk/Forms/UFormMain.pas

    r38 r40  
    245245  if Assigned(Core.Project) then
    246246  with Core.Project do begin
    247     if Imagetool = itMoveView then begin
     247    if ImageTool = itMoveView then begin
    248248      View.SrcRect := Bounds(Trunc(StartViewPoint.X + (StartMousePoint.X - X) / View.Zoom),
    249249        Trunc(StartViewPoint.Y + (StartMousePoint.Y - Y) / View.Zoom),
Note: See TracChangeset for help on using the changeset viewer.