diff -Nru lazfuck-1.0.0/debian/bzr-builder.manifest lazfuck-1.0.0/debian/bzr-builder.manifest --- lazfuck-1.0.0/debian/bzr-builder.manifest 2018-12-27 12:01:34.000000000 +0000 +++ lazfuck-1.0.0/debian/bzr-builder.manifest 2019-05-04 23:17:13.000000000 +0000 @@ -1,3 +1,3 @@ -# bzr-builder format 0.3 deb-version {debupstream}-0~99 -lp:lazfuck revid:svn-v4:8f951928-150e-425b-8e1e-bdb2ea7c2867:trunk:100 +# bzr-builder format 0.3 deb-version {debupstream}-0~101 +lp:lazfuck revid:svn-v4:8f951928-150e-425b-8e1e-bdb2ea7c2867:trunk:103 nest packaging lp:~chronoscz/lazfuck/debian-packaging debian revid:svn-v4:8f951928-150e-425b-8e1e-bdb2ea7c2867:trunk/Install/deb/debian:100 diff -Nru lazfuck-1.0.0/debian/changelog lazfuck-1.0.0/debian/changelog --- lazfuck-1.0.0/debian/changelog 2018-12-27 12:01:34.000000000 +0000 +++ lazfuck-1.0.0/debian/changelog 2019-05-04 23:17:13.000000000 +0000 @@ -1,8 +1,8 @@ -lazfuck (1.0.0-0~99~ubuntu18.04.1) bionic; urgency=low +lazfuck (1.0.0-0~101~ubuntu18.04.1) bionic; urgency=low * Auto build. - -- Jiří Hajda Thu, 27 Dec 2018 12:01:34 +0000 + -- Jiří Hajda Sat, 04 May 2019 23:17:13 +0000 lazfuck (1.0.0-0) precise; urgency=low diff -Nru lazfuck-1.0.0/Forms/UFormAbout.lfm lazfuck-1.0.0/Forms/UFormAbout.lfm --- lazfuck-1.0.0/Forms/UFormAbout.lfm 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormAbout.lfm 2019-05-04 23:17:13.000000000 +0000 @@ -1,82 +1,87 @@ object FormAbout: TFormAbout Left = 656 - Height = 301 + Height = 361 Top = 379 - Width = 515 + Width = 618 Caption = 'About' - ClientHeight = 301 - ClientWidth = 515 - DesignTimePPI = 120 + ClientHeight = 361 + ClientWidth = 618 + DesignTimePPI = 144 OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter - LCLVersion = '1.8.2.0' + LCLVersion = '2.0.0.4' object LabelDescription: TLabel - Left = 20 + Left = 24 Height = 1 - Top = 132 - Width = 475 + Top = 158 + Width = 570 Align = alTop - BorderSpacing.Around = 20 + BorderSpacing.Around = 24 ParentColor = False + ParentFont = False WordWrap = True end object ButtonClose: TButton - Left = 402 - Height = 25 - Top = 261 - Width = 93 + Left = 482 + Height = 30 + Top = 313 + Width = 112 Anchors = [akRight, akBottom] Caption = 'Close' ModalResult = 1 + ParentFont = False TabOrder = 0 end object LabelContent: TLabel - Left = 20 - Height = 20 - Top = 153 - Width = 475 + Left = 24 + Height = 25 + Top = 183 + Width = 570 Align = alTop - BorderSpacing.Around = 20 + BorderSpacing.Around = 24 Caption = ' ' ParentColor = False + ParentFont = False end object ButtonHomePage: TButton - Left = 16 - Height = 25 - Top = 261 - Width = 176 + Left = 19 + Height = 30 + Top = 313 + Width = 211 Anchors = [akLeft, akBottom] Caption = 'Home page' OnClick = ButtonHomePageClick + ParentFont = False TabOrder = 1 end object Panel1: TPanel Left = 0 - Height = 112 + Height = 134 Top = 0 - Width = 515 + Width = 618 Align = alTop BevelOuter = bvNone - ClientHeight = 112 - ClientWidth = 515 + ClientHeight = 134 + ClientWidth = 618 + ParentFont = False TabOrder = 2 object Image1: TImage - Left = 24 - Height = 66 - Top = 16 - Width = 69 + Left = 29 + Height = 79 + Top = 19 + Width = 83 end object LabelAppName: TLabel Left = 104 - Height = 92 + Height = 114 Top = 16 - Width = 388 + Width = 491 Align = alCustom Anchors = [akTop, akLeft, akRight, akBottom] AutoSize = False - BorderSpacing.Around = 20 - Font.Height = -50 + BorderSpacing.Around = 24 + Font.Height = -60 ParentColor = False ParentFont = False end diff -Nru lazfuck-1.0.0/Forms/UFormAbout.lrj lazfuck-1.0.0/Forms/UFormAbout.lrj --- lazfuck-1.0.0/Forms/UFormAbout.lrj 1970-01-01 00:00:00.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormAbout.lrj 2019-05-04 23:17:13.000000000 +0000 @@ -0,0 +1,6 @@ +{"version":1,"strings":[ +{"hash":4691652,"name":"tformabout.caption","sourcebytes":[65,98,111,117,116],"value":"About"}, +{"hash":4863637,"name":"tformabout.buttonclose.caption","sourcebytes":[67,108,111,115,101],"value":"Close"}, +{"hash":8736,"name":"tformabout.labelcontent.caption","sourcebytes":[32,32,32],"value":" "}, +{"hash":58140853,"name":"tformabout.buttonhomepage.caption","sourcebytes":[72,111,109,101,32,112,97,103,101],"value":"Home page"} +]} diff -Nru lazfuck-1.0.0/Forms/UFormAbout.lrt lazfuck-1.0.0/Forms/UFormAbout.lrt --- lazfuck-1.0.0/Forms/UFormAbout.lrt 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormAbout.lrt 1970-01-01 00:00:00.000000000 +0000 @@ -1,6 +0,0 @@ -TFORMABOUT.CAPTION=About -TFORMABOUT.LABELDESCRIPTION.CAPTION=Simple BrainFuck IDE written in Lazarus/FPC. -TFORMABOUT.BUTTONCLOSE.CAPTION=Close -TFORMABOUT.LABELCONTENT.CAPTION= -TFORMABOUT.BUTTONHOMEPAGE.CAPTION=Home page -TFORMABOUT.LABELAPPNAME.CAPTION=LazFuck diff -Nru lazfuck-1.0.0/Forms/UFormCPU.lfm lazfuck-1.0.0/Forms/UFormCPU.lfm --- lazfuck-1.0.0/Forms/UFormCPU.lfm 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormCPU.lfm 2019-05-04 23:17:13.000000000 +0000 @@ -1,74 +1,83 @@ object FormCPU: TFormCPU Left = 262 - Height = 287 + Height = 430 Top = 127 - Width = 414 + Width = 621 Caption = 'CPU' - ClientHeight = 287 - ClientWidth = 414 - LCLVersion = '1.3' + ClientHeight = 430 + ClientWidth = 621 + DesignTimePPI = 144 + LCLVersion = '2.0.0.4' object Label4: TLabel - Left = 8 + Left = 12 Height = 25 - Top = 48 - Width = 124 + Top = 72 + Width = 104 Caption = 'Step counter:' ParentColor = False + ParentFont = False end object Label7: TLabel - Left = 8 + Left = 12 Height = 25 - Top = 72 - Width = 63 + Top = 108 + Width = 54 Caption = 'Speed:' ParentColor = False + ParentFont = False end object LabelStepSpeed: TLabel - Left = 192 + Left = 288 Height = 25 - Top = 72 + Top = 108 Width = 15 Caption = ' ' ParentColor = False + ParentFont = False end object LabelStepCounter: TLabel - Left = 192 + Left = 288 Height = 25 - Top = 48 + Top = 72 Width = 15 Caption = ' ' ParentColor = False + ParentFont = False end object LabelMemoryPointer: TLabel - Left = 192 + Left = 288 Height = 25 - Top = 24 + Top = 36 Width = 15 Caption = ' ' ParentColor = False + ParentFont = False end object LabelProgramPointer: TLabel - Left = 192 + Left = 288 Height = 25 Top = 0 Width = 15 Caption = ' ' ParentColor = False + ParentFont = False end object Label3: TLabel - Left = 8 + Left = 12 Height = 25 Top = 0 - Width = 159 + Width = 135 Caption = 'Program pointer:' ParentColor = False + ParentFont = False end object Label5: TLabel - Left = 8 + Left = 12 Height = 25 - Top = 24 - Width = 156 + Top = 36 + Width = 133 Caption = 'Memory pointer:' ParentColor = False + ParentFont = False end end diff -Nru lazfuck-1.0.0/Forms/UFormCPU.lrj lazfuck-1.0.0/Forms/UFormCPU.lrj --- lazfuck-1.0.0/Forms/UFormCPU.lrj 1970-01-01 00:00:00.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormCPU.lrj 2019-05-04 23:17:13.000000000 +0000 @@ -0,0 +1,11 @@ +{"version":1,"strings":[ +{"hash":18517,"name":"tformcpu.caption","sourcebytes":[67,80,85],"value":"CPU"}, +{"hash":204049034,"name":"tformcpu.label4.caption","sourcebytes":[83,116,101,112,32,99,111,117,110,116,101,114,58],"value":"Step counter:"}, +{"hash":94813050,"name":"tformcpu.label7.caption","sourcebytes":[83,112,101,101,100,58],"value":"Speed:"}, +{"hash":8736,"name":"tformcpu.labelstepspeed.caption","sourcebytes":[32,32,32],"value":" "}, +{"hash":8736,"name":"tformcpu.labelstepcounter.caption","sourcebytes":[32,32,32],"value":" "}, +{"hash":8736,"name":"tformcpu.labelmemorypointer.caption","sourcebytes":[32,32,32],"value":" "}, +{"hash":8736,"name":"tformcpu.labelprogrampointer.caption","sourcebytes":[32,32,32],"value":" "}, +{"hash":193405466,"name":"tformcpu.label3.caption","sourcebytes":[80,114,111,103,114,97,109,32,112,111,105,110,116,101,114,58],"value":"Program pointer:"}, +{"hash":28068074,"name":"tformcpu.label5.caption","sourcebytes":[77,101,109,111,114,121,32,112,111,105,110,116,101,114,58],"value":"Memory pointer:"} +]} diff -Nru lazfuck-1.0.0/Forms/UFormCPU.lrt lazfuck-1.0.0/Forms/UFormCPU.lrt --- lazfuck-1.0.0/Forms/UFormCPU.lrt 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormCPU.lrt 1970-01-01 00:00:00.000000000 +0000 @@ -1,9 +0,0 @@ -TFORMCPU.CAPTION=CPU -TFORMCPU.LABEL4.CAPTION=Step counter: -TFORMCPU.LABEL7.CAPTION=Speed: -TFORMCPU.LABELSTEPSPEED.CAPTION= -TFORMCPU.LABELSTEPCOUNTER.CAPTION= -TFORMCPU.LABELMEMORYPOINTER.CAPTION= -TFORMCPU.LABELPROGRAMPOINTER.CAPTION= -TFORMCPU.LABEL3.CAPTION=Program pointer: -TFORMCPU.LABEL5.CAPTION=Memory pointer: diff -Nru lazfuck-1.0.0/Forms/UFormInput.lfm lazfuck-1.0.0/Forms/UFormInput.lfm --- lazfuck-1.0.0/Forms/UFormInput.lfm 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormInput.lfm 2019-05-04 23:17:13.000000000 +0000 @@ -1,20 +1,21 @@ object FormInput: TFormInput Left = 256 - Height = 240 + Height = 360 Top = 32 - Width = 320 + Width = 480 Caption = 'Input' - ClientHeight = 240 - ClientWidth = 320 - LCLVersion = '1.3' + ClientHeight = 360 + ClientWidth = 480 + DesignTimePPI = 144 + LCLVersion = '2.0.0.4' object MemoInput: TMemo - Left = 4 - Height = 203 - Top = 33 - Width = 312 + Left = 6 + Height = 317 + Top = 37 + Width = 468 Align = alClient - BorderSpacing.Around = 4 - Font.Height = -12 + BorderSpacing.Around = 6 + Font.Height = -18 Font.Name = 'Courier New' OnKeyPress = MemoInputKeyPress ParentFont = False @@ -22,13 +23,14 @@ TabOrder = 0 end object Label1: TLabel - Left = 4 + Left = 6 Height = 25 - Top = 4 - Width = 312 + Top = 6 + Width = 468 Align = alTop - BorderSpacing.Around = 4 + BorderSpacing.Around = 6 Caption = 'Input:' ParentColor = False + ParentFont = False end end diff -Nru lazfuck-1.0.0/Forms/UFormInput.lrj lazfuck-1.0.0/Forms/UFormInput.lrj --- lazfuck-1.0.0/Forms/UFormInput.lrj 1970-01-01 00:00:00.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormInput.lrj 2019-05-04 23:17:13.000000000 +0000 @@ -0,0 +1,4 @@ +{"version":1,"strings":[ +{"hash":5265348,"name":"tforminput.caption","sourcebytes":[73,110,112,117,116],"value":"Input"}, +{"hash":84245626,"name":"tforminput.label1.caption","sourcebytes":[73,110,112,117,116,58],"value":"Input:"} +]} diff -Nru lazfuck-1.0.0/Forms/UFormInput.lrt lazfuck-1.0.0/Forms/UFormInput.lrt --- lazfuck-1.0.0/Forms/UFormInput.lrt 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormInput.lrt 1970-01-01 00:00:00.000000000 +0000 @@ -1,2 +0,0 @@ -TFORMINPUT.CAPTION=Input -TFORMINPUT.LABEL1.CAPTION=Input: diff -Nru lazfuck-1.0.0/Forms/UFormLog.lfm lazfuck-1.0.0/Forms/UFormLog.lfm --- lazfuck-1.0.0/Forms/UFormLog.lfm 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormLog.lfm 2019-05-04 23:17:13.000000000 +0000 @@ -1,20 +1,21 @@ object FormLog: TFormLog Left = 651 - Height = 500 + Height = 600 Top = 282 - Width = 800 + Width = 960 Caption = 'Log' - ClientHeight = 500 - ClientWidth = 800 - DesignTimePPI = 120 + ClientHeight = 600 + ClientWidth = 960 + DesignTimePPI = 144 OnCreate = FormCreate - LCLVersion = '1.8.2.0' + LCLVersion = '2.0.0.4' object Memo1: TMemo Left = 0 - Height = 500 + Height = 600 Top = 0 - Width = 800 + Width = 960 Align = alClient + ParentFont = False ReadOnly = True ScrollBars = ssAutoBoth TabOrder = 0 diff -Nru lazfuck-1.0.0/Forms/UFormLog.lrj lazfuck-1.0.0/Forms/UFormLog.lrj --- lazfuck-1.0.0/Forms/UFormLog.lrj 1970-01-01 00:00:00.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormLog.lrj 2019-05-04 23:17:13.000000000 +0000 @@ -0,0 +1,3 @@ +{"version":1,"strings":[ +{"hash":21335,"name":"tformlog.caption","sourcebytes":[76,111,103],"value":"Log"} +]} diff -Nru lazfuck-1.0.0/Forms/UFormLog.lrt lazfuck-1.0.0/Forms/UFormLog.lrt --- lazfuck-1.0.0/Forms/UFormLog.lrt 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormLog.lrt 1970-01-01 00:00:00.000000000 +0000 @@ -1 +0,0 @@ -TFORMLOG.CAPTION=Log diff -Nru lazfuck-1.0.0/Forms/UFormMain.lfm lazfuck-1.0.0/Forms/UFormMain.lfm --- lazfuck-1.0.0/Forms/UFormMain.lfm 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormMain.lfm 2019-05-04 23:17:13.000000000 +0000 @@ -4,40 +4,42 @@ Top = 226 Width = 860 Caption = 'LazFuck' - ClientHeight = 561 + ClientHeight = 556 ClientWidth = 860 - DesignTimePPI = 120 + DesignTimePPI = 144 Menu = MainMenu1 OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - LCLVersion = '1.8.2.0' + LCLVersion = '2.0.0.4' WindowState = wsMaximized object StatusBarMain: TStatusBar Left = 0 - Height = 28 - Top = 533 + Height = 36 + Top = 520 Width = 860 Panels = < item - Width = 70 + Width = 84 end item - Width = 70 + Width = 84 end item - Width = 80 + Width = 96 end> + ParentFont = False SimplePanel = False end object ToolBarMain: TToolBar Left = 0 - Height = 26 + Height = 31 Top = 0 Width = 860 Images = Core.ImageListMain + ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 @@ -47,80 +49,80 @@ Action = AProjectNew end object ToolButton2: TToolButton - Left = 30 + Left = 36 Top = 2 Action = AProjectOpen DropdownMenu = PopupMenuRecentFiles Style = tbsDropDown end object ToolButton3: TToolButton - Left = 74 + Left = 89 Top = 2 Action = AProjectSave end object ToolButton4: TToolButton - Left = 103 + Left = 124 Top = 2 Action = AProjectClose end object ToolButton5: TToolButton - Left = 161 - Height = 28 + Left = 194 + Height = 33 Top = 2 Style = tbsSeparator end object ToolButton6: TToolButton - Left = 198 + Left = 239 Top = 2 Action = AProgramRun end object ToolButton7: TToolButton - Left = 169 + Left = 204 Top = 2 Action = AProgramCompile end object ToolButton8: TToolButton - Left = 132 + Left = 159 Top = 2 Action = AOptions end object ToolButton9: TToolButton - Left = 285 + Left = 344 Top = 2 Action = ABreakpointToggle end object ToolButton10: TToolButton - Left = 227 + Left = 274 Top = 2 Action = AProgramPause end object ToolButton11: TToolButton - Left = 256 + Left = 309 Top = 2 Action = AProgramStop end object ToolButton12: TToolButton - Left = 314 + Left = 379 Top = 2 Action = AProgramStepOver end object ToolButton13: TToolButton - Left = 343 + Left = 414 Top = 2 Action = AProgramStepInto end object ToolButton14: TToolButton - Left = 372 + Left = 449 Top = 2 Action = AProgramStepOut end object ToolButton15: TToolButton - Left = 401 + Left = 484 Top = 2 Action = AProgramRunToCursor end object ToolButtonTarget: TToolButton - Left = 430 + Left = 519 Hint = 'Target select' Top = 2 Caption = 'Target select' @@ -129,107 +131,114 @@ end end object PageControlRight: TPageControl - Left = 467 - Height = 507 - Top = 26 - Width = 393 + Left = 388 + Height = 489 + Top = 31 + Width = 472 ActivePage = TabSheetDebug Align = alRight + ParentFont = False TabIndex = 0 TabOrder = 2 TabPosition = tpRight object TabSheetDebug: TTabSheet Caption = 'Debug' - ClientHeight = 499 - ClientWidth = 359 + ClientHeight = 481 + ClientWidth = 434 + ParentFont = False object PanelInput: TPanel Left = 0 - Height = 64 + Height = 77 Top = 0 - Width = 359 + Width = 434 Align = alTop BevelOuter = bvNone + ParentFont = False TabOrder = 0 end object Splitter3: TSplitter Cursor = crVSplit Left = 0 - Height = 5 - Top = 64 - Width = 359 + Height = 6 + Top = 77 + Width = 434 Align = alTop ResizeAnchor = akTop end object PanelOutput: TPanel Left = 0 - Height = 259 - Top = 69 - Width = 359 + Height = 311 + Top = 83 + Width = 434 Align = alTop BevelOuter = bvNone + ParentFont = False TabOrder = 2 end object Splitter4: TSplitter Cursor = crVSplit Left = 0 - Height = 5 - Top = 328 - Width = 359 + Height = 6 + Top = 394 + Width = 434 Align = alTop ResizeAnchor = akTop end object PanelCPU: TPanel Left = 0 - Height = 86 - Top = 333 - Width = 359 + Height = 103 + Top = 400 + Width = 434 Align = alTop BevelOuter = bvNone + ParentFont = False TabOrder = 4 end object Splitter5: TSplitter Cursor = crVSplit Left = 0 - Height = 5 - Top = 419 - Width = 359 + Height = 6 + Top = 481 + Width = 434 Align = alTop ResizeAnchor = akTop end object PanelMemory: TPanel Left = 0 - Height = 75 - Top = 424 - Width = 359 + Height = 0 + Top = 481 + Width = 434 Align = alClient BevelOuter = bvNone + ParentFont = False TabOrder = 6 end end end object Splitter1: TSplitter - Left = 462 - Height = 507 - Top = 26 - Width = 5 + Left = 382 + Height = 489 + Top = 31 + Width = 6 Align = alRight ResizeAnchor = akRight end object PanelLeft: TPanel Left = 0 - Height = 507 - Top = 26 - Width = 462 + Height = 489 + Top = 31 + Width = 382 Align = alClient BevelOuter = bvNone - ClientHeight = 507 - ClientWidth = 462 + ClientHeight = 489 + ClientWidth = 382 + ParentFont = False TabOrder = 4 object PageControlMain: TPageControl Left = 0 - Height = 384 + Height = 341 Top = 0 - Width = 462 + Width = 382 ActivePage = TabSheetSource Align = alClient ParentFont = False @@ -237,39 +246,43 @@ TabOrder = 0 object TabSheetSource: TTabSheet Caption = 'Source code' + ParentFont = False end object TabSheetTarget: TTabSheet Caption = 'Target code' + ParentFont = False end end object PageControlBottom: TPageControl Left = 0 - Height = 118 - Top = 389 - Width = 462 + Height = 142 + Top = 347 + Width = 382 ActivePage = TabSheetMessages Align = alBottom + ParentFont = False TabIndex = 0 TabOrder = 1 TabPosition = tpBottom object TabSheetMessages: TTabSheet Caption = 'Messages' + ParentFont = False end end object Splitter2: TSplitter Cursor = crVSplit Left = 0 - Height = 5 - Top = 384 - Width = 462 + Height = 6 + Top = 341 + Width = 382 Align = alBottom ResizeAnchor = akBottom end end object MainMenu1: TMainMenu Images = Core.ImageListMain - left = 216 - top = 136 + left = 259 + top = 163 object MenuItem1: TMenuItem Caption = 'Project' object MenuItem8: TMenuItem @@ -369,8 +382,8 @@ end object ActionList1: TActionList Images = Core.ImageListMain - left = 216 - top = 192 + left = 259 + top = 230 object AProjectOpen: TAction Category = 'Project' Caption = 'Open' @@ -515,27 +528,27 @@ object OpenDialog1: TOpenDialog DefaultExt = '.b' Filter = 'BrainFuck (*.b)|*.b|Any file (*.*)|*.*' - left = 56 - top = 184 + left = 67 + top = 221 end object SaveDialog1: TSaveDialog DefaultExt = '.b' Filter = 'BrainFuck (*.b)|*.b|Any file (*.*)|*.*' - left = 56 - top = 240 + left = 67 + top = 288 end object TimerRefresh: TTimer OnTimer = TimerRefreshTimer - left = 56 - top = 296 + left = 67 + top = 355 end object PopupMenuRecentFiles: TPopupMenu - left = 56 - top = 64 + left = 67 + top = 77 end object PopupMenuTargets: TPopupMenu Images = Core.ImageListMain - left = 56 - top = 119 + left = 67 + top = 143 end end diff -Nru lazfuck-1.0.0/Forms/UFormMain.lrj lazfuck-1.0.0/Forms/UFormMain.lrj --- lazfuck-1.0.0/Forms/UFormMain.lrj 1970-01-01 00:00:00.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormMain.lrj 2019-05-04 23:17:13.000000000 +0000 @@ -0,0 +1,39 @@ +{"version":1,"strings":[ +{"hash":42916811,"name":"tformmain.caption","sourcebytes":[76,97,122,70,117,99,107],"value":"LazFuck"}, +{"hash":219477908,"name":"tformmain.toolbuttontarget.hint","sourcebytes":[84,97,114,103,101,116,32,115,101,108,101,99,116],"value":"Target select"}, +{"hash":219477908,"name":"tformmain.toolbuttontarget.caption","sourcebytes":[84,97,114,103,101,116,32,115,101,108,101,99,116],"value":"Target select"}, +{"hash":4897207,"name":"tformmain.tabsheetdebug.caption","sourcebytes":[68,101,98,117,103],"value":"Debug"}, +{"hash":153946405,"name":"tformmain.tabsheetsource.caption","sourcebytes":[83,111,117,114,99,101,32,99,111,100,101],"value":"Source code"}, +{"hash":205270389,"name":"tformmain.tabsheettarget.caption","sourcebytes":[84,97,114,103,101,116,32,99,111,100,101],"value":"Target code"}, +{"hash":212433139,"name":"tformmain.tabsheetmessages.caption","sourcebytes":[77,101,115,115,97,103,101,115],"value":"Messages"}, +{"hash":127273972,"name":"tformmain.menuitem1.caption","sourcebytes":[80,114,111,106,101,99,116],"value":"Project"}, +{"hash":131987540,"name":"tformmain.menuitemopenrecent.caption","sourcebytes":[79,112,101,110,32,114,101,99,101,110,116],"value":"Open recent"}, +{"hash":127264813,"name":"tformmain.menuitem9.caption","sourcebytes":[80,114,111,103,114,97,109],"value":"Program"}, +{"hash":94932420,"name":"tformmain.menuitemtarget.caption","sourcebytes":[84,97,114,103,101,116],"value":"Target"}, +{"hash":5989939,"name":"tformmain.menuitem24.caption","sourcebytes":[84,111,111,108,115],"value":"Tools"}, +{"hash":380871,"name":"tformmain.menuitem18.caption","sourcebytes":[86,105,101,119],"value":"View"}, +{"hash":322608,"name":"tformmain.menuitem10.caption","sourcebytes":[72,101,108,112],"value":"Help"}, +{"hash":353982,"name":"tformmain.aprojectopen.caption","sourcebytes":[79,112,101,110],"value":"Open"}, +{"hash":366789,"name":"tformmain.aprojectsave.caption","sourcebytes":[83,97,118,101],"value":"Save"}, +{"hash":4863637,"name":"tformmain.aprojectclose.caption","sourcebytes":[67,108,111,115,101],"value":"Close"}, +{"hash":124639694,"name":"tformmain.aprojectsaveas.caption","sourcebytes":[83,97,118,101,32,97,115,46,46,46],"value":"Save as..."}, +{"hash":21703,"name":"tformmain.aprojectnew.caption","sourcebytes":[78,101,119],"value":"New"}, +{"hash":315140,"name":"tformmain.aexit.caption","sourcebytes":[69,120,105,116],"value":"Exit"}, +{"hash":174354533,"name":"tformmain.aprogramcompile.caption","sourcebytes":[67,111,109,112,105,108,101],"value":"Compile"}, +{"hash":22974,"name":"tformmain.aprogramrun.caption","sourcebytes":[82,117,110],"value":"Run"}, +{"hash":4691652,"name":"tformmain.aabout.caption","sourcebytes":[65,98,111,117,116],"value":"About"}, +{"hash":322608,"name":"tformmain.ahelp.caption","sourcebytes":[72,101,108,112],"value":"Help"}, +{"hash":5672085,"name":"tformmain.aprogrampause.caption","sourcebytes":[80,97,117,115,101],"value":"Pause"}, +{"hash":371552,"name":"tformmain.aprogramstop.caption","sourcebytes":[83,116,111,112],"value":"Stop"}, +{"hash":203865871,"name":"tformmain.aprogramstepinto.caption","sourcebytes":[83,116,101,112,32,105,110,116,111],"value":"Step into"}, +{"hash":203896418,"name":"tformmain.aprogramstepover.caption","sourcebytes":[83,116,101,112,32,111,118,101,114],"value":"Step over"}, +{"hash":258794274,"name":"tformmain.aprogramruntocursor.caption","sourcebytes":[82,117,110,32,116,111,32,99,117,114,115,111,114],"value":"Run to cursor"}, +{"hash":180515684,"name":"tformmain.aprogramstepout.caption","sourcebytes":[83,116,101,112,32,111,117,116],"value":"Step out"}, +{"hash":101489412,"name":"tformmain.abreakpointtoggle.caption","sourcebytes":[84,111,103,103,108,101,32,98,114,101,97,107,112,111,105,110,116],"value":"Toggle breakpoint"}, +{"hash":108725763,"name":"tformmain.aoptions.caption","sourcebytes":[79,112,116,105,111,110,115],"value":"Options"}, +{"hash":74475251,"name":"tformmain.aviewcompilers.caption","sourcebytes":[67,111,109,112,105,108,101,114,115],"value":"Compilers"}, +{"hash":243767284,"name":"tformmain.ashowtargetposition.caption","sourcebytes":[83,104,111,119,32,112,111,115,105,116,105,111,110,32,105,110,32,116,97,114,103,101,116],"value":"Show position in target"}, +{"hash":248107685,"name":"tformmain.ashowsourceposition.caption","sourcebytes":[83,104,111,119,32,112,111,115,105,116,105,111,110,32,105,110,32,115,111,117,114,99,101],"value":"Show position in source"}, +{"hash":78944612,"name":"tformmain.aprogramshowexecutionpoint.caption","sourcebytes":[83,104,111,119,32,101,120,101,99,117,116,105,111,110,32,112,111,105,110,116],"value":"Show execution point"}, +{"hash":21335,"name":"tformmain.aviewlog.caption","sourcebytes":[76,111,103],"value":"Log"} +]} diff -Nru lazfuck-1.0.0/Forms/UFormMain.lrt lazfuck-1.0.0/Forms/UFormMain.lrt --- lazfuck-1.0.0/Forms/UFormMain.lrt 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormMain.lrt 1970-01-01 00:00:00.000000000 +0000 @@ -1,39 +0,0 @@ -TFORMMAIN.CAPTION=LazFuck -TFORMMAIN.TOOLBUTTONTARGET.HINT=Target select -TFORMMAIN.TOOLBUTTONTARGET.CAPTION=Target select -TFORMMAIN.TABSHEETDEBUG.CAPTION=Debug -TFORMMAIN.TABSHEETSOURCE.CAPTION=Source code -TFORMMAIN.TABSHEETTARGET.CAPTION=Target code -TFORMMAIN.TABSHEETMESSAGES.CAPTION=Messages -TFORMMAIN.MENUITEM1.CAPTION=Project -TFORMMAIN.MENUITEMOPENRECENT.CAPTION=Open recent -TFORMMAIN.MENUITEM5.CAPTION=- -TFORMMAIN.MENUITEM9.CAPTION=Program -TFORMMAIN.MENUITEMTARGET.CAPTION=Target -TFORMMAIN.MENUITEM17.CAPTION=- -TFORMMAIN.MENUITEM24.CAPTION=Tools -TFORMMAIN.MENUITEM18.CAPTION=View -TFORMMAIN.MENUITEM10.CAPTION=Help -TFORMMAIN.APROJECTOPEN.CAPTION=Open -TFORMMAIN.APROJECTSAVE.CAPTION=Save -TFORMMAIN.APROJECTCLOSE.CAPTION=Close -TFORMMAIN.APROJECTSAVEAS.CAPTION=Save as... -TFORMMAIN.APROJECTNEW.CAPTION=New -TFORMMAIN.AEXIT.CAPTION=Exit -TFORMMAIN.APROGRAMCOMPILE.CAPTION=Compile -TFORMMAIN.APROGRAMRUN.CAPTION=Run -TFORMMAIN.AABOUT.CAPTION=About -TFORMMAIN.AHELP.CAPTION=Help -TFORMMAIN.APROGRAMPAUSE.CAPTION=Pause -TFORMMAIN.APROGRAMSTOP.CAPTION=Stop -TFORMMAIN.APROGRAMSTEPINTO.CAPTION=Step into -TFORMMAIN.APROGRAMSTEPOVER.CAPTION=Step over -TFORMMAIN.APROGRAMRUNTOCURSOR.CAPTION=Run to cursor -TFORMMAIN.APROGRAMSTEPOUT.CAPTION=Step out -TFORMMAIN.ABREAKPOINTTOGGLE.CAPTION=Toggle breakpoint -TFORMMAIN.AOPTIONS.CAPTION=Options -TFORMMAIN.AVIEWCOMPILERS.CAPTION=Compilers -TFORMMAIN.ASHOWTARGETPOSITION.CAPTION=Show position in target -TFORMMAIN.ASHOWSOURCEPOSITION.CAPTION=Show position in source -TFORMMAIN.APROGRAMSHOWEXECUTIONPOINT.CAPTION=Show execution point -TFORMMAIN.AVIEWLOG.CAPTION=Log diff -Nru lazfuck-1.0.0/Forms/UFormMemory.lfm lazfuck-1.0.0/Forms/UFormMemory.lfm --- lazfuck-1.0.0/Forms/UFormMemory.lfm 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormMemory.lfm 2019-05-04 23:17:13.000000000 +0000 @@ -1,39 +1,41 @@ object FormMemory: TFormMemory Left = 565 - Height = 259 + Height = 388 Top = 182 - Width = 391 + Width = 586 Caption = 'Memory' - ClientHeight = 259 - ClientWidth = 391 - LCLVersion = '1.3' + ClientHeight = 388 + ClientWidth = 586 + DesignTimePPI = 144 + LCLVersion = '2.0.0.4' object Label6: TLabel - Left = 4 + Left = 6 Height = 25 - Top = 4 - Width = 383 + Top = 6 + Width = 574 Align = alTop - BorderSpacing.Around = 4 + BorderSpacing.Around = 6 Caption = 'Memory:' ParentColor = False + ParentFont = False end object ListViewMemory: TListView - Left = 4 - Height = 222 - Top = 33 - Width = 383 + Left = 6 + Height = 345 + Top = 37 + Width = 574 Align = alClient - BorderSpacing.Around = 4 + BorderSpacing.Around = 6 Columns = < item Caption = 'Address' - Width = 80 + Width = 120 end item Caption = 'Data' - Width = 330 + Width = 495 end> - Font.Height = -12 + Font.Height = -18 Font.Name = 'Courier New' OwnerData = True ParentFont = False diff -Nru lazfuck-1.0.0/Forms/UFormMemory.lrj lazfuck-1.0.0/Forms/UFormMemory.lrj --- lazfuck-1.0.0/Forms/UFormMemory.lrj 1970-01-01 00:00:00.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormMemory.lrj 2019-05-04 23:17:13.000000000 +0000 @@ -0,0 +1,6 @@ +{"version":1,"strings":[ +{"hash":87836313,"name":"tformmemory.caption","sourcebytes":[77,101,109,111,114,121],"value":"Memory"}, +{"hash":63203738,"name":"tformmemory.label6.caption","sourcebytes":[77,101,109,111,114,121,58],"value":"Memory:"}, +{"hash":128683235,"name":"tformmemory.listviewmemory.columns[0].caption","sourcebytes":[65,100,100,114,101,115,115],"value":"Address"}, +{"hash":305313,"name":"tformmemory.listviewmemory.columns[1].caption","sourcebytes":[68,97,116,97],"value":"Data"} +]} diff -Nru lazfuck-1.0.0/Forms/UFormMemory.lrt lazfuck-1.0.0/Forms/UFormMemory.lrt --- lazfuck-1.0.0/Forms/UFormMemory.lrt 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormMemory.lrt 1970-01-01 00:00:00.000000000 +0000 @@ -1,4 +0,0 @@ -TFORMMEMORY.CAPTION=Memory -TFORMMEMORY.LABEL6.CAPTION=Memory: -TFORMMEMORY.LISTVIEWMEMORY.COLUMNS[0].CAPTION=Address -TFORMMEMORY.LISTVIEWMEMORY.COLUMNS[1].CAPTION=Data diff -Nru lazfuck-1.0.0/Forms/UFormMessages.lfm lazfuck-1.0.0/Forms/UFormMessages.lfm --- lazfuck-1.0.0/Forms/UFormMessages.lfm 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormMessages.lfm 2019-05-04 23:17:13.000000000 +0000 @@ -1,24 +1,26 @@ object FormMessages: TFormMessages Left = 256 - Height = 225 + Height = 338 Top = 47 - Width = 492 + Width = 738 Caption = 'Messages' - ClientHeight = 225 - ClientWidth = 492 + ClientHeight = 338 + ClientWidth = 738 + DesignTimePPI = 144 OnCreate = FormCreate - LCLVersion = '0.9.31' + LCLVersion = '2.0.0.4' object ListView1: TListView Left = 0 - Height = 225 + Height = 338 Top = 0 - Width = 492 + Width = 738 Align = alClient Columns = < item - Width = 473 + Width = 710 end> OwnerData = True + ParentFont = False ReadOnly = True RowSelect = True ShowColumnHeaders = False diff -Nru lazfuck-1.0.0/Forms/UFormMessages.lrj lazfuck-1.0.0/Forms/UFormMessages.lrj --- lazfuck-1.0.0/Forms/UFormMessages.lrj 1970-01-01 00:00:00.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormMessages.lrj 2019-05-04 23:17:13.000000000 +0000 @@ -0,0 +1,3 @@ +{"version":1,"strings":[ +{"hash":212433139,"name":"tformmessages.caption","sourcebytes":[77,101,115,115,97,103,101,115],"value":"Messages"} +]} diff -Nru lazfuck-1.0.0/Forms/UFormMessages.lrt lazfuck-1.0.0/Forms/UFormMessages.lrt --- lazfuck-1.0.0/Forms/UFormMessages.lrt 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormMessages.lrt 1970-01-01 00:00:00.000000000 +0000 @@ -1 +0,0 @@ -TFORMMESSAGES.CAPTION=Messages diff -Nru lazfuck-1.0.0/Forms/UFormOptions.lfm lazfuck-1.0.0/Forms/UFormOptions.lfm --- lazfuck-1.0.0/Forms/UFormOptions.lfm 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormOptions.lfm 2019-05-04 23:17:13.000000000 +0000 @@ -1,49 +1,53 @@ object FormOptions: TFormOptions Left = 401 - Height = 356 + Height = 427 Top = 236 - Width = 607 + Width = 728 Caption = 'Options' - ClientHeight = 356 - ClientWidth = 607 - DesignTimePPI = 120 + ClientHeight = 427 + ClientWidth = 728 + DesignTimePPI = 144 OnClose = FormClose OnCreate = FormCreate OnShow = FormShow - LCLVersion = '1.8.2.0' + LCLVersion = '2.0.0.4' object ButtonOk: TButton - Left = 526 - Height = 25 - Top = 324 - Width = 75 + Left = 631 + Height = 30 + Top = 389 + Width = 90 Anchors = [akRight, akBottom] Caption = 'Ok' ModalResult = 1 + ParentFont = False TabOrder = 0 end object ButtonCancel: TButton - Left = 430 - Height = 25 - Top = 324 - Width = 75 + Left = 516 + Height = 30 + Top = 389 + Width = 90 Anchors = [akRight, akBottom] Caption = 'Cancel' ModalResult = 2 + ParentFont = False TabOrder = 1 end object PageControl1: TPageControl - Left = 8 - Height = 310 - Top = 8 - Width = 593 + Left = 10 + Height = 371 + Top = 10 + Width = 711 ActivePage = TabSheetBuild Anchors = [akTop, akLeft, akRight, akBottom] + ParentFont = False TabIndex = 1 TabOrder = 2 object TabSheetGeneral: TTabSheet Caption = 'General' ClientHeight = 277 ClientWidth = 585 + ParentFont = False object Panel1: TPanel Left = 0 Height = 277 @@ -53,95 +57,106 @@ BevelOuter = bvNone ClientHeight = 277 ClientWidth = 585 + ParentFont = False TabOrder = 0 object Label3: TLabel - Left = 8 + Left = 10 Height = 20 - Top = 48 + Top = 58 Width = 127 Caption = 'Interface language:' ParentColor = False + ParentFont = False end object ComboBoxLanguage: TComboBox - Left = 256 - Height = 28 - Top = 48 - Width = 188 - ItemHeight = 20 + Left = 307 + Height = 33 + Top = 58 + Width = 226 + ItemHeight = 25 + ParentFont = False Style = csDropDownList TabOrder = 0 end object CheckBox1: TCheckBox - Left = 8 - Height = 27 - Top = 85 - Width = 1051 + Left = 10 + Height = 32 + Top = 102 + Width = 1144 Anchors = [akTop, akLeft, akRight] AutoSize = False Caption = 'Reopend last opened project' + ParentFont = False TabOrder = 1 end object CheckBoxDPIAuto: TCheckBox - Left = 8 - Height = 27 - Top = 125 - Width = 1043 + Left = 10 + Height = 32 + Top = 150 + Width = 1134 Anchors = [akTop, akLeft, akRight] AutoSize = False Caption = 'Automatic DPI' OnChange = CheckBoxDPIAutoChange + ParentFont = False TabOrder = 2 end object LabelDPI: TLabel - Left = 30 + Left = 36 Height = 20 - Top = 160 + Top = 192 Width = 26 Caption = 'DPI:' ParentColor = False + ParentFont = False end object SpinEditDPIX: TSpinEdit - Left = 112 + Left = 134 Height = 28 - Top = 158 - Width = 80 + Top = 190 + Width = 96 MaxValue = 1000 MinValue = 1 + ParentFont = False TabOrder = 3 Value = 1 end object SpinEditDPIY: TSpinEdit - Left = 216 + Left = 259 Height = 28 - Top = 160 - Width = 80 + Top = 192 + Width = 96 MaxValue = 1000 MinValue = 1 + ParentFont = False TabOrder = 4 Value = 1 end object LabelX: TLabel - Left = 200 + Left = 240 Height = 20 - Top = 160 + Top = 192 Width = 7 Caption = 'x' ParentColor = False + ParentFont = False end object LabelTheme: TLabel - Left = 8 + Left = 10 Height = 20 - Top = 16 + Top = 19 Width = 48 Caption = 'Theme:' ParentColor = False + ParentFont = False end object ComboBoxTheme: TComboBox - Left = 256 - Height = 28 - Top = 8 - Width = 188 - ItemHeight = 20 + Left = 307 + Height = 33 + Top = 10 + Width = 226 + ItemHeight = 25 + ParentFont = False Style = csDropDownList TabOrder = 5 end @@ -149,102 +164,114 @@ end object TabSheetBuild: TTabSheet Caption = 'Build' - ClientHeight = 277 - ClientWidth = 585 + ClientHeight = 333 + ClientWidth = 703 + ParentFont = False object Panel2: TPanel Left = 0 - Height = 277 + Height = 333 Top = 0 - Width = 585 + Width = 703 Align = alClient BevelOuter = bvNone - ClientHeight = 277 - ClientWidth = 585 + ClientHeight = 333 + ClientWidth = 703 + ParentFont = False TabOrder = 0 object Label4: TLabel - Left = 8 - Height = 20 - Top = 104 - Width = 159 + Left = 10 + Height = 25 + Top = 125 + Width = 189 Caption = 'Compiler optimizations:' ParentColor = False + ParentFont = False end object ComboBoxOptimization: TComboBox - Left = 248 - Height = 28 - Top = 104 - Width = 188 - ItemHeight = 20 + Left = 298 + Height = 33 + Top = 125 + Width = 226 + ItemHeight = 25 Items.Strings = ( 'None' 'Normal' ) OnSelect = CheckBoxDPIAutoChange + ParentFont = False Style = csDropDownList TabOrder = 0 end object CheckBoxOptimizeAddSub: TCheckBox - Left = 31 - Height = 24 - Top = 136 - Width = 189 + Left = 37 + Height = 29 + Top = 163 + Width = 228 Caption = 'Addition and subtraction' + ParentFont = False TabOrder = 1 end object CheckBoxOptimizeMerge: TCheckBox - Left = 31 - Height = 24 - Top = 160 - Width = 181 + Left = 37 + Height = 29 + Top = 192 + Width = 218 Caption = 'Merge same operations' + ParentFont = False TabOrder = 2 end object CheckBoxOptimizeCopyMultiply: TCheckBox - Left = 31 - Height = 24 - Top = 208 - Width = 116 + Left = 37 + Height = 29 + Top = 250 + Width = 141 Caption = 'Copy multiply' + ParentFont = False TabOrder = 3 end object CheckBoxOptimizeRelativeIndexes: TCheckBox - Left = 31 - Height = 24 - Top = 184 - Width = 131 + Left = 37 + Height = 29 + Top = 221 + Width = 155 Caption = 'Relative indexes' + ParentFont = False TabOrder = 4 end object Label2: TLabel - Left = 8 - Height = 20 - Top = 40 - Width = 57 + Left = 10 + Height = 25 + Top = 48 + Width = 66 Caption = 'Cell size:' ParentColor = False + ParentFont = False end object Label1: TLabel - Left = 8 - Height = 20 - Top = 8 - Width = 87 + Left = 10 + Height = 25 + Top = 10 + Width = 105 Caption = 'Memory size:' ParentColor = False + ParentFont = False end object SpinEditMemorySize: TSpinEdit - Left = 165 - Height = 28 - Top = 6 - Width = 130 + Left = 198 + Height = 33 + Top = 7 + Width = 156 MaxValue = 2000000000 + ParentFont = False TabOrder = 5 end object SpinEditCellSize: TSpinEdit - Left = 165 - Height = 28 - Top = 40 - Width = 130 + Left = 198 + Height = 33 + Top = 48 + Width = 156 MaxValue = 2000000000 + ParentFont = False TabOrder = 6 end end diff -Nru lazfuck-1.0.0/Forms/UFormOptions.lrj lazfuck-1.0.0/Forms/UFormOptions.lrj --- lazfuck-1.0.0/Forms/UFormOptions.lrj 1970-01-01 00:00:00.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormOptions.lrj 2019-05-04 23:17:13.000000000 +0000 @@ -0,0 +1,20 @@ +{"version":1,"strings":[ +{"hash":108725763,"name":"tformoptions.caption","sourcebytes":[79,112,116,105,111,110,115],"value":"Options"}, +{"hash":1371,"name":"tformoptions.buttonok.caption","sourcebytes":[79,107],"value":"Ok"}, +{"hash":77089212,"name":"tformoptions.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"}, +{"hash":231000124,"name":"tformoptions.tabsheetgeneral.caption","sourcebytes":[71,101,110,101,114,97,108],"value":"General"}, +{"hash":52873082,"name":"tformoptions.label3.caption","sourcebytes":[73,110,116,101,114,102,97,99,101,32,108,97,110,103,117,97,103,101,58],"value":"Interface language:"}, +{"hash":100189188,"name":"tformoptions.checkbox1.caption","sourcebytes":[82,101,111,112,101,110,100,32,108,97,115,116,32,111,112,101,110,101,100,32,112,114,111,106,101,99,116],"value":"Reopend last opened project"}, +{"hash":37628553,"name":"tformoptions.checkboxdpiauto.caption","sourcebytes":[65,117,116,111,109,97,116,105,99,32,68,80,73],"value":"Automatic DPI"}, +{"hash":300234,"name":"tformoptions.labeldpi.caption","sourcebytes":[68,80,73,58],"value":"DPI:"}, +{"hash":120,"name":"tformoptions.labelx.caption","sourcebytes":[120],"value":"x"}, +{"hash":95339402,"name":"tformoptions.labeltheme.caption","sourcebytes":[84,104,101,109,101,58],"value":"Theme:"}, +{"hash":4833316,"name":"tformoptions.tabsheetbuild.caption","sourcebytes":[66,117,105,108,100],"value":"Build"}, +{"hash":258376058,"name":"tformoptions.label4.caption","sourcebytes":[67,111,109,112,105,108,101,114,32,111,112,116,105,109,105,122,97,116,105,111,110,115,58],"value":"Compiler optimizations:"}, +{"hash":37408526,"name":"tformoptions.checkboxoptimizeaddsub.caption","sourcebytes":[65,100,100,105,116,105,111,110,32,97,110,100,32,115,117,98,116,114,97,99,116,105,111,110],"value":"Addition and subtraction"}, +{"hash":53004883,"name":"tformoptions.checkboxoptimizemerge.caption","sourcebytes":[77,101,114,103,101,32,115,97,109,101,32,111,112,101,114,97,116,105,111,110,115],"value":"Merge same operations"}, +{"hash":39760441,"name":"tformoptions.checkboxoptimizecopymultiply.caption","sourcebytes":[67,111,112,121,32,109,117,108,116,105,112,108,121],"value":"Copy multiply"}, +{"hash":150963587,"name":"tformoptions.checkboxoptimizerelativeindexes.caption","sourcebytes":[82,101,108,97,116,105,118,101,32,105,110,100,101,120,101,115],"value":"Relative indexes"}, +{"hash":243182762,"name":"tformoptions.label2.caption","sourcebytes":[67,101,108,108,32,115,105,122,101,58],"value":"Cell size:"}, +{"hash":239490586,"name":"tformoptions.label1.caption","sourcebytes":[77,101,109,111,114,121,32,115,105,122,101,58],"value":"Memory size:"} +]} diff -Nru lazfuck-1.0.0/Forms/UFormOptions.lrt lazfuck-1.0.0/Forms/UFormOptions.lrt --- lazfuck-1.0.0/Forms/UFormOptions.lrt 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormOptions.lrt 1970-01-01 00:00:00.000000000 +0000 @@ -1,11 +0,0 @@ -TOPTIONSFORM.CAPTION=Options -TOPTIONSFORM.BUTTONOK.CAPTION=Ok -TOPTIONSFORM.BUTTONCANCEL.CAPTION=Cancel -TOPTIONSFORM.LABEL1.CAPTION=Memory size: -TOPTIONSFORM.LABEL2.CAPTION=Cell size: -TOPTIONSFORM.LABEL3.CAPTION=Interface language: -TOPTIONSFORM.CHECKBOX1.CAPTION=Reopend last opened project -TOPTIONSFORM.LABELDPI.CAPTION=DPI: -TOPTIONSFORM.LABELX.CAPTION=x -TOPTIONSFORM.CHECKBOXDPIAUTO.CAPTION=Automatic DPI -TOPTIONSFORM.LABEL4.CAPTION=Compiler optimizations: diff -Nru lazfuck-1.0.0/Forms/UFormOutput.lfm lazfuck-1.0.0/Forms/UFormOutput.lfm --- lazfuck-1.0.0/Forms/UFormOutput.lfm 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormOutput.lfm 2019-05-04 23:17:13.000000000 +0000 @@ -7,10 +7,10 @@ ClientHeight = 440 ClientWidth = 320 DesignTimePPI = 144 - LCLVersion = '1.8.4.0' + LCLVersion = '2.0.0.4' object Label2: TLabel Left = 4 - Height = 26 + Height = 25 Top = 4 Width = 312 Align = alTop @@ -20,8 +20,8 @@ end object MemoOutput: TMemo Left = 4 - Height = 402 - Top = 34 + Height = 403 + Top = 33 Width = 312 Align = alClient BorderSpacing.Around = 4 diff -Nru lazfuck-1.0.0/Forms/UFormOutput.lrj lazfuck-1.0.0/Forms/UFormOutput.lrj --- lazfuck-1.0.0/Forms/UFormOutput.lrj 1970-01-01 00:00:00.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormOutput.lrj 2019-05-04 23:17:13.000000000 +0000 @@ -0,0 +1,4 @@ +{"version":1,"strings":[ +{"hash":91011012,"name":"tformoutput.caption","sourcebytes":[79,117,116,112,117,116],"value":"Output"}, +{"hash":113998890,"name":"tformoutput.label2.caption","sourcebytes":[79,117,116,112,117,116,58],"value":"Output:"} +]} diff -Nru lazfuck-1.0.0/Forms/UFormOutput.lrt lazfuck-1.0.0/Forms/UFormOutput.lrt --- lazfuck-1.0.0/Forms/UFormOutput.lrt 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormOutput.lrt 1970-01-01 00:00:00.000000000 +0000 @@ -1,2 +0,0 @@ -TFORMOUTPUT.CAPTION=Output -TFORMOUTPUT.LABEL2.CAPTION=Output: diff -Nru lazfuck-1.0.0/Forms/UFormSourceCode.lfm lazfuck-1.0.0/Forms/UFormSourceCode.lfm --- lazfuck-1.0.0/Forms/UFormSourceCode.lfm 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormSourceCode.lfm 2019-05-04 23:17:13.000000000 +0000 @@ -1,21 +1,21 @@ object FormSourceCode: TFormSourceCode Left = 459 - Height = 491 + Height = 589 Top = 278 - Width = 560 + Width = 672 Caption = 'Source code' - ClientHeight = 491 - ClientWidth = 560 - DesignTimePPI = 120 + ClientHeight = 589 + ClientWidth = 672 + DesignTimePPI = 144 OnCreate = FormCreate - LCLVersion = '1.8.2.0' + LCLVersion = '2.0.0.4' inline SynEdit1: TSynEdit Left = 0 - Height = 491 + Height = 589 Top = 0 - Width = 560 + Width = 672 Align = alClient - Font.Height = -13 + Font.Height = -16 Font.Name = 'Courier New' Font.Pitch = fpFixed Font.Quality = fqNonAntialiased @@ -27,7 +27,7 @@ OnKeyPress = MemoSourceKeyPress OnKeyUp = MemoSourceKeyUp OnMouseDown = MemoSourceMouseDown - Gutter.Width = 59 + Gutter.Width = 80 Gutter.MouseActions = <> RightGutter.Width = 0 RightGutter.MouseActions = <> @@ -477,11 +477,11 @@ OnChange = MemoSourceChange inline SynLeftGutterPartList1: TSynGutterPartList object SynGutterMarks1: TSynGutterMarks - Width = 24 + Width = 36 MouseActions = <> end object SynGutterLineNumber1: TSynGutterLineNumber - Width = 17 + Width = 21 MouseActions = <> MarkupInfo.Background = clBtnFace MarkupInfo.Foreground = clNone @@ -491,20 +491,20 @@ LeadingZeros = False end object SynGutterChanges1: TSynGutterChanges - Width = 4 + Width = 6 MouseActions = <> ModifiedColor = 59900 SavedColor = clGreen end object SynGutterSeparator1: TSynGutterSeparator - Width = 2 + Width = 3 MouseActions = <> MarkupInfo.Background = clWhite MarkupInfo.Foreground = clGray end object SynGutterCodeFolding1: TSynGutterCodeFolding AutoSize = False - Width = 12 + Width = 14 MouseActions = <> MarkupInfo.Background = clNone MarkupInfo.Foreground = clGray @@ -515,8 +515,8 @@ end object PopupMenuSource: TPopupMenu Images = Core.ImageListMain - left = 128 - top = 128 + left = 154 + top = 154 object MenuItem23: TMenuItem Action = FormMain.ABreakpointToggle end @@ -589,8 +589,8 @@ end object ActionList1: TActionList Images = Core.ImageListMain - left = 128 - top = 56 + left = 154 + top = 67 object AGenerateNumber: TAction Caption = 'Generate number' ImageIndex = 13 @@ -643,7 +643,7 @@ object SynJavaSyn1: TSynJavaSyn DefaultFilter = 'Soubory Java (*.java)|*.java' Enabled = False - left = 405 - top = 263 + left = 486 + top = 316 end end diff -Nru lazfuck-1.0.0/Forms/UFormSourceCode.lrj lazfuck-1.0.0/Forms/UFormSourceCode.lrj --- lazfuck-1.0.0/Forms/UFormSourceCode.lrj 1970-01-01 00:00:00.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormSourceCode.lrj 2019-05-04 23:17:13.000000000 +0000 @@ -0,0 +1,18 @@ +{"version":1,"strings":[ +{"hash":153946405,"name":"tformsourcecode.caption","sourcebytes":[83,111,117,114,99,101,32,99,111,100,101],"value":"Source code"}, +{"hash":60096370,"name":"tformsourcecode.ageneratenumber.caption","sourcebytes":[71,101,110,101,114,97,116,101,32,110,117,109,98,101,114],"value":"Generate number"}, +{"hash":243256341,"name":"tformsourcecode.ashrinksource.caption","sourcebytes":[83,104,114,105,110,107,32,115,111,117,114,99,101],"value":"Shrink source"}, +{"hash":243256341,"name":"tformsourcecode.ashrinksource.hint","sourcebytes":[83,104,114,105,110,107,32,115,111,117,114,99,101],"value":"Shrink source"}, +{"hash":185594037,"name":"tformsourcecode.aformatsource.caption","sourcebytes":[70,111,114,109,97,116,32,115,111,117,114,99,101],"value":"Format source"}, +{"hash":185594037,"name":"tformsourcecode.aformatsource.hint","sourcebytes":[70,111,114,109,97,116,32,115,111,117,114,99,101],"value":"Format source"}, +{"hash":5671589,"name":"tformsourcecode.apastefromclipboard.caption","sourcebytes":[80,97,115,116,101],"value":"Paste"}, +{"hash":5671589,"name":"tformsourcecode.apastefromclipboard.hint","sourcebytes":[80,97,115,116,101],"value":"Paste"}, +{"hash":304761,"name":"tformsourcecode.acopytoclipboard.caption","sourcebytes":[67,111,112,121],"value":"Copy"}, +{"hash":304761,"name":"tformsourcecode.acopytoclipboard.hint","sourcebytes":[67,111,112,121],"value":"Copy"}, +{"hash":4860802,"name":"tformsourcecode.aclear.caption","sourcebytes":[67,108,101,97,114],"value":"Clear"}, +{"hash":4860802,"name":"tformsourcecode.aclear.hint","sourcebytes":[67,108,101,97,114],"value":"Clear"}, +{"hash":195296268,"name":"tformsourcecode.aselectall.caption","sourcebytes":[83,101,108,101,99,116,32,97,108,108],"value":"Select all"}, +{"hash":195296268,"name":"tformsourcecode.aselectall.hint","sourcebytes":[83,101,108,101,99,116,32,97,108,108],"value":"Select all"}, +{"hash":19140,"name":"tformsourcecode.acuttoclipboard.caption","sourcebytes":[67,117,116],"value":"Cut"}, +{"hash":19140,"name":"tformsourcecode.acuttoclipboard.hint","sourcebytes":[67,117,116],"value":"Cut"} +]} diff -Nru lazfuck-1.0.0/Forms/UFormSourceCode.lrt lazfuck-1.0.0/Forms/UFormSourceCode.lrt --- lazfuck-1.0.0/Forms/UFormSourceCode.lrt 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormSourceCode.lrt 1970-01-01 00:00:00.000000000 +0000 @@ -1,17 +0,0 @@ -TFORMSOURCECODE.CAPTION=Source code -TFORMSOURCECODE.MENUITEM1.CAPTION=- -TFORMSOURCECODE.AGENERATENUMBER.CAPTION=Generate number -TFORMSOURCECODE.ASHRINKSOURCE.CAPTION=Shrink source -TFORMSOURCECODE.ASHRINKSOURCE.HINT=Shrink source -TFORMSOURCECODE.AFORMATSOURCE.CAPTION=Format source -TFORMSOURCECODE.AFORMATSOURCE.HINT=Format source -TFORMSOURCECODE.APASTEFROMCLIPBOARD.CAPTION=Paste -TFORMSOURCECODE.APASTEFROMCLIPBOARD.HINT=Paste -TFORMSOURCECODE.ACOPYTOCLIPBOARD.CAPTION=Copy -TFORMSOURCECODE.ACOPYTOCLIPBOARD.HINT=Copy -TFORMSOURCECODE.ACLEAR.CAPTION=Clear -TFORMSOURCECODE.ACLEAR.HINT=Clear -TFORMSOURCECODE.ASELECTALL.CAPTION=Select all -TFORMSOURCECODE.ASELECTALL.HINT=Select all -TFORMSOURCECODE.ACUTTOCLIPBOARD.CAPTION=Cut -TFORMSOURCECODE.ACUTTOCLIPBOARD.HINT=Cut diff -Nru lazfuck-1.0.0/Forms/UFormSourceCore.lrt lazfuck-1.0.0/Forms/UFormSourceCore.lrt --- lazfuck-1.0.0/Forms/UFormSourceCore.lrt 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormSourceCore.lrt 1970-01-01 00:00:00.000000000 +0000 @@ -1 +0,0 @@ -TFORMSOURCECODE.CAPTION=Source code diff -Nru lazfuck-1.0.0/Forms/UFormTargetCode.lfm lazfuck-1.0.0/Forms/UFormTargetCode.lfm --- lazfuck-1.0.0/Forms/UFormTargetCode.lfm 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormTargetCode.lfm 2019-05-04 23:17:13.000000000 +0000 @@ -1,18 +1,18 @@ object FormTargetCode: TFormTargetCode Left = 682 - Height = 240 + Height = 288 Top = 485 - Width = 320 + Width = 384 Caption = 'Target code' - ClientHeight = 240 - ClientWidth = 320 - DesignTimePPI = 120 - LCLVersion = '1.8.2.0' + ClientHeight = 288 + ClientWidth = 384 + DesignTimePPI = 144 + LCLVersion = '2.0.0.4' object MemoTarget: TMemo Left = 0 - Height = 240 + Height = 288 Top = 0 - Width = 320 + Width = 384 Align = alClient Font.Name = 'Courier New' ParentFont = False @@ -23,8 +23,8 @@ end object PopupMenuTarget: TPopupMenu Images = Core.ImageListMain - left = 84 - top = 100 + left = 101 + top = 120 object MenuItem20: TMenuItem Action = AFormatCode end @@ -34,8 +34,8 @@ end object ActionList1: TActionList Images = Core.ImageListMain - left = 199 - top = 39 + left = 239 + top = 47 object AFormatCode: TAction Caption = 'Format code' OnExecute = AFormatCodeExecute diff -Nru lazfuck-1.0.0/Forms/UFormTargetCode.lrj lazfuck-1.0.0/Forms/UFormTargetCode.lrj --- lazfuck-1.0.0/Forms/UFormTargetCode.lrj 1970-01-01 00:00:00.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormTargetCode.lrj 2019-05-04 23:17:13.000000000 +0000 @@ -0,0 +1,5 @@ +{"version":1,"strings":[ +{"hash":205270389,"name":"tformtargetcode.caption","sourcebytes":[84,97,114,103,101,116,32,99,111,100,101],"value":"Target code"}, +{"hash":137104533,"name":"tformtargetcode.aformatcode.caption","sourcebytes":[70,111,114,109,97,116,32,99,111,100,101],"value":"Format code"}, +{"hash":76512421,"name":"tformtargetcode.ashrinkcode.caption","sourcebytes":[83,104,114,105,110,107,32,99,111,100,101],"value":"Shrink code"} +]} diff -Nru lazfuck-1.0.0/Forms/UFormTargetCode.lrt lazfuck-1.0.0/Forms/UFormTargetCode.lrt --- lazfuck-1.0.0/Forms/UFormTargetCode.lrt 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormTargetCode.lrt 1970-01-01 00:00:00.000000000 +0000 @@ -1 +0,0 @@ -TFORMTARGETCODE.CAPTION=Target code diff -Nru lazfuck-1.0.0/Forms/UFormTargetOptions.lfm lazfuck-1.0.0/Forms/UFormTargetOptions.lfm --- lazfuck-1.0.0/Forms/UFormTargetOptions.lfm 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormTargetOptions.lfm 2019-05-04 23:17:13.000000000 +0000 @@ -1,92 +1,100 @@ object FormTargetOptions: TFormTargetOptions Left = 429 - Height = 206 + Height = 247 Top = 228 - Width = 422 + Width = 506 Caption = 'Target options' - ClientHeight = 206 - ClientWidth = 422 - DesignTimePPI = 120 + ClientHeight = 247 + ClientWidth = 506 + DesignTimePPI = 144 OnClose = FormClose OnCreate = FormCreate OnShow = FormShow - LCLVersion = '1.8.2.0' + LCLVersion = '2.0.0.4' object Edit1: TEdit - Left = 8 - Height = 28 - Top = 32 - Width = 325 + Left = 10 + Height = 33 + Top = 38 + Width = 389 Anchors = [akTop, akLeft, akRight] + ParentFont = False TabOrder = 0 end object Label1: TLabel - Left = 8 - Height = 20 - Top = 7 - Width = 122 + Left = 10 + Height = 25 + Top = 8 + Width = 144 Caption = 'Compiler location:' ParentColor = False + ParentFont = False end object ButtonCompiler: TButton - Left = 341 - Height = 31 - Top = 35 - Width = 75 + Left = 409 + Height = 37 + Top = 42 + Width = 90 Anchors = [akTop, akRight] Caption = 'Select...' OnClick = ButtonCompilerClick + ParentFont = False TabOrder = 1 end object ButtonExecute: TButton - Left = 341 - Height = 31 - Top = 96 - Width = 75 + Left = 409 + Height = 37 + Top = 115 + Width = 90 Anchors = [akTop, akRight] Caption = 'Select...' OnClick = ButtonExecuteClick + ParentFont = False TabOrder = 2 end object Edit2: TEdit - Left = 8 - Height = 28 - Top = 96 - Width = 325 + Left = 10 + Height = 33 + Top = 115 + Width = 389 Anchors = [akTop, akLeft, akRight] + ParentFont = False TabOrder = 3 end object Label2: TLabel - Left = 8 - Height = 20 - Top = 72 - Width = 118 + Left = 10 + Height = 25 + Top = 86 + Width = 139 Caption = 'Executor location:' ParentColor = False + ParentFont = False end object ButtonOk: TButton - Left = 319 - Height = 31 - Top = 163 - Width = 91 + Left = 383 + Height = 37 + Top = 196 + Width = 109 Anchors = [akRight, akBottom] Caption = 'Ok' ModalResult = 1 + ParentFont = False TabOrder = 4 end object ButtonCancel: TButton - Left = 207 - Height = 31 - Top = 163 - Width = 91 + Left = 248 + Height = 37 + Top = 196 + Width = 109 Anchors = [akRight, akBottom] Caption = 'Cancel' ModalResult = 2 + ParentFont = False TabOrder = 5 end object OpenDialog1: TOpenDialog DefaultExt = '.exe' Filter = 'Program (*.exe)|*.exe|Jakýkoliv soubor (*.*)|*.*' - left = 98 - top = 121 + left = 118 + top = 145 end end diff -Nru lazfuck-1.0.0/Forms/UFormTargetOptions.lrj lazfuck-1.0.0/Forms/UFormTargetOptions.lrj --- lazfuck-1.0.0/Forms/UFormTargetOptions.lrj 1970-01-01 00:00:00.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormTargetOptions.lrj 2019-05-04 23:17:13.000000000 +0000 @@ -0,0 +1,9 @@ +{"version":1,"strings":[ +{"hash":251086723,"name":"tformtargetoptions.caption","sourcebytes":[84,97,114,103,101,116,32,111,112,116,105,111,110,115],"value":"Target options"}, +{"hash":266916938,"name":"tformtargetoptions.label1.caption","sourcebytes":[67,111,109,112,105,108,101,114,32,108,111,99,97,116,105,111,110,58],"value":"Compiler location:"}, +{"hash":45763278,"name":"tformtargetoptions.buttoncompiler.caption","sourcebytes":[83,101,108,101,99,116,46,46,46],"value":"Select..."}, +{"hash":45763278,"name":"tformtargetoptions.buttonexecute.caption","sourcebytes":[83,101,108,101,99,116,46,46,46],"value":"Select..."}, +{"hash":102772106,"name":"tformtargetoptions.label2.caption","sourcebytes":[69,120,101,99,117,116,111,114,32,108,111,99,97,116,105,111,110,58],"value":"Executor location:"}, +{"hash":1371,"name":"tformtargetoptions.buttonok.caption","sourcebytes":[79,107],"value":"Ok"}, +{"hash":77089212,"name":"tformtargetoptions.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"} +]} diff -Nru lazfuck-1.0.0/Forms/UFormTargetOptions.lrt lazfuck-1.0.0/Forms/UFormTargetOptions.lrt --- lazfuck-1.0.0/Forms/UFormTargetOptions.lrt 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormTargetOptions.lrt 1970-01-01 00:00:00.000000000 +0000 @@ -1,7 +0,0 @@ -TFORMTARGETOPTIONS.CAPTION=Target options -TFORMTARGETOPTIONS.LABEL1.CAPTION=Compiler location: -TFORMTARGETOPTIONS.BUTTONCOMPILER.CAPTION=Select... -TFORMTARGETOPTIONS.BUTTONEXECUTE.CAPTION=Select... -TFORMTARGETOPTIONS.LABEL2.CAPTION=Executor location: -TFORMTARGETOPTIONS.BUTTONOK.CAPTION=Ok -TFORMTARGETOPTIONS.BUTTONCANCEL.CAPTION=Cancel diff -Nru lazfuck-1.0.0/Forms/UFormTargets.lfm lazfuck-1.0.0/Forms/UFormTargets.lfm --- lazfuck-1.0.0/Forms/UFormTargets.lfm 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormTargets.lfm 2019-05-04 23:17:13.000000000 +0000 @@ -1,35 +1,36 @@ object FormTargets: TFormTargets Left = 292 - Height = 344 + Height = 413 Top = 138 - Width = 574 + Width = 689 Caption = 'Compilers' - ClientHeight = 344 - ClientWidth = 574 - DesignTimePPI = 120 + ClientHeight = 413 + ClientWidth = 689 + DesignTimePPI = 144 OnCreate = FormCreate OnShow = FormShow - LCLVersion = '1.8.2.0' + LCLVersion = '2.0.0.4' object ListView1: TListView - Left = 8 - Height = 328 - Top = 8 - Width = 560 + Left = 10 + Height = 393 + Top = 10 + Width = 672 Anchors = [akTop, akLeft, akRight, akBottom] Columns = < item Caption = 'Name' - Width = 80 + Width = 96 end item Caption = 'Execution path' - Width = 200 + Width = 240 end item Caption = 'Compiler path' - Width = 261 + Width = 313 end> OwnerData = True + ParentFont = False ReadOnly = True RowSelect = True TabOrder = 0 diff -Nru lazfuck-1.0.0/Forms/UFormTargets.lrj lazfuck-1.0.0/Forms/UFormTargets.lrj --- lazfuck-1.0.0/Forms/UFormTargets.lrj 1970-01-01 00:00:00.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormTargets.lrj 2019-05-04 23:17:13.000000000 +0000 @@ -0,0 +1,6 @@ +{"version":1,"strings":[ +{"hash":74475251,"name":"tformtargets.caption","sourcebytes":[67,111,109,112,105,108,101,114,115],"value":"Compilers"}, +{"hash":346165,"name":"tformtargets.listview1.columns[0].caption","sourcebytes":[78,97,109,101],"value":"Name"}, +{"hash":213755624,"name":"tformtargets.listview1.columns[1].caption","sourcebytes":[69,120,101,99,117,116,105,111,110,32,112,97,116,104],"value":"Execution path"}, +{"hash":102963400,"name":"tformtargets.listview1.columns[2].caption","sourcebytes":[67,111,109,112,105,108,101,114,32,112,97,116,104],"value":"Compiler path"} +]} diff -Nru lazfuck-1.0.0/Forms/UFormTargets.lrt lazfuck-1.0.0/Forms/UFormTargets.lrt --- lazfuck-1.0.0/Forms/UFormTargets.lrt 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Forms/UFormTargets.lrt 1970-01-01 00:00:00.000000000 +0000 @@ -1,4 +0,0 @@ -TFORMCOMPILERS.CAPTION=Compilers -TFORMCOMPILERS.LISTVIEW1.COLUMNS[0].CAPTION=Name -TFORMCOMPILERS.LISTVIEW1.COLUMNS[1].CAPTION=Execution path -TFORMCOMPILERS.LISTVIEW1.COLUMNS[2].CAPTION=Compiler path diff -Nru lazfuck-1.0.0/Languages/LazFuck.cs.po lazfuck-1.0.0/Languages/LazFuck.cs.po --- lazfuck-1.0.0/Languages/LazFuck.cs.po 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Languages/LazFuck.cs.po 2019-05-04 23:17:13.000000000 +0000 @@ -8,7 +8,7 @@ "Language-Team: \n" "MIME-Version: 1.0\n" "Content-Transfer-Encoding: 8bit\n" -"X-Generator: Poedit 1.8.8\n" +"X-Generator: Poedit 2.0.6\n" "Language: cs\n" #: tformabout.buttonclose.caption @@ -30,28 +30,7 @@ msgid " " msgstr " " -#: tformcompilers.caption -msgctxt "tformcompilers.caption" -msgid "Compilers" -msgstr "Překladače" - -#: tformcompilers.listview1.columns[0].caption -msgctxt "tformcompilers.listview1.columns[0].caption" -msgid "Name" -msgstr "Jméno" - -#: tformcompilers.listview1.columns[1].caption -msgctxt "tformcompilers.listview1.columns[1].caption" -msgid "Execution path" -msgstr "Cesta vykonání" - -#: tformcompilers.listview1.columns[2].caption -msgctxt "tformcompilers.listview1.columns[2].caption" -msgid "Compiler path" -msgstr "Cesta překladače" - #: tformcpu.caption -#| msgid "Interpretter" msgctxt "tformcpu.caption" msgid "CPU" msgstr "CPU" @@ -559,81 +538,6 @@ msgid "Compiler path" msgstr "Cesta překladače" -#: toptionsform.buttoncancel.caption -msgctxt "toptionsform.buttoncancel.caption" -msgid "Cancel" -msgstr "Zrušit" - -#: toptionsform.buttonok.caption -msgctxt "toptionsform.buttonok.caption" -msgid "Ok" -msgstr "Ok" - -#: toptionsform.caption -msgctxt "toptionsform.caption" -msgid "Options" -msgstr "Volby" - -#: toptionsform.checkbox1.caption -msgctxt "toptionsform.checkbox1.caption" -msgid "Reopend last opened project" -msgstr "Otevřít naposledy otevřený projekt" - -#: toptionsform.checkboxdpiauto.caption -msgctxt "toptionsform.checkboxdpiauto.caption" -msgid "Automatic DPI" -msgstr "Automatické DPI" - -#: toptionsform.checkboxoptimizeaddsub.caption -msgctxt "toptionsform.checkboxoptimizeaddsub.caption" -msgid "Addition and subtraction" -msgstr "Sčítání a odečítání" - -#: toptionsform.checkboxoptimizecopymultiply.caption -msgctxt "toptionsform.checkboxoptimizecopymultiply.caption" -msgid "Copy multiply" -msgstr "Kopírování a násobení" - -#: toptionsform.checkboxoptimizemerge.caption -msgctxt "toptionsform.checkboxoptimizemerge.caption" -msgid "Merge same operations" -msgstr "Sloučit stejné operace" - -#: toptionsform.checkboxoptimizerelativeindexes.caption -msgctxt "toptionsform.checkboxoptimizerelativeindexes.caption" -msgid "Relative indexes" -msgstr "Relativní indexy" - -#: toptionsform.label1.caption -msgctxt "toptionsform.label1.caption" -msgid "Memory size:" -msgstr "Velikost paměti:" - -#: toptionsform.label2.caption -msgctxt "toptionsform.label2.caption" -msgid "Cell size:" -msgstr "Velikost buňky:" - -#: toptionsform.label3.caption -msgctxt "toptionsform.label3.caption" -msgid "Interface language:" -msgstr "Jazyk rozhraní:" - -#: toptionsform.label4.caption -msgctxt "toptionsform.label4.caption" -msgid "Compiler optimizations:" -msgstr "Optimalizace překladače:" - -#: toptionsform.labeldpi.caption -msgctxt "toptionsform.labeldpi.caption" -msgid "DPI:" -msgstr "DPI:" - -#: toptionsform.labelx.caption -msgctxt "toptionsform.labelx.caption" -msgid "x" -msgstr "x" - #: uformabout.slicense msgid "License" msgstr "Licence" @@ -742,4 +646,3 @@ #: utargetinterpretter.sunsupportedcommand msgid "Unsupported command" msgstr "Nepodporovaný příkaz" - diff -Nru lazfuck-1.0.0/Languages/LazFuck.po lazfuck-1.0.0/Languages/LazFuck.po --- lazfuck-1.0.0/Languages/LazFuck.po 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Languages/LazFuck.po 2019-05-04 23:17:13.000000000 +0000 @@ -20,26 +20,6 @@ msgid " " msgstr "" -#: tformcompilers.caption -msgctxt "TFORMCOMPILERS.CAPTION" -msgid "Compilers" -msgstr "" - -#: tformcompilers.listview1.columns[0].caption -msgctxt "tformcompilers.listview1.columns[0].caption" -msgid "Name" -msgstr "" - -#: tformcompilers.listview1.columns[1].caption -msgctxt "tformcompilers.listview1.columns[1].caption" -msgid "Execution path" -msgstr "" - -#: tformcompilers.listview1.columns[2].caption -msgctxt "tformcompilers.listview1.columns[2].caption" -msgid "Compiler path" -msgstr "" - #: tformcpu.caption msgid "CPU" msgstr "" @@ -514,81 +494,6 @@ msgid "Compiler path" msgstr "" -#: toptionsform.buttoncancel.caption -msgctxt "toptionsform.buttoncancel.caption" -msgid "Cancel" -msgstr "" - -#: toptionsform.buttonok.caption -msgctxt "toptionsform.buttonok.caption" -msgid "Ok" -msgstr "" - -#: toptionsform.caption -msgctxt "TOPTIONSFORM.CAPTION" -msgid "Options" -msgstr "" - -#: toptionsform.checkbox1.caption -msgctxt "toptionsform.checkbox1.caption" -msgid "Reopend last opened project" -msgstr "" - -#: toptionsform.checkboxdpiauto.caption -msgctxt "toptionsform.checkboxdpiauto.caption" -msgid "Automatic DPI" -msgstr "" - -#: toptionsform.checkboxoptimizeaddsub.caption -msgctxt "toptionsform.checkboxoptimizeaddsub.caption" -msgid "Addition and subtraction" -msgstr "" - -#: toptionsform.checkboxoptimizecopymultiply.caption -msgctxt "toptionsform.checkboxoptimizecopymultiply.caption" -msgid "Copy multiply" -msgstr "" - -#: toptionsform.checkboxoptimizemerge.caption -msgctxt "toptionsform.checkboxoptimizemerge.caption" -msgid "Merge same operations" -msgstr "" - -#: toptionsform.checkboxoptimizerelativeindexes.caption -msgctxt "toptionsform.checkboxoptimizerelativeindexes.caption" -msgid "Relative indexes" -msgstr "" - -#: toptionsform.label1.caption -msgctxt "toptionsform.label1.caption" -msgid "Memory size:" -msgstr "" - -#: toptionsform.label2.caption -msgctxt "toptionsform.label2.caption" -msgid "Cell size:" -msgstr "" - -#: toptionsform.label3.caption -msgctxt "toptionsform.label3.caption" -msgid "Interface language:" -msgstr "" - -#: toptionsform.label4.caption -msgctxt "toptionsform.label4.caption" -msgid "Compiler optimizations:" -msgstr "" - -#: toptionsform.labeldpi.caption -msgctxt "toptionsform.labeldpi.caption" -msgid "DPI:" -msgstr "" - -#: toptionsform.labelx.caption -msgctxt "toptionsform.labelx.caption" -msgid "x" -msgstr "" - #: uformabout.slicense msgid "License" msgstr "" diff -Nru lazfuck-1.0.0/LazFuck.lpi lazfuck-1.0.0/LazFuck.lpi --- lazfuck-1.0.0/LazFuck.lpi 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/LazFuck.lpi 2019-05-04 23:17:13.000000000 +0000 @@ -1,12 +1,13 @@ - + + <Scaled Value="True"/> <ResourceType Value="res"/> <UseXPManifest Value="True"/> <XPManifest> @@ -59,16 +60,19 @@ </Linking> </CompilerOptions> </Item2> + <SharedMatrixOptions Count="2"> + <Item1 ID="163191122673" Targets="CoolTranslator,Common,TemplateGenerics" Modes="Debug" Value="-g -gl -gh -CirotR -O1"/> + <Item2 ID="012750149698" Targets="CoolTranslator,Common,TemplateGenerics" Modes="Release" Value="-CX -XX -O3"/> + </SharedMatrixOptions> </BuildModes> <PublishOptions> <Version Value="2"/> - <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> - <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/> </PublishOptions> <RunParams> - <local> - <FormatVersion Value="1"/> - </local> + <FormatVersion Value="2"/> + <Modes Count="1"> + <Mode0 Name="default"/> + </Modes> </RunParams> <RequiredPackages Count="6"> <Item1> diff -Nru lazfuck-1.0.0/LazFuck.lpr lazfuck-1.0.0/LazFuck.lpr --- lazfuck-1.0.0/LazFuck.lpr 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/LazFuck.lpr 2019-05-04 23:17:13.000000000 +0000 @@ -16,20 +16,20 @@ {$R *.res} -{$IFDEF DEBUG} +{$if declared(UseHeapTrace)} const HeapTraceLog = 'heaptrclog.trc'; {$ENDIF} begin - {$IFDEF DEBUG} - // Heap trace + {$if declared(UseHeapTrace)} DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog); SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog); {$ENDIF} - Application.Title := 'LazFuck IDE'; + Application.Scaled:=True; + Application.Title:='LazFuck IDE'; RequireDerivedFormResource := True; Application.Initialize; Application.CreateForm(TCore, Core); diff -Nru lazfuck-1.0.0/Packages/Common/Common.lpk lazfuck-1.0.0/Packages/Common/Common.lpk --- lazfuck-1.0.0/Packages/Common/Common.lpk 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Packages/Common/Common.lpk 2019-05-04 23:17:13.000000000 +0000 @@ -59,6 +59,7 @@ </Item4> <Item5> <Filename Value="UPrefixMultiplier.pas"/> + <HasRegisterProc Value="True"/> <UnitName Value="UPrefixMultiplier"/> </Item5> <Item6> @@ -143,17 +144,14 @@ <OutDir Value="Languages"/> <EnableI18NForLFM Value="True"/> </i18n> - <RequiredPkgs Count="3"> + <RequiredPkgs Count="2"> <Item1> <PackageName Value="LCL"/> </Item1> <Item2> - <PackageName Value="TemplateGenerics"/> - </Item2> - <Item3> <PackageName Value="FCL"/> <MinVersion Major="1" Valid="True"/> - </Item3> + </Item2> </RequiredPkgs> <UsageOptions> <UnitPath Value="$(PkgOutDir)"/> diff -Nru lazfuck-1.0.0/Packages/Common/Common.pas lazfuck-1.0.0/Packages/Common/Common.pas --- lazfuck-1.0.0/Packages/Common/Common.pas 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Packages/Common/Common.pas 2019-05-04 23:17:13.000000000 +0000 @@ -19,6 +19,7 @@ procedure Register; begin RegisterUnit('UDebugLog', @UDebugLog.Register); + RegisterUnit('UPrefixMultiplier', @UPrefixMultiplier.Register); RegisterUnit('ULastOpenedList', @ULastOpenedList.Register); RegisterUnit('UJobProgressView', @UJobProgressView.Register); RegisterUnit('UApplicationInfo', @UApplicationInfo.Register); diff -Nru lazfuck-1.0.0/Packages/Common/Languages/UThreading.po lazfuck-1.0.0/Packages/Common/Languages/UThreading.po --- lazfuck-1.0.0/Packages/Common/Languages/UThreading.po 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Packages/Common/Languages/UThreading.po 2019-05-04 23:17:13.000000000 +0000 @@ -2,6 +2,7 @@ msgstr "Content-Type: text/plain; charset=UTF-8" #: uthreading.scurrentthreadnotfound +#, fuzzy,badformat msgid "Current thread ID %d not found in virtual thread list." msgstr "Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8" diff -Nru lazfuck-1.0.0/Packages/Common/UCommon.pas lazfuck-1.0.0/Packages/Common/UCommon.pas --- lazfuck-1.0.0/Packages/Common/UCommon.pas 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Packages/Common/UCommon.pas 2019-05-04 23:17:13.000000000 +0000 @@ -27,7 +27,9 @@ unfNameServicePrincipal = 10, // Generalized service principal name unfDNSDomainName = 11); - TFilterMethodMethod = function (FileName: string): Boolean of object; + TFilterMethod = function (FileName: string): Boolean of object; + TFileNameMethod = procedure (FileName: string) of object; + var ExceptionHandler: TExceptionEvent; DLLHandle1: HModule; @@ -71,13 +73,16 @@ function GetDirCount(Dir: string): Integer; function MergeArray(A, B: array of string): TArrayOfString; function LoadFileToStr(const FileName: TFileName): AnsiString; +procedure SaveStringToFile(S, FileName: string); procedure SearchFiles(AList: TStrings; Dir: string; - FilterMethod: TFilterMethodMethod = nil); + FilterMethod: TFilterMethod = nil; FileNameMethod: TFileNameMethod = nil); function GetStringPart(var Text: string; Separator: string): string; +function StripTags(const S: string): string; function PosFromIndex(SubStr: string; Text: string; StartIndex: Integer): Integer; function PosFromIndexReverse(SubStr: string; Text: string; StartIndex: Integer): Integer; +procedure CopyStringArray(Dest: TStringArray; Source: array of string); implementation @@ -105,6 +110,7 @@ var I: Integer; begin + Result := ''; for I := 1 to Length(Source) do begin Result := Result + LowerCase(IntToHex(Ord(Source[I]), 2)); end; @@ -526,8 +532,21 @@ Result := True; end; +procedure SaveStringToFile(S, FileName: string); +var + F: TextFile; +begin + AssignFile(F, FileName); + try + ReWrite(F); + Write(F, S); + finally + CloseFile(F); + end; +end; + procedure SearchFiles(AList: TStrings; Dir: string; - FilterMethod: TFilterMethodMethod = nil); + FilterMethod: TFilterMethod = nil; FileNameMethod: TFileNameMethod = nil); var SR: TSearchRec; begin @@ -537,6 +556,8 @@ repeat if (SR.Name = '.') or (SR.Name = '..') or (Assigned(FilterMethod) and (not FilterMethod(SR.Name) or not FilterMethod(Copy(Dir, 3, Length(Dir)) + SR.Name))) then Continue; + if Assigned(FileNameMethod) then + FileNameMethod(Dir + SR.Name); AList.Add(Dir + SR.Name); if (SR.Attr and faDirectory) <> 0 then SearchFiles(AList, Dir + SR.Name, FilterMethod); @@ -562,6 +583,37 @@ Text := Trim(Text); end; +function StripTags(const S: string): string; +var + Len: Integer; + + function ReadUntil(const ReadFrom: Integer; const C: Char): Integer; + var + J: Integer; + begin + for J := ReadFrom to Len do + if (S[j] = C) then + begin + Result := J; + Exit; + end; + Result := Len + 1; + end; + +var + I, APos: Integer; +begin + Len := Length(S); + I := 0; + Result := ''; + while (I <= Len) do begin + Inc(I); + APos := ReadUntil(I, '<'); + Result := Result + Copy(S, I, APos - i); + I := ReadUntil(APos + 1, '>'); + end; +end; + function PosFromIndex(SubStr: string; Text: string; StartIndex: Integer): Integer; var @@ -607,6 +659,16 @@ end; end; +procedure CopyStringArray(Dest: TStringArray; Source: array of string); +var + I: Integer; +begin + SetLength(Dest, Length(Source)); + for I := 0 to Length(Dest) - 1 do + Dest[I] := Source[I]; +end; + + initialization LoadLibraries; diff -Nru lazfuck-1.0.0/Packages/Common/UDebugLog.pas lazfuck-1.0.0/Packages/Common/UDebugLog.pas --- lazfuck-1.0.0/Packages/Common/UDebugLog.pas 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Packages/Common/UDebugLog.pas 2019-05-04 23:17:13.000000000 +0000 @@ -5,7 +5,7 @@ interface uses - Classes, SysUtils, FileUtil, SpecializedList, SyncObjs; + Classes, SysUtils, FileUtil, fgl, SyncObjs; type TDebugLogAddEvent = procedure (Group: string; Text: string) of object; @@ -28,7 +28,7 @@ FWriteToFileEnable: Boolean; procedure SetMaxCount(const AValue: Integer); public - Items: TListObject; + Items: TFPGObjectList<TDebugLogItem>; Lock: TCriticalSection; procedure Add(Text: string; Group: string = ''); procedure WriteToFile(Text: string); @@ -116,7 +116,7 @@ constructor TDebugLog.Create(AOwner: TComponent); begin inherited; - Items := TListObject.Create; + Items := TFPGObjectList<TDebugLogItem>.Create; Lock := TCriticalSection.Create; MaxCount := 100; FileName := 'DebugLog.txt'; diff -Nru lazfuck-1.0.0/Packages/Common/ULastOpenedList.pas lazfuck-1.0.0/Packages/Common/ULastOpenedList.pas --- lazfuck-1.0.0/Packages/Common/ULastOpenedList.pas 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Packages/Common/ULastOpenedList.pas 2019-05-04 23:17:13.000000000 +0000 @@ -29,6 +29,7 @@ procedure LoadFromXMLConfig(XMLConfig: TXMLConfig; Path: string); procedure SaveToXMLConfig(XMLConfig: TXMLConfig; Path: string); procedure AddItem(FileName: string); + function GetFirstFileName: string; published property MaxCount: Integer read FMaxCount write SetMaxCount; property OnChange: TNotifyEvent read FOnChange write FOnChange; @@ -184,5 +185,11 @@ DoChange; end; +function TLastOpenedList.GetFirstFileName: string; +begin + if Items.Count > 0 then Result := Items[0] + else Result := ''; +end; + end. diff -Nru lazfuck-1.0.0/Packages/Common/UListViewSort.pas lazfuck-1.0.0/Packages/Common/UListViewSort.pas --- lazfuck-1.0.0/Packages/Common/UListViewSort.pas 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Packages/Common/UListViewSort.pas 2019-05-04 23:17:13.000000000 +0000 @@ -8,7 +8,7 @@ uses {$IFDEF Windows}Windows, CommCtrl, {$ENDIF}Classes, Graphics, ComCtrls, SysUtils, - Controls, DateUtils, Dialogs, SpecializedList, Forms, Grids, StdCtrls, ExtCtrls, + Controls, DateUtils, Dialogs, fgl, Forms, Grids, StdCtrls, ExtCtrls, LclIntf, LMessages, LclType, LResources; type @@ -51,8 +51,8 @@ procedure NewListViewWindowProc(var AMsg: TMessage); {$ENDIF} public - List: TListObject; - Source: TListObject; + List: TFPGObjectList<TObject>; + Source: TFPGObjectList<TObject>; constructor Create(AOwner: TComponent); override; destructor Destroy; override; function CompareTime(Time1, Time2: TDateTime): Integer; @@ -97,6 +97,24 @@ property BorderSpacing; end; + { TListViewEx } + + TListViewEx = class(TWinControl) + private + FFilter: TListViewFilter; + FListView: TListView; + FListViewSort: TListViewSort; + procedure ResizeHanlder; + public + constructor Create(TheOwner: TComponent); override; + destructor Destroy; override; + published + property ListView: TListView read FListView write FListView; + property ListViewSort: TListViewSort read FListViewSort write FListViewSort; + property Filter: TListViewFilter read FFilter write FFilter; + property Visible; + end; + procedure Register; @@ -104,7 +122,31 @@ procedure Register; begin - RegisterComponents('Common', [TListViewSort, TListViewFilter]); + RegisterComponents('Common', [TListViewSort, TListViewFilter, TListViewEx]); +end; + +{ TListViewEx } + +procedure TListViewEx.ResizeHanlder; +begin +end; + +constructor TListViewEx.Create(TheOwner: TComponent); +begin + inherited Create(TheOwner); + Filter := TListViewFilter.Create(Self); + Filter.Parent := Self; + Filter.Align := alBottom; + ListView := TListView.Create(Self); + ListView.Parent := Self; + ListView.Align := alClient; + ListViewSort := TListViewSort.Create(Self); + ListViewSort.ListView := ListView; +end; + +destructor TListViewEx.Destroy; +begin + inherited Destroy; end; { TListViewFilter } @@ -276,10 +318,21 @@ {$ENDIF} end; +var + ListViewSortCompare: TCompareEvent; + +function ListViewCompare(const Item1, Item2: TObject): Integer; +begin + Result := ListViewSortCompare(Item1, Item2); +end; + procedure TListViewSort.Sort(Compare: TCompareEvent); begin + // TODO: Because TFLGObjectList compare handler is not class method, + // it is necessary to use simple function compare handler with local variable + ListViewSortCompare := Compare; if (List.Count > 0) then - List.Sort(Compare); + List.Sort(ListViewCompare); end; procedure TListViewSort.Refresh; @@ -342,8 +395,8 @@ constructor TListViewSort.Create(AOwner: TComponent); begin inherited; - List := TListObject.Create; - List.OwnsObjects := False; + List := TFPGObjectList<TObject>.Create; + List.FreeObjects := False; end; destructor TListViewSort.Destroy; diff -Nru lazfuck-1.0.0/Packages/Common/UPool.pas lazfuck-1.0.0/Packages/Common/UPool.pas --- lazfuck-1.0.0/Packages/Common/UPool.pas 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Packages/Common/UPool.pas 2019-05-04 23:17:13.000000000 +0000 @@ -5,7 +5,7 @@ interface uses - Classes, SysUtils, syncobjs, SpecializedList, UThreading; + Classes, SysUtils, syncobjs, fgl, UThreading; type TPoolItemClass = class of TObject; @@ -21,8 +21,8 @@ protected function NewItemObject: TObject; virtual; public - Items: TListObject; - FreeItems: TListObject; + Items: TFPGObjectList<TObject>; + FreeItems: TFPGObjectList<TObject>; function Acquire: TObject; virtual; procedure Release(Item: TObject); virtual; constructor Create; virtual; @@ -184,9 +184,9 @@ constructor TPool.Create; begin inherited; - Items := TListObject.Create; - FreeItems := TListObject.Create; - FreeItems.OwnsObjects := False; + Items := TFPGObjectList<TObject>.Create; + FreeItems := TFPGObjectList<TObject>.Create; + FreeItems.FreeObjects := False; FReleaseEvent := TEvent.Create(nil, False, False, ''); end; diff -Nru lazfuck-1.0.0/Packages/Common/UPrefixMultiplier.pas lazfuck-1.0.0/Packages/Common/UPrefixMultiplier.pas --- lazfuck-1.0.0/Packages/Common/UPrefixMultiplier.pas 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Packages/Common/UPrefixMultiplier.pas 2019-05-04 23:17:13.000000000 +0000 @@ -20,9 +20,9 @@ { TPrefixMultiplier } - TPrefixMultiplier = class + TPrefixMultiplier = class(TComponent) private - function TruncateDigits(Value:Double;Digits:Integer=3):Double; + function TruncateDigits(Value: Double; Digits: Integer = 3): Double; public function Add(Value: Double; PrefixMultipliers: TPrefixMultiplierDef; UnitText: string; Digits: Integer = 3): string; @@ -71,8 +71,16 @@ (ShortText: 'tisíciletí'; FullText: 'tisíciletí'; Value: 3153600000) ); +procedure Register; + + implementation +procedure Register; +begin + RegisterComponents('Common', [TPrefixMultiplier]); +end; + { TPrefixMultiplier } function TPrefixMultiplier.TruncateDigits(Value: Double; Digits: Integer = 3): Double; @@ -91,8 +99,8 @@ end; end; -function TPrefixMultiplier.Add(Value:Double;PrefixMultipliers:TPrefixMultiplierDef - ;UnitText:string;Digits:Integer):string; +function TPrefixMultiplier.Add(Value: Double; PrefixMultipliers: TPrefixMultiplierDef + ; UnitText:string; Digits: Integer): string; var I: Integer; begin diff -Nru lazfuck-1.0.0/Packages/Common/URegistry.pas lazfuck-1.0.0/Packages/Common/URegistry.pas --- lazfuck-1.0.0/Packages/Common/URegistry.pas 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Packages/Common/URegistry.pas 2019-05-04 23:17:13.000000000 +0000 @@ -28,10 +28,13 @@ function GetCurrentContext: TRegistryContext; procedure SetCurrentContext(AValue: TRegistryContext); public + function ReadChar(const Name: string): Char; + procedure WriteChar(const Name: string; Value: Char); function ReadBoolWithDefault(const Name: string; DefaultValue: Boolean): Boolean; function ReadIntegerWithDefault(const Name: string; DefaultValue: Integer): Integer; function ReadStringWithDefault(const Name: string; DefaultValue: string): string; + function ReadCharWithDefault(const Name: string; DefaultValue: Char): Char; function ReadFloatWithDefault(const Name: string; DefaultValue: Double): Double; function DeleteKeyRecursive(const Key: string): Boolean; @@ -88,6 +91,16 @@ end; end; +function TRegistryEx.ReadCharWithDefault(const Name: string; DefaultValue: Char + ): Char; +begin + if ValueExists(Name) then Result := ReadChar(Name) + else begin + WriteChar(Name, DefaultValue); + Result := DefaultValue; + end; +end; + function TRegistryEx.ReadFloatWithDefault(const Name: string; DefaultValue: Double): Double; begin @@ -136,6 +149,20 @@ OpenKey(AValue.Key, True); end; +function TRegistryEx.ReadChar(const Name: string): Char; +var + S: string; +begin + S := ReadString(Name); + if Length(S) > 0 then Result := S[1] + else Result := #0; +end; + +procedure TRegistryEx.WriteChar(const Name: string; Value: Char); +begin + WriteString(Name, Value); +end; + function TRegistryEx.ReadBoolWithDefault(const Name: string; DefaultValue: Boolean): Boolean; begin diff -Nru lazfuck-1.0.0/Packages/Common/UScaleDPI.pas lazfuck-1.0.0/Packages/Common/UScaleDPI.pas --- lazfuck-1.0.0/Packages/Common/UScaleDPI.pas 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Packages/Common/UScaleDPI.pas 2019-05-04 23:17:13.000000000 +0000 @@ -288,6 +288,19 @@ //OldAnchors: TAnchors; //OldAutoSize: Boolean; begin + //if not (Control is TCustomPage) then + // Resize childs first + if Control is TWinControl then begin + WinControl := TWinControl(Control); + if WinControl.ControlCount > 0 then begin + for I := 0 to WinControl.ControlCount - 1 do begin + if WinControl.Controls[I] is TControl then begin + ScaleControl(WinControl.Controls[I], FromDPI); + end; + end; + end; + end; + //if Control is TMemo then Exit; //if Control is TForm then // Control.DisableAutoSizing; @@ -339,17 +352,6 @@ end; end; - //if not (Control is TCustomPage) then - if Control is TWinControl then begin - WinControl := TWinControl(Control); - if WinControl.ControlCount > 0 then begin - for I := 0 to WinControl.ControlCount - 1 do begin - if WinControl.Controls[I] is TControl then begin - ScaleControl(WinControl.Controls[I], FromDPI); - end; - end; - end; - end; //if Control is TForm then // Control.EnableAutoSizing; end; diff -Nru lazfuck-1.0.0/Packages/Common/UXMLUtils.pas lazfuck-1.0.0/Packages/Common/UXMLUtils.pas --- lazfuck-1.0.0/Packages/Common/UXMLUtils.pas 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Packages/Common/UXMLUtils.pas 2019-05-04 23:17:13.000000000 +0000 @@ -6,7 +6,7 @@ uses {$IFDEF WINDOWS}Windows,{$ENDIF} - Classes, SysUtils, DateUtils, DOM; + Classes, SysUtils, DateUtils, DOM, xmlread; function XMLTimeToDateTime(XMLDateTime: string): TDateTime; function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): string; @@ -20,10 +20,30 @@ function ReadBoolean(Node: TDOMNode; Name: string; DefaultValue: Boolean): Boolean; function ReadString(Node: TDOMNode; Name: string; DefaultValue: string): string; function ReadDateTime(Node: TDOMNode; Name: string; DefaultValue: TDateTime): TDateTime; +procedure ReadXMLFileParser(out Doc: TXMLDocument; FileName: string); implementation +procedure ReadXMLFileParser(out Doc: TXMLDocument; FileName: string); +var + Parser: TDOMParser; + Src: TXMLInputSource; + InFile: TFileStream; +begin + try + InFile := TFileStream.Create(FileName, fmOpenRead); + Src := TXMLInputSource.Create(InFile); + Parser := TDOMParser.Create; + Parser.Options.PreserveWhitespace := True; + Parser.Parse(Src, Doc); + finally + Src.Free; + Parser.Free; + InFile.Free; + end; +end; + function GetTimeZoneBias: Integer; {$IFDEF WINDOWS} var diff -Nru lazfuck-1.0.0/Packages/CoolTranslator/CoolTranslator.lpk lazfuck-1.0.0/Packages/CoolTranslator/CoolTranslator.lpk --- lazfuck-1.0.0/Packages/CoolTranslator/CoolTranslator.lpk 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Packages/CoolTranslator/CoolTranslator.lpk 2019-05-04 23:17:13.000000000 +0000 @@ -1,18 +1,38 @@ -<?xml version="1.0"?> +<?xml version="1.0" encoding="UTF-8"?> <CONFIG> <Package Version="4"> <PathDelim Value="\"/> <Name Value="CoolTranslator"/> + <Type Value="RunAndDesignTime"/> <AddToProjectUsesSection Value="True"/> <Author Value="Chronos (robie@centrum.cz)"/> <CompilerOptions> - <Version Value="10"/> + <Version Value="11"/> <PathDelim Value="\"/> <SearchPaths> - <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> + <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)-$(BuildMode)"/> </SearchPaths> + <Parsing> + <SyntaxOptions> + <CStyleOperator Value="False"/> + <AllowLabel Value="False"/> + <CPPInline Value="False"/> + </SyntaxOptions> + </Parsing> + <CodeGeneration> + <Optimizations> + <OptimizationLevel Value="0"/> + </Optimizations> + </CodeGeneration> + <Linking> + <Debugging> + <GenerateDebugInfo Value="False"/> + </Debugging> + </Linking> <Other> - <CompilerPath Value="$(CompPath)"/> + <CompilerMessages> + <IgnoredMessages idx5024="True"/> + </CompilerMessages> </Other> </CompilerOptions> <Description Value="Application interface translator tool"/> @@ -37,7 +57,6 @@ <EnableI18N Value="True"/> <OutDir Value="Languages"/> </i18n> - <Type Value="RunAndDesignTime"/> <RequiredPkgs Count="2"> <Item1> <PackageName Value="LCL"/> diff -Nru lazfuck-1.0.0/Packages/CoolTranslator/UCoolTranslator.pas lazfuck-1.0.0/Packages/CoolTranslator/UCoolTranslator.pas --- lazfuck-1.0.0/Packages/CoolTranslator/UCoolTranslator.pas 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Packages/CoolTranslator/UCoolTranslator.pas 2019-05-04 23:17:13.000000000 +0000 @@ -126,6 +126,7 @@ var I, J: Integer; Po: TPoFile; + Item: TPOFileItem; begin TranslateComponentRecursive(Application); @@ -135,9 +136,11 @@ for I := 0 to FPOFiles.Count - 1 do with TPoFile(FPoFiles[I]) do for J := 0 to Items.Count - 1 do - with TPoFileItem(Items[J]) do - Po.Add(IdentifierLow, Original, Translation, Comments, Context, + with TPoFileItem(Items[J]) do begin + Item := nil; + Po.FillItem(Item, IdentifierLow, Original, Translation, Comments, Context, Flags, PreviousID); + end; Translations.TranslateResourceStrings(Po); finally Po.Free; @@ -294,7 +297,7 @@ begin Result := FPOFilesFolder; if Copy(Result, 1, 1) <> DirectorySeparator then - Result := ExtractFileDir(UTF8Encode(Application.ExeName)) + + Result := ExtractFileDir(Application.ExeName) + DirectorySeparator + Result; end; diff -Nru lazfuck-1.0.0/Packages/TemplateGenerics/ReadMe.txt lazfuck-1.0.0/Packages/TemplateGenerics/ReadMe.txt --- lazfuck-1.0.0/Packages/TemplateGenerics/ReadMe.txt 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Packages/TemplateGenerics/ReadMe.txt 2019-05-04 23:17:13.000000000 +0000 @@ -11,4 +11,4 @@ Main subversion repository: -http://svn.zdechov.net/svn/PascalClassLibrary/Generics/TemplateGenerics +https://svn.zdechov.net/PascalClassLibrary/Generics/TemplateGenerics diff -Nru lazfuck-1.0.0/Packages/TemplateGenerics/TemplateGenerics.lpk lazfuck-1.0.0/Packages/TemplateGenerics/TemplateGenerics.lpk --- lazfuck-1.0.0/Packages/TemplateGenerics/TemplateGenerics.lpk 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/Packages/TemplateGenerics/TemplateGenerics.lpk 2019-05-04 23:17:13.000000000 +0000 @@ -1,8 +1,9 @@ -<?xml version="1.0"?> +<?xml version="1.0" encoding="UTF-8"?> <CONFIG> <Package Version="4"> <PathDelim Value="\"/> <Name Value="TemplateGenerics"/> + <Type Value="RunAndDesignTime"/> <AddToProjectUsesSection Value="True"/> <Author Value="Chronos (robie@centrum.cz)"/> <CompilerOptions> @@ -11,19 +12,30 @@ <SearchPaths> <IncludeFiles Value="Generic"/> <OtherUnitFiles Value="Specialized;Generic;Additional"/> - <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> + <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)-$(BuildMode)"/> </SearchPaths> + <Parsing> + <SyntaxOptions> + <CStyleOperator Value="False"/> + <AllowLabel Value="False"/> + <CPPInline Value="False"/> + </SyntaxOptions> + </Parsing> <CodeGeneration> <Optimizations> + <OptimizationLevel Value="0"/> <VariablesInRegisters Value="True"/> - <OptimizationLevel Value="3"/> </Optimizations> </CodeGeneration> + <Linking> + <Debugging> + <GenerateDebugInfo Value="False"/> + </Debugging> + </Linking> <Other> <CompilerMessages> - <UseMsgFile Value="True"/> + <IgnoredMessages idx5024="True"/> </CompilerMessages> - <CompilerPath Value="$(CompPath)"/> </Other> </CompilerOptions> <Description Value="Generic classes implemented as templates."/> @@ -47,6 +59,7 @@ </Item4> <Item5> <Filename Value="Generic\GenericFileList.inc"/> + <UnitName Value="GenericFileList"/> </Item5> <Item6> <Filename Value="Generic\GenericQueue.inc"/> @@ -141,7 +154,6 @@ <UnitName Value="UBinarySerializer"/> </Item28> </Files> - <Type Value="RunAndDesignTime"/> <RequiredPkgs Count="2"> <Item1> <PackageName Value="LCLBase"/> diff -Nru lazfuck-1.0.0/UCore.lfm lazfuck-1.0.0/UCore.lfm --- lazfuck-1.0.0/UCore.lfm 2018-12-27 12:01:33.000000000 +0000 +++ lazfuck-1.0.0/UCore.lfm 2019-05-04 23:17:13.000000000 +0000 @@ -20,7 +20,7 @@ EmailContact = 'robie@centrum.cz' AppName = 'LazFuck' Description = 'Simple BrainFuck IDE written in Lazarus/FPC.' - ReleaseDate = 43301 + ReleaseDate = 43590 RegistryKey = '\Software\Chronosoft\LazFuck' RegistryRoot = rrKeyCurrentUser License = 'CC0'