0 Members and 1 Guest are viewing this topic.
CODE object highSpeedChk: TMenuItem AutoCheck = True Caption = 'Experimental high speed handling' Checked = True end object macrosOldChk: TMenuItem AutoCheck = True Caption = 'Allow old Macros' end object macrosLogChk: TMenuItem AutoCheck = True Caption = 'Enable macros.log' end
CODE macrosLogChk: TMenuItem; macrosOldchk: TMenuItem;
CODE function add2diff(s:string):boolean; begin result:=FALSE; if s = '' then exit; if mainfrm.macrosOldchk.checked then convertNewMacroSyntax(s); //added by mars diff:=s + ifThen((diff > '') and not isSectionAT(@diff[1]), '[]'+CRLF) + diff; result:=TRUE; end; // add2diff