- Timestamp:
- Apr 8, 2022, 9:19:27 PM (3 years ago)
- Location:
- trunk
- Files:
-
- 1 added
- 56 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormCompare.pas
r121 r127 1 1 unit UFormCompare; 2 3 {$mode Delphi}4 2 5 3 interface … … 8 6 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, 9 7 UContact, Diff, LCLType, LCLIntf, ComCtrls, Buttons, Menus, ActnList, SynEdit, 10 SynEditMiscClasses, SynHighlighterPosition, 11 SynEditHighlighter, UCommon,USynEditEx;8 SynEditMiscClasses, SynHighlighterPosition, SynEditHighlighter, UCommon, 9 USynEditEx; 12 10 13 11 type … … 79 77 FormCompare: TFormCompare; 80 78 79 81 80 implementation 82 81 -
trunk/Forms/UFormContact.pas
r124 r127 1 1 unit UFormContact; 2 3 {$mode delphi}4 2 5 3 interface … … 8 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 7 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; 11 10 12 11 type -
trunk/Forms/UFormContacts.pas
r108 r127 1 1 unit UFormContacts; 2 2 3 {$mode delphi}4 5 3 interface 6 4 7 5 uses 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; 10 8 11 9 type -
trunk/Forms/UFormError.pas
r31 r127 1 1 unit UFormError; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/Forms/UFormFind.pas
r103 r127 1 1 unit UFormFind; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/Forms/UFormFindDuplicity.pas
r103 r127 1 1 unit UFormFindDuplicity; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/Forms/UFormGenerate.pas
r106 r127 1 1 unit UFormGenerate; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/Forms/UFormImage.pas
r123 r127 1 1 unit UFormImage; 2 3 {$mode Delphi}4 2 5 3 interface -
trunk/Forms/UFormMain.pas
r126 r127 1 1 unit UFormMain; 2 3 {$mode delphi}{$H+}4 2 5 3 interface -
trunk/Forms/UFormNameDetails.pas
r110 r127 1 1 unit UFormNameDetails; 2 3 {$mode Delphi}4 2 5 3 interface … … 28 26 procedure FormCreate(Sender: TObject); 29 27 procedure FormShow(Sender: TObject); 30 private31 32 public33 34 28 end; 35 29 36 30 var 37 31 FormNameDetails: TFormNameDetails; 32 38 33 39 34 implementation -
trunk/Forms/UFormProperties.pas
r123 r127 1 1 unit UFormProperties; 2 2 3 {$mode delphi}4 5 3 interface 6 4 7 5 uses 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; 10 8 11 9 type -
trunk/Forms/UFormProperty.pas
r109 r127 1 1 unit UFormProperty; 2 3 {$mode delphi}4 2 5 3 interface … … 42 40 var 43 41 FormProperty: TFormProperty; 42 44 43 45 44 implementation -
trunk/Forms/UFormSettings.pas
r101 r127 1 1 unit UFormSettings; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/Forms/UFormSource.pas
r121 r127 1 1 unit UFormSource; 2 3 {$mode Delphi}4 2 5 3 interface … … 46 44 var 47 45 FormSource: TFormSource; 46 48 47 49 48 implementation -
trunk/Forms/UFormTest.lfm
r116 r127 1 1 object FormTest: TFormTest 2 2 Left = 514 3 Height = 6 583 Height = 632 4 4 Top = 338 5 Width = 1 1175 Width = 1072 6 6 Caption = 'Test' 7 ClientHeight = 6 588 ClientWidth = 1 1179 DesignTimePPI = 1 507 ClientHeight = 632 8 ClientWidth = 1072 9 DesignTimePPI = 144 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate … … 14 14 LCLVersion = '2.2.0.4' 15 15 object ListViewTestCases: TListView 16 Left = 2017 Height = 5 8616 Left = 19 17 Height = 562 18 18 Top = 11 19 Width = 10 8419 Width = 1041 20 20 Anchors = [akTop, akLeft, akRight, akBottom] 21 21 Columns = < 22 22 item 23 23 Caption = 'Name' 24 Width = 30024 Width = 288 25 25 end 26 26 item 27 27 Caption = 'Result' 28 Width = 7 6928 Width = 738 29 29 end> 30 30 OwnerData = True … … 39 39 end 40 40 object ButtonRun: TButton 41 Left = 9 8442 Height = 3 943 Top = 60944 Width = 11 741 Left = 945 42 Height = 37 43 Top = 585 44 Width = 112 45 45 Anchors = [akRight, akBottom] 46 46 Caption = 'Run' … … 49 49 end 50 50 object LabelResult: TLabel 51 Left = 2 252 Height = 2 753 Top = 60751 Left = 21 52 Height = 26 53 Top = 583 54 54 Width = 15 55 55 Anchors = [akLeft, akBottom] … … 57 57 end 58 58 object ActionList1: TActionList 59 Left = 5 3760 Top = 11 559 Left = 516 60 Top = 110 61 61 object AShow: TAction 62 62 Caption = 'Show' … … 69 69 end 70 70 object PopupMenuTest: TPopupMenu 71 Left = 5 3972 Top = 2 4471 Left = 517 72 Top = 234 73 73 object MenuItem1: TMenuItem 74 74 Action = AShow -
trunk/Forms/UFormTest.pas
r126 r127 1 1 unit UFormTest; 2 3 {$mode Delphi}4 2 5 3 interface -
trunk/Forms/UFormTestCase.pas
r103 r127 1 1 unit UFormTestCase; 2 3 {$mode Delphi}4 2 5 3 interface … … 25 23 var 26 24 FormTestCase: TFormTestCase; 25 27 26 28 27 implementation -
trunk/Languages/vCardStudio.cs.po
r126 r127 1572 1572 msgstr "Hodnota" 1573 1573 1574 #: uformtest.sfailed1575 msgctxt "uformtest.sfailed"1576 msgid "Failed"1577 msgstr "Selhalo"1578 1579 #: uformtest.spassed1580 msgctxt "uformtest.spassed"1581 msgid "Passed"1582 msgstr "Prošlo"1583 1584 1574 #: uquotedprintable.sdecodeerror 1585 1575 msgid "Decode error" … … 1607 1597 msgid "Passed" 1608 1598 msgstr "Prošlo" 1599 -
trunk/Languages/vCardStudio.pot
r126 r127 1544 1544 msgstr "" 1545 1545 1546 #: uformtest.sfailed1547 msgctxt "uformtest.sfailed"1548 msgid "Failed"1549 msgstr ""1550 1551 #: uformtest.spassed1552 msgctxt "uformtest.spassed"1553 msgid "Passed"1554 msgstr ""1555 1556 1546 #: uquotedprintable.sdecodeerror 1557 1547 msgid "Decode error" -
trunk/Languages/vCardStudio.sv.po
r126 r127 1582 1582 msgstr "Värde" 1583 1583 1584 #: uformtest.sfailed1585 msgctxt "uformtest.sfailed"1586 msgid "Failed"1587 msgstr ""1588 1589 #: uformtest.spassed1590 msgctxt "uformtest.spassed"1591 msgid "Passed"1592 msgstr ""1593 1594 1584 #: uquotedprintable.sdecodeerror 1595 1585 msgid "Decode error" -
trunk/Packages/Common/StopWatch.pas
r1 r127 31 31 property IsRunning : Boolean read fIsRunning; 32 32 end; 33 33 34 34 35 implementation -
trunk/Packages/Common/UAboutDialog.pas
r90 r127 1 1 unit UAboutDialog; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/Packages/Common/UApplicationInfo.pas
r22 r127 1 1 unit UApplicationInfo; 2 3 {$mode delphi}4 2 5 3 interface … … 59 57 procedure Register; 60 58 59 61 60 implementation 62 61 -
trunk/Packages/Common/UCommon.pas
r124 r127 1 1 unit UCommon; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/Packages/Common/UDebugLog.pas
r21 r127 1 1 unit UDebugLog; 2 3 {$mode delphi}4 2 5 3 interface … … 44 42 45 43 procedure Register; 44 46 45 47 46 implementation -
trunk/Packages/Common/UDelay.pas
r1 r127 1 1 unit UDelay; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/Packages/Common/UFormAbout.pas
r83 r127 1 1 unit UFormAbout; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/Packages/Common/UGeometric.pas
r90 r127 1 1 unit UGeometric; 2 3 {$mode delphi}4 2 5 3 interface … … 26 24 function RectEnlarge(Rect: TRect; Value: Integer): TRect; 27 25 function ShiftRect(ARect: TRect; Delta: TPoint): TRect; 26 28 27 29 28 implementation -
trunk/Packages/Common/UJobProgressView.pas
r90 r127 1 1 unit UJobProgressView; 2 3 {$MODE Delphi}4 2 5 3 interface … … 163 161 resourcestring 164 162 SExecuted = 'Executed'; 163 165 164 166 165 implementation -
trunk/Packages/Common/ULanguages.pas
r90 r127 1 1 unit ULanguages; 2 3 {$mode delphi}{$H+}4 2 5 3 interface -
trunk/Packages/Common/ULastOpenedList.pas
r105 r127 1 1 unit ULastOpenedList; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/Packages/Common/UListViewSort.pas
r42 r127 2 2 3 3 // Date: 2019-05-17 4 5 {$mode delphi}6 4 7 5 interface -
trunk/Packages/Common/UMemory.pas
r21 r127 1 1 unit UMemory; 2 3 {$mode Delphi}{$H+}4 2 5 3 interface … … 43 41 property Position: Integer read FPosition write FPosition; 44 42 end; 43 45 44 46 45 implementation -
trunk/Packages/Common/UMetaCanvas.pas
r90 r127 1 1 unit UMetaCanvas; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/Packages/Common/UPersistentForm.pas
r22 r127 1 1 unit UPersistentForm; 2 3 {$mode delphi}4 2 5 3 // Date: 2020-11-26 -
trunk/Packages/Common/UPixelPointer.pas
r22 r127 59 59 function Color32ToColor(Color: TColor32): TColor; 60 60 function ColorToColor32(Color: TColor): TColor32; 61 61 62 62 63 implementation -
trunk/Packages/Common/UPool.pas
r21 r127 1 1 unit UPool; 2 3 {$mode Delphi}{$H+}4 2 5 3 interface -
trunk/Packages/Common/UPrefixMultiplier.pas
r21 r127 2 2 3 3 // Date: 2010-06-01 4 5 {$mode delphi}6 4 7 5 interface -
trunk/Packages/Common/URegistry.pas
r90 r127 1 1 unit URegistry; 2 3 {$MODE delphi}4 2 5 3 interface … … 48 46 HKEY_CURRENT_CONFIG, HKEY_DYN_DATA); 49 47 48 50 49 implementation 51 52 50 53 51 { TRegistryContext } -
trunk/Packages/Common/UResetableThread.pas
r21 r127 1 1 unit UResetableThread; 2 3 {$mode Delphi}{$H+}4 2 5 3 interface -
trunk/Packages/Common/UScaleDPI.pas
r90 r127 2 2 3 3 { See: http://wiki.lazarus.freepascal.org/High_DPI } 4 5 {$mode delphi}{$H+}6 4 7 5 interface -
trunk/Packages/Common/UStringTable.pas
r21 r127 1 1 unit UStringTable; 2 3 {$mode objfpc}{$H+}4 2 5 3 interface -
trunk/Packages/Common/USyncCounter.pas
r1 r127 1 1 unit USyncCounter; 2 3 {$mode delphi}4 2 5 3 interface … … 25 23 procedure Assign(Source: TSyncCounter); 26 24 end; 25 27 26 28 27 implementation -
trunk/Packages/Common/UTheme.pas
r115 r127 48 48 49 49 procedure Register; 50 50 51 51 52 implementation -
trunk/Packages/Common/UThreading.pas
r22 r127 1 1 unit UThreading; 2 3 {$mode delphi}4 2 5 3 interface … … 11 9 TExceptionEvent = procedure (Sender: TObject; E: Exception) of object; 12 10 TMethodCall = procedure of object; 13 14 11 15 12 { TVirtualThread } -
trunk/Packages/Common/UTranslator.pas
r90 r127 1 1 unit UTranslator; 2 3 {$mode delphi}{$H+}4 2 5 3 interface -
trunk/Packages/Common/UURI.pas
r21 r127 2 2 3 3 // Date: 2011-04-04 4 5 {$mode delphi}6 4 7 5 interface … … 84 82 property AsString: string read GetAsString write SetAsString; 85 83 end; 84 86 85 87 86 implementation -
trunk/Packages/Common/UXMLUtils.pas
r21 r127 1 1 unit UXMLUtils; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/UContact.pas
r126 r127 1 1 unit UContact; 2 3 {$mode delphi}{$H+}4 2 5 3 interface -
trunk/UContactImage.pas
r119 r127 1 1 unit UContactImage; 2 3 {$mode Delphi}4 2 5 3 interface -
trunk/UCore.pas
r126 r127 1 1 unit UCore; 2 3 {$mode delphi}{$H+}4 2 5 3 interface -
trunk/UDataFile.pas
r123 r127 1 1 unit UDataFile; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/UQuotedPrintable.pas
r97 r127 1 1 unit UQuotedPrintable; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/UTest.pas
r126 r127 1 1 unit UTest; 2 3 {$mode Delphi}4 2 5 3 interface -
trunk/UVCardHighlighter.pas
r118 r127 47 47 48 48 *) 49 50 {$mode objfpc}{$H+}51 49 52 50 interface … … 135 133 136 134 // Ensure the HL reacts to changes in the attributes. Do this once, if all attributes are created 137 SetAttributesOnChange( @DefHighlightChange);135 SetAttributesOnChange(DefHighlightChange); 138 136 end; 139 137 -
trunk/vCardStudio.lpr
r126 r127 1 1 program vCardStudio; 2 3 {$mode objfpc}{$H+}4 2 5 3 uses
Note:
See TracChangeset
for help on using the changeset viewer.