|
1 | | -object Form1: TForm1 |
2 | | - Left = 387 |
3 | | - Top = 223 |
4 | | - Caption = 'Demo of Python' |
5 | | - ClientHeight = 336 |
6 | | - ClientWidth = 528 |
7 | | - Color = clBtnFace |
8 | | - Font.Charset = DEFAULT_CHARSET |
9 | | - Font.Color = clWindowText |
10 | | - Font.Height = -11 |
11 | | - Font.Name = 'MS Sans Serif' |
12 | | - Font.Style = [] |
13 | | - OldCreateOrder = True |
14 | | - OnClose = FormClose |
15 | | - PixelsPerInch = 96 |
16 | | - TextHeight = 13 |
17 | | - object Memo1: TMemo |
18 | | - Left = 0 |
19 | | - Top = 0 |
20 | | - Width = 528 |
21 | | - Height = 292 |
22 | | - Align = alClient |
23 | | - Font.Charset = DEFAULT_CHARSET |
24 | | - Font.Color = clWindowText |
25 | | - Font.Height = -13 |
26 | | - Font.Name = 'Consolas' |
27 | | - Font.Style = [] |
28 | | - Lines.Strings = ( |
29 | | - 'import threading' |
30 | | - 'import sys' |
31 | | - 'try:' |
32 | | - ' count = int(sys.argv[1])' |
33 | | - 'except:' |
34 | | - ' count = 3' |
35 | | - '' |
36 | | - 'for i in range(count):' |
37 | | - ' print ("**** Pass", i)' |
38 | | - ' threading._test()' |
39 | | - 'print ("**** Done.")') |
40 | | - ParentFont = False |
41 | | - ScrollBars = ssBoth |
42 | | - TabOrder = 1 |
43 | | - end |
44 | | - object Panel1: TPanel |
45 | | - Left = 0 |
46 | | - Top = 292 |
47 | | - Width = 528 |
48 | | - Height = 44 |
49 | | - Align = alBottom |
50 | | - BevelOuter = bvNone |
51 | | - TabOrder = 0 |
52 | | - object Button1: TButton |
53 | | - Left = 6 |
54 | | - Top = 8 |
55 | | - Width = 115 |
56 | | - Height = 25 |
57 | | - Caption = 'Execute script' |
58 | | - TabOrder = 0 |
59 | | - OnClick = Button1Click |
60 | | - end |
61 | | - object Button2: TButton |
62 | | - Left = 168 |
63 | | - Top = 8 |
64 | | - Width = 91 |
65 | | - Height = 25 |
66 | | - Caption = 'Load script...' |
67 | | - TabOrder = 1 |
68 | | - OnClick = Button2Click |
69 | | - end |
70 | | - object Button3: TButton |
71 | | - Left = 264 |
72 | | - Top = 8 |
73 | | - Width = 89 |
74 | | - Height = 25 |
75 | | - Caption = 'Save script...' |
76 | | - TabOrder = 2 |
77 | | - OnClick = Button3Click |
78 | | - end |
79 | | - end |
80 | | - object PythonEngine1: TPythonEngine |
81 | | - UseWindowsConsole = True |
82 | | - Left = 32 |
83 | | - end |
84 | | - object OpenDialog1: TOpenDialog |
85 | | - DefaultExt = '*.py' |
86 | | - Filter = 'Python files|*.py|Text files|*.txt|All files|*.*' |
87 | | - Left = 176 |
88 | | - end |
89 | | - object SaveDialog1: TSaveDialog |
90 | | - DefaultExt = '*.py' |
91 | | - Filter = 'Python files|*.py|Text files|*.txt|All files|*.*' |
92 | | - Left = 208 |
93 | | - end |
94 | | -end |
| 1 | +object Form1: TForm1 |
| 2 | + Left = 387 |
| 3 | + Top = 223 |
| 4 | + Caption = 'Demo of Python' |
| 5 | + ClientHeight = 336 |
| 6 | + ClientWidth = 528 |
| 7 | + Color = clBtnFace |
| 8 | + Font.Charset = DEFAULT_CHARSET |
| 9 | + Font.Color = clWindowText |
| 10 | + Font.Height = -11 |
| 11 | + Font.Name = 'MS Sans Serif' |
| 12 | + Font.Style = [] |
| 13 | + OldCreateOrder = True |
| 14 | + OnClose = FormClose |
| 15 | + PixelsPerInch = 96 |
| 16 | + TextHeight = 13 |
| 17 | + object Memo1: TMemo |
| 18 | + Left = 0 |
| 19 | + Top = 0 |
| 20 | + Width = 528 |
| 21 | + Height = 292 |
| 22 | + Align = alClient |
| 23 | + Font.Charset = DEFAULT_CHARSET |
| 24 | + Font.Color = clWindowText |
| 25 | + Font.Height = -13 |
| 26 | + Font.Name = 'Consolas' |
| 27 | + Font.Style = [] |
| 28 | + Lines.Strings = ( |
| 29 | + 'import threading_test' |
| 30 | + '' |
| 31 | + 'import sys' |
| 32 | + '# the following is needed to use the newly allocated console!' |
| 33 | + 'sys.stdout = sys.stderr= open('#39'CONOUT$'#39', '#39'wt'#39')' |
| 34 | + '' |
| 35 | + 'try:' |
| 36 | + ' count = int(sys.argv[1])' |
| 37 | + 'except:' |
| 38 | + ' count = 3' |
| 39 | + '' |
| 40 | + 'for i in range(count):' |
| 41 | + ' print ("**** Pass", i)' |
| 42 | + ' threading_test._test()' |
| 43 | + 'print ("**** Done.")') |
| 44 | + ParentFont = False |
| 45 | + ScrollBars = ssBoth |
| 46 | + TabOrder = 1 |
| 47 | + end |
| 48 | + object Panel1: TPanel |
| 49 | + Left = 0 |
| 50 | + Top = 292 |
| 51 | + Width = 528 |
| 52 | + Height = 44 |
| 53 | + Align = alBottom |
| 54 | + BevelOuter = bvNone |
| 55 | + TabOrder = 0 |
| 56 | + object Button1: TButton |
| 57 | + Left = 6 |
| 58 | + Top = 8 |
| 59 | + Width = 115 |
| 60 | + Height = 25 |
| 61 | + Caption = 'Execute script' |
| 62 | + TabOrder = 0 |
| 63 | + OnClick = Button1Click |
| 64 | + end |
| 65 | + object Button2: TButton |
| 66 | + Left = 168 |
| 67 | + Top = 8 |
| 68 | + Width = 91 |
| 69 | + Height = 25 |
| 70 | + Caption = 'Load script...' |
| 71 | + TabOrder = 1 |
| 72 | + OnClick = Button2Click |
| 73 | + end |
| 74 | + object Button3: TButton |
| 75 | + Left = 264 |
| 76 | + Top = 8 |
| 77 | + Width = 89 |
| 78 | + Height = 25 |
| 79 | + Caption = 'Save script...' |
| 80 | + TabOrder = 2 |
| 81 | + OnClick = Button3Click |
| 82 | + end |
| 83 | + end |
| 84 | + object PythonEngine1: TPythonEngine |
| 85 | + UseWindowsConsole = True |
| 86 | + Left = 32 |
| 87 | + end |
| 88 | + object OpenDialog1: TOpenDialog |
| 89 | + DefaultExt = '*.py' |
| 90 | + Filter = 'Python files|*.py|Text files|*.txt|All files|*.*' |
| 91 | + Left = 176 |
| 92 | + end |
| 93 | + object SaveDialog1: TSaveDialog |
| 94 | + DefaultExt = '*.py' |
| 95 | + Filter = 'Python files|*.py|Text files|*.txt|All files|*.*' |
| 96 | + Left = 208 |
| 97 | + end |
| 98 | +end |
0 commit comments