Переглянути джерело

adding simple blink program

Klaas, Wilfried 6 роки тому
батько
коміт
ad61fda589
2 змінених файлів з 19 додано та 10 видалено
  1. 9 0
      Beispiele/simple_blink.tps
  2. 10 10
      ugui.lfm

+ 9 - 0
Beispiele/simple_blink.tps

@@ -0,0 +1,9 @@
+#TPS:Willies SPS Arduino
+0x00,4,0,""
+0x01,1,5,""
+0x02,2,8,""
+0x03,1,A,""
+0x04,2,8,""
+0x05,3,4,""
+0x06,0,0,""
+0x07,0,0,""

+ 10 - 10
ugui.lfm

@@ -1,7 +1,7 @@
 object Form1: TForm1
-  Left = 228
+  Left = 275
   Height = 582
-  Top = 105
+  Top = 126
   Width = 691
   AllowDropFiles = True
   Caption = 'SPS Emulator'
@@ -17,13 +17,13 @@ object Form1: TForm1
   LCLVersion = '1.8.4.0'
   object Panel1: TPanel
     Left = 367
-    Height = 533
+    Height = 528
     Top = 26
     Width = 324
     Align = alRight
     BevelOuter = bvNone
     BorderStyle = bsSingle
-    ClientHeight = 529
+    ClientHeight = 524
     ClientWidth = 320
     TabOrder = 0
     object GBOutput: TGroupBox
@@ -868,25 +868,25 @@ object Form1: TForm1
   end
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 23
-    Top = 559
+    Height = 28
+    Top = 554
     Width = 691
     Panels = <>
   end
   object Panel2: TPanel
     Left = 0
-    Height = 533
+    Height = 528
     Top = 26
     Width = 367
     Align = alClient
     BevelOuter = bvNone
     Caption = 'Panel2'
-    ClientHeight = 533
+    ClientHeight = 528
     ClientWidth = 367
     TabOrder = 3
     object StringGrid1: TStringGrid
       Left = 0
-      Height = 499
+      Height = 494
       Top = 0
       Width = 367
       Align = alClient
@@ -927,7 +927,7 @@ object Form1: TForm1
     object Panel3: TPanel
       Left = 0
       Height = 34
-      Top = 499
+      Top = 494
       Width = 367
       Align = alBottom
       BevelInner = bvLowered