Changeset 117 for trunk


Ignore:
Timestamp:
Oct 23, 2022, 9:09:21 PM (2 years ago)
Author:
chronos
Message:
  • Modified: Update Common package.
Location:
trunk
Files:
5 added
8 deleted
18 edited

Legend:

Unmodified
Added
Removed

  • trunk/BigMetro.lpi

    r93 r117  
    176176    <Linking>
    177177      <Debugging>
     178        <DebugInfoType Value="dsDwarf2Set"/>
    178179        <UseHeaptrc Value="True"/>
    179180        <UseExternalDbgSyms Value="True"/>

  • trunk/Languages/BigMetro.cs.po

    r102 r117  
    245245msgstr "St"
    246246
    247 #: umenu.sautomatic
    248 msgctxt "umenu.sautomatic"
    249 msgid "Automatic"
    250 msgstr "Automaticky"
    251 
    252 #: umenu.sback
    253 msgctxt "umenu.sback"
    254 msgid "Back"
    255 msgstr "Zpět"
    256 
    257 #: umenu.sbigmetro
    258 msgctxt "umenu.sbigmetro"
    259 msgid "Big Metro"
    260 msgstr "Big Metro"
    261 
    262 #: umenu.scontinue
    263 msgctxt "umenu.scontinue"
    264 msgid "Continue"
    265 msgstr "Pokračovat"
    266 
    267 #: umenu.sczech
    268 msgctxt "umenu.sczech"
    269 msgid "Czech"
    270 msgstr "Čeština"
    271 
    272 #: umenu.sdarkmode
    273 msgctxt "umenu.sdarkmode"
    274 msgid "Dark mode"
    275 msgstr "Temný režim"
    276 
    277 #: umenu.senglish
    278 msgctxt "umenu.senglish"
    279 msgid "English"
    280 msgstr "Angličtina"
    281 
    282 #: umenu.sexit
    283 msgctxt "umenu.sexit"
    284 msgid "Exit"
    285 msgstr "Odejít"
    286 
    287 #: umenu.sfullscreen
    288 msgctxt "umenu.sfullscreen"
    289 msgid "Full screen"
    290 msgstr "Celá obrazovka"
    291 
    292 #: umenu.slanguage
    293 msgctxt "umenu.slanguage"
    294 msgid "Language"
    295 msgstr "Jazyk"
    296 
    297 #: umenu.soptions
    298 msgctxt "umenu.soptions"
    299 msgid "Options"
    300 msgstr "Volby"
    301 
    302 #: umenu.splay
    303 msgctxt "umenu.splay"
    304 msgid "Play"
    305 msgstr "Hrát"
    306 
    307 #: umenu.srestart
    308 msgctxt "umenu.srestart"
    309 msgid "Try again"
    310 msgstr "Zkusit znovu"
    311 
    312247#: utrack.salreadyconnectedtrackpoint
    313248msgctxt "utrack.salreadyconnectedtrackpoint"
    … …  
    330265msgid "Zero zoom not allowed"
    331266msgstr "Nulové přiblížení není povoleno"
     267

  • trunk/Languages/BigMetro.de.po

    r104 r117  
    247247msgstr ""
    248248
    249 #: umenu.sautomatic
    250 msgctxt "umenu.sautomatic"
    251 msgid "Automatic"
    252 msgstr "Automatisch"
    253 
    254 #: umenu.sback
    255 msgctxt "umenu.sback"
    256 msgid "Back"
    257 msgstr "Zurück"
    258 
    259 #: umenu.sbigmetro
    260 msgctxt "umenu.sbigmetro"
    261 msgid "Big Metro"
    262 msgstr "Big Metro"
    263 
    264 #: umenu.scontinue
    265 msgctxt "umenu.scontinue"
    266 msgid "Continue"
    267 msgstr "Fortsetzen"
    268 
    269 #: umenu.sczech
    270 msgctxt "umenu.sczech"
    271 msgid "Czech"
    272 msgstr "Tschechisch"
    273 
    274 #: umenu.sdarkmode
    275 msgctxt "umenu.sdarkmode"
    276 msgid "Dark mode"
    277 msgstr "Darm mode"
    278 
    279 #: umenu.senglish
    280 msgctxt "umenu.senglish"
    281 msgid "English"
    282 msgstr "Englisch"
    283 
    284 #: umenu.sexit
    285 msgctxt "umenu.sexit"
    286 msgid "Exit"
    287 msgstr "Beenden"
    288 
    289 #: umenu.sfullscreen
    290 msgctxt "umenu.sfullscreen"
    291 msgid "Full screen"
    292 msgstr "Vollbild"
    293 
    294 #: umenu.slanguage
    295 msgctxt "umenu.slanguage"
    296 msgid "Language"
    297 msgstr "Sprache"
    298 
    299 #: umenu.soptions
    300 msgctxt "umenu.soptions"
    301 msgid "Options"
    302 msgstr "Optionen"
    303 
    304 #: umenu.splay
    305 msgctxt "umenu.splay"
    306 msgid "Play"
    307 msgstr "Play"
    308 
    309 #: umenu.srestart
    310 msgctxt "umenu.srestart"
    311 msgid "Try again"
    312 msgstr "Neustart"
    313 
    314249#: utrack.salreadyconnectedtrackpoint
    315250msgctxt "utrack.salreadyconnectedtrackpoint"
    … …  
    332267msgid "Zero zoom not allowed"
    333268msgstr "Diese Zoomstufe ist nicht erlaubt"
     269

  • trunk/Languages/BigMetro.fr.po

    r104 r117  
    247247msgstr ""
    248248
    249 #: umenu.sautomatic
    250 msgctxt "umenu.sautomatic"
    251 msgid "Automatic"
    252 msgstr "Automatique"
    253 
    254 #: umenu.sback
    255 msgctxt "umenu.sback"
    256 msgid "Back"
    257 msgstr "Retour"
    258 
    259 #: umenu.sbigmetro
    260 msgctxt "umenu.sbigmetro"
    261 msgid "Big Metro"
    262 msgstr "Big Metro"
    263 
    264 #: umenu.scontinue
    265 msgctxt "umenu.scontinue"
    266 msgid "Continue"
    267 msgstr "Continuer"
    268 
    269 #: umenu.sczech
    270 msgctxt "umenu.sczech"
    271 msgid "Czech"
    272 msgstr "Tchèque"
    273 
    274 #: umenu.sdarkmode
    275 msgctxt "umenu.sdarkmode"
    276 msgid "Dark mode"
    277 msgstr "Mode sombre"
    278 
    279 #: umenu.senglish
    280 msgctxt "umenu.senglish"
    281 msgid "English"
    282 msgstr "Anglais"
    283 
    284 #: umenu.sexit
    285 msgctxt "umenu.sexit"
    286 msgid "Exit"
    287 msgstr "Sortie"
    288 
    289 #: umenu.sfullscreen
    290 msgctxt "umenu.sfullscreen"
    291 msgid "Full screen"
    292 msgstr "Plein écran"
    293 
    294 #: umenu.slanguage
    295 msgctxt "umenu.slanguage"
    296 msgid "Language"
    297 msgstr "Langue"
    298 
    299 #: umenu.soptions
    300 msgctxt "umenu.soptions"
    301 msgid "Options"
    302 msgstr "Options"
    303 
    304 #: umenu.splay
    305 msgctxt "umenu.splay"
    306 msgid "Play"
    307 msgstr "Jouer"
    308 
    309 #: umenu.srestart
    310 msgctxt "umenu.srestart"
    311 msgid "Try again"
    312 msgstr "Redémarrer"
    313 
    314249#: utrack.salreadyconnectedtrackpoint
    315250msgctxt "utrack.salreadyconnectedtrackpoint"
    … …  
    332267msgid "Zero zoom not allowed"
    333268msgstr "Ce zoom est interdit"
     269

  • trunk/Languages/BigMetro.pot

    r102 r117  
    235235msgstr ""
    236236
    237 #: umenu.sautomatic
    238 msgctxt "umenu.sautomatic"
    239 msgid "Automatic"
    240 msgstr ""
    241 
    242 #: umenu.sback
    243 msgctxt "umenu.sback"
    244 msgid "Back"
    245 msgstr ""
    246 
    247 #: umenu.sbigmetro
    248 msgctxt "umenu.sbigmetro"
    249 msgid "Big Metro"
    250 msgstr ""
    251 
    252 #: umenu.scontinue
    253 msgctxt "umenu.scontinue"
    254 msgid "Continue"
    255 msgstr ""
    256 
    257 #: umenu.sczech
    258 msgctxt "umenu.sczech"
    259 msgid "Czech"
    260 msgstr ""
    261 
    262 #: umenu.sdarkmode
    263 msgctxt "umenu.sdarkmode"
    264 msgid "Dark mode"
    265 msgstr ""
    266 
    267 #: umenu.senglish
    268 msgctxt "umenu.senglish"
    269 msgid "English"
    270 msgstr ""
    271 
    272 #: umenu.sexit
    273 msgctxt "umenu.sexit"
    274 msgid "Exit"
    275 msgstr ""
    276 
    277 #: umenu.sfullscreen
    278 msgctxt "umenu.sfullscreen"
    279 msgid "Full screen"
    280 msgstr ""
    281 
    282 #: umenu.slanguage
    283 msgctxt "umenu.slanguage"
    284 msgid "Language"
    285 msgstr ""
    286 
    287 #: umenu.soptions
    288 msgctxt "umenu.soptions"
    289 msgid "Options"
    290 msgstr ""
    291 
    292 #: umenu.splay
    293 msgctxt "umenu.splay"
    294 msgid "Play"
    295 msgstr ""
    296 
    297 #: umenu.srestart
    298 msgctxt "umenu.srestart"
    299 msgid "Try again"
    300 msgstr ""
    301 
    302237#: utrack.salreadyconnectedtrackpoint
    303238msgctxt "utrack.salreadyconnectedtrackpoint"

  • trunk/Packages/Common/Common.lpk

    r86 r117  
    4242    <License Value="Copy left."/>
    4343    <Version Minor="10"/>
    44     <Files Count="29">
     44    <Files Count="32">
    4545      <Item1>
    4646        <Filename Value="StopWatch.pas"/>
    … …  
    171171        <UnitName Value="UPixelPointer"/>
    172172      </Item29>
     173      <Item30>
     174        <Filename Value="UDataFile.pas"/>
     175        <UnitName Value="UDataFile"/>
     176      </Item30>
     177      <Item31>
     178        <Filename Value="UTestCase.pas"/>
     179        <UnitName Value="UTestCase"/>
     180      </Item31>
     181      <Item32>
     182        <Filename Value="UGenerics.pas"/>
     183        <UnitName Value="UGenerics"/>
     184      </Item32>
    173185    </Files>
    174186    <CompatibilityMode Value="True"/>

  • trunk/Packages/Common/Common.pas

    r83 r117  
    1414  UPersistentForm, UFindFile, UScaleDPI, UTheme, UStringTable, UMetaCanvas,
    1515  UGeometric, UTranslator, ULanguages, UFormAbout, UAboutDialog,
    16   UPixelPointer, LazarusPackageIntf;
     16  UPixelPointer, UDataFile, UTestCase, UGenerics, LazarusPackageIntf;
    1717
    1818implementation

  • trunk/Packages/Common/UCommon.pas

    r86 r117  
    77  {$IFDEF UNIX}baseunix,{$ENDIF}
    88  Classes, SysUtils, StrUtils, Dialogs, Process, LCLIntf, Graphics,
    9   FileUtil; //, ShFolder, ShellAPI;
     9  FileUtil, Generics.Collections; //, ShFolder, ShellAPI;
    1010
    1111type
    … …  
    6565function GetFileFilterItemExt(Filter: string; Index: Integer): string;
    6666function IntToBin(Data: Int64; Count: Byte): string;
     67function Implode(Separator: Char; List: TList<string>): string;
    6768function LastPos(const SubStr: String; const S: String): Integer;
    6869function LoadFileToStr(const FileName: TFileName): AnsiString;
    … …  
    313314end;
    314315
     316function Implode(Separator: Char; List: TList<string>): string;
     317var
     318  I: Integer;
     319begin
     320  Result := '';
     321  for I := 0 to List.Count - 1 do begin
     322    Result := Result + List[I];
     323    if I < List.Count - 1 then Result := Result + Separator;
     324  end;
     325end;
     326
    315327{$IFDEF WINDOWS}
    316328function GetUserName: string;

  • trunk/Packages/Common/UFindFile.pas

    r86 r117  
    8585begin
    8686  s.Free;
    87   inherited Destroy;
     87  inherited;
    8888end;
    8989

  • trunk/Packages/Common/UFormAbout.pas

    r86 r117  
    2020    PanelButtons: TPanel;
    2121    procedure ButtonHomePageClick(Sender: TObject);
    22     procedure FormCreate(Sender: TObject);
    2322    procedure FormShow(Sender: TObject);
    24   private
    25     { private declarations }
    2623  public
    2724    AboutDialog: TObject; //TAboutDialog
    … …  
    7774end;
    7875
    79 procedure TFormAbout.FormCreate(Sender: TObject);
    80 begin
    81 end;
    82 
    8376end.
    8477

  • trunk/Packages/Common/UJobProgressView.pas

    r86 r117  
    641641begin
    642642  FLock.Free;
    643   inherited Destroy;
     643  inherited;
    644644end;
    645645

  • trunk/Packages/Common/UListViewSort.pas

    r86 r117  
    149149destructor TListViewEx.Destroy;
    150150begin
    151   inherited Destroy;
     151  inherited;
    152152end;
    153153

  • trunk/Packages/Common/UMemory.pas

    r86 r117  
    4949procedure TPositionMemory.SetSize(AValue: Integer);
    5050begin
    51   inherited SetSize(AValue);
     51  inherited;
    5252  if FPosition > FSize then FPosition := FSize;
    5353end;
    … …  
    106106begin
    107107  Size := 0;
    108   inherited Destroy;
     108  inherited;
    109109end;
    110110

  • trunk/Packages/Common/UPool.pas

    r86 r117  
    106106constructor TThreadedPool.Create;
    107107begin
    108   inherited Create;
     108  inherited;
    109109  Lock := TCriticalSection.Create;
    110110end;
    … …  
    114114  TotalCount := 0;
    115115  Lock.Free;
    116   inherited Destroy;
     116  inherited;
    117117end;
    118118

  • trunk/Packages/Common/UResetableThread.pas

    r86 r117  
    165165  FreeAndNil(FStopEvent);
    166166  FreeAndNil(FLock);
    167   inherited Destroy;
     167  inherited;
    168168end;
    169169
    … …  
    284284constructor TThreadPool.Create;
    285285begin
    286   inherited Create;
     286  inherited;
    287287end;
    288288
    … …  
    291291  TotalCount := 0;
    292292  WaitForEmpty;
    293   inherited Destroy;
     293  inherited;
    294294end;
    295295

  • trunk/Packages/Common/USyncCounter.pas

    r86 r117  
    6868begin
    6969  Lock.Free;
    70   inherited Destroy;
     70  inherited;
    7171end;
    7272

  • trunk/Packages/Common/UThreading.pas

    r86 r117  
    292292  end;
    293293  FThread.Free;
    294   inherited Destroy;
     294  inherited;
    295295end;
    296296

  • trunk/Packages/Common/UURI.pas

    r86 r117  
    182182begin
    183183  Items.Free;
    184   inherited Destroy;
     184  inherited;
    185185end;
    186186
    … …  
    231231begin
    232232  Path.Free;
    233   inherited Destroy;
     233  inherited;
    234234end;
    235235
    … …  
    242242    Fragment := TURI(Source).Fragment;
    243243    Query := TURI(Source).Query;
    244   end else inherited Assign(Source);
     244  end else inherited;
    245245end;
    246246
    … …  
    290290destructor TURL.Destroy;
    291291begin
    292   inherited Destroy;
     292  inherited;
    293293end;
    294294
    … …  
    343343begin
    344344  Directory.Free;
    345   inherited Destroy;
    346 end;
    347 
     345  inherited;
     346end;
    348347
    349348end.
Note: See TracChangeset for help on using the changeset viewer.