mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-25 02:32:19 -05:00
Testing linux commit
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@157 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond
parent
ce2ca537cd
commit
8538097e9d
File diff suppressed because it is too large
Load Diff
@ -1,10 +1,11 @@
|
|||||||
object Form1: TForm1
|
object Form1: TForm1
|
||||||
Left = 436
|
Left = 549
|
||||||
Height = 553
|
Height = 553
|
||||||
Top = 152
|
Top = 152
|
||||||
Width = 723
|
Width = 723
|
||||||
|
ActiveControl = PanelSynedit
|
||||||
Caption = 'Mufasa v2'
|
Caption = 'Mufasa v2'
|
||||||
ClientHeight = 533
|
ClientHeight = 528
|
||||||
ClientWidth = 723
|
ClientWidth = 723
|
||||||
Menu = MainMenu1
|
Menu = MainMenu1
|
||||||
OnClose = FormClose
|
OnClose = FormClose
|
||||||
@ -169,8 +170,8 @@ object Form1: TForm1
|
|||||||
end
|
end
|
||||||
object StatusBar: TStatusBar
|
object StatusBar: TStatusBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 23
|
Height = 21
|
||||||
Top = 510
|
Top = 507
|
||||||
Width = 723
|
Width = 723
|
||||||
Panels = <
|
Panels = <
|
||||||
item
|
item
|
||||||
@ -208,7 +209,7 @@ object Form1: TForm1
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
BookMarkOptions.OnChange = nil
|
BookMarkOptions.OnChange = nil
|
||||||
Gutter.Width = 57
|
Gutter.Width = 59
|
||||||
Gutter.MouseActions = <
|
Gutter.MouseActions = <
|
||||||
item
|
item
|
||||||
Shift = []
|
Shift = []
|
||||||
@ -790,7 +791,7 @@ object Form1: TForm1
|
|||||||
Width = 23
|
Width = 23
|
||||||
end
|
end
|
||||||
object TSynGutterLineNumber
|
object TSynGutterLineNumber
|
||||||
Width = 17
|
Width = 19
|
||||||
MouseActions = <>
|
MouseActions = <>
|
||||||
MarkupInfo.Background = clBtnFace
|
MarkupInfo.Background = clBtnFace
|
||||||
MarkupInfo.Foreground = clNone
|
MarkupInfo.Foreground = clNone
|
||||||
@ -896,17 +897,17 @@ object Form1: TForm1
|
|||||||
end
|
end
|
||||||
object PanelMemo: TPanel
|
object PanelMemo: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 150
|
Height = 147
|
||||||
Top = 360
|
Top = 360
|
||||||
Width = 723
|
Width = 723
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||||
ClientHeight = 150
|
ClientHeight = 147
|
||||||
ClientWidth = 723
|
ClientWidth = 723
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
object Memo1: TMemo
|
object Memo1: TMemo
|
||||||
Left = 1
|
Left = 1
|
||||||
Height = 148
|
Height = 145
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 721
|
Width = 721
|
||||||
Align = alClient
|
Align = alClient
|
||||||
@ -932,42 +933,6 @@ object Form1: TForm1
|
|||||||
OnClick = MenuFileClick
|
OnClick = MenuFileClick
|
||||||
object MenuItemNew: TMenuItem
|
object MenuItemNew: TMenuItem
|
||||||
Caption = 'New'
|
Caption = 'New'
|
||||||
Bitmap.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000064000000640000000000000000000000FFFFFF00BB6A
|
|
||||||
346BBA6530BCBB6631EDBA6630F7BA6630F7BA6630F7BA6530F7BA652FF7B965
|
|
||||||
2EF7B9652EF7B9642EF7B9642EEFB7622CBDB7622E63FFFFFF00FFFFFF00BC69
|
|
||||||
33DEF8F1EAF2F7ECDFFDF6EBDEFFF6EADEFFF6EADCFFF6EADCFFFAF3EBFFFAF3
|
|
||||||
EBFFFAF2EAFFFCF7F3FFFCF8F4FDFEFEFDF0B7602AD5FFFFFF00FFFFFF00BF71
|
|
||||||
38F5F5EBDFFEFDBF68FFFCBD67FFFBBE65FFFCBE64FFFCBE64FFFCBD62FFFBBD
|
|
||||||
63FFFBBC61FFFCBE60FFFCBC62FFFDFBF8FDB9642DF3FFFFFF00FFFFFF00C178
|
|
||||||
3CF7F7EDE3FFFDC26EFFFFD8A0FFFFD79EFFFFD69BFFFFD798FFFFD696FFFFD6
|
|
||||||
95FFFFD594FFFFD493FFFBBE65FFFBF7F4FFBB6731F7FFFFFF00FFFFFF00C47C
|
|
||||||
40F7F7F0E6FFF8B455FFF7B456FFF7B554FFF8B453FFF8B253FFF7B352FFF7B3
|
|
||||||
52FFF7B251FFF7B24FFFF7B24FFFFCF9F5FFBF6F36F7FFFFFF00FFFFFF00C580
|
|
||||||
42F7F8F1E8FFFEE5D5FFFDE5D3FFFDE5D3FFFCE5D3FFFCE5D3FFFCE4D1FFFCE2
|
|
||||||
CEFFFCE2CCFFFBE0C9FFFBE1C8FFFDFAF7FFC1763BF7FFFFFF00FFFFFF00C582
|
|
||||||
45F7F8F2EBFFFEE7D6FFFDE7D6FFFDE7D6FFFDE7D6FFFDE6D5FFFDE5D3FFFCE4
|
|
||||||
D1FFFCE2CDFFFBE1CBFFFBE1C9FFFBF7F2FFC57C3FF7FFFFFF00FFFFFF00C684
|
|
||||||
47F7F9F3ECFFFEE8D6FFFEE8D7FFFDE7D6FFFDE7D6FFFDE7D5FFFDE5D3FFFBE4
|
|
||||||
D0FFFBE3CCFFFADFC7FFFADFC6FFFAF2EAFFC68042F7FFFFFF00FFFFFF00C688
|
|
||||||
49F7F9F4EDFFFEE8D8FFFEE8D8FFFEE8D7FFFEE7D6FFFDE5D3FFFCE4D1FFFBE1
|
|
||||||
CCFFFAE0C7FFF9DDC3FFF8DCC2FFFAF4EDFFC68245F7FFFFFF00FFFFFF00C688
|
|
||||||
4AF7F9F4EFFFFEE7D7FFFDE7D6FFFDE7D5FFFDE6D4FFFCE6D2FFFBE1CCFFFADF
|
|
||||||
C7FFF8DCC2FFF6DABDFFF6D8BBFFFAF4EFFFC68346F7FFFFFF00FFFFFF00C689
|
|
||||||
4BF7F9F4F0FFFCE6D3FFFCE6D4FFFDE7D3FFFCE4D1FFFBE3CDFFFAE0C8FFF8DC
|
|
||||||
C2FFF5D6BBFFF3D4B5FFF1D2B3FFF8F4F0FFC48246F7FFFFFF00FFFFFF00C689
|
|
||||||
4BF7F9F5F1FFFCE3CFFFFBE4D0FFFCE4CFFFFCE3CDFFFAE1CAFFF9DDC4FFF6D9
|
|
||||||
BCFFF4E9DFFFF7F2ECFFFBF7F3FFF5EFE9FFC27E45FBFFFFFF00FFFFFF00C689
|
|
||||||
4CF6F9F5F1FFFCE3CDFFFBE3CEFFFBE3CDFFFBE2CBFFF9E0C8FFF8DCC2FFF5D6
|
|
||||||
BAFFFDFBF8FFFCE6CDFFFAE5C9FFE2B684FFBF7942A6FFFFFF00FFFFFF00C588
|
|
||||||
4BEAFAF6F2FCFAE0C7FFFBE1C9FFFBE2C9FFFBE0C8FFF9DFC5FFF8DBC1FFF4D6
|
|
||||||
B8FFFFFBF8FFF6D8B4FFE1B07DFFDB9264F6B46B3E07FFFFFF00FFFFFF00C485
|
|
||||||
49C3F7F2ECECF8F4EEFCF8F4EDFFF8F3EDFFF8F3EDFFF8F3EDFFF8F2ECFFF7F2
|
|
||||||
ECFFF2E6D7FFE2B27DFFDB9465F5B3683B07FFFFFF00FFFFFF00FFFFFF00C17D
|
|
||||||
4460C88B4DBBC88C4FEEC88C4FF6C88C4FF7C88C4FF7C88D4FF7C98C4FF7C78B
|
|
||||||
4FF7C5894BD4C4763B91B3683C06FFFFFF00FFFFFF00FFFFFF00
|
|
||||||
}
|
|
||||||
ImageIndex = 9
|
ImageIndex = 9
|
||||||
ShortCut = 16462
|
ShortCut = 16462
|
||||||
SubMenuImages = Mufasa_Image_List
|
SubMenuImages = Mufasa_Image_List
|
||||||
@ -975,84 +940,12 @@ object Form1: TForm1
|
|||||||
end
|
end
|
||||||
object MenuItemOpen: TMenuItem
|
object MenuItemOpen: TMenuItem
|
||||||
Caption = 'Open'
|
Caption = 'Open'
|
||||||
Bitmap.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
20000000000000040000640000006400000000000000000000002C86D8D12D88
|
|
||||||
D8F72D87D8F72D88D8F72D88D8F72D88D8F72D88D8F72D88D8F72D88D8F72D88
|
|
||||||
D8F72D88D8F72D87D8F72D88D8F72C86D8D1FFFFFF00FFFFFF00338ED9FBDCF0
|
|
||||||
FAFF98E1F6FF95E0F6FF92DFF6FF8EDEF5FF89DCF5FF85DAF4FF80D9F4FF7AD7
|
|
||||||
F3FF74D5F3FF70D3F2FFC2EAF8FF3594DAFFFFFFFF00FFFFFF003594DAF7EFFA
|
|
||||||
FEFF93E5F8FF8FE4F8FF89E3F8FF82E1F7FF7ADFF7FF71DEF6FF67DBF5FF5BD8
|
|
||||||
F4FF4DD4F3FF40D1F2FFCAF2FBFF3594DAFFFFFFFF00FFFFFF00369ADAF8F2FA
|
|
||||||
FDFF94E6F8FF92E5F8FF90E5F8FF8BE3F8FF86E2F7FF7FE1F7FF77DEF6FF6CDC
|
|
||||||
F6FF5ED9F4FF4FD5F3FFCCF2FBFF3594DAFFFFFFFF00FFFFFF0036A1DAF9F6FC
|
|
||||||
FEFF94E5F8FF93E5F8FF93E5F8FF91E5F8FF93DBE9FF93D7E3FF93D2DCFF90CE
|
|
||||||
D7FF8CC8CFFF86C1C6FFC9D8D6FF3594DAFFC57444E8CA7F53F137A6DAFAFEFF
|
|
||||||
FFFFF8FDFFFFF6FDFFFFF5FCFFFFF3FCFEFF9AE4F4FF9AE6F7FF9BE6F6FF9DE5
|
|
||||||
F5FF9EE5F5FF9FE5F4FFDAF3F8FF3594DAFFFDF4EEFFCA8054F935ABDAFAE8F6
|
|
||||||
FBFF70BCE7FF55AAE2FF4DA5E0FF91C9EBFFFAF3EFFFFDFEFDFFFFFDFCFFFFFD
|
|
||||||
FCFFFEFDFCFFFEFCFBFFFEFEFDFF3594DAFFEFF2E8FFCE8156FF36AADAF2F1FA
|
|
||||||
FDFF94DEF5FF93DCF4FF64BCE9FF3594DAFF3594DAFF3594DAFF3594DAFF3594
|
|
||||||
DAFF3594DAFF3594DAFF3594DAFF3594DAFFFBF6EFFFCC8355FE35AFDAF0F7FC
|
|
||||||
FEFF8EE4F8FF91DEF5FF9FE0F5FFACE1F6FFCA8452FFFFF7F1FFFFE9D9FFFFEA
|
|
||||||
DBFFFFE9D9FFFFE7D7FFFFE5D2FFFFE2CBFFFFF7F1FFCB8555FE36B3DAF8FDFE
|
|
||||||
FEFFFEFFFFFFFEFEFFFFFDFEFFFFFEFFFFFFE4BA91FFFFF7F0FFFFE7D5FFFDE7
|
|
||||||
D6FFFDE6D4FFFCE4D0FFFBE3CBFFFADCC2FFFEF3E8FFCC8656FE34B4D9D05EC2
|
|
||||||
E1FA60C3E2FA60C3E2FA60C3E2FA5FC3E2FAE4BB91FFFFF7F2FFFEE7D5FFFEE7
|
|
||||||
D5FFFDE5D1FFFAE0CAFFF9DEC4FFF7D9BCFFFDF2E7FFCC8757FEFFFFFF00FFFF
|
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E4BB92FFFEF7F1FFFCE5D2FFFCE4
|
|
||||||
D1FFFBE2CCFFF9DDC4FFF6D7BBFFF3D1AFFFFAEFE4FFCC8758FEFFFFFF00FFFF
|
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E4BB92FFFEF6F0FFFCE2CDFFFCE3
|
|
||||||
CDFFFADFC8FFF7D9BCFFF5E9DDFFFAF3EBFFFBF8F3FFCA8353FEFFFFFF00FFFF
|
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E4BB93FFFEF5EDFFFCDEC5FFFBE0
|
|
||||||
C7FFF9DCC2FFF5D3B4FFFEF9F3FFFAE2C4FFECC193FFC37D4893FFFFFF00FFFF
|
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E5BE96FFFFFFFEFFFDF3E9FFFDF3
|
|
||||||
EAFFFCF2E8FFFAEFE3FFFAF2E7FFEABB88FFCF8555B3B4693D0CFFFFFF00FFFF
|
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EAC39DFFE6BF96FFE4BB92FFE4BB
|
|
||||||
92FFD1A06CF5D09E6DF6CC965FDAC479427EB2673C09FFFFFF00
|
|
||||||
}
|
|
||||||
ImageIndex = 10
|
ImageIndex = 10
|
||||||
ShortCut = 16463
|
ShortCut = 16463
|
||||||
OnClick = MenuItemOpenClick
|
OnClick = MenuItemOpenClick
|
||||||
end
|
end
|
||||||
object MenuItemSave: TMenuItem
|
object MenuItemSave: TMenuItem
|
||||||
Caption = 'Save'
|
Caption = 'Save'
|
||||||
Bitmap.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000064000000640000000000000000000000BA6A368FB969
|
|
||||||
35B5B86935EEB76835FFB56835FFB46734FFB26634FFB06533FFAE6433FFAC63
|
|
||||||
32FFAA6232FFA96132FFA86031FFA76031FEA66031F1A86131C4BA6A35DEEBC6
|
|
||||||
ADFFEAC5ADFFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFB
|
|
||||||
F8FFFEFBF8FFFEFBF8FFFEFBF8FFC89A7CFFC79879FFA76031EDBA6B37FEEDCA
|
|
||||||
B3FFE0A27AFFFEFAF7FF62C088FF62C088FF62C088FF62C088FF62C088FF62C0
|
|
||||||
88FF62C088FF62C088FFFDF9F6FFCA8D65FFC99B7CFFA76031FEBB6C38FFEECC
|
|
||||||
B6FFE1A27AFFFEFAF7FFBFDCC2FFBFDCC2FFBFDCC2FFBFDCC2FFBFDCC2FFBFDC
|
|
||||||
C2FFBFDCC2FFBFDCC2FFFDF9F6FFCD9068FFCC9E81FFA86132FFBB6B38FFEFCE
|
|
||||||
B8FFE1A279FFFEFAF7FF62C088FF62C088FF62C088FF62C088FF62C088FF62C0
|
|
||||||
88FF62C088FF62C088FFFDF9F6FFCF936AFFCEA384FFAA6132FFBA6A36FFEFD0
|
|
||||||
BBFFE2A27AFFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFBF8FFFEFB
|
|
||||||
F8FFFEFBF8FFFEFBF8FFFEFBF8FFD3966DFFD2A78AFFAB6232FFBB6A36FFF0D2
|
|
||||||
BEFFE2A37AFFE2A37AFFE1A37AFFE2A37BFFE1A37BFFE0A178FFDE9F77FFDD9F
|
|
||||||
76FFDC9D74FFD99B72FFD89971FFD69970FFD5AB8EFFAD6333FFBB6A36FFF2D5
|
|
||||||
C2FFE3A37AFFE3A37AFFE2A37BFFE2A37BFFE2A47BFFE1A279FFE0A178FFDEA0
|
|
||||||
77FFDE9E75FFDC9D74FFDA9B73FFD99B73FFDAB095FFAF6433FFBB6A36FFF2D8
|
|
||||||
C5FFE3A47BFFE3A37AFFE3A47AFFE2A47BFFE2A37BFFE1A37BFFE1A279FFDFA0
|
|
||||||
77FFDE9F76FFDD9E74FFDB9C72FFDC9D74FFDDB59AFFB16534FFBB6B36FFF4D9
|
|
||||||
C7FFE6A67DFFC88C64FFC98D65FFC98E67FFCB926CFFCB926DFFCA9069FFC88C
|
|
||||||
65FFC88C64FFC88C64FFC88C64FFDA9C74FFE1BA9FFFB36634FFBB6B36FEF4DC
|
|
||||||
C9FFE7A77DFFF9ECE1FFF9ECE1FFF9EDE3FFFCF4EEFFFDFAF7FFFDF7F3FFFAED
|
|
||||||
E5FFF7E7DBFFF7E5D9FFF6E5D8FFDEA077FFE4BEA4FFB46734FFBC6B36FAF5DD
|
|
||||||
CCFFE7A87EFFFAF0E8FFFAF0E8FFC98D66FFFAF0E9FFFDF8F3FFFEFAF8FFFCF4
|
|
||||||
EFFFF9E9DFFFF7E7DBFFF7E5D9FFE0A278FFE7C2A9FFB66835FFBC6B36F0F6DF
|
|
||||||
D0FFE8A87EFFFCF6F1FFFCF6F1FFC88C64FFFAF1E9FFFBF4EEFFFDFAF7FFFDF9
|
|
||||||
F6FFFAF0E8FFF8E8DDFFF7E6DBFFE1A37AFFEFD5C3FFB76935FEBC6B36D8F6DF
|
|
||||||
D1FFE9AA80FFFEFAF6FFFDFAF6FFC88C64FFFBF3EEFFFBF1EAFFFCF6F2FFFEFB
|
|
||||||
F8FFFCF6F1FFF9ECE2FFF8E7DBFFEED0BAFFECD0BDFFBB703EF8BC6B369BF6E0
|
|
||||||
D1FFF7E0D1FFFEFBF8FFFEFBF7FFFDF9F6FFFCF5F0FFFAF0EAFFFBF2EDFFFDF9
|
|
||||||
F6FFFDFAF7FFFBF1EBFFF8E9DFFEECD0BDFBC9895EECB5693563BC6B3671BC6B
|
|
||||||
3690BC6B36CCBC6B36EEBC6B36FABB6B36FEBB6B36FFBB6A36FFBB6A36FFBC6C
|
|
||||||
39FFBD6E3BFFBB6D3AFFBB6B38EFBB703ECBB6693554FFFFFF00
|
|
||||||
}
|
|
||||||
ImageIndex = 14
|
ImageIndex = 14
|
||||||
ShortCut = 16467
|
ShortCut = 16467
|
||||||
OnClick = MenuItemSaveClick
|
OnClick = MenuItemSaveClick
|
||||||
@ -1068,168 +961,24 @@ object Form1: TForm1
|
|||||||
OnClick = MenuEditClick
|
OnClick = MenuEditClick
|
||||||
object MenuItemUndo: TMenuItem
|
object MenuItemUndo: TMenuItem
|
||||||
Caption = 'Undo'
|
Caption = 'Undo'
|
||||||
Bitmap.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000064000000640000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
00000000000018A6C3691AA7C46900A0C4180000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
00000000000000A0C45D66DBEAB211A6C2AE0000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
00000000000000A0C42243C4DBFC43C5D8FE23A6C07F00000000000000000000
|
|
||||||
00000000000000000000000000000000000000A0C4FF00000000000000000000
|
|
||||||
000000000000000000000EAACBFE5DDAE9FE23A6C0EF00000000000000000000
|
|
||||||
000000000000000000000000000000A0C4FF00A0C4FF00000000000000000000
|
|
||||||
000000000000009EC11A02ACC8FF88E7F2FE11A2C2FF00000000000000000000
|
|
||||||
00000000000005797D1100A0C4FF76EDFBFF00A0C4FF000000000000000000A0
|
|
||||||
C4300099B95000A0C4C96DE6F5FF76E2EFFF19A3C1FF00000000000000000000
|
|
||||||
000005797D1100A0C4FF76EDFBFF76EDFBFF00A0C4FF00A0C4FF00A0C4FF00A0
|
|
||||||
C4FF01A9C4FF6EE1EEFF0FC9DFFF69E4F2FF1AA4C0F800000000000000000579
|
|
||||||
7D1100A0C4FF76EDFBFF04C3DAFF76EDFBFF69EAF9FF69EAF9FF69EAF9FF69EA
|
|
||||||
F9FF05DDF7FF0AC8DFFF07C2D8FF6FDCEBFF1BA3BFF40000000005797E1100A0
|
|
||||||
C4FF79EDFBFF32E2F8FF2CDFF4FF04C0D6FF04C0D6FF04C0D6FF1DD2E8FF1DD2
|
|
||||||
E8FF1DD2E8FF0BC8DFFF6AE5F3FF1BABC5F815A0BCCB0000000000A0C4FFADF3
|
|
||||||
FBFF2FE0F6FF32E2F8FF32E2F7FF32E2F7FF2FE0F5FF29DBF1FF1DD2E8FF1DD2
|
|
||||||
E8FF1DD2E8FF36D9ECFF40CDE1FF16A1BDCA05797D0A0000000005797D0A00A0
|
|
||||||
C4FFADF3FBFF2FE0F6FF32E2F7FF29DBF1FF2FE0F5FF29DBF1FF16CDE3FF36D9
|
|
||||||
ECFF69E7F6FF41CEE3FE13A3C1E405797D320000000000000000000000000579
|
|
||||||
7D1100A0C4FFADF3FBFF31E1F6FF20E3FAFF73ECFAFF6FEBFAFF6EE8F7FF6CE8
|
|
||||||
F7F814A1BCD414A3C1D505797D1C000000000000000000000000000000000000
|
|
||||||
000005797D1100A0C4FFADF3FBFF25E4FBFF00A0C4FF00A0C4FF13A1BEE7159F
|
|
||||||
BBCF1BA1BBA4067A7C0B00000000000000000000000000000000000000000000
|
|
||||||
00000000000005797D1100A0C4FFADF3FBFF00A0C4FF00000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
00000000000000000000009DBF1400A0C4FF00A0C4FF00000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
00000000000000000000000000000000000000A0C4FF00000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000
|
|
||||||
}
|
|
||||||
ImageIndex = 18
|
ImageIndex = 18
|
||||||
ShortCut = 16474
|
ShortCut = 16474
|
||||||
OnClick = MenuItemUndoClick
|
OnClick = MenuItemUndoClick
|
||||||
end
|
end
|
||||||
object MenuItemRedo: TMenuItem
|
object MenuItemRedo: TMenuItem
|
||||||
Caption = 'Redo'
|
Caption = 'Redo'
|
||||||
Bitmap.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000064000000640000000000000000000000FFFFFF000000
|
|
||||||
000000A0C4181AA7C46918A6C369000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000FFFFFF000000
|
|
||||||
000011A6C2AE66DBEAB200A0C45D000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000FFFFFF0023A6
|
|
||||||
C07F43C5D8FE43C4DBFC00A0C422000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000FFFFFF0023A6
|
|
||||||
C0EF5DDAE9FE0EAACBFE000000000000000000000000000000000000000000A0
|
|
||||||
C4FF000000000000000000000000000000000000000000000000FFFFFF0011A2
|
|
||||||
C2FF88E7F2FE02ACC8FF009EC11A0000000000000000000000000000000000A0
|
|
||||||
C4FF00A0C4FF0000000000000000000000000000000000000000FFFFFF0019A3
|
|
||||||
C1FF76E2EFFF6DE6F5FF00A0C4C90099B95000A0C430000000000000000000A0
|
|
||||||
C4FF76EDFBFF00A0C4FF05797D11000000000000000000000000FFFFFF001AA4
|
|
||||||
C0F869E4F2FF0FC9DFFF6EE1EEFF01A9C4FF00A0C4FF00A0C4FF00A0C4FF00A0
|
|
||||||
C4FF76EDFBFF76EDFBFF00A0C4FF05797D110000000000000000FFFFFF001BA3
|
|
||||||
BFF46FDCEBFF07C2D8FF0AC8DFFF05DDF7FF69EAF9FF69EAF9FF69EAF9FF69EA
|
|
||||||
F9FF76EDFBFF04C3DAFF76EDFBFF00A0C4FF05797D1100000000FFFFFF0015A0
|
|
||||||
BCCB1BABC5F86AE5F3FF0BC8DFFF1DD2E8FF1DD2E8FF1DD2E8FF04C0D6FF04C0
|
|
||||||
D6FF04C0D6FF2CDFF4FF32E2F8FF79EDFBFF00A0C4FF05797E11FFFFFF000579
|
|
||||||
7D0A16A1BDCA40CDE1FF36D9ECFF1DD2E8FF1DD2E8FF1DD2E8FF29DBF1FF2FE0
|
|
||||||
F5FF32E2F7FF32E2F7FF32E2F8FF2FE0F6FFADF3FBFF00A0C4FFFFFFFF000000
|
|
||||||
000005797D3213A3C1E441CEE3FE69E7F6FF36D9ECFF16CDE3FF29DBF1FF2FE0
|
|
||||||
F5FF29DBF1FF32E2F7FF2FE0F6FFADF3FBFF00A0C4FF05797D0AFFFFFF000000
|
|
||||||
00000000000005797D1C14A3C1D514A1BCD46CE8F7F86EE8F7FF6FEBFAFF73EC
|
|
||||||
FAFF20E3FAFF31E1F6FFADF3FBFF00A0C4FF05797D1100000000FFFFFF000000
|
|
||||||
00000000000000000000067A7C0B1BA1BBA4159FBBCF13A1BEE700A0C4FF00A0
|
|
||||||
C4FF25E4FBFFADF3FBFF00A0C4FF05797D110000000000000000FFFFFF000000
|
|
||||||
00000000000000000000000000000000000000000000000000000000000000A0
|
|
||||||
C4FFADF3FBFF00A0C4FF05797D11000000000000000000000000FFFFFF000000
|
|
||||||
00000000000000000000000000000000000000000000000000000000000000A0
|
|
||||||
C4FF00A0C4FF009DBF1400000000000000000000000000000000FFFFFF000000
|
|
||||||
00000000000000000000000000000000000000000000000000000000000000A0
|
|
||||||
C4FF000000000000000000000000000000000000000000000000
|
|
||||||
}
|
|
||||||
ImageIndex = 12
|
ImageIndex = 12
|
||||||
ShortCut = 24666
|
ShortCut = 24666
|
||||||
OnClick = MenuItemRedoClick
|
OnClick = MenuItemRedoClick
|
||||||
end
|
end
|
||||||
object MenuItemCut: TMenuItem
|
object MenuItemCut: TMenuItem
|
||||||
Caption = 'Cut'
|
Caption = 'Cut'
|
||||||
Bitmap.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00020D8C0A1C27A69F353F
|
|
||||||
C9F7222DAFB9030D8C1CFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
|
||||||
FF00FFFFFF00050F8D1F06108E26010B8A03FFFFFF00121C9B70404BD9FF2C35
|
|
||||||
BFDD3D47D1FF1D27A9A4FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
|
||||||
FF000F199763323DC7F83741CFFF1F29ABB0000A8618232DB4AF3540CCFD0009
|
|
||||||
85181C27A895343EC5F8040E8C14FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
|
||||||
FF002F3ABDDE353FC9E52530B3C23F4ADDFF1F2AACC22430B2CB323CC6F2000A
|
|
||||||
8603111B9D773741C8FF08128E20FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
|
||||||
FF00323CC3EC232EADAFFFFFFF001A25A8994250D2FFCBA375FE414FD6FF1621
|
|
||||||
A39D2F39C0D42E38BEDF020D8B0AFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
|
||||||
FF001D28A99C3B46CCFF0812903A071190533B48D4FFDBBD9CFFEECCA6FF404C
|
|
||||||
DEFF3A43D1FF0F199869FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
|
||||||
FF00030D8C1F2C35B9D73C46CFFF333ECAF23F4CD7FFD8BC9AFFF6EAE1FFBB92
|
|
||||||
5ABF9462183B91611A01FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
|
||||||
FF00FFFFFF00030D8C1F1B26A7992A34BACC111C9D89BB9869CCF0E0D0FFB791
|
|
||||||
5FC58F5D140BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00000B8802FFFFFF00B48E5A90F6EADDFFE1CD
|
|
||||||
B4FFB18D5DBFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B38C5789F1E2D4FFCEB2
|
|
||||||
8EF4F5EBE0FFA67F4A9DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B1895384EEDFCEFF9766
|
|
||||||
2065C2A37CDAE9D8C5FDA9824E7BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AF87507CE7D5C1FF9565
|
|
||||||
1F2B8F5C121BC5A783E7D5BC9DE1B5936462FFFFFF00FFFFFF00FFFFFF00FFFF
|
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AC834B75DEC9AFFF9564
|
|
||||||
1D1FFFFFFF0092601726C3A47CEBB59063CBFFFFFF00FFFFFF00FFFFFF00FFFF
|
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AA81476FD6BD9FF79361
|
|
||||||
1910FFFFFF00FFFFFF009666202CA9804BCBFFFFFF00FFFFFF00FFFFFF00FFFF
|
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A87D4269CCB08BE0915D
|
|
||||||
1409FFFFFF00FFFFFF00FFFFFF0092601706FFFFFF00FFFFFF00FFFFFF00FFFF
|
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF009A6B2731AA7E43A19260
|
|
||||||
1805FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
|
||||||
}
|
|
||||||
ImageIndex = 3
|
ImageIndex = 3
|
||||||
ShortCut = 16472
|
ShortCut = 16472
|
||||||
OnClick = MenuItemCutClick
|
OnClick = MenuItemCutClick
|
||||||
end
|
end
|
||||||
object MenuItemPaste: TMenuItem
|
object MenuItemPaste: TMenuItem
|
||||||
Caption = 'Paste'
|
Caption = 'Paste'
|
||||||
Bitmap.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF005E5E5E025B5B5B775858588A5555558A5252
|
|
||||||
528A4F4F4F8A4C4C4C8A4A4A4A8A4848488A4646468A444444662063984A2063
|
|
||||||
98CF206398FF206398FF206398FF246395FF587388FFF7F7F7FFF0F0F0FFF0F0
|
|
||||||
F0FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FFF3F3F3FA46464684206398C262A5
|
|
||||||
D7FF65A8DAFF64A6D9FF62A4D8FF629FD1FF758EA4FFEFEFEFFFE7E7E7FFE7E7
|
|
||||||
E7FFE7E7E7FFE7E7E7FFE6E6E6FFE6E6E6FFECECECFA49494984206398FF68AB
|
|
||||||
DCFF488ECFFF468BCEFF4387CDFF4484C6FF6885A1FFF0F0F0FFB4B4B4FFB4B4
|
|
||||||
B4FFB4B4B4FFB4B4B4FFB4B4B4FFB3B3B3FFEDEDEDFA4C4C4C84206398FF69AE
|
|
||||||
DCFF4A93D1FF488FD0FF468BCEFF4788C7FF6C88A3FFF0F0F0FFE8E8E8FFE8E8
|
|
||||||
E8FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFEDEDEDFA4F4F4F84206398FF6BB1
|
|
||||||
DEFF4D97D3FF4B93D2FF488FD0FF4A8CC9FF6F8BA5FFF1F1F1FFB6B6B6FFB5B5
|
|
||||||
B5FFB5B5B5FFB4B4B4FFB4B4B4FFB4B4B4FFEDEDEDFA53535384206398FF6DB3
|
|
||||||
DFFF509CD5FF4E98D3FF4B94D1FF4C91CBFF708EA7FFF1F1F1FFE9E9E9FFE9E9
|
|
||||||
E9FFE8E8E8FFE8E8E8FFE8E8E8FFE7E7E7FFEDEDEDFA56565684206398FF70B5
|
|
||||||
E0FF529FD7FF509CD6FF4E98D4FF4F95CDFF7391AAFFF1F1F1FFB7B7B7FFB6B6
|
|
||||||
B6FFB6B6B6FFB6B6B6FFB5B5B5FFB5B5B5FFEEEEEEFA5A5A5A84206398FF73B7
|
|
||||||
E1FF57A3D7FF53A0D7FF509DD5FF5299CFFF7594ACFFF8F8F8FFF2F2F2FFF2F2
|
|
||||||
F2FFF2F2F2FFF2F2F2FFF2F2F2FFF1F1F1FFF4F4F4FA5E5E5E84206398FF76B9
|
|
||||||
E2FF5CA7D9FF58A4D8FF53A0D7FF539ED5FF618BA9FF6488A1FF6487A1FF6386
|
|
||||||
A0FF69879FFF4A6881FF6A6A6A8A6868688A6565658A62626263206398FF7ABB
|
|
||||||
E3FF61AADBFF5AA5D9FF53A0D7FF529FD7FF529FD7FF529FD7FF529FD7FF529F
|
|
||||||
D7FF62A3D8FF206398FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00206398FF7CBD
|
|
||||||
E4FF65AEDDFF62ABDCFF5EA8DAFF5CA7D9FF5CA7D9FF5CA7D9FF5CA7D9FF529F
|
|
||||||
D7FF62A3D8FF206398FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00206398FF7FBF
|
|
||||||
E4FF69B2DEFF4A9BDAFF4497DCFF4396DCFF4296DCFF4295DCFF4195DBFF519E
|
|
||||||
D6FF6CB2DEFF206398FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00206398E071B3
|
|
||||||
DBFE7EBFE4FF4E9DDFFFB5EEFDFF75D4F0FF75D4F0FFB5EEFDFF4B9BDEFF6EB4
|
|
||||||
E0FF6DB3DFF9206398F3FFFFFF00FFFFFF00FFFFFF00FFFFFF00206398322063
|
|
||||||
98B2206398FF3775A4FFB6EFFEFF80DBF3FF80DBF3FFB6EFFEFF2E6EA1FF2063
|
|
||||||
98FF206398A520639853FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
|
||||||
FF002063982A206398FF206398FF206398FF206398FF206398FF206398F0FFFF
|
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
|
||||||
}
|
|
||||||
ImageIndex = 11
|
ImageIndex = 11
|
||||||
ShortCut = 16470
|
ShortCut = 16470
|
||||||
OnClick = MenuItemPasteClick
|
OnClick = MenuItemPasteClick
|
||||||
@ -1240,42 +989,6 @@ object Form1: TForm1
|
|||||||
SubMenuImages = Mufasa_Image_List
|
SubMenuImages = Mufasa_Image_List
|
||||||
object MenuItemRun: TMenuItem
|
object MenuItemRun: TMenuItem
|
||||||
Caption = 'Run'
|
Caption = 'Run'
|
||||||
Bitmap.Data = {
|
|
||||||
36040000424D3604000000000000360000002800000010000000100000000100
|
|
||||||
2000000000000004000064000000640000000000000000000000000000000000
|
|
||||||
000004733AFF21824FFF638272FF000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
000004733AFF7ACFA4FF2C8C5AFF3D7659FFAEAEAEFF00000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
000004733AFF82D8ACFF76D6A6FF3C9D6AFF27744CFFACAEADFF000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
000009773FFF83DBAEFF1FC671FF72DEA7FF4BB27FFF177445FFA8ADAAFF0000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
000004733AFF83DCAFFF11C369FF1ACC73FF69DFA3FF5AC28DFF137643FF9EA7
|
|
||||||
A3FF000000000000000000000000000000000000000000000000000000000000
|
|
||||||
000004733AFFA9DCC1FF10BD65FF11C167FF13C269FF59D395FF67C998FF167C
|
|
||||||
47FF889C92FF0000000000000000000000000000000000000000000000000000
|
|
||||||
000004733AFFA9DCC1FF0DB35EFF0EB660FF0EB660FF0DB45FFF47C484FF70CA
|
|
||||||
9CFF1D824DFF678C79FF00000000000000000000000000000000000000000000
|
|
||||||
000004733AFFA9DCC1FF0CAA58FF12AE5EFF15AF60FF16AD61FF13AA5DFF3AB6
|
|
||||||
77FF75C79DFF288957FF4E8367FF000000000000000000000000000000000000
|
|
||||||
000004733AFFA9DCC1FF2EAD6BFF2BAD6AFF27AB68FF22A964FF1CA55FFF41B2
|
|
||||||
78FF78C69FFF298858FF678C79FF000000000000000000000000000000000000
|
|
||||||
000004733AFFA9DCC1FF36AD70FF32AC6DFF2DAA6AFF28A866FF58BC89FF78C5
|
|
||||||
9DFF1F804EFF839A8EFF00000000000000000000000000000000000000000000
|
|
||||||
000004733AFFA9DCC1FF3EB176FF3AAF73FF36AE70FF6FC598FF71BF97FF187B
|
|
||||||
49FFA6B0ABFF0000000000000000000000000000000000000000000000000000
|
|
||||||
000004733AFFA9DCC1FF45B47BFF47B47CFF82CCA6FF67B68CFF177745FFC1C5
|
|
||||||
C3FF000000000000000000000000000000000000000000000000000000000000
|
|
||||||
000004733AFFA5DABFFF57BB87FF90D2B0FF5BAB82FF23774CFFD4D5D4FF0000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
000004733AFFA9DCC1FF9BD5B7FF4C9F73FF3D7D5CFF00000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
000004733AFFA4D9BEFF3D9366FF5F8873FF0000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
000004733AFF2D8859FF859C90FF000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000
|
|
||||||
}
|
|
||||||
ImageIndex = 6
|
ImageIndex = 6
|
||||||
ShortCut = 120
|
ShortCut = 120
|
||||||
OnClick = MenuItemRunClick
|
OnClick = MenuItemRunClick
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@ -224,7 +224,7 @@ begin
|
|||||||
ScriptThread.Suspended:= True;
|
ScriptThread.Suspended:= True;
|
||||||
ScriptState:= ss_Paused;
|
ScriptState:= ss_Paused;
|
||||||
{$else}
|
{$else}
|
||||||
Writeln('Linux users are screwd');
|
Writeln('Linux users are screwed, no pause button for u!');
|
||||||
{$endif}
|
{$endif}
|
||||||
end else if ScriptState = ss_Paused then
|
end else if ScriptState = ss_Paused then
|
||||||
begin;
|
begin;
|
||||||
@ -507,8 +507,8 @@ begin
|
|||||||
FScriptState:= State;
|
FScriptState:= State;
|
||||||
with Self.StatusBar.panels[Panel_State] do
|
with Self.StatusBar.panels[Panel_State] do
|
||||||
case FScriptState of
|
case FScriptState of
|
||||||
ss_Running : begin Text := 'Running'; TB_Run.Enabled:= False; TB_Pause.Enabled:= True; TB_Stop.Enabled:= True; end;
|
ss_Running : begin Text := 'Running'; TB_Run.Enabled:= False; {$ifdef MSWindows}TB_Pause.Enabled:= True; {$endif} TB_Stop.Enabled:= True; end;
|
||||||
ss_Paused : begin Text := 'Paused'; TB_Run.Enabled:= True; TB_Pause.Enabled:= True; TB_Stop.Enabled:= True; end;
|
ss_Paused : begin Text := 'Paused'; TB_Run.Enabled:= True; {$ifdef MSWindows}TB_Pause.Enabled:= True; {$endif} TB_Stop.Enabled:= True; end;
|
||||||
ss_Stopping: begin Text := 'Stopping';TB_Run.Enabled:= False; TB_Pause.Enabled:= False; TB_Stop.Enabled:= True; TB_Stop.ImageIndex := Image_Terminate end;
|
ss_Stopping: begin Text := 'Stopping';TB_Run.Enabled:= False; TB_Pause.Enabled:= False; TB_Stop.Enabled:= True; TB_Stop.ImageIndex := Image_Terminate end;
|
||||||
ss_None : begin Text := 'Done'; TB_Run.Enabled:= True; TB_Pause.Enabled:= False; TB_Stop.Enabled:= False; TB_Stop.ImageIndex := Image_Stop end;
|
ss_None : begin Text := 'Done'; TB_Run.Enabled:= True; TB_Pause.Enabled:= False; TB_Stop.Enabled:= False; TB_Stop.ImageIndex := Image_Stop end;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -1,369 +1,369 @@
|
|||||||
{
|
{
|
||||||
This file is part of the Mufasa Macro Library (MML)
|
This file is part of the Mufasa Macro Library (MML)
|
||||||
Copyright (c) 2009 by Raymond van Venetië and Merlijn Wajer
|
Copyright (c) 2009 by Raymond van Venetië and Merlijn Wajer
|
||||||
|
|
||||||
MML is free software: you can redistribute it and/or modify
|
MML is free software: you can redistribute it and/or modify
|
||||||
it under the terms of the GNU General Public License as published by
|
it under the terms of the GNU General Public License as published by
|
||||||
the Free Software Foundation, either version 3 of the License, or
|
the Free Software Foundation, either version 3 of the License, or
|
||||||
(at your option) any later version.
|
(at your option) any later version.
|
||||||
|
|
||||||
MML is distributed in the hope that it will be useful,
|
MML is distributed in the hope that it will be useful,
|
||||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
GNU General Public License for more details.
|
GNU General Public License for more details.
|
||||||
|
|
||||||
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
||||||
along with MML. If not, see <http://www.gnu.org/licenses/>.
|
along with MML. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
See the file COPYING, included in this distribution,
|
See the file COPYING, included in this distribution,
|
||||||
for details about the copyright.
|
for details about the copyright.
|
||||||
|
|
||||||
MMLPSThread for the Mufasa Macro Library
|
MMLPSThread for the Mufasa Macro Library
|
||||||
}
|
}
|
||||||
|
|
||||||
unit mmlpsthread;
|
unit mmlpsthread;
|
||||||
|
|
||||||
{$mode objfpc}{$H+}
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, SysUtils, client, uPSComponent,uPSCompiler,uPSRuntime,stdCtrls, uPSPreProcessor,MufasaTypes;
|
Classes, SysUtils, client, uPSComponent,uPSCompiler,uPSRuntime,stdCtrls, uPSPreProcessor,MufasaTypes;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
{ TMMLPSThread }
|
{ TMMLPSThread }
|
||||||
TSyncInfo = record
|
TSyncInfo = record
|
||||||
V : MufasaTypes.TVariantArray;
|
V : MufasaTypes.TVariantArray;
|
||||||
MethodName : string;
|
MethodName : string;
|
||||||
Res : Variant;
|
Res : Variant;
|
||||||
SyncMethod : procedure of object;
|
SyncMethod : procedure of object;
|
||||||
OldThread : TThread;
|
OldThread : TThread;
|
||||||
PSScript : TPSScript;
|
PSScript : TPSScript;
|
||||||
end;
|
end;
|
||||||
PSyncInfo = ^TSyncInfo;
|
PSyncInfo = ^TSyncInfo;
|
||||||
|
|
||||||
TMMLPSThread = class(TThread)
|
TMMLPSThread = class(TThread)
|
||||||
procedure OnProcessDirective(Sender: TPSPreProcessor;
|
procedure OnProcessDirective(Sender: TPSPreProcessor;
|
||||||
Parser: TPSPascalPreProcessorParser; const Active: Boolean;
|
Parser: TPSPascalPreProcessorParser; const Active: Boolean;
|
||||||
const DirectiveName, DirectiveParam: string; var Continue: Boolean);
|
const DirectiveName, DirectiveParam: string; var Continue: Boolean);
|
||||||
procedure PSScriptProcessUnknowDirective(Sender: TPSPreProcessor;
|
procedure PSScriptProcessUnknowDirective(Sender: TPSPreProcessor;
|
||||||
Parser: TPSPascalPreProcessorParser; const Active: Boolean;
|
Parser: TPSPascalPreProcessorParser; const Active: Boolean;
|
||||||
const DirectiveName, DirectiveParam: string; var Continue: Boolean);
|
const DirectiveName, DirectiveParam: string; var Continue: Boolean);
|
||||||
private
|
private
|
||||||
ScriptPath, AppPath : string;
|
ScriptPath, AppPath : string;
|
||||||
protected
|
protected
|
||||||
DebugTo : TMemo;
|
DebugTo : TMemo;
|
||||||
PluginsToload : Array of integer;
|
PluginsToload : Array of integer;
|
||||||
procedure OnCompile(Sender: TPSScript);
|
procedure OnCompile(Sender: TPSScript);
|
||||||
procedure AfterExecute(Sender : TPSScript);
|
procedure AfterExecute(Sender : TPSScript);
|
||||||
function RequireFile(Sender: TObject; const OriginFileName: String;
|
function RequireFile(Sender: TObject; const OriginFileName: String;
|
||||||
var FileName, OutPut: string): Boolean;
|
var FileName, OutPut: string): Boolean;
|
||||||
procedure OnCompImport(Sender: TObject; x: TPSPascalCompiler);
|
procedure OnCompImport(Sender: TObject; x: TPSPascalCompiler);
|
||||||
procedure OnExecImport(Sender: TObject; se: TPSExec; x: TPSRuntimeClassImporter);
|
procedure OnExecImport(Sender: TObject; se: TPSExec; x: TPSRuntimeClassImporter);
|
||||||
procedure OutputMessages;
|
procedure OutputMessages;
|
||||||
procedure OnThreadTerminate(Sender: TObject);
|
procedure OnThreadTerminate(Sender: TObject);
|
||||||
procedure Execute; override;
|
procedure Execute; override;
|
||||||
public
|
public
|
||||||
PSScript : TPSScript; // Moved to public, as we can't kill it otherwise.
|
PSScript : TPSScript; // Moved to public, as we can't kill it otherwise.
|
||||||
Client : TClient;
|
Client : TClient;
|
||||||
SyncInfo : PSyncInfo; //We need this for callthreadsafe
|
SyncInfo : PSyncInfo; //We need this for callthreadsafe
|
||||||
procedure SetPSScript(Script : string);
|
procedure SetPSScript(Script : string);
|
||||||
procedure SetDebug( Strings : TMemo );
|
procedure SetDebug( Strings : TMemo );
|
||||||
procedure SetPaths(ScriptP,AppP : string);
|
procedure SetPaths(ScriptP,AppP : string);
|
||||||
constructor Create(CreateSuspended: Boolean; TheSyncInfo : PSyncInfo);
|
constructor Create(CreateSuspended: Boolean; TheSyncInfo : PSyncInfo);
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
end;
|
end;
|
||||||
threadvar
|
threadvar
|
||||||
CurrThread : TMMLPSThread;
|
CurrThread : TMMLPSThread;
|
||||||
implementation
|
implementation
|
||||||
uses
|
uses
|
||||||
dtmutil,
|
dtmutil,
|
||||||
{$ifdef mswindows}windows,{$endif}
|
{$ifdef mswindows}windows,{$endif}
|
||||||
uPSC_std, uPSC_controls,uPSC_classes,uPSC_graphics,uPSC_stdctrls,uPSC_forms,
|
uPSC_std, uPSC_controls,uPSC_classes,uPSC_graphics,uPSC_stdctrls,uPSC_forms,
|
||||||
uPSC_extctrls, //Compile-libs
|
uPSC_extctrls, //Compile-libs
|
||||||
|
|
||||||
uPSR_std, uPSR_controls,uPSR_classes,uPSR_graphics,uPSR_stdctrls,uPSR_forms,
|
uPSR_std, uPSR_controls,uPSR_classes,uPSR_graphics,uPSR_stdctrls,uPSR_forms,
|
||||||
uPSR_extctrls, //Runtime-libs
|
uPSR_extctrls, //Runtime-libs
|
||||||
Graphics, //For Graphics types
|
Graphics, //For Graphics types
|
||||||
math, //Maths!
|
math, //Maths!
|
||||||
bitmaps,
|
bitmaps,
|
||||||
forms,//Forms
|
forms,//Forms
|
||||||
lclintf; // for GetTickCount and others.
|
lclintf; // for GetTickCount and others.
|
||||||
|
|
||||||
|
|
||||||
{Some General PS Functions here}
|
{Some General PS Functions here}
|
||||||
procedure psWriteln(str : string);
|
procedure psWriteln(str : string);
|
||||||
{$IFDEF WINDOWS}
|
{$IFDEF WINDOWS}
|
||||||
begin
|
begin
|
||||||
if CurrThread.DebugTo <> nil then
|
if CurrThread.DebugTo <> nil then
|
||||||
begin;
|
begin;
|
||||||
CurrThread.DebugTo.lines.add(str);
|
CurrThread.DebugTo.lines.add(str);
|
||||||
CurrThread.DebugTo.Refresh;
|
CurrThread.DebugTo.Refresh;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
{$ELSE}
|
{$ELSE}
|
||||||
begin
|
begin
|
||||||
writeln(str);
|
writeln(str);
|
||||||
end;
|
end;
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
|
|
||||||
function ThreadSafeCall(ProcName: string; var V: TVariantArray): Variant;
|
function ThreadSafeCall(ProcName: string; var V: TVariantArray): Variant;
|
||||||
|
|
||||||
begin;
|
begin;
|
||||||
CurrThread.SyncInfo^.MethodName:= ProcName;
|
CurrThread.SyncInfo^.MethodName:= ProcName;
|
||||||
CurrThread.SyncInfo^.V:= V;
|
CurrThread.SyncInfo^.V:= V;
|
||||||
CurrThread.SyncInfo^.PSScript := CurrThread.PSScript;
|
CurrThread.SyncInfo^.PSScript := CurrThread.PSScript;
|
||||||
CurrThread.SyncInfo^.OldThread := CurrThread;
|
CurrThread.SyncInfo^.OldThread := CurrThread;
|
||||||
CurrThread.Synchronize(CurrThread.SyncInfo^.SyncMethod);
|
CurrThread.Synchronize(CurrThread.SyncInfo^.SyncMethod);
|
||||||
Result := CurrThread.SyncInfo^.Res;
|
Result := CurrThread.SyncInfo^.Res;
|
||||||
{ Writeln('We have a length of: ' + inttostr(length(v)));
|
{ Writeln('We have a length of: ' + inttostr(length(v)));
|
||||||
Try
|
Try
|
||||||
Result := CurrThread.PSScript.Exec.RunProcPVar(v,CurrThread.PSScript.Exec.GetProc(Procname));
|
Result := CurrThread.PSScript.Exec.RunProcPVar(v,CurrThread.PSScript.Exec.GetProc(Procname));
|
||||||
Except
|
Except
|
||||||
Writeln('We has some errors :-(');
|
Writeln('We has some errors :-(');
|
||||||
end;}
|
end;}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
{
|
{
|
||||||
Note to Raymond: For PascalScript, Create it on the .Create,
|
Note to Raymond: For PascalScript, Create it on the .Create,
|
||||||
Execute it on the .Execute, and don't forget to Destroy it on .Destroy.
|
Execute it on the .Execute, and don't forget to Destroy it on .Destroy.
|
||||||
|
|
||||||
Furthermore, all the wrappers can be in the unit "implementation" section.
|
Furthermore, all the wrappers can be in the unit "implementation" section.
|
||||||
Better still to create an .inc for it, otherwise this unit will become huge.
|
Better still to create an .inc for it, otherwise this unit will become huge.
|
||||||
(You can even split up the .inc's in stuff like color, bitmap, etc. )
|
(You can even split up the .inc's in stuff like color, bitmap, etc. )
|
||||||
|
|
||||||
Also, don't add PS to this unit, but make a seperate unit for it.
|
Also, don't add PS to this unit, but make a seperate unit for it.
|
||||||
Unit "MMLPSThread", perhaps?
|
Unit "MMLPSThread", perhaps?
|
||||||
|
|
||||||
See the TestUnit for use of this thread, it's pretty straightforward.
|
See the TestUnit for use of this thread, it's pretty straightforward.
|
||||||
|
|
||||||
It may also be wise to turn the "Importing of wrappers" into an include as
|
It may also be wise to turn the "Importing of wrappers" into an include as
|
||||||
well, it will really make the unit more straightforward to use and read.
|
well, it will really make the unit more straightforward to use and read.
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
constructor TMMLPSThread.Create(CreateSuspended : boolean; TheSyncInfo : PSyncInfo);
|
constructor TMMLPSThread.Create(CreateSuspended : boolean; TheSyncInfo : PSyncInfo);
|
||||||
begin
|
begin
|
||||||
SyncInfo:= TheSyncInfo;
|
SyncInfo:= TheSyncInfo;
|
||||||
SetLength(PluginsToLoad,0);
|
SetLength(PluginsToLoad,0);
|
||||||
Client := TClient.Create;
|
Client := TClient.Create;
|
||||||
PSScript := TPSScript.Create(nil);
|
PSScript := TPSScript.Create(nil);
|
||||||
PSScript.UsePreProcessor:= True;
|
PSScript.UsePreProcessor:= True;
|
||||||
PSScript.OnNeedFile := @RequireFile;
|
PSScript.OnNeedFile := @RequireFile;
|
||||||
PSScript.OnProcessDirective:=@OnProcessDirective;
|
PSScript.OnProcessDirective:=@OnProcessDirective;
|
||||||
PSScript.OnProcessUnknowDirective:=@PSScriptProcessUnknowDirective;
|
PSScript.OnProcessUnknowDirective:=@PSScriptProcessUnknowDirective;
|
||||||
PSScript.OnCompile:= @OnCompile;
|
PSScript.OnCompile:= @OnCompile;
|
||||||
PSScript.OnCompImport:= @OnCompImport;
|
PSScript.OnCompImport:= @OnCompImport;
|
||||||
PSScript.OnExecImport:= @OnExecImport;
|
PSScript.OnExecImport:= @OnExecImport;
|
||||||
PSScript.OnAfterExecute:= @AfterExecute;
|
PSScript.OnAfterExecute:= @AfterExecute;
|
||||||
|
|
||||||
// Set some defines
|
// Set some defines
|
||||||
{$I PSInc/psdefines.inc}
|
{$I PSInc/psdefines.inc}
|
||||||
|
|
||||||
|
|
||||||
FreeOnTerminate := True;
|
FreeOnTerminate := True;
|
||||||
Self.OnTerminate := @Self.OnThreadTerminate;
|
Self.OnTerminate := @Self.OnThreadTerminate;
|
||||||
inherited Create(CreateSuspended);
|
inherited Create(CreateSuspended);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMMLPSThread.OnThreadTerminate(Sender: TObject);
|
procedure TMMLPSThread.OnThreadTerminate(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
// Writeln('Terminating the thread');
|
// Writeln('Terminating the thread');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
destructor TMMLPSThread.Destroy;
|
destructor TMMLPSThread.Destroy;
|
||||||
begin
|
begin
|
||||||
SetLength(PluginsToLoad,0);
|
SetLength(PluginsToLoad,0);
|
||||||
Client.Free;
|
Client.Free;
|
||||||
PSScript.Free;
|
PSScript.Free;
|
||||||
inherited;
|
inherited;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
// include PS wrappers
|
// include PS wrappers
|
||||||
{$I PSInc/Wrappers/other.inc}
|
{$I PSInc/Wrappers/other.inc}
|
||||||
{$I PSInc/Wrappers/bitmap.inc}
|
{$I PSInc/Wrappers/bitmap.inc}
|
||||||
{$I PSInc/Wrappers/window.inc}
|
{$I PSInc/Wrappers/window.inc}
|
||||||
{$I PSInc/Wrappers/colour.inc}
|
{$I PSInc/Wrappers/colour.inc}
|
||||||
{$I PSInc/Wrappers/math.inc}
|
{$I PSInc/Wrappers/math.inc}
|
||||||
{$I PSInc/Wrappers/mouse.inc}
|
{$I PSInc/Wrappers/mouse.inc}
|
||||||
{$I PSInc/Wrappers/dtm.inc}
|
{$I PSInc/Wrappers/dtm.inc}
|
||||||
|
|
||||||
procedure TMMLPSThread.OnProcessDirective(Sender: TPSPreProcessor;
|
procedure TMMLPSThread.OnProcessDirective(Sender: TPSPreProcessor;
|
||||||
Parser: TPSPascalPreProcessorParser; const Active: Boolean;
|
Parser: TPSPascalPreProcessorParser; const Active: Boolean;
|
||||||
const DirectiveName, DirectiveParam: string; var Continue: Boolean);
|
const DirectiveName, DirectiveParam: string; var Continue: Boolean);
|
||||||
begin
|
begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMMLPSThread.PSScriptProcessUnknowDirective(Sender: TPSPreProcessor;
|
procedure TMMLPSThread.PSScriptProcessUnknowDirective(Sender: TPSPreProcessor;
|
||||||
Parser: TPSPascalPreProcessorParser; const Active: Boolean;
|
Parser: TPSPascalPreProcessorParser; const Active: Boolean;
|
||||||
const DirectiveName, DirectiveParam: string; var Continue: Boolean);
|
const DirectiveName, DirectiveParam: string; var Continue: Boolean);
|
||||||
var
|
var
|
||||||
TempNum : integer;
|
TempNum : integer;
|
||||||
I: integer;
|
I: integer;
|
||||||
begin
|
begin
|
||||||
if DirectiveName= 'LOADDLL' then
|
if DirectiveName= 'LOADDLL' then
|
||||||
if DirectiveParam <> '' then
|
if DirectiveParam <> '' then
|
||||||
begin;
|
begin;
|
||||||
TempNum := PluginsGlob.LoadPlugin(DirectiveParam);
|
TempNum := PluginsGlob.LoadPlugin(DirectiveParam);
|
||||||
if TempNum < 0 then
|
if TempNum < 0 then
|
||||||
Writeln(Format('Your DLL %s has not been found',[DirectiveParam]))
|
Writeln(Format('Your DLL %s has not been found',[DirectiveParam]))
|
||||||
else
|
else
|
||||||
begin;
|
begin;
|
||||||
for i := High(PluginsToLoad) downto 0 do
|
for i := High(PluginsToLoad) downto 0 do
|
||||||
if PluginsToLoad[i] = TempNum then
|
if PluginsToLoad[i] = TempNum then
|
||||||
Exit;
|
Exit;
|
||||||
SetLength(PluginsToLoad,Length(PluginsToLoad)+1);
|
SetLength(PluginsToLoad,Length(PluginsToLoad)+1);
|
||||||
PluginsToLoad[High(PluginsToLoad)] := TempNum;
|
PluginsToLoad[High(PluginsToLoad)] := TempNum;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
Continue:= True;
|
Continue:= True;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMMLPSThread.OnCompile(Sender: TPSScript);
|
procedure TMMLPSThread.OnCompile(Sender: TPSScript);
|
||||||
var
|
var
|
||||||
i,ii : integer;
|
i,ii : integer;
|
||||||
begin
|
begin
|
||||||
for i := high(PluginsToLoad) downto 0 do
|
for i := high(PluginsToLoad) downto 0 do
|
||||||
for ii := 0 to PluginsGlob.MPlugins[PluginsToLoad[i]].MethodLen - 1 do
|
for ii := 0 to PluginsGlob.MPlugins[PluginsToLoad[i]].MethodLen - 1 do
|
||||||
PSScript.AddFunctionEx(PluginsGlob.MPlugins[PluginsToLoad[i]].Methods[i].FuncPtr,
|
PSScript.AddFunctionEx(PluginsGlob.MPlugins[PluginsToLoad[i]].Methods[i].FuncPtr,
|
||||||
PluginsGlob.MPlugins[PluginsToLoad[i]].Methods[i].FuncStr, cdStdCall);
|
PluginsGlob.MPlugins[PluginsToLoad[i]].Methods[i].FuncStr, cdStdCall);
|
||||||
// Here we add all the functions to the engine.
|
// Here we add all the functions to the engine.
|
||||||
{$I PSInc/pscompile.inc}
|
{$I PSInc/pscompile.inc}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMMLPSThread.AfterExecute(Sender: TPSScript);
|
procedure TMMLPSThread.AfterExecute(Sender: TPSScript);
|
||||||
begin
|
begin
|
||||||
//Here we add all the Script-freeing-leftovers (like BMParray etc)
|
//Here we add all the Script-freeing-leftovers (like BMParray etc)
|
||||||
// ^ This will all be done with Client.Destroy;
|
// ^ This will all be done with Client.Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TMMLPSThread.RequireFile(Sender: TObject;
|
function TMMLPSThread.RequireFile(Sender: TObject;
|
||||||
const OriginFileName: String; var FileName, OutPut: string): Boolean;
|
const OriginFileName: String; var FileName, OutPut: string): Boolean;
|
||||||
var
|
var
|
||||||
path: string;
|
path: string;
|
||||||
f: TFileStream;
|
f: TFileStream;
|
||||||
begin
|
begin
|
||||||
if FileExists(FileName) then
|
if FileExists(FileName) then
|
||||||
Path := FileName
|
Path := FileName
|
||||||
else
|
else
|
||||||
Path := AppPath+ 'Includes' + DS + Filename;
|
Path := AppPath+ 'Includes' + DS + Filename;
|
||||||
if not FileExists(Path) then
|
if not FileExists(Path) then
|
||||||
begin;
|
begin;
|
||||||
Writeln(Path + ' doesn''t exist');
|
Writeln(Path + ' doesn''t exist');
|
||||||
Result := false;
|
Result := false;
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
try
|
try
|
||||||
F := TFileStream.Create(Path, fmOpenRead or fmShareDenyWrite);
|
F := TFileStream.Create(Path, fmOpenRead or fmShareDenyWrite);
|
||||||
except
|
except
|
||||||
Result := false;
|
Result := false;
|
||||||
exit;
|
exit;
|
||||||
end;
|
end;
|
||||||
try
|
try
|
||||||
SetLength(Output, f.Size);
|
SetLength(Output, f.Size);
|
||||||
f.Read(Output[1], Length(Output));
|
f.Read(Output[1], Length(Output));
|
||||||
finally
|
finally
|
||||||
f.Free;
|
f.Free;
|
||||||
end;
|
end;
|
||||||
Result := True;
|
Result := True;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMMLPSThread.OnCompImport(Sender: TObject; x: TPSPascalCompiler);
|
procedure TMMLPSThread.OnCompImport(Sender: TObject; x: TPSPascalCompiler);
|
||||||
begin
|
begin
|
||||||
SIRegister_Std(x);
|
SIRegister_Std(x);
|
||||||
SIRegister_Controls(x);
|
SIRegister_Controls(x);
|
||||||
SIRegister_Classes(x, true);
|
SIRegister_Classes(x, true);
|
||||||
SIRegister_Graphics(x, true);
|
SIRegister_Graphics(x, true);
|
||||||
SIRegister_stdctrls(x);
|
SIRegister_stdctrls(x);
|
||||||
SIRegister_Forms(x);
|
SIRegister_Forms(x);
|
||||||
SIRegister_ExtCtrls(x);
|
SIRegister_ExtCtrls(x);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMMLPSThread.OnExecImport(Sender: TObject; se: TPSExec;
|
procedure TMMLPSThread.OnExecImport(Sender: TObject; se: TPSExec;
|
||||||
x: TPSRuntimeClassImporter);
|
x: TPSRuntimeClassImporter);
|
||||||
begin
|
begin
|
||||||
RIRegister_Std(x);
|
RIRegister_Std(x);
|
||||||
RIRegister_Classes(x, True);
|
RIRegister_Classes(x, True);
|
||||||
RIRegister_Controls(x);
|
RIRegister_Controls(x);
|
||||||
RIRegister_Graphics(x, True);
|
RIRegister_Graphics(x, True);
|
||||||
RIRegister_stdctrls(x);
|
RIRegister_stdctrls(x);
|
||||||
RIRegister_Forms(x);
|
RIRegister_Forms(x);
|
||||||
RIRegister_ExtCtrls(x);
|
RIRegister_ExtCtrls(x);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMMLPSThread.OutputMessages;
|
procedure TMMLPSThread.OutputMessages;
|
||||||
var
|
var
|
||||||
l: Longint;
|
l: Longint;
|
||||||
b: Boolean;
|
b: Boolean;
|
||||||
begin
|
begin
|
||||||
b := False;
|
b := False;
|
||||||
for l := 0 to PSScript.CompilerMessageCount - 1 do
|
for l := 0 to PSScript.CompilerMessageCount - 1 do
|
||||||
begin
|
begin
|
||||||
psWriteln(PSScript.CompilerErrorToStr(l));
|
psWriteln(PSScript.CompilerErrorToStr(l));
|
||||||
if (not b) and (PSScript.CompilerMessages[l] is TIFPSPascalCompilerError) then
|
if (not b) and (PSScript.CompilerMessages[l] is TIFPSPascalCompilerError) then
|
||||||
begin
|
begin
|
||||||
b := True;
|
b := True;
|
||||||
// FormMain.CurrSynEdit.SelStart := PSScript.CompilerMessages[l].Pos;
|
// FormMain.CurrSynEdit.SelStart := PSScript.CompilerMessages[l].Pos;
|
||||||
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMMLPSThread.Execute;
|
procedure TMMLPSThread.Execute;
|
||||||
var
|
var
|
||||||
time: DWord;
|
time: DWord;
|
||||||
begin;
|
begin;
|
||||||
CurrThread := Self;
|
CurrThread := Self;
|
||||||
time := lclintf.GetTickCount;
|
time := lclintf.GetTickCount;
|
||||||
try
|
try
|
||||||
if PSScript.Compile then
|
if PSScript.Compile then
|
||||||
begin
|
begin
|
||||||
OutputMessages;
|
OutputMessages;
|
||||||
psWriteln('Compiled succesfully in ' + IntToStr(GetTickCount - time) + ' ms.');
|
psWriteln('Compiled succesfully in ' + IntToStr(GetTickCount - time) + ' ms.');
|
||||||
// if not (ScriptState = SCompiling) then
|
// if not (ScriptState = SCompiling) then
|
||||||
if not PSScript.Execute then
|
if not PSScript.Execute then
|
||||||
begin
|
begin
|
||||||
// FormMain.CurrSynEdit.SelStart := Script.PSScript.ExecErrorPosition;
|
// FormMain.CurrSynEdit.SelStart := Script.PSScript.ExecErrorPosition;
|
||||||
psWriteln(PSScript.ExecErrorToString +' at '+Inttostr(PSScript.ExecErrorProcNo)+'.'
|
psWriteln(PSScript.ExecErrorToString +' at '+Inttostr(PSScript.ExecErrorProcNo)+'.'
|
||||||
+Inttostr(PSScript.ExecErrorByteCodePosition));
|
+Inttostr(PSScript.ExecErrorByteCodePosition));
|
||||||
end else psWriteln('Succesfully executed');
|
end else psWriteln('Succesfully executed');
|
||||||
end else
|
end else
|
||||||
begin
|
begin
|
||||||
OutputMessages;
|
OutputMessages;
|
||||||
psWriteln('Compiling failed');
|
psWriteln('Compiling failed');
|
||||||
end;
|
end;
|
||||||
except
|
except
|
||||||
on E : Exception do
|
on E : Exception do
|
||||||
psWriteln('Error: ' + E.Message);
|
psWriteln('Error: ' + E.Message);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMMLPSThread.SetPSScript(Script: string);
|
procedure TMMLPSThread.SetPSScript(Script: string);
|
||||||
begin
|
begin
|
||||||
PSScript.Script.Text:= Script;
|
PSScript.Script.Text:= Script;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMMLPSThread.SetDebug(Strings: TMemo);
|
procedure TMMLPSThread.SetDebug(Strings: TMemo);
|
||||||
begin
|
begin
|
||||||
DebugTo := Strings;
|
DebugTo := Strings;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMMLPSThread.SetPaths(ScriptP, AppP: string);
|
procedure TMMLPSThread.SetPaths(ScriptP, AppP: string);
|
||||||
begin
|
begin
|
||||||
AppPath:= AppP;
|
AppPath:= AppP;
|
||||||
ScriptPath:= ScriptP;
|
ScriptPath:= ScriptP;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
{ Include stuff here? }
|
{ Include stuff here? }
|
||||||
|
|
||||||
//{$I inc/colors.inc}
|
//{$I inc/colors.inc}
|
||||||
//{$I inc/bitmaps.inc}
|
//{$I inc/bitmaps.inc}
|
||||||
|
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user