Changeset 3


Ignore:
Timestamp:
Jan 28, 2013, 7:58:22 PM (11 years ago)
Author:
chronos
Message:
  • Modified: Menu organization.
  • Added: Form for settings.
Location:
trunk
Files:
5 added
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormBrowse.lfm

    r2 r3  
    11object FormBrowse: TFormBrowse
    2   Left = 327
     2  Left = 351
    33  Height = 526
    4   Top = 143
     4  Top = 147
    55  Width = 722
    6   Caption = 'FormBrowse'
     6  Caption = 'Browse'
    77  ClientHeight = 526
    88  ClientWidth = 722

  • trunk/Forms/UFormBrowse.pas

    r2 r3  
    2020    { private declarations }
    2121  public
    22     { public declarations }
     22    procedure ReloadList;
    2323  end;
    2424
    … …  
    3030{$R *.lfm}
    3131
     32{ TFormBrowse }
     33
     34procedure TFormBrowse.ReloadList;
     35begin
     36
     37end;
     38
    3239end.
    3340

  • trunk/Forms/UFormMain.lfm

    r1 r3  
    11object FormMain: TFormMain
    2   Left = 259
     2  Left = 340
    33  Height = 497
    4   Top = 84
     4  Top = 152
    55  Width = 667
    6   Caption = 'FormMain'
     6  Caption = 'VCSCommander'
    77  ClientHeight = 472
    88  ClientWidth = 667
    … …  
    3737      end
    3838    end
     39    object MenuItem6: TMenuItem
     40      Caption = 'View'
     41      object MenuItem7: TMenuItem
     42        Action = AViewFavorites
     43      end
     44    end
     45    object MenuItem1: TMenuItem
     46      Caption = 'General'
     47      object MenuItem2: TMenuItem
     48        Action = ASettings
     49      end
     50    end
     51    object MenuItem3: TMenuItem
     52      Caption = 'Help'
     53      object MenuItem5: TMenuItem
     54        Action = AHelp
     55      end
     56      object MenuItem4: TMenuItem
     57        Action = AAbout
     58      end
     59    end
    3960  end
    4061  object ActionList1: TActionList
    … …  
    4768      OnExecute = AQuitExecute
    4869    end
     70    object ASettings: TAction
     71      Caption = 'Settings'
     72    end
     73    object AAbout: TAction
     74      Caption = 'About'
     75    end
     76    object AHelp: TAction
     77      Caption = 'Help'
     78    end
     79    object AViewFavorites: TAction
     80      Caption = 'Favorites'
     81    end
    4982  end
    5083  object ImageList1: TImageList

  • trunk/Forms/UFormMain.pas

    r1 r3  
    1414
    1515  TFormMain = class(TForm)
     16    AViewFavorites: TAction;
     17    AHelp: TAction;
     18    ASettings: TAction;
     19    AAbout: TAction;
    1620    AQuit: TAction;
    1721    ActionList1: TActionList;
    1822    ImageList1: TImageList;
    1923    MainMenu1: TMainMenu;
     24    MenuItem1: TMenuItem;
     25    MenuItem2: TMenuItem;
     26    MenuItem3: TMenuItem;
     27    MenuItem4: TMenuItem;
     28    MenuItem5: TMenuItem;
     29    MenuItem6: TMenuItem;
     30    MenuItem7: TMenuItem;
    2031    MenuItemQuit: TMenuItem;
    2132    MenuItemFile: TMenuItem;

  • trunk/UCore.lfm

    r1 r3  
    11object Core: TCore
    22  OldCreateOrder = False
    3   Height = 150
    4   HorizontalOffset = 259
    5   VerticalOffset = 84
    6   Width = 150
     3  Height = 346
     4  HorizontalOffset = 482
     5  VerticalOffset = 265
     6  Width = 447
    77end

  • trunk/VCSCommander.lpi

    r2 r3  
    7979      </Item1>
    8080    </RequiredPackages>
    81     <Units Count="5">
     81    <Units Count="8">
    8282      <Unit0>
    8383        <Filename Value="VCSCommander.lpr"/>
    … …  
    105105        <IsPartOfProject Value="True"/>
    106106        <ComponentName Value="FormBrowse"/>
     107        <HasResources Value="True"/>
    107108        <ResourceBaseClass Value="Form"/>
    108109        <UnitName Value="UFormBrowse"/>
    … …  
    113114        <UnitName Value="UVCS"/>
    114115      </Unit4>
     116      <Unit5>
     117        <Filename Value="Forms/UFormFavorites.pas"/>
     118        <IsPartOfProject Value="True"/>
     119        <ComponentName Value="FormFavorites"/>
     120        <ResourceBaseClass Value="Form"/>
     121        <UnitName Value="UFormFavorites"/>
     122      </Unit5>
     123      <Unit6>
     124        <Filename Value="Forms/UFormSettings.pas"/>
     125        <IsPartOfProject Value="True"/>
     126        <ComponentName Value="FormSettings"/>
     127        <ResourceBaseClass Value="Form"/>
     128        <UnitName Value="UFormSettings"/>
     129      </Unit6>
     130      <Unit7>
     131        <Filename Value="Units/USubversion.pas"/>
     132        <IsPartOfProject Value="True"/>
     133        <UnitName Value="USubversion"/>
     134      </Unit7>
    115135    </Units>
    116136  </ProjectOptions>

  • trunk/VCSCommander.lpr

    r2 r3  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UFormMain, UCore, UFormBrowse, UVCS
     10  Forms, UFormMain, UCore, UFormBrowse, UVCS, UFormFavorites, UFormSettings,
     11  USubversion
    1112  { you can add units after this };
    1213
    … …  
    1920  Application.CreateForm(TCore, Core);
    2021  Application.CreateForm(TFormBrowse, FormBrowse);
     22  Application.CreateForm(TFormFavorites, FormFavorites);
     23  Application.CreateForm(TFormSettings, FormSettings);
    2124  Application.Run;
    2225end.
Note: See TracChangeset for help on using the changeset viewer.