Changeset 2


Ignore:
Timestamp:
Aug 1, 2012, 4:36:04 PM (12 years ago)
Author:
chronos
Message:
  • Added: Unit for project management.
  • Added: Some base actions and menu items.
Location:
trunk/StudioPackage
Files:
3 added
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/StudioPackage/Forms/UFormMain.lfm

    r1 r2  
    44  Top = 75
    55  Width = 611
    6   Caption = 'FormMain'
     6  Caption = 'LibreDevelop Studio'
    77  ClientHeight = 428
    88  ClientWidth = 611
    … …  
    2222    Width = 611
    2323    Caption = 'ToolBar1'
     24    Images = ImageList1
    2425    TabOrder = 1
    2526    object ToolButton1: TToolButton
    2627      Left = 1
    2728      Top = 2
    28       Action = Action1
     29      Action = AProjectNew
    2930    end
    3031  end
    3132  object MainMenu1: TMainMenu
    32     left = 100
    33     top = 107
     33    Images = ImageList1
     34    left = 48
     35    top = 64
    3436    object MenuItem1: TMenuItem
    3537      Caption = 'File'
    3638      object MenuItem3: TMenuItem
    37         Action = Action1
     39        Action = AProjectNew
     40      end
     41      object MenuItem8: TMenuItem
     42        Action = AProjectOpen
     43      end
     44      object MenuItem9: TMenuItem
     45        Action = AProjectOpenRecent
     46      end
     47      object MenuItem10: TMenuItem
     48        Action = AProjectSave
     49      end
     50      object MenuItem11: TMenuItem
     51        Action = AProjectSaveAs
     52      end
     53      object MenuItem12: TMenuItem
     54        Action = AProjectClose
     55      end
     56      object MenuItem13: TMenuItem
     57        Caption = '-'
     58      end
     59      object MenuItem14: TMenuItem
     60        Action = AExit
    3861      end
    3962    end
    4063    object MenuItem2: TMenuItem
    41       Caption = 'New Item2'
     64      Caption = 'Edit'
     65      object MenuItem4: TMenuItem
     66        Action = AClipboardCopy
     67      end
     68      object MenuItem5: TMenuItem
     69        Action = AClipboardPaste
     70      end
     71      object MenuItem6: TMenuItem
     72        Action = AClipboardCut
     73      end
     74      object MenuItem7: TMenuItem
     75        Action = ASelectAll
     76      end
    4277    end
    4378  end
    4479  object ActionList1: TActionList
    45     left = 267
    46     top = 95
    47     object Action1: TAction
    48       Caption = 'Action1'
     80    Images = ImageList1
     81    left = 48
     82    top = 120
     83    object AProjectNew: TAction
     84      Category = 'Project'
     85      Caption = 'New...'
     86      Hint = 'New project'
     87      ShortCut = 16462
     88    end
     89    object AProjectOpen: TAction
     90      Category = 'Project'
     91      Caption = 'Open...'
     92      Hint = 'Open project'
     93      ShortCut = 16463
     94    end
     95    object AProjectClose: TAction
     96      Category = 'Project'
     97      Caption = 'Close'
     98      Hint = 'Close project'
     99    end
     100    object AProjectSave: TAction
     101      Category = 'Project'
     102      Caption = 'Save'
     103      Hint = 'Save project'
     104      ShortCut = 16467
     105    end
     106    object AProjectSaveAs: TAction
     107      Category = 'Project'
     108      Caption = 'Save as...'
     109      Hint = 'Save project as'
     110      ShortCut = 24659
     111    end
     112    object AProjectOpenRecent: TAction
     113      Category = 'Project'
     114      Caption = 'Open recent'
     115      Hint = 'Open recent project'
     116    end
     117    object AClipboardCopy: TAction
     118      Category = 'Edit'
     119      Caption = 'Copy'
     120      Hint = 'Copy to clipboard'
     121      ShortCut = 16451
     122    end
     123    object AClipboardPaste: TAction
     124      Category = 'Edit'
     125      Caption = 'Paste'
     126      Hint = 'Paste from clipboard'
     127      ShortCut = 16470
     128    end
     129    object AClipboardCut: TAction
     130      Category = 'Edit'
     131      Caption = 'Cut'
     132      Hint = 'Cut to clipboard'
     133      ShortCut = 16472
     134    end
     135    object ASelectAll: TAction
     136      Category = 'Edit'
     137      Caption = 'Select all'
     138      Hint = 'Select all'
     139      ShortCut = 16449
     140    end
     141    object AExit: TAction
     142      Caption = 'Exit'
     143      Hint = 'Exit application'
     144      OnExecute = AExitExecute
     145      ShortCut = 16499
    49146    end
    50147  end
     148  object ImageList1: TImageList
     149    left = 48
     150    top = 176
     151  end
    51152end

  • trunk/StudioPackage/Forms/UFormMain.pas

    r1 r2  
    1414
    1515  TFormMain = class(TForm)
    16     Action1: TAction;
     16    AClipboardCopy: TAction;
     17    AClipboardPaste: TAction;
     18    AExit: TAction;
     19    ASelectAll: TAction;
     20    AClipboardCut: TAction;
     21    AProjectOpenRecent: TAction;
     22    AProjectSaveAs: TAction;
     23    AProjectSave: TAction;
     24    AProjectClose: TAction;
     25    AProjectOpen: TAction;
     26    AProjectNew: TAction;
    1727    ActionList1: TActionList;
     28    ImageList1: TImageList;
    1829    MainMenu1: TMainMenu;
    1930    MenuItem1: TMenuItem;
     31    MenuItem10: TMenuItem;
     32    MenuItem11: TMenuItem;
     33    MenuItem12: TMenuItem;
     34    MenuItem13: TMenuItem;
     35    MenuItem14: TMenuItem;
    2036    MenuItem2: TMenuItem;
    2137    MenuItem3: TMenuItem;
     38    MenuItem4: TMenuItem;
     39    MenuItem5: TMenuItem;
     40    MenuItem6: TMenuItem;
     41    MenuItem7: TMenuItem;
     42    MenuItem8: TMenuItem;
     43    MenuItem9: TMenuItem;
    2244    StatusBar1: TStatusBar;
    2345    ToolBar1: TToolBar;
    2446    ToolButton1: TToolButton;
     47    procedure AExitExecute(Sender: TObject);
    2548  private
    2649    { private declarations }
    … …  
    3659{$R *.lfm}
    3760
     61{ TFormMain }
     62
     63procedure TFormMain.AExitExecute(Sender: TObject);
     64begin
     65  Application.Terminate;
     66end;
     67
    3868end.
    3969

  • trunk/StudioPackage/LibreDevelopStudio.lpk

    r1 r2  
    1111        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\"/>
    1212      </SearchPaths>
     13      <Parsing>
     14        <SyntaxOptions>
     15          <SyntaxMode Value="Delphi"/>
     16        </SyntaxOptions>
     17      </Parsing>
    1318      <Other>
    1419        <CompilerMessages>
    … …  
    1823      </Other>
    1924    </CompilerOptions>
    20     <Files Count="1">
     25    <Files Count="3">
    2126      <Item1>
    2227        <Filename Value="Forms\UFormMain.pas"/>
    2328        <UnitName Value="UFormMain"/>
    2429      </Item1>
     30      <Item2>
     31        <Filename Value="UProject.pas"/>
     32        <UnitName Value="UProject"/>
     33      </Item2>
     34      <Item3>
     35        <Filename Value="UDataModule.pas"/>
     36        <UnitName Value="UDataModule"/>
     37      </Item3>
    2538    </Files>
    2639    <Type Value="RunAndDesignTime"/>
    27     <RequiredPkgs Count="2">
     40    <RequiredPkgs Count="3">
    2841      <Item1>
    29         <PackageName Value="LCL"/>
     42        <PackageName Value="TemplateGenerics"/>
    3043      </Item1>
    3144      <Item2>
     45        <PackageName Value="LCL"/>
     46      </Item2>
     47      <Item3>
    3248        <PackageName Value="FCL"/>
    33       </Item2>
     49      </Item3>
    3450    </RequiredPkgs>
    3551    <UsageOptions>

  • trunk/StudioPackage/LibreDevelopStudio.pas

    r1 r2  
    88
    99uses
    10   UFormMain, LazarusPackageIntf;
     10  UFormMain, UProject, UDataModule, LazarusPackageIntf;
    1111
    1212implementation
Note: See TracChangeset for help on using the changeset viewer.