Changeset 33


Ignore:
Timestamp:
Dec 10, 2016, 9:34:28 PM (7 years ago)
Author:
chronos
Message:
  • Added: About form which show version information and link to project homepage.
Location:
trunk
Files:
4 added
8 edited
1 moved

Legend:

Unmodified
Added
Removed

  • trunk/CoolDisk.lpi

    r31 r33  
    1212    </General>
    1313    <i18n>
    14       <EnableI18N LFM="False"/>
     14      <EnableI18N Value="True"/>
     15      <OutDir Value="Languages"/>
    1516    </i18n>
    1617    <VersionInfo>
    … …  
    2728          <SearchPaths>
    2829            <IncludeFiles Value="$(ProjOutDir)"/>
    29             <OtherUnitFiles Value="Form"/>
     30            <OtherUnitFiles Value="Forms"/>
    3031            <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    3132          </SearchPaths>
    … …  
    6667      </local>
    6768    </RunParams>
    68     <RequiredPackages Count="5">
     69    <RequiredPackages Count="6">
    6970      <Item1>
    70         <PackageName Value="FCL"/>
     71        <PackageName Value="CoolTranslator"/>
    7172      </Item1>
    7273      <Item2>
     74        <PackageName Value="FCL"/>
     75      </Item2>
     76      <Item3>
    7377        <PackageName Value="TemplateGenerics"/>
    7478        <DefaultFilename Value="Packages/TemplateGenerics/TemplateGenerics.lpk" Prefer="True"/>
    75       </Item2>
    76       <Item3>
     79      </Item3>
     80      <Item4>
    7781        <PackageName Value="Common"/>
    7882        <DefaultFilename Value="Packages/Common/Common.lpk" Prefer="True"/>
    79       </Item3>
    80       <Item4>
    81         <PackageName Value="tachartlazaruspkg"/>
    8283      </Item4>
    8384      <Item5>
     85        <PackageName Value="tachartlazaruspkg"/>
     86      </Item5>
     87      <Item6>
    8488        <PackageName Value="LCL"/>
    85       </Item5>
     89      </Item6>
    8690    </RequiredPackages>
    87     <Units Count="12">
     91    <Units Count="13">
    8892      <Unit0>
    8993        <Filename Value="CoolDisk.lpr"/>
    … …  
    9195      </Unit0>
    9296      <Unit1>
    93         <Filename Value="Form/UFormBenchmark.pas"/>
    94         <IsPartOfProject Value="True"/>
    95         <ComponentName Value="FormBenchmark"/>
    96         <HasResources Value="True"/>
    97         <ResourceBaseClass Value="Form"/>
     97        <Filename Value="UProject.pas"/>
     98        <IsPartOfProject Value="True"/>
    9899      </Unit1>
    99100      <Unit2>
    100         <Filename Value="UProject.pas"/>
     101        <Filename Value="UConfig.pas"/>
    101102        <IsPartOfProject Value="True"/>
    102103      </Unit2>
    103104      <Unit3>
    104         <Filename Value="UConfig.pas"/>
     105        <Filename Value="UBlockMap.pas"/>
    105106        <IsPartOfProject Value="True"/>
    106107      </Unit3>
    107108      <Unit4>
    108         <Filename Value="UBlockMap.pas"/>
     109        <Filename Value="UDriveScan.pas"/>
    109110        <IsPartOfProject Value="True"/>
    110111      </Unit4>
    111112      <Unit5>
    112         <Filename Value="UDriveScan.pas"/>
     113        <Filename Value="UPhysDrive.pas"/>
    113114        <IsPartOfProject Value="True"/>
    114115      </Unit5>
    115116      <Unit6>
    116         <Filename Value="Form/UFormOperation.pas"/>
    117         <IsPartOfProject Value="True"/>
    118         <ComponentName Value="FormOperation"/>
    119         <HasResources Value="True"/>
    120         <ResourceBaseClass Value="Form"/>
     117        <Filename Value="UCore.pas"/>
     118        <IsPartOfProject Value="True"/>
     119        <ComponentName Value="Core"/>
     120        <HasResources Value="True"/>
     121        <ResourceBaseClass Value="DataModule"/>
    121122      </Unit6>
    122123      <Unit7>
    123         <Filename Value="Form/UFormMain.pas"/>
    124         <IsPartOfProject Value="True"/>
    125         <ComponentName Value="FormMain"/>
    126         <HasResources Value="True"/>
    127         <ResourceBaseClass Value="Form"/>
     124        <Filename Value="UFileStreamEx.pas"/>
     125        <IsPartOfProject Value="True"/>
    128126      </Unit7>
    129127      <Unit8>
    130         <Filename Value="Form/UFormProject.pas"/>
    131         <IsPartOfProject Value="True"/>
    132         <ComponentName Value="FormProject"/>
     128        <Filename Value="Forms/UFormAbout.pas"/>
     129        <IsPartOfProject Value="True"/>
     130        <ComponentName Value="FormAbout"/>
    133131        <HasResources Value="True"/>
    134132        <ResourceBaseClass Value="Form"/>
    135133      </Unit8>
    136134      <Unit9>
    137         <Filename Value="UPhysDrive.pas"/>
    138         <IsPartOfProject Value="True"/>
     135        <Filename Value="Forms/UFormBenchmark.pas"/>
     136        <IsPartOfProject Value="True"/>
     137        <HasResources Value="True"/>
    139138      </Unit9>
    140139      <Unit10>
    141         <Filename Value="UCore.pas"/>
    142         <IsPartOfProject Value="True"/>
    143         <ComponentName Value="Core"/>
    144         <HasResources Value="True"/>
    145         <ResourceBaseClass Value="DataModule"/>
     140        <Filename Value="Forms/UFormMain.pas"/>
     141        <IsPartOfProject Value="True"/>
     142        <ComponentName Value="FormMain"/>
     143        <HasResources Value="True"/>
     144        <ResourceBaseClass Value="Form"/>
    146145      </Unit10>
    147146      <Unit11>
    148         <Filename Value="UFileStreamEx.pas"/>
    149         <IsPartOfProject Value="True"/>
     147        <Filename Value="Forms/UFormOperation.pas"/>
     148        <IsPartOfProject Value="True"/>
     149        <HasResources Value="True"/>
    150150      </Unit11>
     151      <Unit12>
     152        <Filename Value="Forms/UFormProject.pas"/>
     153        <IsPartOfProject Value="True"/>
     154        <HasResources Value="True"/>
     155      </Unit12>
    151156    </Units>
    152157  </ProjectOptions>
    … …  
    158163    <SearchPaths>
    159164      <IncludeFiles Value="$(ProjOutDir)"/>
    160       <OtherUnitFiles Value="Form"/>
     165      <OtherUnitFiles Value="Forms"/>
    161166      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    162167    </SearchPaths>

  • trunk/CoolDisk.lpr

    r32 r33  
    88  {$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, tachartlazaruspkg, UFormBenchmark, UProject,
    11   UConfig, UBlockMap, UDriveScan, Common, TemplateGenerics, UFormOperation,
    12   UFormProject, UFormMain, UPhysDrive, UCore, UFileStreamEx;
     10  Forms, tachartlazaruspkg, UProject,
     11  UConfig, UBlockMap, UDriveScan, Common, TemplateGenerics,
     12  UPhysDrive, UCore, UFileStreamEx, CoolTranslator, UFormMain;
    1313
    1414{$R *.res}
    … …  
    1919  Application.CreateForm(TCore, Core);
    2020  Application.CreateForm(TFormMain, FormMain);
    21   Application.CreateForm(TFormBenchmark, FormBenchmark);
    22   Application.CreateForm(TFormOperation, FormOperation);
    23   Application.CreateForm(TFormProject, FormProject);
    2421  Application.Run;
    2522end.

  • trunk/Forms/UFormMain.lfm

    r31 r33  
    1313  OnDestroy = FormDestroy
    1414  OnShow = FormShow
    15   LCLVersion = '1.7'
     15  LCLVersion = '1.6.0.4'
    1616  object ToolBar1: TToolBar
    1717    Left = 0
    … …  
    478478      OnExecute = AOperationAddExecute
    479479    end
     480    object AShowAbout: TAction
     481      Caption = 'About'
     482      OnExecute = AShowAboutExecute
     483    end
    480484  end
    481485  object OpenDialog1: TOpenDialog
    … …  
    545549      end
    546550    end
     551    object MenuItem20: TMenuItem
     552      Caption = 'Help'
     553      object MenuItem21: TMenuItem
     554        Action = AShowAbout
     555      end
     556    end
    547557  end
    548558  object LastOpenedList1: TLastOpenedList

  • trunk/Forms/UFormMain.pas

    r31 r33  
    1515
    1616  TFormMain = class(TForm)
     17    AShowAbout: TAction;
    1718    AOperationAdd: TAction;
    1819    AOperationRemove: TAction;
    … …  
    7778    MenuItem18: TMenuItem;
    7879    MenuItem19: TMenuItem;
     80    MenuItem20: TMenuItem;
     81    MenuItem21: TMenuItem;
    7982    MenuItemOpenRecent: TMenuItem;
    8083    MenuItem2: TMenuItem;
    … …  
    115118    procedure AScanStartExecute(Sender: TObject);
    116119    procedure AScanStopExecute(Sender: TObject);
     120    procedure AShowAboutExecute(Sender: TObject);
    117121    procedure AViewToolbarExecute(Sender: TObject);
    118122    procedure ComboBoxDriveChange(Sender: TObject);
    … …  
    152156  FormMain: TFormMain;
    153157
     158
    154159implementation
    155160
    … …  
    157162
    158163uses
    159   UCore, UFormProject, UFormOperation;
     164  UCore, UFormProject, UFormOperation, UFormAbout;
    160165
    161166resourcestring
    … …  
    225230    Core.Project.CurrentScan.Stop;
    226231    UpdateInterface;
     232  end;
     233end;
     234
     235procedure TFormMain.AShowAboutExecute(Sender: TObject);
     236var
     237  FormAbout: TFormAbout;
     238begin
     239  FormAbout := TFormAbout.Create(nil);
     240  try
     241    FormAbout.ApplicationInfo := Core.ApplicationInfo1;
     242    FormAbout.ShowModal;
     243  finally
     244    FreeAndNil(FormAbout);
    227245  end;
    228246end;

  • trunk/Packages/Common/Common.pas

    r4 r33  
    55unit Common;
    66
    7 {$warn 5023 off : no warning about unused units}
    87interface
    98

  • trunk/Packages/TemplateGenerics/TemplateGenerics.pas

    r4 r33  
    55unit TemplateGenerics;
    66
    7 {$warn 5023 off : no warning about unused units}
    87interface
    98

  • trunk/UCore.lfm

    r31 r33  
    2424    top = 136
    2525  end
     26  object CoolTranslator1: TCoolTranslator
     27    POFilesFolder = 'Languages'
     28    left = 88
     29    top = 128
     30  end
     31  object ApplicationInfo1: TApplicationInfo
     32    Identification = 1
     33    VersionMajor = 1
     34    VersionMinor = 0
     35    VersionBugFix = 0
     36    VersionSuffix = 'alfa'
     37    CompanyName = 'Chronosoft'
     38    HomePage = 'http://svn.zdechov.net/svn/CoolDisk'
     39    AuthorsName = 'Chronos'
     40    EmailContact = 'robie@centrum.cz'
     41    AppName = 'CoolDisk'
     42    ReleaseDate = 42714
     43    RegistryKey = '\Software\Chronosoft\CoolDisk'
     44    RegistryRoot = rrKeyCurrentUser
     45    License = 'CC0'
     46    left = 88
     47    top = 56
     48  end
    2649end

  • trunk/UCore.pas

    r31 r33  
    77uses
    88  Classes, SysUtils, XMLConf, FileUtil, Controls, UProject, UPhysDrive,
    9   UPersistentForm;
     9  UCoolTranslator, UPersistentForm, UApplicationInfo;
    1010
    1111type
    … …  
    1414
    1515  TCore = class(TDataModule)
     16    ApplicationInfo1: TApplicationInfo;
     17    CoolTranslator1: TCoolTranslator;
    1618    ImageList1: TImageList;
    1719    PersistentForm1: TPersistentForm;
Note: See TracChangeset for help on using the changeset viewer.