Changeset 142 for trunk/Packages/Common


Ignore:
Timestamp:
May 27, 2023, 10:50:21 AM (18 months ago)
Author:
chronos
Message:
  • Modified: Updated Common package.
Location:
trunk/Packages/Common
Files:
26 edited

Legend:

Unmodified
Added
Removed

  • trunk/Packages/Common/UAboutDialog.pas

    r86 r142  
    5050
    5151end.
    52 

  • trunk/Packages/Common/UDataFile.pas

    r117 r142  
    109109
    110110end.
    111 

  • trunk/Packages/Common/UDebugLog.pas

    r86 r142  
    1 unit UDebugLog; 
     1unit UDebugLog;
    22
    33interface
    … …  
    134134
    135135end.
    136 

  • trunk/Packages/Common/UDelay.pas

    r86 r142  
    7171
    7272end.
    73 

  • trunk/Packages/Common/UFindFile.pas

    r117 r142  
    143143    SysUtils.FindClose(Rec);
    144144  end;
    145 end; 
     145end;
    146146
    147147end.
    148 

  • trunk/Packages/Common/UFormAbout.lfm

    r83 r142  
    11object FormAbout: TFormAbout
    22  Left = 1014
    3   Height = 402
     3  Height = 349
    44  Top = 577
    5   Width = 702
     5  Width = 609
    66  Caption = 'About'
    7   ClientHeight = 402
    8   ClientWidth = 702
    9   DesignTimePPI = 144
    10   OnCreate = FormCreate
     7  ClientHeight = 349
     8  ClientWidth = 609
     9  DesignTimePPI = 125
    1110  OnShow = FormShow
    1211  Position = poScreenCenter
    13   LCLVersion = '2.0.10.0'
     12  LCLVersion = '2.2.4.0'
    1413  object LabelDescription: TLabel
    15     Left = 30
    16     Height = 24
    17     Top = 135
    18     Width = 642
     14    Left = 26
     15    Height = 22
     16    Top = 117
     17    Width = 557
    1918    Align = alTop
    20     BorderSpacing.Left = 30
    21     BorderSpacing.Right = 30
    22     BorderSpacing.Bottom = 30
     19    BorderSpacing.Left = 26
     20    BorderSpacing.Right = 26
     21    BorderSpacing.Bottom = 26
    2322    Caption = 'Description'
    2423    ParentColor = False
    … …  
    2726  end
    2827  object LabelContent: TLabel
    29     Left = 30
    30     Height = 24
    31     Top = 189
    32     Width = 642
     28    Left = 26
     29    Height = 22
     30    Top = 165
     31    Width = 557
    3332    Align = alTop
    34     BorderSpacing.Around = 30
     33    BorderSpacing.Around = 26
    3534    Caption = '   '
    3635    ParentColor = False
    … …  
    3938  object PanelTop: TPanel
    4039    Left = 0
    41     Height = 135
     40    Height = 117
    4241    Top = 0
    43     Width = 702
     42    Width = 609
    4443    Align = alTop
    4544    BevelOuter = bvNone
    46     ClientHeight = 135
    47     ClientWidth = 702
     45    ClientHeight = 117
     46    ClientWidth = 609
    4847    FullRepaint = False
    4948    ParentFont = False
    5049    TabOrder = 0
    5150    object LabelAppName: TLabel
    52       Left = 108
    53       Height = 84
    54       Top = 20
    55       Width = 564
     51      Left = 94
     52      Height = 73
     53      Top = 17
     54      Width = 489
    5655      Anchors = [akTop, akLeft, akRight]
    5756      AutoSize = False
    58       BorderSpacing.Around = 30
     57      BorderSpacing.Around = 26
    5958      Caption = 'Title'
    60       Font.Height = -60
     59      Font.Height = -52
    6160      ParentColor = False
    6261      ParentFont = False
    … …  
    6463    end
    6564    object ImageLogo: TImage
    66       Left = 24
    67       Height = 74
    68       Top = 30
    69       Width = 72
     65      Left = 21
     66      Height = 64
     67      Top = 26
     68      Width = 62
    7069      Proportional = True
    7170      Stretch = True
    … …  
    7473  object PanelButtons: TPanel
    7574    Left = 0
    76     Height = 75
    77     Top = 327
    78     Width = 702
     75    Height = 65
     76    Top = 284
     77    Width = 609
    7978    Align = alBottom
    8079    BevelOuter = bvNone
    81     ClientHeight = 75
    82     ClientWidth = 702
     80    ClientHeight = 65
     81    ClientWidth = 609
    8382    TabOrder = 1
    8483    object ButtonHomePage: TButton
    85       Left = 24
    86       Height = 38
    87       Top = 24
    88       Width = 264
     84      Left = 21
     85      Height = 33
     86      Top = 21
     87      Width = 229
    8988      Anchors = [akLeft, akBottom]
    9089      Caption = 'Home page'
    … …  
    9493    end
    9594    object ButtonClose: TButton
    96       Left = 532
    97       Height = 38
    98       Top = 24
    99       Width = 140
     95      Left = 461
     96      Height = 33
     97      Top = 21
     98      Width = 122
    10099      Anchors = [akRight, akBottom]
    101100      Caption = 'Close'

  • trunk/Packages/Common/UFormAbout.pas

    r117 r142  
    7575
    7676end.
    77 

  • trunk/Packages/Common/UGenerics.pas

    r117 r142  
    7777
    7878end.
    79 

  • trunk/Packages/Common/UGeometric.pas

    r140 r142  
    204204
    205205end.
    206 

  • trunk/Packages/Common/ULanguages.pas

    r86 r142  
    443443
    444444end.
    445 

  • trunk/Packages/Common/ULastOpenedList.pas

    r86 r142  
    194194
    195195end.
    196 

  • trunk/Packages/Common/UMemory.pas

    r117 r142  
    120120
    121121end.
    122 

  • trunk/Packages/Common/UMetaCanvas.pas

    r140 r142  
    823823
    824824end.
    825 

  • trunk/Packages/Common/UPersistentForm.pas

    r119 r142  
    336336
    337337end.
    338 

  • trunk/Packages/Common/UPixelPointer.pas

    r94 r142  
    1515  private
    1616    procedure SetRGB(AValue: Cardinal);
    17     function GetRGB: Cardinal;   
     17    function GetRGB: Cardinal;
    1818  public
    1919    property RGB: Cardinal read GetRGB write SetRGB;
    … …  
    311311
    312312end.
    313 

  • trunk/Packages/Common/UPool.pas

    r117 r142  
    199199
    200200end.
    201 

  • trunk/Packages/Common/UPrefixMultiplier.pas

    r86 r142  
    3131  (
    3232    (ShortText: 'y'; FullText: 'yocto'; Value: 1e-24),
    33           (ShortText: 'z'; FullText: 'zepto'; Value: 1e-21),
     33      (ShortText: 'z'; FullText: 'zepto'; Value: 1e-21),
    3434    (ShortText: 'a'; FullText: 'atto'; Value: 1e-18),
    3535    (ShortText: 'f'; FullText: 'femto'; Value: 1e-15),
    … …  
    5252  (
    5353    (ShortText: 'ys'; FullText: 'yocto'; Value: 1e-24),
    54           (ShortText: 'zs'; FullText: 'zepto'; Value: 1e-21),
     54      (ShortText: 'zs'; FullText: 'zepto'; Value: 1e-21),
    5555    (ShortText: 'as'; FullText: 'atto'; Value: 1e-18),
    5656    (ShortText: 'fs'; FullText: 'femto'; Value: 1e-15),
    … …  
    124124
    125125end.
    126 

  • trunk/Packages/Common/UResetableThread.pas

    r117 r142  
    295295
    296296end.
    297 

  • trunk/Packages/Common/UStringTable.pas

    r86 r142  
    6969end;
    7070
    71 
    7271end.
    73 

  • trunk/Packages/Common/USyncCounter.pas

    r117 r142  
    7878
    7979end.
    80 

  • trunk/Packages/Common/UTestCase.pas

    r117 r142  
    127127
    128128end.
    129 

  • trunk/Packages/Common/UTheme.pas

    r86 r142  
    186186end;
    187187
    188 
    189188end.

  • trunk/Packages/Common/UThreading.pas

    r117 r142  
    366366
    367367end.
    368 

  • trunk/Packages/Common/UTranslator.pas

    r86 r142  
    569569end;
    570570
    571 
    572571end.
    573 

  • trunk/Packages/Common/UURI.pas

    r117 r142  
    347347
    348348end.
    349 

  • trunk/Packages/Common/UXMLUtils.pas

    r128 r142  
    273273
    274274end.
    275 
Note: See TracChangeset for help on using the changeset viewer.