Changeset 144


Ignore:
Timestamp:
Jun 2, 2023, 11:18:38 PM (18 months ago)
Author:
chronos
Message:
  • Modified: Removed explicit mode directive.
Location:
trunk
Files:
61 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormCPU.pas

    r67 r144  
    11unit UFormCPU;
    2 
    3 {$mode objfpc}{$H+}
    42
    53interface

  • trunk/Forms/UFormCompileMultiple.pas

    r133 r144  
    11unit UFormCompileMultiple;
    2 
    3 {$mode Delphi}
    42
    53interface

  • trunk/Forms/UFormInput.pas

    r67 r144  
    11unit UFormInput;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Forms/UFormLog.pas

    r115 r144  
    11unit UFormLog;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Forms/UFormMain.lfm

    r143 r144  
    11object FormMain: TFormMain
    22  Left = 430
    3   Height = 732
     3  Height = 703
    44  Top = 249
    5   Width = 1075
     5  Width = 1032
    66  Caption = 'LazFuck'
    7   ClientHeight = 697
    8   ClientWidth = 1075
    9   DesignTimePPI = 150
     7  ClientHeight = 669
     8  ClientWidth = 1032
     9  DesignTimePPI = 144
    1010  Menu = MainMenu1
    1111  OnClose = FormClose
    … …  
    1414  OnDestroy = FormDestroy
    1515  OnShow = FormShow
    16   LCLVersion = '2.2.0.4'
     16  LCLVersion = '2.2.6.0'
    1717  WindowState = wsMaximized
    1818  object StatusBarMain: TStatusBar
    1919    Left = 0
    2020    Height = 28
    21     Top = 669
    22     Width = 1075
     21    Top = 641
     22    Width = 1032
    2323    Panels = <   
    2424      item
    25         Width = 88
     25        Width = 84
    2626      end   
    2727      item
    28         Width = 88
     28        Width = 84
    2929      end   
    3030      item
    31         Width = 100
     31        Width = 96
    3232      end>
    3333    ParentFont = False
    … …  
    3636  object ToolBarMain: TToolBar
    3737    Left = 0
    38     Height = 34
     38    Height = 33
    3939    Top = 0
    40     Width = 1075
     40    Width = 1032
    4141    Images = Core.ImageListMain
    4242    ParentFont = False
    … …  
    5050    end
    5151    object ToolButton2: TToolButton
    52       Left = 37
     52      Left = 36
    5353      Top = 2
    5454      Action = AProjectOpen
    … …  
    5757    end
    5858    object ToolButton3: TToolButton
    59       Left = 92
     59      Left = 89
    6060      Top = 2
    6161      Action = AProjectSave
    6262    end
    6363    object ToolButton4: TToolButton
    64       Left = 128
     64      Left = 124
    6565      Top = 2
    6666      Action = AProjectClose
    6767    end
    6868    object ToolButton5: TToolButton
    69       Left = 200
    70       Height = 34
     69      Left = 194
     70      Height = 33
    7171      Top = 2
    7272      Style = tbsSeparator
    7373    end
    7474    object ToolButton6: TToolButton
    75       Left = 244
     75      Left = 237
    7676      Top = 2
    7777      Action = AProgramRun
    7878    end
    7979    object ToolButton7: TToolButton
    80       Left = 208
     80      Left = 202
    8181      Top = 2
    8282      Action = AProgramCompile
    8383    end
    8484    object ToolButton8: TToolButton
    85       Left = 164
     85      Left = 159
    8686      Top = 2
    8787      Action = AOptions
    8888    end
    8989    object ToolButton9: TToolButton
    90       Left = 352
     90      Left = 342
    9191      Top = 2
    9292      Action = ABreakpointToggle
    9393    end
    9494    object ToolButton10: TToolButton
    95       Left = 280
     95      Left = 272
    9696      Top = 2
    9797      Action = AProgramPause
    9898    end
    9999    object ToolButton11: TToolButton
    100       Left = 316
     100      Left = 307
    101101      Top = 2
    102102      Action = AProgramStop
    103103    end
    104104    object ToolButton12: TToolButton
    105       Left = 388
     105      Left = 377
    106106      Top = 2
    107107      Action = AProgramStepOver
    108108    end
    109109    object ToolButton13: TToolButton
    110       Left = 424
     110      Left = 412
    111111      Top = 2
    112112      Action = AProgramStepInto
    113113    end
    114114    object ToolButton14: TToolButton
    115       Left = 460
     115      Left = 447
    116116      Top = 2
    117117      Action = AProgramStepOut
    118118    end
    119119    object ToolButton15: TToolButton
    120       Left = 496
     120      Left = 482
    121121      Top = 2
    122122      Action = AProgramRunToCursor
    123123    end
    124124    object ToolButtonTarget: TToolButton
    125       Left = 532
     125      Left = 517
    126126      Hint = 'Target select'
    127127      Top = 2
    … …  
    132132  end
    133133  object PageControlRight: TPageControl
    134     Left = 583
    135     Height = 635
    136     Top = 34
    137     Width = 492
     134    Left = 560
     135    Height = 608
     136    Top = 33
     137    Width = 472
    138138    ActivePage = TabSheetDebug
    139139    Align = alRight
    … …  
    144144    object TabSheetDebug: TTabSheet
    145145      Caption = 'Debug'
    146       ClientHeight = 631
    147       ClientWidth = 405
     146      ClientHeight = 604
     147      ClientWidth = 390
    148148      ParentFont = False
    149149      object PanelInput: TPanel
    150150        Left = 0
    151         Height = 80
     151        Height = 77
    152152        Top = 0
    153         Width = 405
     153        Width = 390
    154154        Align = alTop
    155155        BevelOuter = bvNone
    … …  
    161161        Left = 0
    162162        Height = 6
    163         Top = 80
    164         Width = 405
     163        Top = 77
     164        Width = 390
    165165        Align = alTop
    166166        ResizeAnchor = akTop
    … …  
    168168      object PanelOutput: TPanel
    169169        Left = 0
    170         Height = 324
    171         Top = 86
    172         Width = 405
     170        Height = 311
     171        Top = 83
     172        Width = 390
    173173        Align = alTop
    174174        BevelOuter = bvNone
    … …  
    180180        Left = 0
    181181        Height = 6
    182         Top = 410
    183         Width = 405
     182        Top = 394
     183        Width = 390
    184184        Align = alTop
    185185        ResizeAnchor = akTop
    … …  
    187187      object PanelCPU: TPanel
    188188        Left = 0
    189         Height = 107
    190         Top = 416
    191         Width = 405
     189        Height = 103
     190        Top = 400
     191        Width = 390
    192192        Align = alTop
    193193        BevelOuter = bvNone
    … …  
    199199        Left = 0
    200200        Height = 6
    201         Top = 523
    202         Width = 405
     201        Top = 503
     202        Width = 390
    203203        Align = alTop
    204204        ResizeAnchor = akTop
    … …  
    206206      object PanelMemory: TPanel
    207207        Left = 0
    208         Height = 102
    209         Top = 529
    210         Width = 405
     208        Height = 95
     209        Top = 509
     210        Width = 390
    211211        Align = alClient
    212212        BevelOuter = bvNone
    … …  
    217217  end
    218218  object Splitter1: TSplitter
    219     Left = 577
    220     Height = 635
    221     Top = 34
     219    Left = 554
     220    Height = 608
     221    Top = 33
    222222    Width = 6
    223223    Align = alRight
    … …  
    226226  object PanelLeft: TPanel
    227227    Left = 0
    228     Height = 635
    229     Top = 34
    230     Width = 577
     228    Height = 608
     229    Top = 33
     230    Width = 554
    231231    Align = alClient
    232232    BevelOuter = bvNone
    233     ClientHeight = 635
    234     ClientWidth = 577
     233    ClientHeight = 608
     234    ClientWidth = 554
    235235    ParentFont = False
    236236    TabOrder = 4
    237237    object PageControlMain: TPageControl
    238238      Left = 0
    239       Height = 481
     239      Height = 460
    240240      Top = 0
    241       Width = 577
     241      Width = 554
    242242      ActivePage = TabSheetSource
    243243      Align = alClient
    … …  
    256256    object PageControlBottom: TPageControl
    257257      Left = 0
    258       Height = 148
    259       Top = 487
    260       Width = 577
     258      Height = 142
     259      Top = 466
     260      Width = 554
    261261      ActivePage = TabSheetMessages
    262262      Align = alBottom
    … …  
    274274      Left = 0
    275275      Height = 6
    276       Top = 481
    277       Width = 577
     276      Top = 460
     277      Width = 554
    278278      Align = alBottom
    279279      ResizeAnchor = akBottom
    … …  
    282282  object MainMenu1: TMainMenu
    283283    Images = Core.ImageListMain
    284     Left = 270
    285     Top = 167
     284    Left = 259
     285    Top = 160
    286286    object MenuItem1: TMenuItem
    287287      Caption = 'File'
    … …  
    389389  object ActionList1: TActionList
    390390    Images = Core.ImageListMain
    391     Left = 272
    392     Top = 240
     391    Left = 261
     392    Top = 230
    393393    object AProjectOpen: TAction
    394394      Category = 'Project'
    … …  
    540540    DefaultExt = '.b'
    541541    Filter = 'BrainFuck (*.b)|*.b|Any file (*.*)|*.*'
    542     Left = 70
    543     Top = 230
     542    Left = 67
     543    Top = 221
    544544  end
    545545  object SaveDialog1: TSaveDialog
    546546    DefaultExt = '.b'
    547547    Filter = 'BrainFuck (*.b)|*.b|Any file (*.*)|*.*'
    548     Left = 70
    549     Top = 300
     548    Left = 67
     549    Top = 288
    550550  end
    551551  object TimerRefresh: TTimer
    552552    Interval = 200
    553553    OnTimer = TimerRefreshTimer
    554     Left = 70
    555     Top = 370
     554    Left = 67
     555    Top = 355
    556556  end
    557557  object PopupMenuRecentFiles: TPopupMenu
    558     Left = 70
    559     Top = 80
     558    Left = 67
     559    Top = 77
    560560  end
    561561  object PopupMenuTargets: TPopupMenu
    562562    Images = Core.ImageListMain
    563     Left = 70
    564     Top = 149
     563    Left = 67
     564    Top = 143
    565565  end
    566566end

  • trunk/Forms/UFormMain.pas

    r143 r144  
    11unit UFormMain;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface

  • trunk/Forms/UFormMemory.lfm

    r143 r144  
    11object FormMemory: TFormMemory
    22  Left = 565
    3   Height = 418
     3  Height = 401
    44  Top = 168
    5   Width = 1082
     5  Width = 1039
    66  Caption = 'Memory'
    7   ClientHeight = 418
    8   ClientWidth = 1082
    9   DesignTimePPI = 150
    10   LCLVersion = '2.2.0.4'
     7  ClientHeight = 401
     8  ClientWidth = 1039
     9  DesignTimePPI = 144
     10  LCLVersion = '2.2.6.0'
    1111  object Label6: TLabel
    1212    Left = 6
    13     Height = 27
     13    Height = 26
    1414    Top = 6
    15     Width = 1070
     15    Width = 1027
    1616    Align = alTop
    1717    BorderSpacing.Around = 6
    1818    Caption = 'Memory:'
     19    ParentColor = False
    1920    ParentFont = False
    2021  end
    2122  object ListViewMemory: TListView
    2223    Left = 6
    23     Height = 373
    24     Top = 39
    25     Width = 1070
     24    Height = 357
     25    Top = 38
     26    Width = 1027
    2627    Align = alClient
    2728    BorderSpacing.Around = 6
    … …  
    2930      item
    3031        Caption = 'Address'
    31         Width = 125
     32        Width = 120
    3233      end   
    3334      item
    3435        Caption = 'Data'
    35         Width = 516
     36        Width = 495
    3637      end   
    3738      item
    3839        Caption = 'Text'
    39         Width = 414
     40        Width = 397
    4041      end>
    41     Font.Height = -19
     42    Font.Height = -18
    4243    Font.Name = 'Courier New'
    4344    OwnerData = True

  • trunk/Forms/UFormMemory.pas

    r143 r144  
    11unit UFormMemory;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Forms/UFormMessages.pas

    r133 r144  
    11unit UFormMessages;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Forms/UFormOptions.lfm

    r135 r144  
    11object FormOptions: TFormOptions
    22  Left = 401
    3   Height = 445
     3  Height = 427
    44  Top = 236
    5   Width = 758
     5  Width = 728
    66  Caption = 'Options'
    7   ClientHeight = 445
    8   ClientWidth = 758
    9   DesignTimePPI = 150
     7  ClientHeight = 427
     8  ClientWidth = 728
     9  DesignTimePPI = 144
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    1212  OnShow = FormShow
    13   LCLVersion = '2.2.0.4'
     13  LCLVersion = '2.2.6.0'
    1414  object ButtonOk: TButton
    15     Left = 657
    16     Height = 31
    17     Top = 406
    18     Width = 94
     15    Left = 631
     16    Height = 30
     17    Top = 389
     18    Width = 90
    1919    Anchors = [akRight, akBottom]
    2020    Caption = 'Ok'
    … …  
    2424  end
    2525  object ButtonCancel: TButton
    26     Left = 537
    27     Height = 31
    28     Top = 406
    29     Width = 94
     26    Left = 516
     27    Height = 30
     28    Top = 389
     29    Width = 90
    3030    Anchors = [akRight, akBottom]
    3131    Caption = 'Cancel'
    … …  
    3636  object PageControl1: TPageControl
    3737    Left = 10
    38     Height = 387
     38    Height = 371
    3939    Top = 10
    40     Width = 741
     40    Width = 711
    4141    ActivePage = TabSheetBuild
    4242    Anchors = [akTop, akLeft, akRight, akBottom]
    … …  
    4646    object TabSheetGeneral: TTabSheet
    4747      Caption = 'General'
    48       ClientHeight = 346
    49       ClientWidth = 731
     48      ClientHeight = 331
     49      ClientWidth = 701
    5050      ParentFont = False
    5151      object Panel1: TPanel
    5252        Left = 0
    53         Height = 346
     53        Height = 331
    5454        Top = 0
    55         Width = 731
     55        Width = 701
    5656        Align = alClient
    5757        BevelOuter = bvNone
    58         ClientHeight = 346
    59         ClientWidth = 731
     58        ClientHeight = 331
     59        ClientWidth = 701
    6060        ParentFont = False
    6161        TabOrder = 0
    6262        object Label3: TLabel
    6363          Left = 10
    64           Height = 27
    65           Top = 60
    66           Width = 177
     64          Height = 26
     65          Top = 58
     66          Width = 164
    6767          Caption = 'Interface language:'
     68          ParentColor = False
    6869          ParentFont = False
    6970        end
    7071        object ComboBoxLanguage: TComboBox
    71           Left = 320
     72          Left = 307
    7273          Height = 42
    73           Top = 60
    74           Width = 235
     74          Top = 58
     75          Width = 226
    7576          ItemHeight = 0
    7677          ParentFont = False
    … …  
    8081        object CheckBoxReopenLastFile: TCheckBox
    8182          Left = 10
    82           Height = 33
    83           Top = 106
    84           Width = 1314
     83          Height = 32
     84          Top = 102
     85          Width = 1260
    8586          Anchors = [akTop, akLeft, akRight]
    8687          AutoSize = False
    … …  
    9192        object CheckBoxDPIAuto: TCheckBox
    9293          Left = 10
    93           Height = 33
    94           Top = 156
    95           Width = 1303
     94          Height = 32
     95          Top = 150
     96          Width = 1250
    9697          Anchors = [akTop, akLeft, akRight]
    9798          AutoSize = False
    … …  
    102103        end
    103104        object LabelDPI: TLabel
    104           Left = 38
    105           Height = 27
    106           Top = 200
    107           Width = 36
     105          Left = 36
     106          Height = 26
     107          Top = 192
     108          Width = 35
    108109          Caption = 'DPI:'
     110          ParentColor = False
    109111          ParentFont = False
    110112        end
    111113        object SpinEditDPIX: TSpinEdit
    112           Left = 140
     114          Left = 134
    113115          Height = 43
    114           Top = 198
    115           Width = 100
     116          Top = 190
     117          Width = 96
    116118          MaxValue = 1000
    117119          MinValue = 1
    … …  
    121123        end
    122124        object SpinEditDPIY: TSpinEdit
    123           Left = 270
     125          Left = 259
    124126          Height = 43
    125           Top = 200
    126           Width = 100
     127          Top = 192
     128          Width = 96
    127129          MaxValue = 1000
    128130          MinValue = 1
    … …  
    132134        end
    133135        object LabelX: TLabel
    134           Left = 250
    135           Height = 27
    136           Top = 200
     136          Left = 240
     137          Height = 26
     138          Top = 192
    137139          Width = 10
    138140          Caption = 'x'
     141          ParentColor = False
    139142          ParentFont = False
    140143        end
    141144        object LabelTheme: TLabel
    142145          Left = 10
    143           Height = 27
    144           Top = 20
    145           Width = 67
     146          Height = 26
     147          Top = 19
     148          Width = 63
    146149          Caption = 'Theme:'
     150          ParentColor = False
    147151          ParentFont = False
    148152        end
    149153        object ComboBoxTheme: TComboBox
    150           Left = 320
     154          Left = 307
    151155          Height = 42
    152156          Top = 10
    153           Width = 235
     157          Width = 226
    154158          ItemHeight = 0
    155159          ParentFont = False
    … …  
    161165    object TabSheetBuild: TTabSheet
    162166      Caption = 'Build'
    163       ClientHeight = 346
    164       ClientWidth = 731
     167      ClientHeight = 331
     168      ClientWidth = 701
    165169      ParentFont = False
    166170      object Panel2: TPanel
    167171        Left = 0
    168         Height = 346
     172        Height = 331
    169173        Top = 0
    170         Width = 731
     174        Width = 701
    171175        Align = alClient
    172176        BevelOuter = bvNone
    173         ClientHeight = 346
    174         ClientWidth = 731
     177        ClientHeight = 331
     178        ClientWidth = 701
    175179        ParentFont = False
    176180        TabOrder = 0
    177181        object Label4: TLabel
    178182          Left = 10
    179           Height = 27
    180           Top = 130
    181           Width = 214
     183          Height = 26
     184          Top = 125
     185          Width = 202
    182186          Caption = 'Compiler optimizations:'
     187          ParentColor = False
    183188          ParentFont = False
    184189        end
    185190        object ComboBoxOptimization: TComboBox
    186           Left = 310
    187           Height = 39
    188           Top = 125
    189           Width = 235
     191          Left = 298
     192          Height = 38
     193          Top = 120
     194          Width = 226
    190195          ItemHeight = 0
    191196          Items.Strings = (
    … …  
    199204        end
    200205        object CheckBoxOptimizeAddSub: TCheckBox
    201           Left = 39
    202           Height = 31
    203           Top = 170
    204           Width = 249
     206          Left = 37
     207          Height = 30
     208          Top = 163
     209          Width = 236
    205210          Caption = 'Addition and subtraction'
    206211          ParentFont = False
    … …  
    208213        end
    209214        object CheckBoxOptimizeMerge: TCheckBox
    210           Left = 39
    211           Height = 31
    212           Top = 233
    213           Width = 240
     215          Left = 37
     216          Height = 30
     217          Top = 224
     218          Width = 227
    214219          Caption = 'Merge same operations'
    215220          ParentFont = False
    … …  
    217222        end
    218223        object CheckBoxOptimizeCopyMultiply: TCheckBox
    219           Left = 39
    220           Height = 31
    221           Top = 294
    222           Width = 149
     224          Left = 37
     225          Height = 30
     226          Top = 282
     227          Width = 142
    223228          Caption = 'Copy multiply'
    224229          OnChange = CheckBoxOptimizeCopyMultiplyChange
    … …  
    227232        end
    228233        object CheckBoxOptimizeRelativeIndexes: TCheckBox
    229           Left = 39
    230           Height = 31
    231           Top = 264
    232           Width = 172
     234          Left = 37
     235          Height = 30
     236          Top = 253
     237          Width = 162
    233238          Caption = 'Relative indexes'
    234239          OnChange = CheckBoxOptimizeRelativeIndexesChange
    … …  
    238243        object Label2: TLabel
    239244          Left = 10
    240           Height = 27
    241           Top = 67
    242           Width = 77
     245          Height = 26
     246          Top = 64
     247          Width = 73
    243248          Caption = 'Cell size:'
     249          ParentColor = False
    244250          ParentFont = False
    245251        end
    246252        object Label1: TLabel
    247253          Left = 10
    248           Height = 27
    249           Top = 17
    250           Width = 119
     254          Height = 26
     255          Top = 16
     256          Width = 112
    251257          Caption = 'Memory size:'
     258          ParentColor = False
    252259          ParentFont = False
    253260        end
    254261        object SpinEditMemorySize: TSpinEdit
    255           Left = 206
     262          Left = 198
    256263          Height = 43
    257264          Top = 7
    258           Width = 162
     265          Width = 156
    259266          MaxValue = 2000000000
    260267          ParentFont = False
    … …  
    262269        end
    263270        object SpinEditCellSize: TSpinEdit
    264           Left = 206
     271          Left = 198
    265272          Height = 43
    266           Top = 58
    267           Width = 162
     273          Top = 56
     274          Width = 156
    268275          MaxValue = 2000000000
    269276          ParentFont = False
    … …  
    271278        end
    272279        object CheckBoxOptimizeSetZero: TCheckBox
    273           Left = 39
    274           Height = 31
    275           Top = 200
    276           Width = 97
     280          Left = 37
     281          Height = 30
     282          Top = 192
     283          Width = 93
    277284          Caption = 'Set zero'
    278285          ParentFont = False
    … …  
    280287        end
    281288        object CheckBoxDebugEnabled: TCheckBox
    282           Left = 408
    283           Height = 31
     289          Left = 392
     290          Height = 30
    284291          Top = 12
    285           Width = 128
     292          Width = 120
    286293          Caption = 'Debugging'
    287294          ParentFont = False

  • trunk/Forms/UFormOptions.pas

    r135 r144  
    11unit UFormOptions;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface

  • trunk/Forms/UFormOutput.lfm

    r112 r144  
    88  ClientWidth = 640
    99  DesignTimePPI = 144
    10   LCLVersion = '2.0.2.0'
     10  LCLVersion = '2.2.6.0'
    1111  object Label2: TLabel
    1212    Left = 4

  • trunk/Forms/UFormOutput.pas

    r124 r144  
    11unit UFormOutput;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2321var
    2422  FormOutput: TFormOutput;
     23
    2524
    2625implementation

  • trunk/Forms/UFormSourceCode.lfm

    r143 r144  
    11object FormSourceCode: TFormSourceCode
    22  Left = 459
    3   Height = 614
     3  Height = 589
    44  Top = 278
    5   Width = 700
     5  Width = 672
    66  Caption = 'Source code'
    7   ClientHeight = 614
    8   ClientWidth = 700
    9   DesignTimePPI = 150
     7  ClientHeight = 589
     8  ClientWidth = 672
     9  DesignTimePPI = 144
    1010  OnCreate = FormCreate
    1111  OnDestroy = FormDestroy
    12   LCLVersion = '2.2.0.4'
     12  LCLVersion = '2.2.6.0'
    1313  inline SynEditSource: TSynEdit
    1414    Left = 0
    15     Height = 614
     15    Height = 589
    1616    Top = 0
    17     Width = 700
     17    Width = 672
    1818    Align = alClient
    19     Font.Height = -17
     19    Font.Height = -16
    2020    Font.Name = 'Courier New'
    2121    Font.Pitch = fpFixed
    … …  
    2929    OnKeyUp = MemoSourceKeyUp
    3030    OnMouseDown = MemoSourceMouseDown
    31     Gutter.Width = 83
     31    Gutter.Width = 80
    3232    Gutter.MouseActions = <>
    3333    RightGutter.Width = 0
    … …  
    479479    inline SynLeftGutterPartList1: TSynGutterPartList
    480480      object SynGutterMarks1: TSynGutterMarks
    481         Width = 38
     481        Width = 36
    482482        MouseActions = <>
    483483      end
    … …  
    506506      object SynGutterCodeFolding1: TSynGutterCodeFolding
    507507        AutoSize = False
    508         Width = 15
     508        Width = 14
    509509        MouseActions = <>
    510510        MarkupInfo.Background = clNone
    … …  
    517517  object PopupMenuSource: TPopupMenu
    518518    Images = Core.ImageListMain
    519     Left = 160
    520     Top = 160
     519    Left = 154
     520    Top = 154
    521521    object MenuItem23: TMenuItem
    522522      Action = FormMain.ABreakpointToggle
    … …  
    597597  object ActionList1: TActionList
    598598    Images = Core.ImageListMain
    599     Left = 158
    600     Top = 70
     599    Left = 152
     600    Top = 67
    601601    object AGenerateNumber: TAction
    602602      Caption = 'Generate number'
    … …  
    656656    DefaultFilter = 'Soubory Java (*.java)|*.java'
    657657    Enabled = False
    658     Left = 506
    659     Top = 329
     658    Left = 486
     659    Top = 316
    660660  end
    661661end

  • trunk/Forms/UFormSourceCode.pas

    r143 r144  
    11unit UFormSourceCode;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    75uses
    86  Classes, SysUtils, FileUtil, SynEdit, SynHighlighterIni, Forms, Controls,
    9   Graphics, Dialogs, Menus, ActnList, strutils,
     7  Graphics, Dialogs, Menus, ActnList,
    108  SynEditHighlighter, SynHighlighterAny, SynHighlighterJava, UBFHighlighter;
    119

  • trunk/Forms/UFormTargetCode.pas

    r128 r144  
    11unit UFormTargetCode;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Forms/UFormTargetOptions.pas

    r115 r144  
    11unit UFormTargetOptions;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Forms/UFormTargets.lfm

    r133 r144  
    11object FormTargets: TFormTargets
    22  Left = 294
    3   Height = 430
     3  Height = 413
    44  Top = 172
    5   Width = 718
     5  Width = 689
    66  Caption = 'Compilers'
    7   ClientHeight = 430
    8   ClientWidth = 718
    9   DesignTimePPI = 150
     7  ClientHeight = 413
     8  ClientWidth = 689
     9  DesignTimePPI = 144
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    1212  OnShow = FormShow
    13   LCLVersion = '2.2.0.4'
     13  LCLVersion = '2.2.6.0'
    1414  object ListView1: TListView
    1515    Left = 10
    16     Height = 410
     16    Height = 393
    1717    Top = 10
    18     Width = 701
     18    Width = 672
    1919    Anchors = [akTop, akLeft, akRight, akBottom]
    2020    Columns = <   
    2121      item
    2222        Caption = 'Name'
    23         Width = 100
     23        Width = 96
    2424      end   
    2525      item
    2626        Caption = 'Execution path'
    27         Width = 250
     27        Width = 240
    2828      end   
    2929      item
    3030        Caption = 'Compiler path'
    31         Width = 336
     31        Width = 323
    3232      end>
    3333    OwnerData = True

  • trunk/Forms/UFormTargets.pas

    r133 r144  
    11unit UFormTargets;
    2 
    3 {$mode objfpc}{$H+}
    42
    53interface

  • trunk/LazFuck.lpi

    r143 r144  
    289289    <Linking>
    290290      <Debugging>
     291        <DebugInfoType Value="dsDwarf2Set"/>
    291292        <UseHeaptrc Value="True"/>
    292293        <UseExternalDbgSyms Value="True"/>

  • trunk/Packages/Common/UAboutDialog.pas

    r129 r144  
    11unit UAboutDialog;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Packages/Common/UApplicationInfo.pas

    r116 r144  
    11unit UApplicationInfo;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Packages/Common/UCommon.pas

    r139 r144  
    11unit UCommon;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Packages/Common/UDebugLog.pas

    r102 r144  
    11unit UDebugLog;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Packages/Common/UDelay.pas

    r54 r144  
    11unit UDelay;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Packages/Common/UFormAbout.pas

    r122 r144  
    11unit UFormAbout;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Packages/Common/UGeometric.pas

    r129 r144  
    11unit UGeometric;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Packages/Common/UJobProgressView.pas

    r130 r144  
    11unit UJobProgressView;
    2 
    3 {$MODE Delphi}
    42
    53interface
    … …  
    642640begin
    643641  FLock.Free;
    644   inherited Destroy;
     642  inherited;
    645643end;
    646644

  • trunk/Packages/Common/ULanguages.pas

    r122 r144  
    11unit ULanguages;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface

  • trunk/Packages/Common/ULastOpenedList.pas

    r133 r144  
    11unit ULastOpenedList;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Packages/Common/UListViewSort.pas

    r122 r144  
    22
    33// Date: 2019-05-17
    4 
    5 {$mode delphi}
    64
    75interface

  • trunk/Packages/Common/UMemory.pas

    r105 r144  
    11unit UMemory;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface

  • trunk/Packages/Common/UMetaCanvas.pas

    r129 r144  
    11unit UMetaCanvas;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Packages/Common/UPersistentForm.pas

    r116 r144  
    11unit UPersistentForm;
    2 
    3 {$mode delphi}
    42
    53// Date: 2020-11-26

  • trunk/Packages/Common/UPool.pas

    r102 r144  
    11unit UPool;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface

  • trunk/Packages/Common/UPrefixMultiplier.pas

    r102 r144  
    22
    33// Date: 2010-06-01
    4 
    5 {$mode delphi}
    64
    75interface

  • trunk/Packages/Common/URegistry.pas

    r129 r144  
    11unit URegistry;
    2 
    3 {$MODE delphi}
    42
    53interface

  • trunk/Packages/Common/UResetableThread.pas

    r93 r144  
    11unit UResetableThread;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface

  • trunk/Packages/Common/UScaleDPI.pas

    r129 r144  
    22
    33{ See: http://wiki.lazarus.freepascal.org/High_DPI }
    4 
    5 {$mode delphi}{$H+}
    64
    75interface

  • trunk/Packages/Common/UStringTable.pas

    r93 r144  
    11unit UStringTable;
    2 
    3 {$mode objfpc}{$H+}
    42
    53interface

  • trunk/Packages/Common/USyncCounter.pas

    r59 r144  
    11unit USyncCounter;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    6967begin
    7068  Lock.Free;
    71   inherited Destroy;
     69  inherited;
    7270end;
    7371

  • trunk/Packages/Common/UThreading.pas

    r116 r144  
    11unit UThreading;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Packages/Common/UTranslator.pas

    r122 r144  
    11unit UTranslator;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface

  • trunk/Packages/Common/UURI.pas

    r93 r144  
    22
    33// Date: 2011-04-04
    4 
    5 {$mode delphi}
    64
    75interface

  • trunk/Packages/Common/UXMLUtils.pas

    r102 r144  
    11unit UXMLUtils;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Target/UTargetC.pas

    r135 r144  
    11unit UTargetC;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface

  • trunk/Target/UTargetCSharp.pas

    r133 r144  
    11unit UTargetCSharp;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface

  • trunk/Target/UTargetDelphi.pas

    r133 r144  
    11unit UTargetDelphi;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface

  • trunk/Target/UTargetFPC.pas

    r133 r144  
    11unit UTargetFPC;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface

  • trunk/Target/UTargetInterpretter.pas

    r137 r144  
    11unit UTargetInterpretter;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface
    … …  
    173171
    174172procedure TTargetInterpretter.PrepareJumpTable;
    175 var
    176   Loop: array of Integer;
     173type
     174  TArrayOfInteger = array of Integer;
     175var
     176  Loop: TArrayOfInteger;
    177177  I: Integer;
    178178begin
    … …  
    184184  end;
    185185
    186   SetLength(Loop, 0);
     186  Loop := Default(TArrayOfInteger);
    187187  for I := 0 to FProgram.Count - 1 do begin
    188188    case FProgram[I].Command of

  • trunk/Target/UTargetJava.pas

    r133 r144  
    11unit UTargetJava;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface

  • trunk/Target/UTargetJavascript.pas

    r135 r144  
    11unit UTargetJavascript;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface

  • trunk/Target/UTargetPHP.pas

    r133 r144  
    11unit UTargetPHP;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface

  • trunk/Target/UTargetPython.pas

    r133 r144  
    11unit UTargetPython;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface

  • trunk/UBFCodeTools.pas

    r143 r144  
    11unit UBFCodeTools;
    2 
    3 {$mode Delphi}
    42
    53interface

  • trunk/UBFHighlighter.pas

    r125 r144  
    4747
    4848*)
    49 
    50 {$mode objfpc}{$H+}
    5149
    5250interface
    … …  
    142140
    143141  // Ensure the HL reacts to changes in the attributes. Do this once, if all attributes are created
    144   SetAttributesOnChange(@DefHighlightChange);
     142  SetAttributesOnChange(DefHighlightChange);
    145143end;
    146144

  • trunk/UBFTarget.pas

    r137 r144  
    11unit UBFTarget;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/UCore.lfm

    r143 r144  
    33  OnDestroy = DataModuleDestroy
    44  OldCreateOrder = False
    5   Height = 451
    6   HorizontalOffset = 826
    7   VerticalOffset = 463
    8   Width = 530
    9   PPI = 150
     5  Height = 433
     6  HorizontalOffset = 793
     7  VerticalOffset = 444
     8  Width = 509
     9  PPI = 144
    1010  object ApplicationInfo: TApplicationInfo
    1111    Identification = 1
    … …  
    541541      0000000000000000000000000000000000000000000000000000
    542542    }
    543     Left = 113
    544     Top = 25
     543    Left = 108
     544    Top = 24
    545545  end
    546546  object Translator: TTranslator
    547547    POFilesFolder = 'Languages'
    548548    OnTranslate = TranslatorTranslate
    549     Left = 113
    550     Top = 113
     549    Left = 108
     550    Top = 108
    551551  end
    552552  object LastOpenedList: TLastOpenedList
    553553    MaxCount = 10
    554     Left = 113
    555     Top = 200
     554    Left = 108
     555    Top = 192
    556556  end
    557557  object PersistentForm1: TPersistentForm
    558558    MinVisiblePart = 50
    559559    EntireVisible = False
    560     Left = 113
    561     Top = 288
     560    Left = 108
     561    Top = 276
    562562  end
    563563  object ImageListMain: TImageList
    564     Left = 384
    565     Top = 25
     564    Left = 369
     565    Top = 24
    566566    Bitmap = {
    567567      4C7A1E0000001000000010000000571700000000000078DAED9C07585457DAC7
    … …  
    757757  object ScaleDPI1: TScaleDPI
    758758    AutoDetect = False
    759     Left = 388
    760     Top = 125
     759    Left = 372
     760    Top = 120
    761761  end
    762762  object ThemeManager: TThemeManager
    763     Left = 377
    764     Top = 218
     763    Left = 362
     764    Top = 209
    765765  end
    766766  object AboutDialog: TAboutDialog
    … …  
    768768    ThemeManager = ThemeManager
    769769    ApplicationInfo = ApplicationInfo
    770     Left = 377
    771     Top = 300
     770    Left = 362
     771    Top = 288
    772772  end
    773773end

  • trunk/UCore.pas

    r136 r144  
    11unit UCore;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/UProject.pas

    r135 r144  
    11unit UProject;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/UTarget.pas

    r137 r144  
    11unit UTarget;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface
Note: See TracChangeset for help on using the changeset viewer.