Changeset 13

Timestamp:

Feb 4, 2018, 12:47:01 PM (7 years ago)

Author:

chronos

Message:

• Added: Status bar with number of contacts.

Location:

trunk

Files:

• Forms/UFormContacts.lfm (modified) (3 diffs)
• Forms/UFormContacts.pas (modified) (1 diff)
• Forms/UFormMain.lfm (modified) (7 diffs)
• Forms/UFormMain.pas (modified) (3 diffs)
• Languages/vCardStudio.cs.po (modified) (7 diffs)
• Languages/vCardStudio.po (modified) (2 diffs)

trunk/Forms/UFormContacts.lfm

@@ -7 +7 @@
   ClientHeight = 605
   ClientWidth = 807
-  DesignTimePPI = 120
   OnClose = FormClose
   OnCreate = FormCreate
   OnShow = FormShow
-  LCLVersion = '1.8.0.6'
+  LCLVersion = '1.8.0.4'
   object ListView1: TListView
     Left = 0
@@ -19 +18 @@
     Align = alClient
     Columns = <    
+      item
+        Caption = 'Full Name'
+        Width = 200
+      end    
       item
         Caption = 'First name'
@@ -29 +32 @@
       item
         Caption = 'Last Name'
-        Width = 100
+        Width = 387
       end>
     OwnerData = True

trunk/Forms/UFormContacts.pas

@@ -68 +68 @@
   if Assigned(Contacts) and (Item.Index < Contacts.Count) then
   with TContact(Contacts[Item.Index]) do begin
-    Item.Caption := FirstName;
+    Item.Caption := FullName;
+    Item.SubItems.Add(FirstName);
     Item.SubItems.Add(MiddleName);
     Item.SubItems.Add(LastName);

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 785
   Caption = 'FormMain'
-  ClientHeight = 506
+  ClientHeight = 497
   ClientWidth = 785
-  DesignTimePPI = 120
   Menu = MainMenu1
   OnClose = FormClose
@@ -13 +12 @@
   OnCreate = FormCreate
   OnShow = FormShow
-  LCLVersion = '1.8.0.6'
+  LCLVersion = '1.8.0.4'
   object CoolBar1: TCoolBar
     Left = 0
@@ -36 +35 @@
       AnchorSideTop.Control = CoolBar1
       Left = 24
-      Height = 22
+      Height = 28
       Top = 5
-      Width = 105
+      Width = 132
       Align = alNone
       AutoSize = True
@@ -56 +55 @@
       end
       object ToolButton2: TToolButton
-        Left = 24
+        Left = 30
         Top = 0
         Action = Core.AFileOpen
@@ -63 +62 @@
       end
       object ToolButton3: TToolButton
-        Left = 59
+        Left = 74
         Top = 0
         Action = Core.AFileSave
       end
       object ToolButton4: TToolButton
-        Left = 82
+        Left = 103
         Top = 0
         Action = Core.AFileClose
@@ -77 +76 @@
       AnchorSideTop.Control = CoolBar1
       Left = 188
-      Height = 22
+      Height = 28
       Top = 5
-      Width = 24
+      Width = 30
       Align = alNone
       AutoSize = True
@@ -97 +96 @@
       end
     end
+  end
+  object StatusBar1: TStatusBar
+    Left = 0
+    Height = 30
+    Top = 467
+    Width = 785
+    Panels = <    
+      item
+        Width = 200
+      end>
+    SimplePanel = False
   end
   object MainMenu1: TMainMenu

trunk/Forms/UFormMain.pas

@@ -33 +33 @@
     MenuItemFile: TMenuItem;
     PopupMenuOpenRecent: TPopupMenu;
+    StatusBar1: TStatusBar;
     ToolBarOther: TToolBar;
     ToolBarFile: TToolBar;
@@ -60 +61 @@
 
 uses
-  UCore, UFormContacts;
+  UCore, UFormContacts, UContact;
 
 resourcestring
+  SCount = 'Count:';
   SModified = 'Modified';
 
@@ -120 +122 @@
   UpdateFormTitle;
   CoolBar1.Visible := MenuItemToolbar.Checked;
+  if Assigned(Core.DataFile) then
+    StatusBar1.Panels[0].Text := SCount + ' ' + IntToStr(TcontactsFile(Core.DataFile).Contacts.Count)
+    else StatusBar1.Panels[0].Text := '';
 end;
 

trunk/Languages/vCardStudio.cs.po

@@ -10 +10 @@
 "Content-Transfer-Encoding: 8bit\n"
 "Language: cs\n"
-"X-Generator: Poedit 1.8.8\n"
+"X-Generator: Poedit 2.0.4\n"
 
 #: tcore.aabout.caption
