Changeset 127 for trunk


Ignore:
Timestamp:
Apr 8, 2022, 9:19:27 PM (3 years ago)
Author:
chronos
Message:
  • Modified: Removed explicit Delphi directive.
  • Fixed: Added mising UTestCase file.
Location:
trunk
Files:
1 added
56 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormCompare.pas

    r121 r127  
    11unit UFormCompare;
    2 
    3 {$mode Delphi}
    42
    53interface
     
    86  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
    97  UContact, Diff, LCLType, LCLIntf, ComCtrls, Buttons, Menus, ActnList, SynEdit,
    10   SynEditMiscClasses, SynHighlighterPosition,
    11   SynEditHighlighter, UCommon, USynEditEx;
     8  SynEditMiscClasses, SynHighlighterPosition, SynEditHighlighter, UCommon,
     9  USynEditEx;
    1210
    1311type
     
    7977  FormCompare: TFormCompare;
    8078
     79
    8180implementation
    8281
  • trunk/Forms/UFormContact.pas

    r124 r127  
    11unit UFormContact;
    2 
    3 {$mode delphi}
    42
    53interface
     
    86  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    97  ComCtrls, ActnList, Menus, ExtCtrls, ExtDlgs, Buttons, UContact, LCLIntf,
    10   UFormProperties, DateUtils, {$IFDEF LCLGTK2}Gtk2Globals, {$ENDIF}UContactImage, ubarcodes;
     8  UFormProperties, DateUtils, {$IFDEF LCLGTK2}Gtk2Globals, {$ENDIF}UContactImage,
     9  ubarcodes;
    1110
    1211type
  • trunk/Forms/UFormContacts.pas

    r108 r127  
    11unit UFormContacts;
    22
    3 {$mode delphi}
    4 
    53interface
    64
    75uses
    8   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
    9   ComCtrls, Menus, ActnList, UContact, UListViewSort, fgl, LazUTF8, Clipbrd;
     6  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
     7  Menus, ActnList, UContact, UListViewSort, fgl, LazUTF8, Clipbrd;
    108
    119type
  • trunk/Forms/UFormError.pas

    r31 r127  
    11unit UFormError;
    2 
    3 {$mode delphi}
    42
    53interface
  • trunk/Forms/UFormFind.pas

    r103 r127  
    11unit UFormFind;
    2 
    3 {$mode delphi}
    42
    53interface
  • trunk/Forms/UFormFindDuplicity.pas

    r103 r127  
    11unit UFormFindDuplicity;
    2 
    3 {$mode delphi}
    42
    53interface
  • trunk/Forms/UFormGenerate.pas

    r106 r127  
    11unit UFormGenerate;
    2 
    3 {$mode delphi}
    42
    53interface
  • trunk/Forms/UFormImage.pas

    r123 r127  
    11unit UFormImage;
    2 
    3 {$mode Delphi}
    42
    53interface
  • trunk/Forms/UFormMain.pas

    r126 r127  
    11unit UFormMain;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface
  • trunk/Forms/UFormNameDetails.pas

    r110 r127  
    11unit UFormNameDetails;
    2 
    3 {$mode Delphi}
    42
    53interface
     
    2826    procedure FormCreate(Sender: TObject);
    2927    procedure FormShow(Sender: TObject);
    30   private
    31 
    32   public
    33 
    3428  end;
    3529
    3630var
    3731  FormNameDetails: TFormNameDetails;
     32
    3833
    3934implementation
  • trunk/Forms/UFormProperties.pas

    r123 r127  
    11unit UFormProperties;
    22
    3 {$mode delphi}
    4 
    53interface
    64
    75uses
    8   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
    9   ComCtrls, Menus, ActnList, UContact, UDataFile, UListViewSort, fgl, LazUTF8;
     6  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
     7  Menus, ActnList, UContact, UDataFile, UListViewSort, fgl, LazUTF8;
    108
    119type
  • trunk/Forms/UFormProperty.pas

    r109 r127  
    11unit UFormProperty;
    2 
    3 {$mode delphi}
    42
    53interface
     
    4240var
    4341  FormProperty: TFormProperty;
     42
    4443
    4544implementation
  • trunk/Forms/UFormSettings.pas

    r101 r127  
    11unit UFormSettings;
    2 
    3 {$mode delphi}
    42
    53interface
  • trunk/Forms/UFormSource.pas

    r121 r127  
    11unit UFormSource;
    2 
    3 {$mode Delphi}
    42
    53interface
     
    4644var
    4745  FormSource: TFormSource;
     46
    4847
    4948implementation
  • trunk/Forms/UFormTest.lfm

    r116 r127  
    11object FormTest: TFormTest
    22  Left = 514
    3   Height = 658
     3  Height = 632
    44  Top = 338
    5   Width = 1117
     5  Width = 1072
    66  Caption = 'Test'
    7   ClientHeight = 658
    8   ClientWidth = 1117
    9   DesignTimePPI = 150
     7  ClientHeight = 632
     8  ClientWidth = 1072
     9  DesignTimePPI = 144
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
     
    1414  LCLVersion = '2.2.0.4'
    1515  object ListViewTestCases: TListView
    16     Left = 20
    17     Height = 586
     16    Left = 19
     17    Height = 562
    1818    Top = 11
    19     Width = 1084
     19    Width = 1041
    2020    Anchors = [akTop, akLeft, akRight, akBottom]
    2121    Columns = <   
    2222      item
    2323        Caption = 'Name'
    24         Width = 300
     24        Width = 288
    2525      end   
    2626      item
    2727        Caption = 'Result'
    28         Width = 769
     28        Width = 738
    2929      end>
    3030    OwnerData = True
     
    3939  end
    4040  object ButtonRun: TButton
    41     Left = 984
    42     Height = 39
    43     Top = 609
    44     Width = 117
     41    Left = 945
     42    Height = 37
     43    Top = 585
     44    Width = 112
    4545    Anchors = [akRight, akBottom]
    4646    Caption = 'Run'
     
    4949  end
    5050  object LabelResult: TLabel
    51     Left = 22
    52     Height = 27
    53     Top = 607
     51    Left = 21
     52    Height = 26
     53    Top = 583
    5454    Width = 15
    5555    Anchors = [akLeft, akBottom]
     
    5757  end
    5858  object ActionList1: TActionList
    59     Left = 537
    60     Top = 115
     59    Left = 516
     60    Top = 110
    6161    object AShow: TAction
    6262      Caption = 'Show'
     
    6969  end
    7070  object PopupMenuTest: TPopupMenu
    71     Left = 539
    72     Top = 244
     71    Left = 517
     72    Top = 234
    7373    object MenuItem1: TMenuItem
    7474      Action = AShow
  • trunk/Forms/UFormTest.pas

    r126 r127  
    11unit UFormTest;
    2 
    3 {$mode Delphi}
    42
    53interface
  • trunk/Forms/UFormTestCase.pas

    r103 r127  
    11unit UFormTestCase;
    2 
    3 {$mode Delphi}
    42
    53interface
     
    2523var
    2624  FormTestCase: TFormTestCase;
     25
    2726
    2827implementation
  • trunk/Languages/vCardStudio.cs.po

    r126 r127  
    15721572msgstr "Hodnota"
    15731573
    1574 #: uformtest.sfailed
    1575 msgctxt "uformtest.sfailed"
    1576 msgid "Failed"
    1577 msgstr "Selhalo"
    1578 
    1579 #: uformtest.spassed
    1580 msgctxt "uformtest.spassed"
    1581 msgid "Passed"
    1582 msgstr "Prošlo"
    1583 
    15841574#: uquotedprintable.sdecodeerror
    15851575msgid "Decode error"
     
    16071597msgid "Passed"
    16081598msgstr "Prošlo"
     1599
  • trunk/Languages/vCardStudio.pot

    r126 r127  
    15441544msgstr ""
    15451545
    1546 #: uformtest.sfailed
    1547 msgctxt "uformtest.sfailed"
    1548 msgid "Failed"
    1549 msgstr ""
    1550 
    1551 #: uformtest.spassed
    1552 msgctxt "uformtest.spassed"
    1553 msgid "Passed"
    1554 msgstr ""
    1555 
    15561546#: uquotedprintable.sdecodeerror
    15571547msgid "Decode error"
  • trunk/Languages/vCardStudio.sv.po

    r126 r127  
    15821582msgstr "Värde"
    15831583
    1584 #: uformtest.sfailed
    1585 msgctxt "uformtest.sfailed"
    1586 msgid "Failed"
    1587 msgstr ""
    1588 
    1589 #: uformtest.spassed
    1590 msgctxt "uformtest.spassed"
    1591 msgid "Passed"
    1592 msgstr ""
    1593 
    15941584#: uquotedprintable.sdecodeerror
    15951585msgid "Decode error"
  • trunk/Packages/Common/StopWatch.pas

    r1 r127  
    3131    property IsRunning : Boolean read fIsRunning;
    3232  end;
     33
    3334
    3435implementation
  • trunk/Packages/Common/UAboutDialog.pas

    r90 r127  
    11unit UAboutDialog;
    2 
    3 {$mode delphi}
    42
    53interface
  • trunk/Packages/Common/UApplicationInfo.pas

    r22 r127  
    11unit UApplicationInfo;
    2 
    3 {$mode delphi}
    42
    53interface
     
    5957procedure Register;
    6058
     59
    6160implementation
    6261
  • trunk/Packages/Common/UCommon.pas

    r124 r127  
    11unit UCommon;
    2 
    3 {$mode delphi}
    42
    53interface
  • trunk/Packages/Common/UDebugLog.pas

    r21 r127  
    11unit UDebugLog;
    2 
    3 {$mode delphi}
    42
    53interface
     
    4442
    4543procedure Register;
     44
    4645
    4746implementation
  • trunk/Packages/Common/UDelay.pas

    r1 r127  
    11unit UDelay;
    2 
    3 {$mode delphi}
    42
    53interface
  • trunk/Packages/Common/UFormAbout.pas

    r83 r127  
    11unit UFormAbout;
    2 
    3 {$mode delphi}
    42
    53interface
  • trunk/Packages/Common/UGeometric.pas

    r90 r127  
    11unit UGeometric;
    2 
    3 {$mode delphi}
    42
    53interface
     
    2624function RectEnlarge(Rect: TRect; Value: Integer): TRect;
    2725function ShiftRect(ARect: TRect; Delta: TPoint): TRect;
     26
    2827
    2928implementation
  • trunk/Packages/Common/UJobProgressView.pas

    r90 r127  
    11unit UJobProgressView;
    2 
    3 {$MODE Delphi}
    42
    53interface
     
    163161resourcestring
    164162  SExecuted = 'Executed';
     163
    165164
    166165implementation
  • trunk/Packages/Common/ULanguages.pas

    r90 r127  
    11unit ULanguages;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface
  • trunk/Packages/Common/ULastOpenedList.pas

    r105 r127  
    11unit ULastOpenedList;
    2 
    3 {$mode delphi}
    42
    53interface
  • trunk/Packages/Common/UListViewSort.pas

    r42 r127  
    22
    33// Date: 2019-05-17
    4 
    5 {$mode delphi}
    64
    75interface
  • trunk/Packages/Common/UMemory.pas

    r21 r127  
    11unit UMemory;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface
     
    4341    property Position: Integer read FPosition write FPosition;
    4442  end;
     43
    4544
    4645implementation
  • trunk/Packages/Common/UMetaCanvas.pas

    r90 r127  
    11unit UMetaCanvas;
    2 
    3 {$mode delphi}
    42
    53interface
  • trunk/Packages/Common/UPersistentForm.pas

    r22 r127  
    11unit UPersistentForm;
    2 
    3 {$mode delphi}
    42
    53// Date: 2020-11-26
  • trunk/Packages/Common/UPixelPointer.pas

    r22 r127  
    5959  function Color32ToColor(Color: TColor32): TColor;
    6060  function ColorToColor32(Color: TColor): TColor32;
     61
    6162
    6263implementation
  • trunk/Packages/Common/UPool.pas

    r21 r127  
    11unit UPool;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface
  • trunk/Packages/Common/UPrefixMultiplier.pas

    r21 r127  
    22
    33// Date: 2010-06-01
    4 
    5 {$mode delphi}
    64
    75interface
  • trunk/Packages/Common/URegistry.pas

    r90 r127  
    11unit URegistry;
    2 
    3 {$MODE delphi}
    42
    53interface
     
    4846    HKEY_CURRENT_CONFIG, HKEY_DYN_DATA);
    4947
     48
    5049implementation
    51 
    5250
    5351{ TRegistryContext }
  • trunk/Packages/Common/UResetableThread.pas

    r21 r127  
    11unit UResetableThread;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface
  • trunk/Packages/Common/UScaleDPI.pas

    r90 r127  
    22
    33{ See: http://wiki.lazarus.freepascal.org/High_DPI }
    4 
    5 {$mode delphi}{$H+}
    64
    75interface
  • trunk/Packages/Common/UStringTable.pas

    r21 r127  
    11unit UStringTable;
    2 
    3 {$mode objfpc}{$H+}
    42
    53interface
  • trunk/Packages/Common/USyncCounter.pas

    r1 r127  
    11unit USyncCounter;
    2 
    3 {$mode delphi}
    42
    53interface
     
    2523    procedure Assign(Source: TSyncCounter);
    2624  end;
     25
    2726
    2827implementation
  • trunk/Packages/Common/UTheme.pas

    r115 r127  
    4848
    4949procedure Register;
     50
    5051
    5152implementation
  • trunk/Packages/Common/UThreading.pas

    r22 r127  
    11unit UThreading;
    2 
    3 {$mode delphi}
    42
    53interface
     
    119  TExceptionEvent = procedure (Sender: TObject; E: Exception) of object;
    1210  TMethodCall = procedure of object;
    13 
    1411
    1512  { TVirtualThread }
  • trunk/Packages/Common/UTranslator.pas

    r90 r127  
    11unit UTranslator;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface
  • trunk/Packages/Common/UURI.pas

    r21 r127  
    22
    33// Date: 2011-04-04
    4 
    5 {$mode delphi}
    64
    75interface
     
    8482    property AsString: string read GetAsString write SetAsString;
    8583  end;
     84
    8685
    8786implementation
  • trunk/Packages/Common/UXMLUtils.pas

    r21 r127  
    11unit UXMLUtils;
    2 
    3 {$mode delphi}
    42
    53interface
  • trunk/UContact.pas

    r126 r127  
    11unit UContact;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface
  • trunk/UContactImage.pas

    r119 r127  
    11unit UContactImage;
    2 
    3 {$mode Delphi}
    42
    53interface
  • trunk/UCore.pas

    r126 r127  
    11unit UCore;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface
  • trunk/UDataFile.pas

    r123 r127  
    11unit UDataFile;
    2 
    3 {$mode delphi}
    42
    53interface
  • trunk/UQuotedPrintable.pas

    r97 r127  
    11unit UQuotedPrintable;
    2 
    3 {$mode delphi}
    42
    53interface
  • trunk/UTest.pas

    r126 r127  
    11unit UTest;
    2 
    3 {$mode Delphi}
    42
    53interface
  • trunk/UVCardHighlighter.pas

    r118 r127  
    4747
    4848*)
    49 
    50 {$mode objfpc}{$H+}
    5149
    5250interface
     
    135133
    136134  // Ensure the HL reacts to changes in the attributes. Do this once, if all attributes are created
    137   SetAttributesOnChange(@DefHighlightChange);
     135  SetAttributesOnChange(DefHighlightChange);
    138136end;
    139137
  • trunk/vCardStudio.lpr

    r126 r127  
    11program vCardStudio;
    2 
    3 {$mode objfpc}{$H+}
    42
    53uses
Note: See TracChangeset for help on using the changeset viewer.