Changeset 579 for Common


Ignore:
Timestamp:
Aug 27, 2024, 3:49:45 PM (3 months ago)
Author:
chronos
Message:
  • Modified: Updated Common package.
Location:
Common
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • Common/Common.lpk

    r566 r579  
    4343    <License Value="Copy left."/>
    4444    <Version Minor="12"/>
    45     <Files Count="36">
     45    <Files Count="37">
    4646      <Item1>
    4747        <Filename Value="StopWatch.pas"/>
    … …  
    201201        <UnitName Value="FormAbout"/>
    202202      </Item36>
     203      <Item37>
     204        <Filename Value="Forms\FormKeyShortcuts.pas"/>
     205        <UnitName Value="FormKeyShortcuts"/>
     206      </Item37>
    203207    </Files>
    204208    <CompatibilityMode Value="True"/>

  • Common/CommonPackage.pas

    r566 r579  
    1414  ScaleDPI, Theme, StringTable, MetaCanvas, Geometric, Translator, Languages,
    1515  PixelPointer, DataFile, TestCase, Generics, Table, FormEx, FormTests,
    16   FormTest, FormAbout, LazarusPackageIntf;
     16  FormTest, FormAbout, FormKeyShortcuts, LazarusPackageIntf;
    1717
    1818implementation

  • Common/ListViewSort.pas

    r571 r579  
    358358    List.Clear;
    359359    List.AddRange(Source);
    360   end else List.Clear;
     360  end;
    361361  if ListView.Items.Count <> List.Count then
    362362    ListView.Items.Count := List.Count;

  • Common/Table.pas

    r568 r579  
    44
    55uses
    6   Classes, SysUtils, Generics.Collections, ComCtrls, XMLRead, XMLWrite, DOM;
     6  Classes, SysUtils, Generics.Collections, ComCtrls, XMLRead, DOM;
    77
    88type
Note: See TracChangeset for help on using the changeset viewer.