@@ -94 +94 @@
 msgctxt "tformcontact.label10.caption"
 msgid "Cell phone (Work):"
-msgstr ""
+msgstr "Mobil (Práce):"
 
 #: tformcontact.label11.caption
 msgid "Fax:"
-msgstr ""
+msgstr "Fax:"
 
 #: tformcontact.label12.caption
 msgid "Fax (Home):"
-msgstr ""
+msgstr "Fax (Domov):"
 
 #: tformcontact.label13.caption
 msgid "Fax (Work):"
-msgstr ""
+msgstr "Fax (Práce):"
 
 #: tformcontact.label14.caption
 msgid "Pager:"
-msgstr ""
+msgstr "Pager:"
 
 #: tformcontact.label15.caption
 msgctxt "tformcontact.label15.caption"
 msgid "Web page:"
-msgstr ""
+msgstr "Webové stránky:"
 
 #: tformcontact.label16.caption
 msgctxt "tformcontact.label16.caption"
 msgid "Web page (Home):"
-msgstr ""
+msgstr "Webové stránky (Domov):"
 
 #: tformcontact.label17.caption
 msgctxt "tformcontact.label17.caption"
 msgid "Web page (Work):"
-msgstr ""
+msgstr "Webové stránky (Práce):"
 
 #: tformcontact.label18.caption
 msgid "Title:"
-msgstr ""
+msgstr "Titul:"
 
 #: tformcontact.label19.caption
 msgid "Address:"
-msgstr ""
+msgstr "Adresa:"
 
 #: tformcontact.label2.caption
@@ -141 +141 @@
 #: tformcontact.label20.caption
 msgid "E-mail (Home):"
-msgstr ""
+msgstr "E-mail (Domov):"
 
 #: tformcontact.label21.caption
 msgid "E-mail (Work):"
-msgstr ""
+msgstr "E-mail (Práce):"
 
 #: tformcontact.label22.caption
 msgid "Birthday:"
-msgstr ""
+msgstr "Narozeniny:"
 
 #: tformcontact.label3.caption
@@ -169 +169 @@
 #: tformcontact.label7.caption
 msgid "Phone (Home):"
-msgstr ""
+msgstr "Telefon (Domov):"
 
 #: tformcontact.label8.caption
 msgid "Phone (Work):"
-msgstr ""
+msgstr "Telefon (Práce):"
 
 #: tformcontact.label9.caption
 msgid "Cell phone (Home):"
-msgstr ""
+msgstr "Mobil (Domov):"
 
 #: tformcontact.labelorganization.caption
 msgid "Organization:"
-msgstr ""
+msgstr "Společnost:"
 
 #: tformcontact.listview1.columns[0].caption
@@ -220 +220 @@
 
 #: tformcontacts.listview1.columns[0].caption
+msgid "Full Name"
+msgstr "Křestní jméno"
+
+#: tformcontacts.listview1.columns[1].caption
 msgid "First name"
-msgstr "Křestní jméno"
-
-#: tformcontacts.listview1.columns[1].caption
+msgstr "Prostřední jméno"
+
+#: tformcontacts.listview1.columns[2].caption
+msgctxt "tformcontacts.listview1.columns[2].caption"
 msgid "Middle name"
 msgstr "Prostřední jméno"
 
-#: tformcontacts.listview1.columns[2].caption
+#: tformcontacts.listview1.columns[3].caption
+msgctxt "tformcontacts.listview1.columns[3].caption"
 msgid "Last Name"
 msgstr "Příjimení"
@@ -343 +349 @@
 msgstr "Opravdu chcete odstranit vybrané kontakty?"
 
+#: uformmain.scount
+msgid "Count:"
+msgstr "Počet:"
+
 #: uformmain.smodified
 msgid "Modified"
@@ -351 +361 @@
 msgid "vCard file"
 msgstr "Soubor vCard"
-

trunk/Languages/vCardStudio.po

@@ -210 +210 @@
 
 #: tformcontacts.listview1.columns[0].caption
+msgid "Full Name"
+msgstr ""
+
+#: tformcontacts.listview1.columns[1].caption
 msgid "First name"
 msgstr ""
 
-#: tformcontacts.listview1.columns[1].caption
+#: tformcontacts.listview1.columns[2].caption
+msgctxt "tformcontacts.listview1.columns[2].caption"
 msgid "Middle name"
 msgstr ""
 
-#: tformcontacts.listview1.columns[2].caption
+#: tformcontacts.listview1.columns[3].caption
+msgctxt "tformcontacts.listview1.columns[3].caption"
 msgid "Last Name"
 msgstr ""
@@ -331 +337 @@
 msgstr ""
 
+#: uformmain.scount
+msgid "Count:"
+msgstr ""
+
 #: uformmain.smodified
 msgid "Modified"