Changeset 6 for trunk/Forms


Ignore:
Timestamp:
Sep 19, 2014, 7:12:01 AM (10 years ago)
Author:
chronos
Message:
  • Added: Prepared more menu actions.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.lfm

    r5 r6  
    11object FormMain: TFormMain
    2   Left = 514
     2  Left = 664
    33  Height = 640
    4   Top = 299
     4  Top = 443
    55  Width = 920
    66  Caption = 'LibrePaint'
    7   ClientHeight = 614
     7  ClientHeight = 611
    88  ClientWidth = 920
    99  Menu = MainMenu1
    … …  
    1111  object PaintBox1: TPaintBox
    1212    Left = 0
    13     Height = 614
     13    Height = 582
    1414    Top = 0
    1515    Width = 920
    … …  
    1818    OnResize = PaintBox1Resize
    1919  end
     20  object StatusBar1: TStatusBar
     21    Left = 0
     22    Height = 29
     23    Top = 582
     24    Width = 920
     25    Panels = <>
     26  end
    2027  object MainMenu1: TMainMenu
     28    Images = Core.ImageList1
    2129    left = 104
    2230    top = 48
    2331    object MenuItem1: TMenuItem
    24       Caption = 'Soubor'
     32      Caption = 'File'
    2533      object MenuItem3: TMenuItem
    26         Action = Core.AProjectNew
     34        Action = Core.AFileNew
     35      end
     36      object MenuItem12: TMenuItem
     37        Action = Core.AFileOpen
     38      end
     39      object MenuItemRecentFiles: TMenuItem
     40        Caption = 'Recent files'
     41      end
     42      object MenuItem13: TMenuItem
     43        Action = Core.AFileSave
     44      end
     45      object MenuItem15: TMenuItem
     46        Action = Core.AFileSaveAs
     47      end
     48      object MenuItem16: TMenuItem
     49        Action = Core.AFileClose
     50      end
     51      object MenuItem11: TMenuItem
     52        Caption = '-'
    2753      end
    2854      object MenuItem2: TMenuItem
    2955        Action = Core.AExit
     56      end
     57    end
     58    object MenuItem6: TMenuItem
     59      Caption = 'View'
     60      object MenuItem7: TMenuItem
     61        Action = Core.AZoomNormal
     62      end
     63      object MenuItem8: TMenuItem
     64        Action = Core.AZoomIn
     65      end
     66      object MenuItem9: TMenuItem
     67        Action = Core.AZoomOut
     68      end
     69      object MenuItem10: TMenuItem
     70        Action = Core.AZoomAll
    3071      end
    3172    end
    … …  
    3475      object MenuItem5: TMenuItem
    3576        Action = Core.AImageClear
    36       end
    37       object MenuItem6: TMenuItem
    38         Action = Core.AImageRandom
    3977      end
    4078    end

  • trunk/Forms/UFormMain.pas

    r4 r6  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
    9   ExtCtrls;
     9  ExtCtrls, ComCtrls;
    1010
    1111type
    … …  
    1616    MainMenu1: TMainMenu;
    1717    MenuItem1: TMenuItem;
     18    MenuItem10: TMenuItem;
     19    MenuItem11: TMenuItem;
     20    MenuItem12: TMenuItem;
     21    MenuItem13: TMenuItem;
     22    MenuItemRecentFiles: TMenuItem;
     23    MenuItem15: TMenuItem;
     24    MenuItem16: TMenuItem;
    1825    MenuItem2: TMenuItem;
    1926    MenuItem3: TMenuItem;
    … …  
    2128    MenuItem5: TMenuItem;
    2229    MenuItem6: TMenuItem;
     30    MenuItem7: TMenuItem;
     31    MenuItem8: TMenuItem;
     32    MenuItem9: TMenuItem;
    2333    PaintBox1: TPaintBox;
     34    StatusBar1: TStatusBar;
    2435    Timer1: TTimer;
    2536    procedure PaintBox1Paint(Sender: TObject);
Note: See TracChangeset for help on using the changeset viewer.