Changeset 127 for trunk/Forms


Ignore:
Timestamp:
Apr 8, 2022, 9:19:27 PM (2 years ago)
Author:
chronos
Message:
  • Modified: Removed explicit Delphi directive.
  • Fixed: Added mising UTestCase file.
Location:
trunk/Forms
Files:
17 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
Note: See TracChangeset for help on using the changeset viewer.