Changeset 5

Timestamp:

Apr 21, 2016, 9:39:44 AM (9 years ago)

Author:

chronos

Message:

• Added: Acronyms in list are sorted alphabetically.
• Added: Missing acronym form.
• Fixed: Synapse to build under Win64 target.

Location:

trunk

Files:

• AcronymDecoder.lpi (modified) (2 diffs)
• Acronyms.csv (modified) (1 diff)
• Packages/Common (modified) (1 prop)
• Packages/Common/Common.pas (modified) (1 diff)
• Packages/TemplateGenerics (modified) (1 prop)
• Packages/TemplateGenerics/TemplateGenerics.pas (modified) (1 diff)
• Packages/synapse/synapse.pas (modified) (1 diff)
• Packages/synapse/synaser.pas (modified) (1 diff)
• Packages/synapse/synautil.pas (modified) (1 diff)
• Packages/synapse/synsock.pas (modified) (1 diff)
• UAcronym.pas (modified) (1 diff)
• UFormAcronym.lfm (added)
• UFormAcronym.pas (added)
• UFormMain.lfm (modified) (2 diffs)
• UFormMain.pas (modified) (1 diff)

trunk/AcronymDecoder.lpi ¶

@@ -113 +113 @@
         <IsPartOfProject Value="True"/>
         <ComponentName Value="FormAcronym"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
       </Unit4>
@@ -143 +144 @@
         <StackChecks Value="True"/>
       </Checks>
+      <VerifyObjMethodCallValidity Value="True"/>
     </CodeGeneration>
     <Linking>
-      <Debugging>
-        <UseHeaptrc Value="True"/>
-      </Debugging>
       <Options>
         <Win32>

trunk/Acronyms.csv ¶

@@ +1 @@
+ACL,"Access Control List",
+AJAX,"Asynchronous JavaScript and XML",
+AP,"Access Point",
+API,"Application Programming Interface",
+AS,"Autonomous System",
+ATX,"Advanced Technology eXtended",
+BGP,"Border Gateway Protocol",
+BIOS,"Basic Input Output System",
+CDMA,"Code Division Multiple Access",
+CPU,"Central Processing Unit",
+CRM,"Customer Relationship Management",
+CSS,"Cascading Style Sheets",
+CSV,"Comma-separated Values",
+CVS,"Concurrent Version Control",
+DFS,"Dynamic Frequency Selection",
+DNS,"Domain Name Server",
+DVB-T,"Digital Video Broadcast - Terrestrial",
+ECC,"Error-correcting code memory",
+EDGE,"Enhanced Data Rates for GSM Evolution",
+ERP,"Enterprise Resource Planning",
 FPS,"Frames Per Second",
-HD,"High Definition,Half Duplex",
-SMTP,"Simple Mail Transport Protocol",
-DNS,"Domain Name Server",
-WDS,"Wireless Distribution System",
-DFS,"Dynamic Frequency Selection",
-TDMA,"Time Division Multiple Access",
-GM,"Game Master",
-IRC,"Internet Relay Chat",
-RSS,"Rich Site Summary",
-CPU,"Central Processing Unit",
-API,"Application Programming Interface",
-VPS,"Virtual Private Server",
-SVN,Subversion,
-URL,"Uniform Resource Locator",
-HTTP,"Hypertext Transport Protocol",
-HTML,"HyperText Markup Language",
-WoW,"World of Warcraft",
-MAC,"Media Access Control address",
 FTP,"File Transfer Protocol",
 FUP,"Fair User Policy",
-VPN,"Virtual Private Network",
-CDMA,"Code Division Multiple Access",
-XML,"eXtensible Markup Language",
-VNC,"Virtual Network Computing",
-CSS,"Cascading Style Sheets",
+GM,"Game Master",
+GPS,"Global Positioning System",
+HD,"High Definition",
+HD,"Half Duplex",
+HSDPA,"High-Speed Downlink Packet Access",
+HTML,"HyperText Markup Language",
+HTTP,"Hypertext Transport Protocol",
+IP,"Internet Protocol",
+IPTV,"Internet Protocol Television",
+IRC,"Internet Relay Chat",
+ISP,"Internet Service Provider",
+JSON,"JavaScript Object Notation",
+KVM,"Keyboard Video Mouse",
+LXC,"LinuX Containers",
+MAC,"Media Access Control address",
+MTU,"Maximum Transmission Unit",
+NFS,"Network File System",
+NTP,"Network Time Protocol",
+OFX,"Open Financial Exchange",
 OS,"Operační Systém",
