Changeset 11


Ignore:
Timestamp:
Feb 10, 2012, 2:10:20 PM (13 years ago)
Author:
chronos
Message:
  • Added: Some other examples from web.
Location:
trunk
Files:
62 added
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/UCompiledForm.lfm

    r9 r11  
    1414    Width = 540
    1515    Anchors = [akTop, akLeft, akRight, akBottom]
     16    Font.Height = -12
     17    Font.Name = 'Courier New'
     18    ParentFont = False
    1619    ScrollBars = ssAutoBoth
    1720    TabOrder = 0

  • trunk/UInterpreterForm.lfm

    r8 r11  
    3434        Width = 309
    3535        Anchors = [akTop, akLeft, akRight, akBottom]
     36        Font.Height = -12
    3637        Font.Name = 'Courier New'
    3738        OnKeyPress = MemoInputKeyPress
    … …  
    8283        Width = 309
    8384        Anchors = [akTop, akLeft, akRight, akBottom]
     85        Font.Height = -12
    8486        Font.Name = 'Courier New'
    8587        ParentFont = False
    … …  
    106108    TabOrder = 2
    107109    object Label3: TLabel
    108       Left = 0
     110      Left = 1
    109111      Height = 14
    110112      Top = 8
    … …  
    154156    end
    155157    object ListViewMemory: TListView
    156       Left = 8
     158      Left = 1
    157159      Height = 358
    158160      Top = 120
    159       Width = 422
     161      Width = 429
    160162      Anchors = [akTop, akLeft, akRight, akBottom]
    161163      Columns = <     

  • trunk/UMainForm.lfm

    r9 r11  
    1919    Width = 643
    2020    Align = alClient
     21    Font.Height = -12
     22    Font.Name = 'Courier New'
    2123    OnChange = MemoSourceChange
     24    ParentFont = False
     25    ScrollBars = ssAutoBoth
    2226    TabOrder = 0
    2327  end
    … …  
    8387    Align = alTop
    8488    TabOrder = 3
     89    Visible = False
    8590  end
    8691  object MainMenu1: TMainMenu
    … …  
    419424      object MenuItem15: TMenuItem
    420425        Action = AProgramPause
     426        Bitmap.Data = {
     427          36040000424D3604000000000000360000002800000010000000100000000100
     428          2000000000000004000064000000640000000000000000000000000000000000
     429          0000000000000000000000000000000000000000000000000000000000000000
     430          0000000000000000000000000000000000000000000000000000000000000000
     431          0000000000000000000000000000000000000000000000000000000000000000
     432          0000000000000000000000000000000000000000000000000000000000000000
     433          0000000000008A2C0FBF842A0EFF7C260BFF7A250AFF00000000000000008A2C
     434          0FBF842A0EFF7C260BFF7A250AFF000000000000000000000000000000000000
     435          000000000000993414BFCF6F50FFDA886DFF7F270BFF00000000000000009934
     436          14BFCF6F50FFDA886DFF7F270BFF000000000000000000000000000000000000
     437          000000000000AA3A18BFD37558FFDC8B71FF8A2C0FFF0000000000000000AA3A
     438          18BFD37558FFDC8B71FF8A2C0FFF000000000000000000000000000000000000
     439          000000000000B5401DBFD57C61FFDE9077FF993414FF0000000000000000B540
     440          1DBFD57C61FFDE9077FF993414FF000000000000000000000000000000000000
     441          000000000000BF4A27C0D9856BFFDF957EFFAA3A18FF0000000000000000BF4A
     442          27C0D9856BFFDF957EFFAA3A18FF000000000000000000000000000000000000
     443          000000000000B95435BFE29984FFE29A85FFB5401DFF0000000000000000B954
     444          35BFE29984FFE29A85FFB5401DFF000000000000000000000000000000000000
     445          000000000000C86A4DBFE7A590FFE5A18BFFBF4A27FF0000000000000000C86A
     446          4DBFE7A590FFE5A18BFFBF4A27FF000000000000000000000000000000000000
     447          000000000000CD6849BFE19881FFE8A793FFC45432FF0000000000000000CD68
     448          49BFE19881FFE8A793FFC45432FF000000000000000000000000000000000000
     449          000000000000D27457BFE5A18BFFEBAF9AFFC95E3EFF0000000000000000D274
     450          57BFE5A18BFFEBAF9AFFC95E3EFF000000000000000000000000000000000000
     451          000000000000D57C61BFE8A793FFEDB6A3FFCD6849FF0000000000000000D57C
     452          61BFE8A793FFEDB6A3FFCD6849FF000000000000000000000000000000000000
     453          000000000000D9866CBFEBB09DFFF0BBABFFD27457FF0000000000000000D986
     454          6CBFEBB09DFFF0BBABFFD27457FF000000000000000000000000000000000000
     455          000000000000DE9077BFDA8A70FFD88367FFD57C61FF0000000000000000DE90
     456          77BFDA8A70FFD88367FFD57C61FF000000000000000000000000000000000000
     457          0000000000000000000000000000000000000000000000000000000000000000
     458          0000000000000000000000000000000000000000000000000000000000000000
     459          0000000000000000000000000000000000000000000000000000000000000000
     460          0000000000000000000000000000000000000000000000000000
     461        }
    421462      end
    422463      object MenuItem16: TMenuItem
    423464        Action = AProgramStop
     465        Bitmap.Data = {
     466          36040000424D3604000000000000360000002800000010000000100000000100
     467          2000000000000004000064000000640000000000000000000000000000000000
     468          0000000000000000000000000000000000000000000000000000000000000000
     469          0000000000000000000000000000000000000000000000000000000000000000
     470          0000000000000000000000000000000000000000000000000000000000000000
     471          0000000000000000000000000000000000000000000000000000000000000000
     472          0000000000000000000000000000000000000000000000000000000000000000
     473          0000000000000000000000000000000000000000000000000000000000000000
     474          0000000000000000000000000000000000000000000000000000000000000000
     475          0000000000000000000000000000000000000000000000000000000000000000
     476          000000000000000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
     477          FFFF0000FFFF0000FFFF00000000000000000000000000000000000000000000
     478          000000000000000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
     479          FFFF0000FFFF0000FFFF00000000000000000000000000000000000000000000
     480          000000000000000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
     481          FFFF0000FFFF0000FFFF00000000000000000000000000000000000000000000
     482          000000000000000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
     483          FFFF0000FFFF0000FFFF00000000000000000000000000000000000000000000
     484          000000000000000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
     485          FFFF0000FFFF0000FFFF00000000000000000000000000000000000000000000
     486          000000000000000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
     487          FFFF0000FFFF0000FFFF00000000000000000000000000000000000000000000
     488          000000000000000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
     489          FFFF0000FFFF0000FFFF00000000000000000000000000000000000000000000
     490          000000000000000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
     491          FFFF0000FFFF0000FFFF00000000000000000000000000000000000000000000
     492          0000000000000000000000000000000000000000000000000000000000000000
     493          0000000000000000000000000000000000000000000000000000000000000000
     494          0000000000000000000000000000000000000000000000000000000000000000
     495          0000000000000000000000000000000000000000000000000000000000000000
     496          0000000000000000000000000000000000000000000000000000000000000000
     497          0000000000000000000000000000000000000000000000000000000000000000
     498          0000000000000000000000000000000000000000000000000000000000000000
     499          0000000000000000000000000000000000000000000000000000
     500        }
    424501      end
    425502    end

  • trunk/UMainForm.pas

    r10 r11  
    210210  ProjectFileName := 'Project.b';
    211211  MemoSource.Clear;
     212  Modified := False;
    212213  UpdateInterface;
    213214end;
    … …  
    217218  OpenDialog1.FileName := ProjectFileName;
    218219  if OpenDialog1.Execute then begin
    219     MemoSource.Lines.LoadFromFile(OpenDialog1.FileName);
     220    MemoSource.Lines.LoadFromFile(UTF8Decode(OpenDialog1.FileName));
    220221    ProjectFileName := OpenDialog1.FileName;
    221222    UpdateInterface;
     223    Modified := False;
    222224  end;
    223225end;
    … …  
    227229  SaveDialog1.FileName := ProjectFileName;
    228230  if SaveDialog1.Execute then begin
    229     MemoSource.Lines.SaveToFile(SaveDialog1.FileName);
     231    MemoSource.Lines.SaveToFile(UTF8Decode(SaveDialog1.FileName));
    230232    ProjectFileName := SaveDialog1.FileName;
    231233    Modified := False;
Note: See TracChangeset for help on using the changeset viewer.