Changeset 55 for trunk/IDE/Forms


Ignore:
Timestamp:
Jul 13, 2012, 1:49:52 PM (12 years ago)
Author:
chronos
Message:
  • Updated: Common package now contain TApplicationInfo class which contain various application info.
Location:
trunk/IDE/Forms
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/IDE/Forms/UFormAbout.pas

    r45 r55  
    3131implementation
    3232
     33uses
     34  UCore;
     35
    3336resourcestring
    3437  SApplicationName = 'Application name';
    … …  
    4245procedure TFormAbout.FormShow(Sender: TObject);
    4346begin
    44   with Memo1, Lines, ApplicationInfo do begin
     47  with Memo1, Lines, Core.ApplicationInfo do begin
    4548    BeginUpdate;
    4649    Clear;

  • trunk/IDE/Forms/UFormMain.pas

    r54 r55  
    77uses
    88  SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
    9   UCompiler, Registry, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas,
     9  Registry, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas,
    1010  UProject, FileUtil, Menus, ActnList,
    11   UCoolTranslator, UFormTargetCode, UFormCodeTree, URegistry, ULastOpenedList, UApplicationInfo,
    12   UDebugLog;
    13 
    14 const
    15   RegistryRootKey = HKEY_CURRENT_USER;
     11  UFormTargetCode, UFormCodeTree, URegistry, UApplicationInfo;
    1612
    1713type
    … …  
    164160uses
    165161  UCore, UFormMessages, UFormSourceCode, UFormProject, UCommon, UFormAbout, UFormOptions,
    166   UFormTargets, UTarget, UAnalyzer, UProducer, UExecutor, UFormProjectNew,
    167   UProjectTemplates, UFormTargetProject;
    168 
    169 resourcestring
    170   SNewProject = 'New project';
     162  UFormTargets, UTarget, UExecutor, UFormProjectNew,
     163  UFormTargetProject;
    171164
    172165{ TFormMain }
    … …  
    441434  Title: string;
    442435begin
    443   Title := ApplicationInfo.Name;
     436  Title := Core.ApplicationInfo.AppName;
    444437  if Assigned(Core.Project) then begin
    445438    if Core.Project.FileName <> '' then Title := Core.Project.FileName + ' - ' + Title;
    … …  
    452445begin
    453446  AProjectClose.Execute;
    454   Core.SaveToRegistry(RegistryRootKey, ApplicationInfo.RegistryKey);
     447  Core.SaveToRegistry(HKEY(Core.ApplicationInfo.RegistryRoot), Core.ApplicationInfo.RegistryKey);
    455448end;
    456449
    457450procedure TFormMain.FormCreate(Sender: TObject);
    458 var
    459   I: Integer;
    460451begin
    461452end;
    … …  
    472463
    473464procedure TFormMain.FormShow(Sender: TObject);
    474 var
    475   NewProjectFile: TProjectFile;
    476 begin
    477   Core.LoadFromRegistry(RegistryRootKey, ApplicationInfo.RegistryKey);
     465begin
     466  Core.LoadFromRegistry(HKEY(Core.ApplicationInfo.RegistryRoot), Core.ApplicationInfo.RegistryKey);
    478467  DockInit;
    479468  Core.ProjectTemplatesInit;
    … …  
    517506procedure TFormMain.AHomepageExecute(Sender: TObject);
    518507begin
    519   OpenWebPage(ApplicationInfo.HomePage);
     508  OpenWebPage(Core.ApplicationInfo.HomePage);
    520509end;
    521510
    … …  
    526515
    527516procedure TFormMain.AProjectNewExecute(Sender: TObject);
    528 var
    529   NewFile: TProjectFile;
    530517begin
    531518  if FormProjectNew.ShowModal = mrOk then begin

  • trunk/IDE/Forms/UFormProject.lfm

    r45 r55  
    77  ClientHeight = 253
    88  ClientWidth = 331
    9   LCLVersion = '0.9.31'
     9  LCLVersion = '1.1'
    1010  object TreeViewProject: TTreeView
    1111    Left = 0
    … …  
    1414    Width = 331
    1515    Align = alClient
     16    DefaultItemHeight = 16
     17    PopupMenu = PopupMenuFile
    1618    ReadOnly = True
    1719    TabOrder = 0
    … …  
    1921    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
    2022  end
     23  object PopupMenuFile: TPopupMenu
     24    Images = FormMain.ImageList1
     25    left = 94
     26    top = 38
     27    object MenuItem4: TMenuItem
     28      Action = AShow
     29    end
     30    object MenuItem1: TMenuItem
     31      Action = AAdd
     32    end
     33    object MenuItem2: TMenuItem
     34      Action = ADelete
     35    end
     36    object MenuItem3: TMenuItem
     37      Action = ARename
     38    end
     39  end
     40  object ActionList1: TActionList
     41    left = 184
     42    top = 40
     43    object AAdd: TAction
     44      Caption = 'Add'
     45      OnExecute = AAddExecute
     46    end
     47    object ADelete: TAction
     48      Caption = 'Delete'
     49    end
     50    object ARename: TAction
     51      Caption = 'Rename'
     52    end
     53    object AShow: TAction
     54      Caption = 'Show'
     55    end
     56  end
     57  object OpenDialog1: TOpenDialog
     58    left = 94
     59    top = 98
     60  end
    2161end

  • trunk/IDE/Forms/UFormProject.lrt

    r45 r55  
    11TFORMPROJECT.CAPTION=Project manager
     2TFORMPROJECT.AADD.CAPTION=Add
     3TFORMPROJECT.ADELETE.CAPTION=Delete
     4TFORMPROJECT.ARENAME.CAPTION=Rename
     5TFORMPROJECT.ASHOW.CAPTION=Show

  • trunk/IDE/Forms/UFormProject.pas

    r54 r55  
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    7   UProject;
     7  Menus, ActnList, UProject;
    88
    99type
    … …  
    1212
    1313  TFormProject = class(TForm)
     14    AAdd: TAction;
     15    AShow: TAction;
     16    ARename: TAction;
     17    ADelete: TAction;
     18    ActionList1: TActionList;
     19    MenuItem1: TMenuItem;
     20    MenuItem2: TMenuItem;
     21    MenuItem3: TMenuItem;
     22    MenuItem4: TMenuItem;
     23    OpenDialog1: TOpenDialog;
     24    PopupMenuFile: TPopupMenu;
    1425    TreeViewProject: TTreeView;
     26    procedure AAddExecute(Sender: TObject);
    1527    procedure TreeViewProjectChange(Sender: TObject; Node: TTreeNode);
    1628  private
    … …  
    6779end;
    6880
     81procedure TFormProject.AAddExecute(Sender: TObject);
     82begin
     83  if Sender is TMenuItem then
     84  with TMenuItem(Sender) do begin
     85    if OpenDialog1.Execute then begin
     86
     87      UpdateProjectTree;
     88    end;
     89  end;
     90end;
     91
    6992procedure TFormProject.UpdateProjectTree;
    7093var
    7194  NewNode: TTreeNode;
    7295begin
    73   with Core, TreeViewProject, Items do begin
     96  with Core, TreeViewProject, Items do
     97  try
    7498    BeginUpdate;
    7599    Clear;
    76100    if Assigned(Project) then begin
    77       NewNode := AddChild(nil, ExtractFileNameOnly(Project.FileName));
     101      NewNode := AddChildObject(nil, ExtractFileNameOnly(Project.FileName), Project);
    78102      UpdateProjectFiles(NewNode, Project.Files);
    79103      NewNode.Expand(True);
    80104    end;
    81     EndUpdate;
    82105    if Assigned(TreeViewProject.TopItem) and
    83106      (TreeViewProject.TopItem.Count > 0) then
    84107      TreeViewProject.TopItem.Items[0].Selected := True
    85108      else FormSourceCode.ProjectFile := nil;
     109  finally
     110    EndUpdate;
    86111  end;
    87112end;
    … …  
    113138      end;
    114139    end;
    115     NewNode := TreeViewProject.Items.AddChild(SelNode, FileName);
    116     NewNode.Data := Pointer(Files[I]);
     140    NewNode := TreeViewProject.Items.AddChildObject(SelNode, FileName, Pointer(Files[I]));
    117141  end;
    118142end;
Note: See TracChangeset for help on using the changeset viewer.