mainform.lfm

从Delphi中调用lua

          item
            Command = 351
            ShortCut = 24624
          end        
          item
            Command = 352
            ShortCut = 24625
          end        
          item
            Command = 353
            ShortCut = 24626
          end        
          item
            Command = 354
            ShortCut = 24627
          end        
          item
            Command = 355
            ShortCut = 24628
          end        
          item
            Command = 356
            ShortCut = 24629
          end        
          item
            Command = 357
            ShortCut = 24630
          end        
          item
            Command = 358
            ShortCut = 24631
          end        
          item
            Command = 359
            ShortCut = 24632
          end        
          item
            Command = 360
            ShortCut = 24633
          end        
          item
            Command = 231
            ShortCut = 24654
          end        
          item
            Command = 232
            ShortCut = 24643
          end        
          item
            Command = 233
            ShortCut = 24652
          end        
          item
            Command = 612
            ShortCut = 9
          end        
          item
            Command = 613
            ShortCut = 8201
          end        
          item
            Command = 250
            ShortCut = 24642
          end>
        Lines.Strings = (
          'SetCanvasSize(800, 600)'
          'print(''Clearing image'')'
          'print(''White = ''..HexToInt(''FFFFFF''))'
          'Clear(HexToInt(''FFFFFF''))'
          ''
          't = Turtle:new()'
          't.Color = 0'
          ''
          'function t:mBox(left, top, right, bottom)'
          '  self.PenDown = false'
          '  self:MoveTo(left, top)'
          '  self.PenDown = true'
          '  self:MoveTo(right, top)'
          '  self:MoveTo(right, bottom)'
          '  self:MoveTo(left, bottom)'
          '  self:MoveTo(left, top)'
          '  self.PenDown = false'
          'end'
          ''
          't:mBox(10, 10, 60, 60)'
          't.Color = HexToInt(''FF0000'')'
          't:mBox(20, 20, 50, 50)'
          't.Color = HexToInt(''0000FF'')'
          't:mBox(30, 30, 40, 40)'
          ''
          'function t:lBox(left, top, right, bottom)'
          '  self:MoveTo(left, top)'
          '  self:LineTo(right, top)'
          '  self:LineTo(right, bottom)'
          '  self:LineTo(left, bottom)'
          '  self:LineTo(left, top)'
          'end'
          ''
          't.Color = 0'
          ''
          't:lBox(110, 110, 160, 160)'
          't.Color = HexToInt(''FF0000'')'
          't:lBox(120, 120, 150, 150)'
          't.Color = HexToInt(''0000FF'')'
          't:lBox(130, 130, 140, 140)'
        )
      end
    end
    object pgImage: TPage
      Caption = 'Image'
      ClientWidth = 192
      ClientHeight = 174
      object ScrollBox1: TScrollBox
        Height = 174
        Width = 192
        HorzScrollBar.Page = 187
        VertScrollBar.Page = 169
        Align = alClient
        TabOrder = 0
        object imgImage: TImage
          Left = 2
          Height = 100
          Width = 100
        end
      end
    end
  end
  object ToolBar1: TToolBar
    Height = 26
    Width = 400
    Caption = 'ToolBar1'
    Images = ImageList1
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 70
      Hint = 'Execute the script'
      Top = 2
      Action = actRun
    end
    object ToolButton2: TToolButton
      Left = 24
      Hint = 'Load existing lua file'
      Top = 2
      Action = actOpen
    end
    object ToolButton3: TToolButton
      Left = 47
      Hint = 'Save the current file to disk'
      Top = 2
      Action = actSave
    end
    object ToolButton4: TToolButton
      Left = 1
      Hint = 'Clear the current script and create a new one'
      Top = 2
      Action = actNew
    end
  end
  object pnlMessages: TPanel
    Height = 95
    Top = 205
    Width = 400
    Align = alBottom
    ClientHeight = 95
    ClientWidth = 400
    TabOrder = 2
    object Label1: TLabel
      Left = 1
      Height = 14
      Top = 1
      Width = 398
      Align = alTop
      Caption = 'Output Messages'
      ParentColor = False
    end
    object memOutput: TMemo
      Left = 1
      Height = 79
      Top = 15
      Width = 398
      Align = alClient
      TabOrder = 0
    end
  end
  object Splitter1: TSplitter
    Cursor = crVSplit
    Height = 5
    Top = 200
    Width = 400
    Align = alBottom
    ResizeAnchor = akBottom
  end
  object ImageList1: TImageList
    left = 26
    top = 58
    Bitmap = {
      6C690400000010000000100000003E0100002F2A2058504D202A2F0D0A737461
      7469632063686172202A206D656E755F72756E5F78706D5B5D203D207B0D0A22
      3820313420352031222C0D0A22200963204E6F6E65222C0D0A222E0963202331
      3436363030222C0D0A222B09632023323642323030222C0D0A22400963202332
      3735393139222C0D0A222309632023303030303030222C0D0A222E2E20202020
      2020222C0D0A222E2B2E2020202020222C0D0A222E2B2B2E20202020222C0D0A
      222E2B2B2B2E202020222C0D0A222E2B2B2B2B2E2020222C0D0A222E2B2B2B2B
      2B2E20222C0D0A222E2B2B2B2B2B2B2E222C0D0A222E2B2B2B2B2B4023222C0D
      0A222E2B2B2B2B402320222C0D0A222E2B2B2B40232020222C0D0A222E2B2B40
      23202020222C0D0A222E2B402320202020222C0D0A222E40232020202020222C
      0D0A222323202020202020227D3B0D0A940D00002F2A2058504D202A2F0A7374
      617469632063686172202A677261706869635B5D203D207B0A22313620313620
      3137382032222C0A222E2E20632023464646464646222C0A222E2C2063202339
      4443334541222C0A222E2D20632023393642464536222C0A222E2A2063202339
      3242424534222C0A222E6120632023364341304431222C0A222E622063202336
      4439454430222C0A222E6320632023354639364343222C0A222E642063202334
      3237394334222C0A222E6520632023334336374232222C0A222E662063202339
      3642454535222C0A222E6720632023464546464646222C0A222E682063202345
      3946334644222C0A222E6920632023454146334644222C0A222E6A2063202345
      3846324643222C0A222E6B20632023453345464641222C0A222E6C2063202345
      3746324641222C0A222E6D20632023383842424541222C0A222E6E2063202335
      3538354346222C0A222E6F20632023334436394234222C0A222E702063202339
      3342424534222C0A222E7120632023454446354645222C0A222E722063202343
      3544454643222C0A222E7320632023433745304642222C0A222E742063202343
      3244434639222C0A222E7520632023423444334635222C0A222E762063202346
      3346394645222C0A222E7720632023433445324641222C0A222E782063202339
      3343314543222C0A222E7920632023343837444333222C0A222E7A2063202346
      3046364645222C0A222E4120632023434445324643222C0A222E422063202343
      4445334643222C0A222E4320632023433844464641222C0A222E442063202342
      4344394637222C0A222E4520632023444445394635222C0A222E462063202345
      4246334641222C0A222E4720632023463346384642222C0A222E482063202335
      3338334341222C0A222E4920632023463146374645222C0A222E4A2063202344
      3245354643222C0A222E4B20632023443145344643222C0A222E4C2063202343
      4345324642222C0A222E4D20632023433444444639222C0A222E4E2063202342
      4244374636222C0A222E4F20632023414644314633222C0A222E502063202345
      3445464641222C0A222E5120632023353838374343222C0A222E522063202344
      3942343334222C0A222E5320632023453143323545222C0A222E542063202345
      3243333630222C0A222E5520632023453243333546222C0A222E562063202339
      3142424534222C0A222E5720632023463246374646222C0A222E582063202344
      3545374645222C0A222E5920632023443145354644222C0A222E5A2063202343
      4145304641222C0A222E3020632023433444454639222C0A222E312063202345
      3746324644222C0A222E3220632023353738374343222C0A222E332063202344
      4142333336222C0A222E3420632023464546454644222C0A222E352063202346
      4646464645222C0A222E3620632023464646454645222C0A222E372063202346
      4646454644222C0A222E3820632023393142414534222C0A222E392063202346
      3046374646222C0A222E4020632023443545374646222C0A222E232063202344
      3645374644222C0A222E3B20632023443445364644222C0A222E3A2063202344
      3045344643222C0A222E3D20632023434245334642222C0A222E2B2063202343
      3244434641222C0A222E2520632023453846334645222C0A222E242063202335
      3638364343222C0A222E2820632023444141463335222C0A222E292063202346
      4546434637222C0A222E5B20632023463845343845222C0A222E5D2063202346
      3544453931222C0A222C2E20632023463545303946222C0A222C2C2063202346
      3645314143222C0A222C2D20632023353238344341222C0A222C2A2063202346
      3146374646222C0A222C6120632023443945394646222C0A222C622063202344
      4245414646222C0A222C6320632023443745374646222C0A222C642063202344
      3245354646222C0A222C6520632023434245324646222C0A222C662063202335
      3538354342222C0A222C6720632023444141413336222C0A222C682063202346
      4446414631222C0A222C6920632023463544453934222C0A222C6A2063202346
      3444433933222C0A222C6B20632023453942433634222C0A222C6C2063202344
      4139343335222C0A222C6D20632023454646364642222C0A222C6E2063202335
      3538334343222C0A222C6F20632023444141423335222C0A222C702063202346
      4246364538222C0A222C7120632023453742433730222C0A222C722063202345
      3241413535222C0A222C7320632023453041353444222C0A222C742063202345
      4243393931222C0A222C7520632023454646334641222C0A222C762063202346
      4446454644222C0A222C7720632023464346444646222C0A222C782063202346
      4346444645222C0A222C7920632023464246434645222C0A222C7A2063202346
      4446454645222C0A222C4120632023453846324546222C0A222C422063202335
      3638314345222C0A222C4320632023444141363337222C0A222C442063202346
      4646444638222C0A222C4520632023464646444636222C0A222C462063202346
      4646434635222C0A222C4720632023464546434633222C0A222C482063202346
      3445343941222C0A222C4920632023463745363941222C0A222C4A2063202346
      3645363942222C0A222C4B20632023463545353944222C0A222C4C2063202346
      3545353945222C0A222C4D20632023463445353946222C0A222C4E2063202346
      3846334441222C0A222C4F20632023454546344644222C0A222C502063202335
      3438304341222C0A222C5120632023444141313336222C0A222C522063202346
      4546434636222C0A222C5320632023463845353934222C0A222C542063202346
      3845353933222C0A222C5520632023463845353931222C0A222C562063202345
      3944423933222C0A222C5720632023453344373933222C0A222C582063202344
      4344323933222C0A222C5920632023443743453930222C0A222C5A2063202343
      4643383843222C0A222C3020632023433643313836222C0A222C312063202344
      3644384339222C0A222C3220632023343437344335222C0A222C332063202335
      3337464341222C0A222C3420632023444139413336222C0A222C352063202346
      4446414632222C0A222C3620632023463845363934222C0A222C372063202346
      3845353932222C0A222C3820632023463845353930222C0A222C392063202346
      3845333842222C0A222C4020632023463745323836222C0A222C232063202346
      3745313746222C0A222C3B20632023463644453737222C0A222C3A2063202346
      3644433643222C0A222C3D20632023463444393545222C0A222C2B2063202346
      3344353446222C0A222C2520632023464246324343222C0A222C242063202346
      4546414546222C0A222C2820632023463845343846222C0A222C292063202346
      3845333839222C0A222C5B20632023463745313832222C0A222C5D2063202346
      3744463741222C0A222D2E20632023463644453731222C0A222D2C2063202346
      3544423637222C0A222D2D20632023463444383542222C0A222D2A2063202346
      3344343444222C0A222D6120632023463244313430222C0A222D622063202346
      4246324341222C0A222D6320632023443938453333222C0A222D642063202346
      4146304443222C0A222D6520632023463645313938222C0A222D662063202346