first import

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2006-08-26 00:35:42 +00:00
parent 63891b7276
commit 4381e28da6
104 changed files with 27836 additions and 0 deletions
--- a/wst/trunk/tests/calculator/gui_client/main_unit.lfm
+++ b/wst/trunk/tests/calculator/gui_client/main_unit.lfm
@@ -0,0 +1,126 @@
+object fmain: Tfmain
+  Left = 269
+  Height = 300
+  Top = 234
+  Width = 528
+  HorzScrollBar.Page = 527
+  VertScrollBar.Page = 299
+  ActiveControl = edtA
+  Caption = '"calculator" service test'
+  OnCreate = FormCreate
+  object Label1: TLabel
+    Left = 16
+    Height = 14
+    Top = 48
+    Width = 49
+    Caption = 'Param "A"'
+    Color = clNone
+    ParentColor = False
+  end
+  object Label2: TLabel
+    Left = 17
+    Height = 14
+    Top = 80
+    Width = 48
+    Caption = 'Param "B"'
+    Color = clNone
+    ParentColor = False
+  end
+  object Label3: TLabel
+    Left = 240
+    Height = 14
+    Top = 52
+    Width = 35
+    Caption = 'Format'
+    Color = clNone
+    ParentColor = False
+  end
+  object Label4: TLabel
+    Left = 16
+    Height = 14
+    Top = 8
+    Width = 40
+    Caption = 'Address'
+    Color = clNone
+    ParentColor = False
+  end
+  object edtA: TEdit
+    Left = 80
+    Height = 23
+    Top = 48
+    Width = 80
+    TabOrder = 0
+    Text = '5'
+  end
+  object edtB: TEdit
+    Left = 80
+    Height = 23
+    Top = 80
+    Width = 80
+    TabOrder = 1
+    Text = '2'
+  end
+  object btnExec: TButton
+    Left = 384
+    Height = 25
+    Top = 8
+    Width = 128
+    BorderSpacing.InnerBorder = 4
+    Caption = 'Execute'
+    OnClick = btnExecClick
+    TabOrder = 2
+  end
+  object mmoLog: TMemo
+    Height = 180
+    Top = 120
+    Width = 528
+    Align = alBottom
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    Font.CharSet = ANSI_CHARSET
+    Font.Color = clBlack
+    Font.Height = -19
+    Font.Name = 'Courier New'
+    Font.Pitch = fpFixed
+    Lines.Strings = (
+      ''
+    )
+    ScrollBars = ssBoth
+    TabOrder = 3
+  end
+  object edtFormat: TEdit
+    Left = 288
+    Height = 23
+    Top = 50
+    Width = 80
+    TabOrder = 4
+    Text = 'SOAP'
+  end
+  object btnInit: TButton
+    Left = 384
+    Height = 25
+    Top = 48
+    Width = 75
+    BorderSpacing.InnerBorder = 4
+    Caption = 'Init Obj'
+    OnClick = btnInitClick
+    TabOrder = 5
+  end
+  object btnClearLog: TButton
+    Left = 384
+    Height = 25
+    Top = 80
+    Width = 75
+    BorderSpacing.InnerBorder = 4
+    Caption = 'Clear Log'
+    OnClick = btnClearLogClick
+    TabOrder = 6
+  end
+  object edtAddress: TEdit
+    Left = 80
+    Height = 23
+    Top = 11
+    Width = 288
+    TabOrder = 7
+    Text = 'http:Address=http://127.0.0.1:8000/services/ICalculator'
+  end
+end