Changeset 123 for trunk


Ignore:
Timestamp:
Mar 16, 2022, 11:35:08 AM (3 years ago)
Author:
chronos
Message:
  • Added: QR code image visible in contact others tab. It can be saved as image to file.
Location:
trunk
Files:
90 added
13 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormCompare.lfm

    r121 r123  
    10831083  end
    10841084  object OpenDialogSide: TOpenDialog
    1085     Left = 344
    1086     Top = 362
     1085    Left = 336
     1086    Top = 360
    10871087  end
    10881088  object MainMenu1: TMainMenu

  • trunk/Forms/UFormContact.lfm

    r112 r123  
    11object FormContact: TFormContact
    2   Left = 1063
    3   Height = 773
    4   Top = 449
    5   Width = 1032
     2  Left = 1043
     3  Height = 769
     4  Top = 446
     5  Width = 1033
    66  Caption = 'Contact'
    7   ClientHeight = 773
    8   ClientWidth = 1032
     7  ClientHeight = 769
     8  ClientWidth = 1033
    99  DesignTimePPI = 150
    1010  OnClose = FormClose
    … …  
    1414  LCLVersion = '2.2.0.4'
    1515  object ButtonCancel: TButton
    16     Left = 900
     16    Left = 901
    1717    Height = 39
    18     Top = 720
     18    Top = 716
    1919    Width = 120
    2020    Anchors = [akRight, akBottom]
    … …  
    2525  end
    2626  object ButtonOk: TButton
    27     Left = 759
     27    Left = 760
    2828    Height = 39
    29     Top = 720
     29    Top = 716
    3030    Width = 124
    3131    Anchors = [akRight, akBottom]
    … …  
    3838    Left = 8
    3939    Height = 39
    40     Top = 720
     40    Top = 716
    4141    Width = 124
    4242    Anchors = [akLeft, akBottom]
    … …  
    5050    Left = 150
    5151    Height = 39
    52     Top = 720
     52    Top = 716
    5353    Width = 120
    5454    Anchors = [akLeft, akBottom]
    … …  
    6161  object PageControlContact: TPageControl
    6262    Left = 8
    63     Height = 696
     63    Height = 692
    6464    Top = 8
    65     Width = 1009
    66     ActivePage = TabSheetGeneral
     65    Width = 1010
     66    ActivePage = TabSheetOthers
    6767    Anchors = [akTop, akLeft, akRight, akBottom]
    6868    ParentFont = False
    69     TabIndex = 0
     69    TabIndex = 5
    7070    TabOrder = 4
    7171    object TabSheetGeneral: TTabSheet
    7272      Caption = 'General'
    73       ClientHeight = 655
    74       ClientWidth = 999
     73      ClientHeight = 651
     74      ClientWidth = 1000
    7575      OnHide = TabSheetGeneralHide
    7676      OnShow = TabSheetGeneralShow
    … …  
    340340    object TabSheetHome: TTabSheet
    341341      Caption = 'Home'
    342       ClientHeight = 655
    343       ClientWidth = 999
     342      ClientHeight = 651
     343      ClientWidth = 1000
    344344      OnHide = TabSheetHomeHide
    345345      OnShow = TabSheetHomeShow
    … …  
    429429        Height = 287
    430430        Top = 225
    431         Width = 897
     431        Width = 898
    432432        Anchors = [akTop, akLeft, akRight]
    433433        Caption = 'Address'
    434434        ClientHeight = 285
    435         ClientWidth = 895
     435        ClientWidth = 896
    436436        TabOrder = 6
    437437        object Label36: TLabel
    … …  
    600600    object TabSheetWork: TTabSheet
    601601      Caption = 'Work'
    602       ClientHeight = 655
    603       ClientWidth = 999
     602      ClientHeight = 651
     603      ClientWidth = 1000
    604604      OnHide = TabSheetWorkHide
    605605      OnShow = TabSheetWorkShow
    … …  
    906906    object TabSheetChat: TTabSheet
    907907      Caption = 'Chat'
    908       ClientHeight = 655
    909       ClientWidth = 999
     908      ClientHeight = 651
     909      ClientWidth = 1000
    910910      OnHide = TabSheetChatHide
    911911      OnShow = TabSheetChatShow
    … …  
    11211121    object TabSheetSocial: TTabSheet
    11221122      Caption = 'Social'
    1123       ClientHeight = 655
    1124       ClientWidth = 999
     1123      ClientHeight = 651
     1124      ClientWidth = 1000
    11251125      OnHide = TabSheetSocialHide
    11261126      OnShow = TabSheetSocialShow
    … …  
    12881288    object TabSheetOthers: TTabSheet
    12891289      Caption = 'Others'
    1290       ClientHeight = 655
    1291       ClientWidth = 999
     1290      ClientHeight = 651
     1291      ClientWidth = 1000
    12921292      OnHide = TabSheetOthersHide
    12931293      OnShow = TabSheetOthersShow
    12941294      object MemoNotes: TMemo
    12951295        Left = 17
    1296         Height = 293
     1296        Height = 289
    12971297        Top = 50
    1298         Width = 963
     1298        Width = 671
    12991299        Anchors = [akTop, akLeft, akRight, akBottom]
    13001300        ParentFont = False
    … …  
    13101310        Caption = 'Notes:'
    13111311        ParentFont = False
     1312      end
     1313      object BarcodeQR1: TBarcodeQR
     1314        Left = 704
     1315        Height = 286
     1316        Top = 50
     1317        Width = 280
     1318        ParentColor = False
     1319        Text = 'TBarcodeQR'
     1320      end
     1321      object Label1: TLabel
     1322        Left = 704
     1323        Height = 27
     1324        Top = 16
     1325        Width = 80
     1326        Anchors = [akTop, akRight]
     1327        Caption = 'QR code:'
    13121328      end
    13131329    end
    … …  
    13811397    Top = 608
    13821398  end
     1399  object PopupMenuQrCode: TPopupMenu
     1400    Left = 528
     1401    Top = 472
     1402    object MenuItemSaveQrToFile: TMenuItem
     1403      Caption = 'Save to file'
     1404      OnClick = MenuItemSaveQrToFileClick
     1405    end
     1406  end
    13831407end

  • trunk/Forms/UFormContact.lrj

    r110 r123  
    8989{"hash":90893459,"name":"tformcontact.tabsheetothers.caption","sourcebytes":[79,116,104,101,114,115],"value":"Others"},
    9090{"hash":89566314,"name":"tformcontact.label6.caption","sourcebytes":[78,111,116,101,115,58],"value":"Notes:"},
     91{"hash":144712418,"name":"tformcontact.barcodeqr1.text","sourcebytes":[84,66,97,114,99,111,100,101,81,82],"value":"TBarcodeQR"},
     92{"hash":74080234,"name":"tformcontact.label1.caption","sourcebytes":[81,82,32,99,111,100,101,58],"value":"QR code:"},
    9193{"hash":113983571,"name":"tformcontact.tabsheetall.caption","sourcebytes":[65,108,108,32,102,105,101,108,100,115],"value":"All fields"},
    9294{"hash":8431845,"name":"tformcontact.aphotoload.caption","sourcebytes":[76,111,97,100,32,102,114,111,109,32,102,105,108,101],"value":"Load from file"},
    … …  
    99101{"hash":171928085,"name":"tformcontact.calendardialog1.title","sourcebytes":[83,101,108,101,99,116,32,100,97,116,101],"value":"Select date"},
    100102{"hash":11067,"name":"tformcontact.calendardialog1.okcaption","sourcebytes":[38,79,75],"value":"&OK"},
    101 {"hash":77089212,"name":"tformcontact.calendardialog1.cancelcaption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"}
     103{"hash":77089212,"name":"tformcontact.calendardialog1.cancelcaption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"},
     104{"hash":9308581,"name":"tformcontact.menuitemsaveqrtofile.caption","sourcebytes":[83,97,118,101,32,116,111,32,102,105,108,101],"value":"Save to file"}
    102105]}

  • trunk/Forms/UFormContact.pas

    r110 r123  
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    99  ComCtrls, ActnList, Menus, ExtCtrls, ExtDlgs, Buttons, UContact, LCLIntf,
    10   UFormProperties, DateUtils{$IFDEF LCLGTK2}, Gtk2Globals{$ENDIF}, UContactImage;
     10  UFormProperties, DateUtils, Gtk2Globals, UContactImage, ubarcodes;
    1111
    1212type
    … …  
    2121    APhotoLoad: TAction;
    2222    ActionList1: TActionList;
     23    BarcodeQR1: TBarcodeQR;
    2324    ButtonCancel: TButton;
    2425    ButtonHomeAddressShow: TButton;
    … …  
    9697    GroupBox2: TGroupBox;
    9798    ImagePhoto: TImage;
     99    Label1: TLabel;
    98100    Label10: TLabel;
    99101    Label11: TLabel;
    … …  
    167169    MenuItem4: TMenuItem;
    168170    MenuItem5: TMenuItem;
     171    MenuItemSaveQrToFile: TMenuItem;
    169172    OpenPictureDialog1: TOpenPictureDialog;
    170173    PageControlContact: TPageControl;
     174    PopupMenuQrCode: TPopupMenu;
    171175    PopupMenuPhoto: TPopupMenu;
    172176    SavePictureDialog1: TSavePictureDialog;
    … …  
    202206    procedure FormShow(Sender: TObject);
    203207    procedure ImagePhotoClick(Sender: TObject);
     208    procedure MenuItemSaveQrToFileClick(Sender: TObject);
    204209    procedure SpeedButtonHomeWebClick(Sender: TObject);
    205210    procedure SpeedButtonAniversaryClick(Sender: TObject);
    … …  
    249254
    250255uses
    251   UCore, UCommon, UFormImage, UFormNameDetails;
     256  UCore, UCommon, UFormImage, UFormNameDetails, UDataFile;
    252257
    253258resourcestring
    … …  
    255260  SPhotoUrl = 'Photo URL';
    256261  SPhotoUrlQuery = 'Enter URL for profile photo';
     262  SImageTypeNotSupported = 'Image type not supported.';
    257263
    258264function DateToISO(Date: TDateTime): string;
    … …  
    341347end;
    342348
     349procedure TFormContact.MenuItemSaveQrToFileClick(Sender: TObject);
     350var
     351  F: string;
     352begin
     353  SavePictureDialog1.Filter := 'Windows bitmap files (*.bmp)|*.bmp|' +
     354   'Portable network graphic files (*.png)|*.png|' +
     355   'JPEG image files (*.jpg;*.jpeg)|*.jpg;*.jpeg|' +
     356   'TIFF image files (*.tiff; *.tif)|*.tiff;*.tif|'+
     357   'XPM image files (*.xpm)|*.xpm|' +
     358   'Scalable vector graphics files (*.svg)|*.svg|'+
     359   'Encapsulated PostScript files (*.eps;*.ps)|*.eps;*.ps|'+
     360   SAllFiles + ' (*.*)|*.*';
     361  SavePictureDialog1.FilterIndex := 2;
     362  SavePictureDialog1.DefaultExt := '.png';
     363  if Core.LastQrCodeFileName = '' then
     364    Core.LastQrCodeFileName := 'QR code.png';
     365  SavePictureDialog1.InitialDir := ExtractFileDir(Core.LastQrCodeFileName);
     366  SavePictureDialog1.FileName := ExtractFileName(Core.LastQrCodeFileName);
     367  if SavePictureDialog1.Execute then begin
     368    F := LowerCase(ExtractFileExt(SavePictureDialog1.FileName));
     369    if F = '.bmp' then BarcodeQR1.SaveToFile(SavePictureDialog1.FileName, TBitmap)
     370    else if F = '.png' then BarcodeQR1.SaveToFile(SavePictureDialog1.FileName, TPortableNetworkGraphic)
     371    else if (F = '.jpg') or (F = '.jpeg') then BarcodeQR1.SaveTofile(SavePictureDialog1.FileName, TJpegImage)
     372    else if (F = '.tif') or (F = '.tiff') then BarcodeQR1.SaveToFile(SavePictureDialog1.FileName, TTiffImage)
     373    else if F = '.xpm' then BarcodeQR1.SaveToFile(SavePictureDialog1.FileName, TPixmap)
     374    else if F = '.svg' then BarcodeQR1.SaveToSvgFile(SavePictureDialog1.FileName)
     375    else if (F = '.eps') or (F = '.ps') then BarcodeQR1.SaveToEpsFile(SavePictureDialog1.FileName)
     376    else raise Exception.Create(SImageTypeNotSupported);
     377    Core.LastQrCodeFileName := SavePictureDialog1.FileName;
     378  end;
     379end;
     380
    343381procedure TFormContact.SpeedButtonHomeWebClick(Sender: TObject);
    344382begin
    … …  
    528566begin
    529567  MemoNotes.Lines.Text := Contact.Fields[cfNote];
     568  BarcodeQR1.Text := Contact.AsString;
    530569end;
    531570
    … …  
    641680procedure TFormContact.APhotoLoadExecute(Sender: TObject);
    642681begin
    643   OpenPictureDialog1.FileName := Core.LastPhotoFileName;
     682  OpenPictureDialog1.InitialDir := ExtractFileDir(Core.LastPhotoFileName);
     683  OpenPictureDialog1.FileName := ExtractFileName(Core.LastPhotoFileName);
    644684  if OpenPictureDialog1.Execute then begin
    645685    FPhoto.LoadFromFile(OpenPictureDialog1.FileName);
    … …  
    655695procedure TFormContact.APhotoSaveExecute(Sender: TObject);
    656696begin
    657   SavePictureDialog1.FileName := Core.LastPhotoFileName;
     697  SavePictureDialog1.InitialDir := ExtractFileDir(Core.LastPhotoFileName);
     698  SavePictureDialog1.FileName := ExtractFileName(Core.LastPhotoFileName);
    658699  if SavePictureDialog1.Execute then begin
    659700    ImagePhoto.Picture.SaveToFile(SavePictureDialog1.FileName);
    … …  
    777818  FPhoto.FieldIndex := cfPhoto;
    778819  FPhoto.OnChange := PhotoChange;
     820
     821  // Set Barcode unpublished properties
     822  BarcodeQR1.Anchors := [akTop, akRight];
     823  BarcodeQR1.PopupMenu := PopupMenuQrCode;
    779824end;
    780825

  • trunk/Forms/UFormImage.pas

    r103 r123  
    7373procedure TFormImage.ButtonLoadClick(Sender: TObject);
    7474begin
    75   OpenPictureDialog1.FileName := Core.LastPhotoFileName;
     75  OpenPictureDialog1.InitialDir := ExtractFileDir(Core.LastPhotoFileName);
     76  OpenPictureDialog1.FileName := ExtractFileName(Core.LastPhotoFileName);
    7677  if OpenPictureDialog1.Execute then begin
    7778    Image.LoadFromFile(OpenPictureDialog1.FileName);
    … …  
    8788procedure TFormImage.ButtonSaveClick(Sender: TObject);
    8889begin
    89   SavePictureDialog1.FileName := Core.LastPhotoFileName;
     90  SavePictureDialog1.InitialDir := ExtractFileDir(Core.LastPhotoFileName);
     91  SavePictureDialog1.FileName := ExtractFileName(Core.LastPhotoFileName);
    9092  if SavePictureDialog1.Execute then begin
    9193    Image.SaveToFile(SavePictureDialog1.FileName);

  • trunk/Forms/UFormProperties.pas

    r108 r123  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
    9   ComCtrls, Menus, ActnList, UContact, UListViewSort, fgl, LazUTF8;
     9  ComCtrls, Menus, ActnList, UContact, UDataFile, UListViewSort, fgl, LazUTF8;
    1010
    1111type
    … …  
    9494  SFiltered = 'Filtered';
    9595  SSelected = 'Selected';
    96   SAllFiles = 'All files';
    9796  STextFiles = 'Text files';
    9897  SValue = 'Value';

  • trunk/Languages/vCardStudio.cs.po

    r121 r123  
    163163msgstr "Ukázat"
    164164
     165#: tformcontact.barcodeqr1.text
     166msgid "TBarcodeQR"
     167msgstr "TBarcodeQR"
     168
    165169#: tformcontact.buttoncancel.caption
    166170msgctxt "tformcontact.buttoncancel.caption"
    … …  
    224228msgstr "Adresa"
    225229
     230#: tformcontact.label1.caption
     231msgid "QR code:"
     232msgstr "QR kód:"
     233
    226234#: tformcontact.label10.caption
    227235msgctxt "tformcontact.label10.caption"
    … …  
    516524msgid "Mastodon:"
    517525msgstr "Mastodon:"
     526
     527#: tformcontact.menuitemsaveqrtofile.caption
     528msgctxt "tformcontact.menuitemsaveqrtofile.caption"
     529msgid "Save to file"
     530msgstr "Uložit do souboru"
    518531
    519532#: tformcontact.openpicturedialog1.title
    … …  
    14711484msgstr "Kontakt"
    14721485
     1486#: uformcontact.simagetypenotsupported
     1487msgid "Image type not supported."
     1488msgstr "Nepodporovaný typ obrázku."
     1489
    14731490#: uformcontact.sphotourl
    14741491msgid "Photo URL"
    … …  
    15151532msgstr "Upraveno"
    15161533
    1517 #: uformproperties.sallfiles
    1518 msgctxt "uformproperties.sallfiles"
    1519 msgid "All files"
    1520 msgstr "Všechny soubory"
    1521 
    15221534#: uformproperties.sendupdatetoolow
    15231535msgctxt "uformproperties.sendupdatetoolow"

  • trunk/Languages/vCardStudio.pot

    r121 r123  
    153153msgstr ""
    154154
     155#: tformcontact.barcodeqr1.text
     156msgid "TBarcodeQR"
     157msgstr ""
     158
    155159#: tformcontact.buttoncancel.caption
    156160msgctxt "tformcontact.buttoncancel.caption"
    … …  
    214218msgstr ""
    215219
     220#: tformcontact.label1.caption
     221msgid "QR code:"
     222msgstr ""
     223
    216224#: tformcontact.label10.caption
    217225msgctxt "tformcontact.label10.caption"
    … …  
    507515msgstr ""
    508516
     517#: tformcontact.menuitemsaveqrtofile.caption
     518msgctxt "tformcontact.menuitemsaveqrtofile.caption"
     519msgid "Save to file"
     520msgstr ""
     521
    509522#: tformcontact.openpicturedialog1.title
    510523msgctxt "tformcontact.openpicturedialog1.title"
    … …  
    14431456msgstr ""
    14441457
     1458#: uformcontact.simagetypenotsupported
     1459msgid "Image type not supported."
     1460msgstr ""
     1461
    14451462#: uformcontact.sphotourl
    14461463msgid "Photo URL"
    … …  
    14871504msgstr ""
    14881505
    1489 #: uformproperties.sallfiles
    1490 msgctxt "uformproperties.sallfiles"
    1491 msgid "All files"
    1492 msgstr ""
    1493 
    14941506#: uformproperties.sendupdatetoolow
    14951507msgctxt "uformproperties.sendupdatetoolow"

  • trunk/Languages/vCardStudio.sv.po

    r122 r123  
    2222
    2323#: tcore.afileclose.caption
     24msgctxt "tcore.afileclose.caption"
    2425msgid "Close"
    2526msgstr "Stäng"
    … …  
    2829msgid "Combine..."
    2930msgstr "Sammanfoga ..."
     31
     32#: tcore.afilecompare.caption
     33msgid "Compare..."
     34msgstr ""
    3035
    3136#: tcore.afilenew.caption
    … …  
    4348
    4449#: tcore.afilesave.caption
     50msgctxt "tcore.afilesave.caption"
    4551msgid "Save"
    4652msgstr "Spara"
    … …  
    8692msgstr "Testning"
    8793
     94#: tcore.aviewsource.caption
     95msgid "View source"
     96msgstr ""
     97
    8898#: tcore.opendialog1.title
    8999msgctxt "tcore.opendialog1.title"
    … …  
    100110msgstr "Välj en katalog"
    101111
     112#: tformcompare.afileopenleft.caption
     113msgid "Open left file"
     114msgstr ""
     115
     116#: tformcompare.afileopenright.caption
     117msgid "Open right file"
     118msgstr ""
     119
     120#: tformcompare.areloadfiles.caption
     121msgid "Reload files"
     122msgstr ""
     123
     124#: tformcompare.aswitchsides.caption
     125msgid "Switch sides"
     126msgstr ""
     127
     128#: tformcompare.caption
     129msgid "Compare"
     130msgstr ""
     131
     132#: tformcompare.menuitem1.caption
     133#, fuzzy
     134msgctxt "tformcompare.menuitem1.caption"
     135msgid "File"
     136msgstr "Fil"
     137
     138#: tformcompare.menuitemclose.caption
     139#, fuzzy
     140msgctxt "tformcompare.menuitemclose.caption"
     141msgid "Close"
     142msgstr "Stäng"
     143
    102144#: tformcontact.aphotoclear.caption
    103145msgctxt "tformcontact.aphotoclear.caption"
    … …  
    124166msgstr "Visa"
    125167
     168#: tformcontact.barcodeqr1.text
     169msgid "TBarcodeQR"
     170msgstr ""
     171
    126172#: tformcontact.buttoncancel.caption
    127173msgctxt "tformcontact.buttoncancel.caption"
    … …  
    185231msgstr "Adress"
    186232
     233#: tformcontact.label1.caption
     234msgid "QR code:"
     235msgstr ""
     236
    187237#: tformcontact.label10.caption
    188238msgctxt "tformcontact.label10.caption"
    … …  
    478528msgstr "Mastodon:"
    479529
     530#: tformcontact.menuitemsaveqrtofile.caption
     531#, fuzzy
     532msgctxt "tformcontact.menuitemsaveqrtofile.caption"
     533msgid "Save to file"
     534msgstr "Spara till filen"
     535
    480536#: tformcontact.openpicturedialog1.title
    481537msgctxt "tformcontact.openpicturedialog1.title"
    … …  
    567623
    568624#: tformcontacts.acopy.caption
     625msgctxt "tformcontacts.acopy.caption"
    569626msgid "Copy"
    570627msgstr "Kopiera"
    571628
    572629#: tformcontacts.acut.caption
     630msgctxt "tformcontacts.acut.caption"
    573631msgid "Cut"
    574632msgstr "Klipp ut"
    … …  
    585643
    586644#: tformcontacts.apaste.caption
     645msgctxt "tformcontacts.apaste.caption"
    587646msgid "Paste"
    588647msgstr "Klistra in"
    … …  
    9511010msgstr "DPI:"
    9521011
     1012#: tformsource.acopy.caption
     1013#, fuzzy
     1014msgctxt "tformsource.acopy.caption"
     1015msgid "Copy"
     1016msgstr "Kopiera"
     1017
     1018#: tformsource.acut.caption
     1019#, fuzzy
     1020msgctxt "tformsource.acut.caption"
     1021msgid "Cut"
     1022msgstr "Klipp ut"
     1023
     1024#: tformsource.apaste.caption
     1025#, fuzzy
     1026msgctxt "tformsource.apaste.caption"
     1027msgid "Paste"
     1028msgstr "Klistra in"
     1029
     1030#: tformsource.aselectall.caption
     1031#, fuzzy
     1032msgctxt "tformsource.aselectall.caption"
     1033msgid "Select all"
     1034msgstr "Markera allt"
     1035
     1036#: tformsource.buttoncancel.caption
     1037#, fuzzy
     1038msgctxt "tformsource.buttoncancel.caption"
     1039msgid "Cancel"
     1040msgstr "Avbryt"
     1041
     1042#: tformsource.buttonok.caption
     1043#, fuzzy
     1044msgctxt "tformsource.buttonok.caption"
     1045msgid "Save"
     1046msgstr "Spara"
     1047
     1048#: tformsource.caption
     1049msgid "Source"
     1050msgstr ""
     1051
    9531052#: tformtest.arun.caption
    9541053msgctxt "tformtest.arun.caption"
    … …  
    9701069msgid "Test"
    9711070msgstr "Testa"
     1071
     1072#: tformtest.labelresult.caption
     1073msgid "   "
     1074msgstr ""
    9721075
    9731076#: tformtest.listviewtestcases.columns[0].caption
    … …  
    13911494msgstr "Kontakt"
    13921495
     1496#: uformcontact.simagetypenotsupported
     1497msgid "Image type not supported."
     1498msgstr ""
     1499
    13931500#: uformcontact.sphotourl
    13941501msgid "Photo URL"
    … …  
    14351542msgstr "Redigerade"
    14361543
    1437 #: uformproperties.sallfiles
    1438 msgctxt "uformproperties.sallfiles"
    1439 msgid "All files"
    1440 msgstr "Alla filer"
    1441 
    14421544#: uformproperties.sendupdatetoolow
    14431545msgctxt "uformproperties.sendupdatetoolow"
    … …  
    14761578msgstr "Värde"
    14771579
     1580#: uformtest.sfailed
     1581msgid "Failed"
     1582msgstr ""
     1583
     1584#: uformtest.spassed
     1585msgid "Passed"
     1586msgstr ""
     1587
    14781588#: uquotedprintable.sdecodeerror
    14791589msgid "Decode error"
    14801590msgstr "Avkodningsfel"
     1591

  • trunk/UCore.lfm

    r120 r123  
    321321    AppName = 'vCard Studio'
    322322    Description = 'vCard files management tool'
    323     ReleaseDate = 44607
     323    ReleaseDate = 44636
    324324    RegistryKey = '\Software\Chronosoft\vCard Studio'
    325325    RegistryRoot = rrKeyCurrentUser

  • trunk/UCore.pas

    r121 r123  
    9090    LastCompareFileName: string;
    9191    LastPhotoFileName: string;
     92    LastQrCodeFileName: string;
    9293    LastPropertyValueFileName: string;
    9394    MapUrl: string;
    … …  
    526527    MapUrl := ReadStringWithDefault('MapUrl', 'https://www.openstreetmap.org/search?query=');
    527528    LastPhotoFileName := ReadStringWithDefault('LastPhotoFileName', '');
     529    LastQrCodeFileName := ReadStringWithDefault('LastQrCodeFileName', '');
    528530    LastCompareFileName := ReadStringWithDefault('LastCompareFileName', '');
    529531  finally
    … …  
    553555    WriteString('MapUrl', MapUrl);
    554556    WriteString('LastPhotoFileName', LastPhotoFileName);
     557    WriteString('LastQrCodeFileName', LastQrCodeFileName);
    555558    WriteString('LastCompareFileName', LastCompareFileName);
    556559  finally

  • trunk/UDataFile.pas

    r120 r123  
    3737  end;
    3838
    39 
    40 implementation
    41 
    4239resourcestring
    4340  SDataFileName = 'File';
    4441  SAllFiles = 'All files';
     42
     43
     44implementation
    4545
    4646{ TDataFile }

  • trunk/vCardStudio.lpi

    r121 r123  
    9595      </Modes>
    9696    </RunParams>
    97     <RequiredPackages Count="4">
     97    <RequiredPackages Count="6">
    9898      <Item1>
     99        <PackageName Value="lazbarcodes"/>
     100        <DefaultFilename Value="Packages\lazbarcodes\packages\lazbarcodes.lpk" Prefer="True"/>
     101      </Item1>
     102      <Item2>
     103        <PackageName Value="lazbarcodes_runtimeonly"/>
     104        <DefaultFilename Value="Packages\lazbarcodes\packages\lazbarcodes_runtimeonly.lpk" Prefer="True"/>
     105      </Item2>
     106      <Item3>
    99107        <PackageName Value="SynEditEx"/>
    100108        <DefaultFilename Value="Packages\SynEditEx\SynEditEx.lpk" Prefer="True"/>
    101       </Item1>
    102       <Item2>
     109      </Item3>
     110      <Item4>
    103111        <PackageName Value="SynEdit"/>
    104       </Item2>
    105       <Item3>
     112      </Item4>
     113      <Item5>
    106114        <PackageName Value="Common"/>
    107115        <DefaultFilename Value="Packages\Common\Common.lpk" Prefer="True"/>
    108       </Item3>
    109       <Item4>
     116      </Item5>
     117      <Item6>
    110118        <PackageName Value="LCL"/>
    111       </Item4>
     119      </Item6>
    112120    </RequiredPackages>
    113121    <Units Count="25">
Note: See TracChangeset for help on using the changeset viewer.