Changeset 45


Ignore:
Timestamp:
Jul 12, 2012, 7:08:10 AM (12 years ago)
Author:
chronos
Message:
  • Modified: ApplicationInfo is now component. Base unit is located in Common package.
Location:
trunk
Files:
1 deleted
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.lfm

    r44 r45  
    11object MainForm: TMainForm
    2   Left = 204
     2  Left = 501
    33  Height = 414
    4   Top = 88
     4  Top = 170
    55  Width = 665
    66  Caption = 'LazFuck'
    … …  
    18571857    top = 296
    18581858  end
     1859  object ApplicationInfo: TApplicationInfo
     1860    Identification = 1
     1861    VersionMajor = 1
     1862    VersionMinor = 0
     1863    VersionBugFix = 0
     1864    VersionSuffix = 'alfa'
     1865    CompanyName = 'Chronosoft'
     1866    CompanyHomePage = 'http://svn.zdechov.net/trac/LazFuck'
     1867    HomePage = 'http://svn.zdechov.net/trac/LazFuck'
     1868    AuthorsName = 'Chronos'
     1869    EmailContact = 'robie@centrum.cz'
     1870    AppName = 'LazFuck'
     1871    ReleaseDate = 41102
     1872    RegistryKey = '\Software\Chronosoft\LazFuck'
     1873    RegistryRoot = rrKeyCurrentUser
     1874    left = 216
     1875    top = 296
     1876  end
    18591877end

  • trunk/Forms/UFormMain.pas

    r44 r45  
    88  Classes, SysUtils, FileUtil, SynEdit, Forms, Controls, Graphics, Dialogs,
    99  Menus, ActnList, StdCtrls, ComCtrls, ExtCtrls, UTargetInterpretter,
    10   UCoolTranslator, StrUtils, SpecializedList, UTarget, Registry, URegistry,
    11   ULastOpenedList, Process;
     10  UCoolTranslator, StrUtils, SpecializedList, UTarget, UApplicationInfo,
     11  Registry, URegistry, ULastOpenedList, Process;
    1212
    1313const
    … …  
    1919
    2020  TMainForm = class(TForm)
     21    ApplicationInfo: TApplicationInfo;
    2122    AProgramShowExecutionPoint: TAction;
    2223    AShowSourcePosition: TAction;
    … …  
    197198
    198199uses
    199   UFormCPU, UApplicationInfo, UFormOptions, UFormMessages, UTargetJava,
     200  UFormCPU, UFormOptions, UFormMessages, UTargetJava,
    200201  UTargetDelphi, UTargetPHP, UTargetC, UFormTargets, UFormOutput, UFormInput,
    201202  UFormMemory;
    … …  
    338339procedure TMainForm.LastOpenedListChange(Sender: TObject);
    339340begin
    340   LastOpenedList.LoadToMenuItem(MenuItemOpenRecent);
     341  LastOpenedList.LoadToMenuItem(MenuItemOpenRecent, AProjectOpenRecentExecute);
    341342end;
    342343
    … …  
    446447  LastOpenedList := TLastOpenedList.Create(nil);
    447448  LastOpenedList.OnChange := LastOpenedListChange;
    448   LastOpenedList.ClickAction := AProjectOpenRecentExecute;
    449449  LoadFromRegistry(RegistryRoot, ApplicationInfo.RegistryKey);
    450450end;

  • trunk/LazFuckIDE.lpi

    r44 r45  
    9090      </Item5>
    9191    </RequiredPackages>
    92     <Units Count="16">
     92    <Units Count="15">
    9393      <Unit0>
    9494        <Filename Value="LazFuckIDE.lpr"/>
    … …  
    9797      </Unit0>
    9898      <Unit1>
    99         <Filename Value="UApplicationInfo.pas"/>
    100         <IsPartOfProject Value="True"/>
    101         <UnitName Value="UApplicationInfo"/>
     99        <Filename Value="Forms\UFormMain.pas"/>
     100        <IsPartOfProject Value="True"/>
     101        <ComponentName Value="MainForm"/>
     102        <HasResources Value="True"/>
     103        <ResourceBaseClass Value="Form"/>
     104        <UnitName Value="UFormMain"/>
    102105      </Unit1>
    103106      <Unit2>
    104         <Filename Value="Forms\UFormMain.pas"/>
    105         <IsPartOfProject Value="True"/>
    106         <ComponentName Value="MainForm"/>
     107        <Filename Value="Forms\UFormOptions.pas"/>
     108        <IsPartOfProject Value="True"/>
     109        <ComponentName Value="OptionsForm"/>
    107110        <HasResources Value="True"/>
    108111        <ResourceBaseClass Value="Form"/>
    109         <UnitName Value="UFormMain"/>
     112        <UnitName Value="UFormOptions"/>
    110113      </Unit2>
    111114      <Unit3>
    112         <Filename Value="Forms\UFormOptions.pas"/>
    113         <IsPartOfProject Value="True"/>
    114         <ComponentName Value="OptionsForm"/>
     115        <Filename Value="Forms\UFormCPU.pas"/>
     116        <IsPartOfProject Value="True"/>
     117        <ComponentName Value="FormCPU"/>
    115118        <HasResources Value="True"/>
    116119        <ResourceBaseClass Value="Form"/>
    117         <UnitName Value="UFormOptions"/>
     120        <UnitName Value="UFormCPU"/>
    118121      </Unit3>
    119122      <Unit4>
    120         <Filename Value="Forms\UFormCPU.pas"/>
    121         <IsPartOfProject Value="True"/>
    122         <ComponentName Value="FormCPU"/>
    123         <HasResources Value="True"/>
    124         <ResourceBaseClass Value="Form"/>
    125         <UnitName Value="UFormCPU"/>
     123        <Filename Value="Forms\UFormTargets.pas"/>
     124        <IsPartOfProject Value="True"/>
     125        <ComponentName Value="FormCompilers"/>
     126        <ResourceBaseClass Value="Form"/>
     127        <UnitName Value="UFormTargets"/>
    126128      </Unit4>
    127129      <Unit5>
    128         <Filename Value="Forms\UFormTargets.pas"/>
    129         <IsPartOfProject Value="True"/>
    130         <ComponentName Value="FormCompilers"/>
    131         <ResourceBaseClass Value="Form"/>
    132         <UnitName Value="UFormTargets"/>
     130        <Filename Value="Target\UTarget.pas"/>
     131        <IsPartOfProject Value="True"/>
     132        <UnitName Value="UTarget"/>
    133133      </Unit5>
    134134      <Unit6>
    135         <Filename Value="Target\UTarget.pas"/>
    136         <IsPartOfProject Value="True"/>
    137         <UnitName Value="UTarget"/>
     135        <Filename Value="Target\UTargetC.pas"/>
     136        <IsPartOfProject Value="True"/>
     137        <UnitName Value="UTargetC"/>
    138138      </Unit6>
    139139      <Unit7>
    140         <Filename Value="Target\UTargetC.pas"/>
    141         <IsPartOfProject Value="True"/>
    142         <UnitName Value="UTargetC"/>
     140        <Filename Value="Target\UTargetDelphi.pas"/>
     141        <IsPartOfProject Value="True"/>
     142        <UnitName Value="UTargetDelphi"/>
    143143      </Unit7>
    144144      <Unit8>
    145         <Filename Value="Target\UTargetDelphi.pas"/>
    146         <IsPartOfProject Value="True"/>
    147         <UnitName Value="UTargetDelphi"/>
     145        <Filename Value="Target\UTargetInterpretter.pas"/>
     146        <IsPartOfProject Value="True"/>
     147        <UnitName Value="UTargetInterpretter"/>
    148148      </Unit8>
    149149      <Unit9>
    150         <Filename Value="Target\UTargetInterpretter.pas"/>
    151         <IsPartOfProject Value="True"/>
    152         <UnitName Value="UTargetInterpretter"/>
     150        <Filename Value="Target\UTargetPHP.pas"/>
     151        <IsPartOfProject Value="True"/>
     152        <UnitName Value="UTargetPHP"/>
    153153      </Unit9>
    154154      <Unit10>
    155         <Filename Value="Target\UTargetPHP.pas"/>
    156         <IsPartOfProject Value="True"/>
    157         <UnitName Value="UTargetPHP"/>
     155        <Filename Value="Forms\UFormOutput.pas"/>
     156        <IsPartOfProject Value="True"/>
     157        <ComponentName Value="FormOutput"/>
     158        <ResourceBaseClass Value="Form"/>
     159        <UnitName Value="UFormOutput"/>
    158160      </Unit10>
    159161      <Unit11>
    160         <Filename Value="Forms\UFormOutput.pas"/>
    161         <IsPartOfProject Value="True"/>
    162         <ComponentName Value="FormOutput"/>
    163         <ResourceBaseClass Value="Form"/>
    164         <UnitName Value="UFormOutput"/>
     162        <Filename Value="Forms\UFormInput.pas"/>
     163        <IsPartOfProject Value="True"/>
     164        <ComponentName Value="FormInput"/>
     165        <ResourceBaseClass Value="Form"/>
     166        <UnitName Value="UFormInput"/>
    165167      </Unit11>
    166168      <Unit12>
    167         <Filename Value="Forms\UFormInput.pas"/>
    168         <IsPartOfProject Value="True"/>
    169         <ComponentName Value="FormInput"/>
    170         <ResourceBaseClass Value="Form"/>
    171         <UnitName Value="UFormInput"/>
     169        <Filename Value="Forms\UFormMemory.pas"/>
     170        <IsPartOfProject Value="True"/>
     171        <ComponentName Value="FormMemory"/>
     172        <ResourceBaseClass Value="Form"/>
     173        <UnitName Value="UFormMemory"/>
    172174      </Unit12>
    173175      <Unit13>
    174         <Filename Value="Forms\UFormMemory.pas"/>
    175         <IsPartOfProject Value="True"/>
    176         <ComponentName Value="FormMemory"/>
    177         <ResourceBaseClass Value="Form"/>
    178         <UnitName Value="UFormMemory"/>
     176        <Filename Value="Forms\UFormMessages.pas"/>
     177        <IsPartOfProject Value="True"/>
     178        <ComponentName Value="FormMessages"/>
     179        <ResourceBaseClass Value="Form"/>
     180        <UnitName Value="UFormMessages"/>
    179181      </Unit13>
    180182      <Unit14>
    181         <Filename Value="Forms\UFormMessages.pas"/>
    182         <IsPartOfProject Value="True"/>
    183         <ComponentName Value="FormMessages"/>
    184         <ResourceBaseClass Value="Form"/>
    185         <UnitName Value="UFormMessages"/>
     183        <Filename Value="Target\UTargetJava.pas"/>
     184        <IsPartOfProject Value="True"/>
     185        <UnitName Value="UTargetJava"/>
    186186      </Unit14>
    187       <Unit15>
    188         <Filename Value="Target\UTargetJava.pas"/>
    189         <IsPartOfProject Value="True"/>
    190         <UnitName Value="UTargetJava"/>
    191       </Unit15>
    192187    </Units>
    193188  </ProjectOptions>

  • trunk/LazFuckIDE.lpr

    r41 r45  
    99  {$ENDIF}
    1010  Interfaces, // this includes the LCL widgetset
    11   Forms, UApplicationInfo, UTarget, UTargetC, UTargetDelphi,
     11  Forms, UTarget, UTargetC, UTargetDelphi,
    1212  UTargetInterpretter, UTargetPHP, UTargetJava, UFormCPU, UFormMain,
    1313  UFormOptions, CoolTranslator, Common,
Note: See TracChangeset for help on using the changeset viewer.