فهرست منبع

Auto stash before merge of "develop" and "master"

Wilfried Klaas 4 سال پیش
والد
کامیت
9fbf545a73
3فایلهای تغییر یافته به همراه396 افزوده شده و 297 حذف شده
  1. 14 5
      SPS_Emu.lpi
  2. 354 291
      ugui.lfm
  3. 28 1
      ugui.pas

+ 14 - 5
SPS_Emu.lpi

@@ -22,7 +22,7 @@
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="2"/>
       <RevisionNr Value="1"/>
-      <BuildNr Value="78"/>
+      <BuildNr Value="80"/>
       <Language Value="0407"/>
       <StringTable CompanyName="MCS" FileDescription="TPS/SPS Emulator" InternalName="SPS_EMU" LegalCopyright="MCS (C) Wilfried Klaas" OriginalFilename="SPS_EMU.exe" ProductName="TPS/SPS Emulator" ProductVersion="0.2"/>
     </VersionInfo>
@@ -56,13 +56,16 @@
         </Mode0>
       </Modes>
     </RunParams>
-    <RequiredPackages Count="2">
+    <RequiredPackages Count="3">
       <Item1>
-        <PackageName Value="SdpoSerialLaz"/>
+        <PackageName Value="laz_synapse"/>
       </Item1>
       <Item2>
-        <PackageName Value="LCL"/>
+        <PackageName Value="SdpoSerialLaz"/>
       </Item2>
+      <Item3>
+        <PackageName Value="LCL"/>
+      </Item3>
     </RequiredPackages>
     <Units Count="7">
       <Unit0>
@@ -138,7 +141,7 @@
     </Linking>
   </CompilerOptions>
   <Debugging>
-    <Exceptions Count="5">
+    <Exceptions Count="7">
       <Item1>
         <Name Value="EAbort"/>
       </Item1>
@@ -154,6 +157,12 @@
       <Item5>
         <Name Value="EScannerError"/>
       </Item5>
+      <Item6>
+        <Name Value="RunError(103)"/>
+      </Item6>
+      <Item7>
+        <Name Value="EInOutError"/>
+      </Item7>
     </Exceptions>
   </Debugging>
 </CONFIG>

تفاوت فایلی نمایش داده نمی شود زیرا این فایل بسیار بزرگ است
+ 354 - 291
ugui.lfm


+ 28 - 1
ugui.pas

@@ -183,6 +183,8 @@ type
     procedure tbResetClick(Sender: TObject);
     procedure tbSelChange(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
+    procedure XMLPropStorage1RestoringProperties(Sender: TObject);
+    procedure XMLPropStorage1SavingProperties(Sender: TObject);
   private
     { private declarations }
     sps: TSPS;
@@ -1208,7 +1210,7 @@ var
   tmp: string;
   hexFormat: TIntelHexFormat;
   com, Data: byte;
-  f:file of byte;
+  f: file of byte;
 
 begin
   i := StringGrid1.RowCount;
@@ -1667,6 +1669,31 @@ begin
   MCSLabel.Caption := InfoBox.versionText;
 end;
 
+procedure TForm1.XMLPropStorage1RestoringProperties(Sender: TObject);
+var
+  Uid: TGuid;
+  Result: HResult;
+  uuid: string;
+
+begin
+  uuid := XMLPropStorage1.ReadString('AppUUID', '');
+  if uuid = '' then
+  begin
+    Result := CreateGuid(Uid);
+    if Result = S_OK then
+    begin
+      uuid := GuidToString(Uid);
+      XMLPropStorage1.WriteString('AppUUID', uuid);
+    end;
+  end;
+  Infobox.AppUUID := uuid;
+end;
+
+procedure TForm1.XMLPropStorage1SavingProperties(Sender: TObject);
+begin
+
+end;
+
 
 procedure TForm1.renumberGrid;
 var

برخی فایل ها در این مقایسه diff نمایش داده نمی شوند زیرا تعداد فایل ها بسیار زیاد است