-ATX,"Advanced Technology eXtended",
-RTSP,"Real Time Streaming Protocol",
-RAM,"Random Access Memory",
-CSV,"Comma-separated Values",
-GPS,"Global Positioning System",
-VCS,"Version Control System",
-SOAP,"Simple Object Access Protocol,",
-AJAX,"Asynchronous JavaScript and XML",
-SQL,"Server Query Language",
-JSON,"JavaScript Object Notation",
-NTP,"Network Time Protocol",
-NFS,"Network File System",
-ACL,"Access Control List",
-SCP,"Secure copy",
-ISP,"Internet Service Provider",
-SSL,"Secure Sockets Layer",
-EDGE,"Enhanced Data Rates for GSM Evolution",
-AP,"Access Point",
-HSDPA,"High-Speed Downlink Packet Access",
-CRM,"Customer Relationship Management",
-ERP,"Enterprise Resource Planning",
-USB,"Universal Serial Bus",
-MTU,"Maximum Transmission Unit",
-RPM,"Redhat Pakage Manager",
-CVS,"Concurrent Version Control",
-KVM,"Keyboard Video Mouse",
+OSA,"Ochranný svaz autorský",
+PC,"Personal Computer",
 PCI,"Peripheral Component Interconnect",
 PCIe,"Peripheral Component Interconnect Express",
-PC,"Personal Computer",
-BIOS,"Basic Input Output System",
-ECC,"Error-correcting code memory",
-IP,"Internet Protocol",
-TDP,"Thermal Design Power",
+RAM,"Random Access Memory",
+RPM,"Redhat Pakage Manager",
+RSS,"Rich Site Summary",
+RTSP,"Real Time Streaming Protocol",
 SAS,"Serial-Attached SCSI",
 SATA,"Serial AT Attachment",
-LXC,"LinuX Containers",
+SCP,"Secure copy",
 SDK,"Software Development Kit",
+SMTP,"Simple Mail Transport Protocol",
+SOAP,"Simple Object Access Protocol",
+SQL,"Server Query Language",
+SSD,"Solid State Drive",
+SSL,"Secure Sockets Layer",
+SVN,Subversion,
 TCP,"Transmission Control Protocol",
+TDMA,"Time Division Multiple Access",
+TDP,"Thermal Design Power",
 UDP,"User Datagrap Protocol",
-OFX,"Open Financial Exchange",
-IPTV,"Internet Protocol Television",
-OSA,"Ochranný svaz autorský",
-DVB-T,"Digital Video Broadcast - Terrestrial",
-BGP,"Border Gateway Protocol",
-AS,"Autonomous System",
-SSD,"Solid State Drive",
+URL,"Uniform Resource Locator",
+USB,"Universal Serial Bus",
+VCS,"Version Control System",
+VNC,"Virtual Network Computing",
+VPN,"Virtual Private Network",
+VPS,"Virtual Private Server",
+WDS,"Wireless Distribution System",
+WoW,"World of Warcraft",
+XML,"eXtensible Markup Language",

trunk/Packages/Common/Common.pas ¶

@@ -5 +5 @@
 unit Common;
 
-{$warn 5023 off : no warning about unused units}
 interface
 

trunk/Packages/TemplateGenerics/TemplateGenerics.pas ¶

@@ -5 +5 @@
 unit TemplateGenerics;
 
-{$warn 5023 off : no warning about unused units}
 interface
 

trunk/Packages/synapse/synapse.pas ¶

@@ -5 +5 @@
 unit synapse;
 
-{$warn 5023 off : no warning about unused units}
 interface
 

trunk/Packages/synapse/synaser.pas ¶

@@ -70 +70 @@
 }
 
+{$IFDEF WIN64}
+  {$DEFINE WIN32}        //for win64
+{$ENDIF}
 {$IFDEF FPC}
   {$MODE DELPHI}

trunk/Packages/synapse/synautil.pas ¶

@@ -47 +47 @@
 {:@abstract(Support procedures and functions)}
 
+{$IFDEF WIN64}
+  {$DEFINE WIN32}        //for win64
+{$ENDIF}
 {$IFDEF FPC}
   {$MODE DELPHI}

trunk/Packages/synapse/synsock.pas ¶

@@ -47 +47 @@
 unit synsock;
 
+{$IFDEF WIN64}
+  {$DEFINE WIN32}        //for win64
+{$ENDIF}
 {$MINENUMSIZE 4}
 

trunk/UAcronym.pas ¶

@@ -88 +88 @@
   end;
 
+function AcronymComparer(Item1, Item2: Pointer): Integer;
+
 implementation
+
+function AcronymComparer(Item1, Item2: Pointer): Integer;
+begin
+  Result := CompareStr(TAcronym(Item1).Name, TAcronym(Item2).Name);
+end;
 
 { TAcronymMeanings }

trunk/UFormMain.lfm ¶

@@ -12 +12 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '1.7'
+  LCLVersion = '1.6.0.4'
   object ListViewAcronyms: TListView
     Left = 8
@@ -45 +45 @@
   object EditSearch: TEdit
     Left = 8
-    Height = 34
+    Height = 28
     Top = 8
     Width = 611

trunk/UFormMain.pas ¶

@@ -237 +237 @@
 procedure TFormMain.UpdateAcronymsList;
 begin
+  AcronymDb.Acronyms.Sort(AcronymComparer);
   AcronymDb.FilterList(EditSearch.Text, FoundAcronyms);
   ListViewAcronyms.Items.Count := FoundAcronyms.Count;