Changeset 80 for trunk/Packages


Ignore:
Timestamp:
Feb 12, 2021, 12:00:23 AM (4 years ago)
Author:
chronos
Message:
  • Modified: Use About dialog component from Common package.
Location:
trunk/Packages/Common
Files:
3 added
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Packages/Common/Common.lpk

    r69 r80  
    4040    <License Value="GNU/GPL"/>
    4141    <Version Minor="7"/>
    42     <Files Count="26">
     42    <Files Count="28">
    4343      <Item1>
    4444        <Filename Value="StopWatch.pas"/>
    … …  
    156156        <UnitName Value="ULanguages"/>
    157157      </Item26>
     158      <Item27>
     159        <Filename Value="UFormAbout.pas"/>
     160        <UnitName Value="UFormAbout"/>
     161      </Item27>
     162      <Item28>
     163        <Filename Value="UAboutDialog.pas"/>
     164        <HasRegisterProc Value="True"/>
     165        <UnitName Value="UAboutDialog"/>
     166      </Item28>
    158167    </Files>
    159168    <i18n>

  • trunk/Packages/Common/Common.pas

    r69 r80  
    1313  UJobProgressView, UXMLUtils, UApplicationInfo, USyncCounter, UListViewSort,
    1414  UPersistentForm, UFindFile, UScaleDPI, UTheme, UStringTable, UMetaCanvas,
    15   UGeometric, UTranslator, ULanguages, LazarusPackageIntf;
     15  UGeometric, UTranslator, ULanguages, UFormAbout, UAboutDialog,
     16  LazarusPackageIntf;
    1617
    1718implementation
    … …  
    3031  RegisterUnit('UTheme', @UTheme.Register);
    3132  RegisterUnit('UTranslator', @UTranslator.Register);
     33  RegisterUnit('UAboutDialog', @UAboutDialog.Register);
    3234end;
    3335

  • trunk/Packages/Common/Languages

    • Property svn:ignore set to
      *.mo
      *.pot

  • trunk/Packages/Common/UApplicationInfo.pas

    r79 r80  
    66
    77uses
    8   SysUtils, Classes, Forms, URegistry, Controls, Graphics;
     8  SysUtils, Classes, Forms, URegistry, Controls, Graphics, LCLType;
    99
    1010type
    … …  
    1414  TApplicationInfo = class(TComponent)
    1515  private
    16     FDescription: TCaption;
     16    FDescription: TTranslateString;
    1717    FIcon: TBitmap;
    1818    FIdentification: Byte;
    … …  
    4949    property EmailContact: string read FEmailContact write FEmailContact;
    5050    property AppName: string read FAppName write FAppName;
    51     property Description: string read FDescription write FDescription;
     51    property Description: TTranslateString read FDescription write FDescription;
    5252    property ReleaseDate: TDateTime read FReleaseDate write FReleaseDate;
    5353    property RegistryKey: string read FRegistryKey write FRegistryKey;

  • trunk/Packages/Common/UFormAbout.lfm

    r79 r80  
    1111  OnShow = FormShow
    1212  Position = poScreenCenter
    13   LCLVersion = '2.0.2.0'
     13  LCLVersion = '2.0.10.0'
    1414  object LabelDescription: TLabel
    1515    Left = 30
    16     Height = 26
     16    Height = 24
    1717    Top = 135
    1818    Width = 642
    … …  
    2828  object LabelContent: TLabel
    2929    Left = 30
    30     Height = 26
    31     Top = 191
     30    Height = 24
     31    Top = 189
    3232    Width = 642
    3333    Align = alTop
    … …  
    5050    TabOrder = 0
    5151    object LabelAppName: TLabel
    52       Left = 96
    53       Height = 100
     52      Left = 108
     53      Height = 84
    5454      Top = 20
    55       Width = 572
     55      Width = 564
    5656      Anchors = [akTop, akLeft, akRight]
    5757      AutoSize = False
    … …  
    6868      Top = 30
    6969      Width = 72
     70      Proportional = True
     71      Stretch = True
    7072    end
    7173  end
Note: See TracChangeset for help on using the changeset viewer.