mainform.lrs

从Delphi中调用lua

{ This is an automatically generated lazarus resource file }

LazarusResources.Add('TfrmMain','FORMDATA',[
  'TPF0'#8'TfrmMain'#7'frmMain'#4'Left'#3'"'#1#6'Height'#3','#1#3'Top'#3#150#0#5
  +'Width'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.Page'#3'+'#1
  +#13'ActiveControl'#7#8'seSource'#7'Caption'#6#16'pLua Turtle Demo'#12'Client'
  +'Height'#3','#1#11'ClientWidth'#3#144#1#8'OnCreate'#7#10'FormCreate'#6'OnSho'
  +'w'#7#8'FormShow'#8'ShowHint'#9#0#9'TNotebook'#9'nbProject'#4'Left'#2#8#6'He'
  +'ight'#3#200#0#3'Top'#2' '#5'Width'#3#200#0#9'PageIndex'#2#0#8'TabOrder'#2#0
  +#0#5'TPage'#8'pgSource'#7'Caption'#6#13'Script Source'#11'ClientWidth'#3#192
  +#0#12'ClientHeight'#3#174#0#0#8'TSynEdit'#8'seSource'#6'Height'#3#174#0#5'Wi'
  +'dth'#3#192#0#5'Align'#7#8'alClient'#11'Font.Height'#2#240#9'Font.Name'#6#7
  +'courier'#11'ParentColor'#8#8'TabOrder'#2#0#23'Gutter.CodeFoldingWidth'#2#14
  +#10'Keystrokes'#14#1#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'S'
  +'hortCut'#3'& '#0#1#7'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8
  +'ShortCut'#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0
  +#8'ShortCut'#3'(@'#0#1#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8
  +'ShortCut'#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8
  +'ShortCut'#3'%`'#0#1#7'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8
  +'ShortCut'#3''' '#0#1#7'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8
  +'ShortCut'#3'''`'#0#1#7'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8
  +'ShortCut'#3'" '#0#1#7'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8
  +'ShortCut'#3'"`'#0#1#7'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'S'
  +'hortCut'#3'! '#0#1#7'Command'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8
  +'ShortCut'#3'!`'#0#1#7'Command'#2#7#8'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'S'
  +'hortCut'#3'$ '#0#1#7'Command'#2#15#8'ShortCut'#3'$@'#0#1#7'Command'#2's'#8
  +'ShortCut'#3'$`'#0#1#7'Command'#2#8#8'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'S'
  +'hortCut'#3'# '#0#1#7'Command'#2#16#8'ShortCut'#3'#@'#0#1#7'Command'#2't'#8
  +'ShortCut'#3'#`'#0#1#7'Command'#3#223#0#8'ShortCut'#2'-'#0#1#7'Command'#3#201
  +#0#8'ShortCut'#3'-@'#0#1#7'Command'#3'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3
  +#246#1#8'ShortCut'#2'.'#0#1#7'Command'#3'['#2#8'ShortCut'#3'. '#0#1#7'Comman'
  +'d'#3#245#1#8'ShortCut'#2#8#0#1#7'Command'#3#245#1#8'ShortCut'#3#8' '#0#1#7
  +'Command'#3#248#1#8'ShortCut'#3#8'@'#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8
  +#128#0#0#0#1#7'Command'#3'Z'#2#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#3#253#1
  +#8'ShortCut'#2#13#0#1#7'Command'#3#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3
  +#201#0#8'ShortCut'#3'C@'#0#1#7'Command'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Comma'
  +'nd'#3#253#1#8'ShortCut'#3'M@'#0#1#7'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7
  +'Command'#3#247#1#8'ShortCut'#3'T@'#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0
  +#1#7'Command'#3'\'#2#8'ShortCut'#3'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X'
  +'@'#0#1#7'Command'#3#251#1#8'ShortCut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortC'
  +'ut'#3'Y`'#0#1#7'Command'#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'S'
  +'hortCut'#3'Z`'#0#1#7'Command'#3'-'#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1
  +#8'ShortCut'#3'1@'#0#1#7'Command'#3'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3
  +'0'#1#8'ShortCut'#3'3@'#0#1#7'Command'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Comman'
  +'d'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'Command'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'C'
  +'ommand'#3'4'#1#8'ShortCut'#3'7@'#0#1#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1
  +#7'Command'#3'6'#1#8'ShortCut'#3'9@'#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'
  +#0#1#7'Command'#3'`'#1#8'ShortCut'#3'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3
  +'2`'#0#1#7'Command'#3'b'#1#8'ShortCut'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCu'
  +'t'#3'4`'#0#1#7'Command'#3'd'#1#8'ShortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'Sh'
  +'ortCut'#3'6`'#0#1#7'Command'#3'f'#1#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1
  +#8'ShortCut'#3'8`'#0#1#7'Command'#3'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3
  +#231#0#8'ShortCut'#3'N`'#0#1#7'Command'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Comm'
  +'and'#3#233#0#8'ShortCut'#3'L`'#0#1#7'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7
  +'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`'
  +#0#0#13'Lines.Strings'#1#6#23'SetCanvasSize(800, 600)'#6#23'print(''Clearing'
  +' image'')'#6'%print(''White = ''..HexToInt(''FFFFFF''))'#6#25'Clear(HexToIn'
  +'t(''FFFFFF''))'#6#0#6#16't = Turtle:new()'#6#11't.Color = 0'#6#0#6')functio'
  +'n t:mBox(left, top, right, bottom)'#6#22'  self.PenDown = false'#6#24'  sel'
  +'f:MoveTo(left, top)'#6#21'  self.PenDown = true'#6#25'  self:MoveTo(right, '
  +'top)'#6#28'  self:MoveTo(right, bottom)'#6#27'  self:MoveTo(left, bottom)'#6
  +#24'  self:MoveTo(left, top)'#6#22'  self.PenDown = false'#6#3'end'#6#0#6#22
  +'t:mBox(10, 10, 60, 60)'#6#28't.Color = HexToInt(''FF0000'')'#6#22't:mBox(20'
  +', 20, 50, 50)'#6#28't.Color = HexToInt(''0000FF'')'#6#22't:mBox(30, 30, 40,'
  +' 40)'#6#0#6')function t:lBox(left, top, right, bottom)'#6#24'  self:MoveTo('
  +'left, top)'#6#25'  self:LineTo(right, top)'#6#28'  self:LineTo(right, botto'
  +'m)'#6#27'  self:LineTo(left, bottom)'#6#24'  self:LineTo(left, top)'#6#3'en'
  ,'d'#6#0#6#11't.Color = 0'#6#0#6#26't:lBox(110, 110, 160, 160)'#6#28't.Color '
  +'= HexToInt(''FF0000'')'#6#26't:lBox(120, 120, 150, 150)'#6#28't.Color = Hex'
  +'ToInt(''0000FF'')'#6#26't:lBox(130, 130, 140, 140)'#0#0#0#0#5'TPage'#7'pgIm'
  +'age'#7'Caption'#6#5'Image'#11'ClientWidth'#3#192#0#12'ClientHeight'#3#174#0
  +#0#10'TScrollBox'#10'ScrollBox1'#6'Height'#3#174#0#5'Width'#3#192#0#18'HorzS'
  +'crollBar.Page'#3#187#0#18'VertScrollBar.Page'#3#169#0#5'Align'#7#8'alClient'
  +#8'TabOrder'#2#0#0#6'TImage'#8'imgImage'#4'Left'#2#2#6'Height'#2'd'#5'Width'
  +#2'd'#0#0#0#0#0#8'TToolBar'#8'ToolBar1'#6'Height'#2#26#5'Width'#3#144#1#7'Ca'
  +'ption'#6#8'ToolBar1'#6'Images'#7#10'ImageList1'#8'TabOrder'#2#1#0#11'TToolB'
  +'utton'#11'ToolButton1'#4'Left'#2'F'#4'Hint'#6#18'Execute the script'#3'Top'
  +#2#2#6'Action'#7#6'actRun'#0#0#11'TToolButton'#11'ToolButton2'#4'Left'#2#24#4
  +'Hint'#6#22'Load existing lua file'#3'Top'#2#2#6'Action'#7#7'actOpen'#0#0#11
  +'TToolButton'#11'ToolButton3'#4'Left'#2'/'#4'Hint'#6#29'Save the current fil'
  +'e to disk'#3'Top'#2#2#6'Action'#7#7'actSave'#0#0#11'TToolButton'#11'ToolBut'
  +'ton4'#4'Left'#2#1#4'Hint'#6'-Clear the current script and create a new one'
  +#3'Top'#2#2#6'Action'#7#6'actNew'#0#0#0#6'TPanel'#11'pnlMessages'#6'Height'#2
  +'_'#3'Top'#3#205#0#5'Width'#3#144#1#5'Align'#7#8'alBottom'#12'ClientHeight'#2
  +'_'#11'ClientWidth'#3#144#1#8'TabOrder'#2#2#0#6'TLabel'#6'Label1'#4'Left'#2#1
  +#6'Height'#2#14#3'Top'#2#1#5'Width'#3#142#1#5'Align'#7#5'alTop'#7'Caption'#6
  +#15'Output Messages'#11'ParentColor'#8#0#0#5'TMemo'#9'memOutput'#4'Left'#2#1
  +#6'Height'#2'O'#3'Top'#2#15#5'Width'#3#142#1#5'Align'#7#8'alClient'#8'TabOrd'
  +'er'#2#0#0#0#0#9'TSplitter'#9'Splitter1'#6'Cursor'#7#8'crVSplit'#6'Height'#2
  +#5#3'Top'#3#200#0#5'Width'#3#144#1#5'Align'#7#8'alBottom'#12'ResizeAnchor'#7
  +#8'akBottom'#0#0#10'TImageList'#10'ImageList1'#4'left'#2#26#3'top'#2':'#6'Bi'
  +'tmap'#10'X('#0#0'li'#4#0#0#0#16#0#0#0#16#0#0#0'>'#1#0#0'/* XPM */'#13#10'st'
  +'atic char * menu_run_xpm[] = {'#13#10'"8 14 5 1",'#13#10'" '#9'c None",'#13
  +#10'".'#9'c #146600",'#13#10'"+'#9'c #26B200",'#13#10'"@'#9'c #275919",'#13
  +#10'"#'#9'c #000000",'#13#10'"..      ",'#13#10'".+.     ",'#13#10'".++.    '
  +'",'#13#10'".+++.   ",'#13#10'".++++.  ",'#13#10'".+++++. ",'#13#10'".++++++'
  +'.",'#13#10'".+++++@#",'#13#10'".++++@# ",'#13#10'".+++@#  ",'#13#10'".++@# '
  +'  ",'#13#10'".+@#    ",'#13#10'".@#     ",'#13#10'"##      "};'#13#10#148#13
  +#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 178 2",'#10'".. c #'
  +'FFFFFF",'#10'"., c #9DC3EA",'#10'".- c #96BFE6",'#10'".* c #92BBE4",'#10'".'
  +'a c #6CA0D1",'#10'".b c #6D9ED0",'#10'".c c #5F96CC",'#10'".d c #4279C4",'
  +#10'".e c #3C67B2",'#10'".f c #96BEE5",'#10'".g c #FEFFFF",'#10'".h c #E9F3F'
  +'D",'#10'".i c #EAF3FD",'#10'".j c #E8F2FC",'#10'".k c #E3EFFA",'#10'".l c #'
  +'E7F2FA",'#10'".m c #88BBEA",'#10'".n c #5585CF",'#10'".o c #3D69B4",'#10'".'
  +'p c #93BBE4",'#10'".q c #EDF5FE",'#10'".r c #C5DEFC",'#10'".s c #C7E0FB",'
  +#10'".t c #C2DCF9",'#10'".u c #B4D3F5",'#10'".v c #F3F9FE",'#10'".w c #C4E2F'
  +'A",'#10'".x c #93C1EC",'#10'".y c #487DC3",'#10'".z c #F0F6FE",'#10'".A c #'
  +'CDE2FC",'#10'".B c #CDE3FC",'#10'".C c #C8DFFA",'#10'".D c #BCD9F7",'#10'".'
  +'E c #DDE9F5",'#10'".F c #EBF3FA",'#10'".G c #F3F8FB",'#10'".H c #5383CA",'
  +#10'".I c #F1F7FE",'#10'".J c #D2E5FC",'#10'".K c #D1E4FC",'#10'".L c #CCE2F'
  +'B",'#10'".M c #C4DDF9",'#10'".N c #BBD7F6",'#10'".O c #AFD1F3",'#10'".P c #'
  +'E4EFFA",'#10'".Q c #5887CC",'#10'".R c #D9B434",'#10'".S c #E1C25E",'#10'".'
  +'T c #E2C360",'#10'".U c #E2C35F",'#10'".V c #91BBE4",'#10'".W c #F2F7FF",'
  +#10'".X c #D5E7FE",'#10'".Y c #D1E5FD",'#10'".Z c #CAE0FA",'#10'".0 c #C4DEF'
  +'9",'#10'".1 c #E7F2FD",'#10'".2 c #5787CC",'#10'".3 c #DAB336",'#10'".4 c #'
  +'FEFEFD",'#10'".5 c #FFFFFE",'#10'".6 c #FFFEFE",'#10'".7 c #FFFEFD",'#10'".'
  +'8 c #91BAE4",'#10'".9 c #F0F7FF",'#10'".@ c #D5E7FF",'#10'".# c #D6E7FD",'
  +#10'".; c #D4E6FD",'#10'".: c #D0E4FC",'#10'".= c #CBE3FB",'#10'".+ c #C2DCF'
  +'A",'#10'".% c #E8F3FE",'#10'".$ c #5686CC",'#10'".( c #DAAF35",'#10'".) c #'
  +'FEFCF7",'#10'".[ c #F8E48E",'#10'".] c #F5DE91",'#10'",. c #F5E09F",'#10'",'
  +', c #F6E1AC",'#10'",- c #5284CA",'#10'",* c #F1F7FF",'#10'",a c #D9E9FF",'
  +#10'",b c #DBEAFF",'#10'",c c #D7E7FF",'#10'",d c #D2E5FF",'#10'",e c #CBE2F'
  +'F",'#10'",f c #5585CB",'#10'",g c #DAAA36",'#10'",h c #FDFAF1",'#10'",i c #'
  +'F5DE94",'#10'",j c #F4DC93",'#10'",k c #E9BC64",'#10'",l c #DA9435",'#10'",'
  +'m c #EFF6FB",'#10'",n c #5583CC",'#10'",o c #DAAB35",'#10'",p c #FBF6E8",'
  +#10'",q c #E7BC70",'#10'",r c #E2AA55",'#10'",s c #E0A54D",'#10'",t c #EBC99'
  +'1",'#10'",u c #EFF3FA",'#10'",v c #FDFEFD",'#10'",w c #FCFDFF",'#10'",x c #'
  +'FCFDFE",'#10'",y c #FBFCFE",'#10'",z c #FDFEFE",'#10'",A c #E8F2EF",'#10'",'
  +'B c #5681CE",'#10'",C c #DAA637",'#10'",D c #FFFDF8",'#10'",E c #FFFDF6",'
  +#10'",F c #FFFCF5",'#10'",G c #FEFCF3",'#10'",H c #F4E49A",'#10'",I c #F7E69'
  +'A",'#10'",J c #F6E69B",'#10'",K c #F5E59D",'#10'",L c #F5E59E",'#10'",M c #'
  ,'F4E59F",'#10'",N c #F8F3DA",'#10'",O c #EEF4FD",'#10'",P c #5480CA",'#10'",'
  +'Q c #DAA136",'#10'",R c #FEFCF6",'#10'",S c #F8E594",'#10'",T c #F8E593",'
  +#10'",U c #F8E591",'#10'",V c #E9DB93",'#10'",W c #E3D793",'#10'",X c #DCD29'
  +'3",'#10'",Y c #D7CE90",'#10'",Z c #CFC88C",'#10'",0 c #C6C186",'#10'",1 c #'
  +'D6D8C9",'#10'",2 c #4474C5",'#10'",3 c #537FCA",'#10'",4 c #DA9A36",'#10'",'
  +'5 c #FDFAF2",'#10'",6 c #F8E694",'#10'",7 c #F8E592",'#10'",8 c #F8E590",'
  +#10'",9 c #F8E38B",'#10'",@ c #F7E286",'#10'",# c #F7E17F",'#10'",; c #F6DE7'
  +'7",'#10'",: c #F6DC6C",'#10'",= c #F4D95E",'#10'",+ c #F3D54F",'#10'",% c #'
  +'FBF2CC",'#10'",$ c #FEFAEF",'#10'",( c #F8E48F",'#10'",) c #F8E389",'#10'",'