Check-in [ff0999daf0] - Pascal Playground

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview

Comment:	Switched to TMemo instead of TScintilla, and made to compile under XE7. Doesn't work, though; it still needs to call rsvars.bat first.
Timelines:	family \| ancestors \| trunk
Files:	files \| file ages \| folders
SHA1:	ff0999daf051e886a62342b166c34c266bcce4c3
User & Date:	tinus 2015-01-27 13:46:23

Context

2015-01-27
13:46		Switched to TMemo instead of TScintilla, and made to compile under XE7. Doesn't work, though; it still needs to call rsvars.bat first. Leaf check-in: ff0999daf0 user: tinus tags: trunk
13:05		Initial check-in of ImmediatePascal project (initially written sometime in 2006), which uses the Delphi 2006 compiler to quickly compile and run a bit of Delphi code. Requires the Scintilla sci_lexer.dll and the TScintilla wrapper component, none of which are included. check-in: a9858dea4a user: tinus tags: trunk

Changes

Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to src/FormMain.dfm.

  object lblUses: TLabel
    Left = 8
    Top = 8
    Width = 23
    Height = 13
    Caption = '&Uses'
  end
  object sciCode: TScintilla
    Left = 8
    Top = 34
    Width = 577
    Height = 264

    Color = clWhite
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Consolas'
    Font.Style = []
    OnKeyUp = sciCodeKeyUp
    OnKeyDown = sciCodeKeyDown
    Anchors = [akLeft, akTop, akRight, akBottom]
    Lines.Strings = (
      'var'
      '  Test: string;'
      'begin'
      '  Test := '#39'Hello world!'#39';'
      '  WriteLn(Test);'
      'end;')
    EOLStyle = eolCRLF
    Indentation = [KeepIndent, TabIndents, IndentationGuides]
    IndentWidth = 2
    MarginLeft = 1
    MarginRight = 1
    TabWidth = 2
    CodePage = cpAnsi
    Caret.ForeColor = clDefault
    Caret.LineBackColor = clSkyBlue
    Caret.LineVisible = True
    Caret.Width = 1
    Caret.Period = 500
    Caret.LineBackAlpha = 60
    DivOptions.ViewWSpace = sciWsInvisible
    DivOptions.UsePalette = False
    DivOptions.OverType = False
    DivOptions.ViewEOL = False
    DivOptions.EndAtLastLine = True
    DivOptions.ScrollBarH = True
    DivOptions.ScrollBarV = True
    ActiveHotSpot.BackColor = clDefault
    ActiveHotSpot.ForeColor = clBlue
    ActiveHotSpot.Underlined = True
    ActiveHotSpot.SingleLine = True
    Colors.SelFore = clHighlightText
    Colors.SelBack = clHighlight
    Colors.MarkerFore = 16777200
    Colors.MarkerBack = clSkyBlue
    Colors.FoldHi = 16777200
    Colors.FoldLo = 16777200
    Colors.WhiteSpaceFore = clYellow
    Colors.WhiteSpaceBack = clDefault
    Bookmark.BackColor = clYellow
    Bookmark.ForeColor = clRed
    Bookmark.MarkerType = sciMCircle
    Gutter0.Width = 24
    Gutter0.MarginType = gutLineNumber
    Gutter0.Sensitive = False
    Gutter1.Width = 4
    Gutter1.MarginType = gutSymbol
    Gutter1.Sensitive = True
    Gutter2.Width = 14
    Gutter2.MarginType = gutSymbol
    Gutter2.Sensitive = True
    Gutter3.Width = 0
    Gutter3.MarginType = gutSymbol
    Gutter3.Sensitive = False
    Gutter4.Width = 0
    Gutter4.MarginType = gutSymbol
    Gutter4.Sensitive = False
    WordWrapVisualFlags = [sciWWEnd]
    WordWrapVisualFlagsLocation = [sciStartByText]
    LayoutCache = sciCacheCaret
    HideSelect = False
    WordWrap = sciWrap
    EdgeColumn = 100
    EdgeColor = clSilver
    WordChars = '_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'
    ControlCharSymbol = #0
    Folding = [foldFold, foldCompact, foldComment, foldPreprocessor, foldAtElse, foldHTML, foldHTMLPreProcessor]
    FoldMarkers.MarkerType = sciMarkBox
    FoldMarkers.FoldOpen.BackColor = clDefault
    FoldMarkers.FoldOpen.ForeColor = clDefault
    FoldMarkers.FoldOpen.MarkerType = sciMBoxMinus
    FoldMarkers.FoldClosed.BackColor = clDefault
    FoldMarkers.FoldClosed.ForeColor = clDefault
    FoldMarkers.FoldClosed.MarkerType = sciMBoxPlus
    FoldMarkers.FoldSub.BackColor = clDefault
    FoldMarkers.FoldSub.ForeColor = clDefault
    FoldMarkers.FoldSub.MarkerType = sciMVLine
    FoldMarkers.FoldTail.BackColor = clDefault
    FoldMarkers.FoldTail.ForeColor = clDefault
    FoldMarkers.FoldTail.MarkerType = sciMLCorner
    FoldMarkers.FoldEnd.BackColor = clDefault
    FoldMarkers.FoldEnd.ForeColor = clDefault
    FoldMarkers.FoldEnd.MarkerType = sciMBoxPlusConnected
    FoldMarkers.FoldOpenMid.BackColor = clDefault
    FoldMarkers.FoldOpenMid.ForeColor = clDefault
    FoldMarkers.FoldOpenMid.MarkerType = sciMBoxMinusConnected
    FoldMarkers.FoldMidTail.BackColor = clDefault
    FoldMarkers.FoldMidTail.ForeColor = clDefault
    FoldMarkers.FoldMidTail.MarkerType = sciMTCorner
    LanguageManager.LanguageList = <
      item
        Name = 'null'
        Lexer = 'null'
        Styles = <
          item
            FontName = 'Arial'
            FontSize = 0
            FontStyles = []
            ForeColor = clSilver
            BackColor = clBlack
            CharCase = CASE_MIXED
            Name = 'LineNumbers'
            StyleNumber = 33
          end
          item
            FontSize = 0
            FontStyles = [fsBold]
            ForeColor = clYellow
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Ok Braces'
            StyleNumber = 34
          end
          item
            FontSize = 0
            FontStyles = [fsBold]
            ForeColor = clRed
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Bad Braces'
            StyleNumber = 35
          end
          item
            FontSize = 0
            FontStyles = []
            ForeColor = clBlack
            BackColor = clSilver
            CharCase = CASE_MIXED
            Name = 'Control Chars'
            StyleNumber = 36
          end
          item
            FontSize = 0
            FontStyles = []
            ForeColor = clGray
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Indent Guide'
            StyleNumber = 37
          end>
        Keywords = <>
        AssignmentOperator = '='
        EndOfStatementOperator = ';'
        CommentBoxStart = '/*'
        CommentBoxEnd = '*/'
        CommentBoxMiddle = '*'
        CommentBlock = '//'
        CommentAtLineStart = True
        CommentStreamStart = '/*'
        CommentStreamEnd = '*/'
        NumStyleBits = 5
      end
      item
        Name = 'container'
        Lexer = 'container'
        Styles = <>
        Keywords = <>
        AssignmentOperator = '='
        EndOfStatementOperator = ';'
        CommentBoxStart = '/*'
        CommentBoxEnd = '*/'
        CommentBoxMiddle = '*'
        CommentBlock = '//'
        CommentAtLineStart = True
        CommentStreamStart = '/*'
        CommentStreamEnd = '*/'
        NumStyleBits = 5
      end
      item
        Name = 'Pascal'
        Lexer = 'pascal'
        Styles = <
          item
            FontSize = 8
            FontStyles = []
            ForeColor = cl3DDkShadow
            BackColor = cl3DLight
            CharCase = CASE_MIXED
            Changeable = False
            Name = 'LineNumbers'
            StyleNumber = 33
          end
          item
            FontSize = 0
            FontStyles = [fsBold]
            ForeColor = clLime
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Ok Braces'
            StyleNumber = 34
          end
          item
            FontSize = 0
            FontStyles = [fsBold]
            ForeColor = clRed
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Bad Braces'
            StyleNumber = 35
          end
          item
            FontSize = 0
            FontStyles = []
            ForeColor = clBlack
            BackColor = clSilver
            CharCase = CASE_MIXED
            Name = 'Control Chars'
            StyleNumber = 36
          end
          item
            FontSize = 0
            FontStyles = []
            ForeColor = clGray
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Indent Guide'
            StyleNumber = 37
          end
          item
            FontSize = 0
            FontStyles = []
            ForeColor = clDefault
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'White space'
            StyleNumber = 0
          end
          item
            FontSize = 0
            FontStyles = []
            ForeColor = clGreen
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Comment'
            StyleNumber = 1
          end
          item
            FontSize = 0
            FontStyles = []
            ForeColor = clGreen
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Line Comment'
            StyleNumber = 2
          end
          item
            FontName = 'Georgia'
            FontSize = 0
            FontStyles = []
            ForeColor = clGreen
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Doc Comment'
            StyleNumber = 3
          end
          item
            FontSize = 0
            FontStyles = []
            ForeColor = 16744448
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Number'
            StyleNumber = 4
          end
          item
            FontSize = 0
            FontStyles = [fsBold]
            ForeColor = clBlue
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Keyword'
            StyleNumber = 5
          end
          item
            FontSize = 0
            FontStyles = []
            ForeColor = clMaroon
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Double quoted string'
            StyleNumber = 6
          end
          item
            FontSize = 0
            FontStyles = []
            ForeColor = clMaroon
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Single quoted string'
            StyleNumber = 7
          end
          item
            FontSize = 0
            FontStyles = []
            ForeColor = clDefault
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Symbols'
            StyleNumber = 8
          end
          item
            FontSize = 0
            FontStyles = []
            ForeColor = clTeal
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Preprocessor'
            StyleNumber = 9
          end
          item
            FontSize = 0
            FontStyles = [fsBold]
            ForeColor = clDefault
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Operators'
            StyleNumber = 10
          end
          item
            FontSize = 0
            FontStyles = []
            ForeColor = clNavy
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Identifier'
            StyleNumber = 11
          end
          item
            FontSize = 0
            FontStyles = []
            ForeColor = clDefault
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Inline Assembler'
            StyleNumber = 14
          end
          item
            FontSize = 0
            FontStyles = [fsBold]
            ForeColor = clBlue
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Class Keywords'
            StyleNumber = 16
          end
          item
            FontSize = 0
            FontStyles = []
            ForeColor = clGray
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Comment Keyword'
            StyleNumber = 17
          end
          item
            FontSize = 0
            FontStyles = []
            ForeColor = clRed
            BackColor = clDefault
            CharCase = CASE_MIXED
            Name = 'Comment Keyword Error'
            StyleNumber = 18
          end>
        Keywords = <
          item
            KeywordListNumber = 0
            Name = 'Keywords'
            Keywords.Strings = (
              'and'
              'array'
              'as'
              'begin'
              'case'
              'class'
              'const'
              'constructor'
              'destructor'
              'div'
              'do'
              'downto'
              'else'
              'end'
              'except'
              'file'
              'finally'
              'for'
              'function'
              'goto'
              'if'
              'implementation'
              'in'
              'inherited'
              'interface'
              'is'
              'mod'
              'not'
              'object'
              'of'
              'on'
              'or'
              'packed'
              'procedure'
              'program'
              'property'
              'raise'
              'record'
              'repeat'
              'set'
              'shl'
              'shr'
              'then'
              'threadvar'
              'to'
              'try'
              'type'
              'unit'
              'until'
              'uses'
              'var'
              'while'
              'with'
              'xor')
          end
          item
            KeywordListNumber = 1
            Name = 'Directives'
            Keywords.Strings = (
              'abstract'
              'default'
              'dynamic'
              'export'
              'index'
              'out'
              'overload'
              'override'
              'private'
              'protected'
              'public'
              'published'
              'virtual')
          end
          item
            KeywordListNumber = 2
            Name = 'Compiler directives'
            Keywords.Strings = (
              '$A'
              '$Align'
              '$AppType'
              '$B'
              '$BoolEval'
              '$D'
              '$DebugInfo'
              '$Define'
              '$DefinitionInfo'
              '$Else'
              '$EndIf'
              '$ExtendedSyntax'
              '$H'
              '$Hints'
              '$I'
              '$IfDef'
              '$IfNDef'
              '$IfOpt'
              '$Include'
              '$IOChecks'
              '$L'
              '$LocalSymbols'
              '$LongStrings'
              '$MinEnumSize'
              '$O'
              '$Optimization'
              '$OverFlowChecks'
              '$Q'
              '$R'
              '$RangeChecks'
              '$ReferenceInfo'
              '$Resource'
              '$UnDef'
              '$Warnings'
              '$X'
              '$Y'
              '$Z')
          end
          item
            KeywordListNumber = 3
            Name = 'Types'
            Keywords.Strings = (
              'AnsiChar'
              'AnsiString'
              'Boolean'
              'Byte'
              'Cardinal'
              'Char'
              'Comp'
              'Currency'
              'Double'
              'Extended'
              'Int'
              'Integer'
              'LongInt'
              'LongWord'
              'PAnsiChar'
              'PAnsiString'
              'PChar'
              'PCurrency'
              'PDateTime'
              'PExtended'
              'PInt'
              'Pointer'
              'PShortString'
              'PString'
              'PVariant'
              'PWideChar'
              'PWideString'
              'Real'
              'Real'
              'ShortInt'
              'ShortString'
              'Single'
              'SmallInt'
              'String'
              'TBits'
              'TConvType'
              'TDateTime'
              'Text'
              'TextFile'
              'TFloatFormat'
              'TFormatSettings'
              'TList'
              'TObject'
              'TOpenDialog'
              'TPoint'
              'TPrintDialog'
              'TRect'
              'TReplaceFlags'
              'TSaveDialog'
              'TSearchRec'
              'TStringList'
              'TSysCharSet'
              'TThreadFunc'
              'Variant'
              'WideChar'
              'WideString'
              'Word')
          end
          item
            KeywordListNumber = 4
            Name = 'Variables'
            Keywords.Strings = (
              'AbstractErrorProc'
              'CmdLine'
              'CurrencyDecimals'
              'CurrencyFormat'
              'CurrencyString'
              'DateSeparator'
              'DecimalSeparator'
              'ErrorAddr'
              'ExitCode'
              'FileMode'
              'Input'
              'LongDateFormat'
              'LongDayNames'
              'LongMonthNames'
              'LongTimeFormat'
              'NegCurrFormat'
              'Null'
              'Output'
              'RandSeed'
              'Result'
              'Self'
              'ShortDateFormat'
              'ShortDayNames'
              'ShortMonthNames'
              'ShortTimeFormat'
              'TConvFamily'
              'ThousandSeparator'
              'TimeAMString'
              'TimePMString'
              'TimeSeparator'
              'TwoDigitYearCenturyWindow')
          end
          item
            KeywordListNumber = 5
            Name = 'Constants'
            Keywords.Strings = (
              'Infinity'
              'MaxInt'
              'MaxLongInt'
              'MinsPerDay'
              'MonthDays'
              'NaN'
              'Nil'
              'SecsPerDay'
              'VarTypeMask')
          end
          item
            KeywordListNumber = 6
            Name = 'Functions'
            Keywords.Strings = (
              'Abs'
              'Addr'
              'AnsiCompareStr'
              'AnsiCompareText'
              'AnsiContainsStr'
              'AnsiEndsStr'
              'AnsiIndexStr'
              'AnsiLeftStr'
              'AnsiLowerCase'
              'AnsiMatchStr'
              'AnsiMidStr'
              'AnsiPos'
              'AnsiReplaceStr'
              'AnsiReverseString'
              'AnsiRightStr'
              'AnsiStartsStr'
              'AnsiUpperCase'
              'ArcCos'
              'ArcSin'
              'ArcTan'
              'Assigned'
              'BeginThread'
              'Bounds'
              'CelsiusToFahrenheit'
              'ChangeFileExt'
              'Chr'
              'CompareStr'
              'CompareText'
              'CompareValue'
              'Concat'
              'Convert'
              'Copy'
              'Cos'
              'CreateDir'
              'CurrToStr'
              'CurrToStrF'
              'Date'
              'DateTimeToFileDate'
              'DateTimeToStr'
              'DateToStr'
              'DayOfTheMonth'
              'DayOfTheWeek'
              'DayOfTheYear'
              'DayOfWeek'
              'DaysBetween'
              'DaysInAMonth'
              'DaysInAYear'
              'DaySpan'
              'DegToRad'
              'DeleteFile'
              'DirectoryExists'
              'DiskFree'
              'DiskSize'
              'DupeString'
              'EncodeDate'
              'EncodeDateTime'
              'EncodeTime'
              'EndOfADay'
              'EndOfAMonth'
              'Eof'
              'Eoln'
              'Exp'
              'ExtractFileDir'
              'ExtractFileDrive'
              'ExtractFileExt'
              'ExtractFileName'
              'ExtractFilePath'
              'FahrenheitToCelsius'
              'FileAge'
              'FileDateToDateTime'
              'FileExists'
              'FileGetAttr'
              'FilePos'
              'FileSearch'
              'FileSetAttr'
              'FileSetDate'
              'FileSize'
              'FindClose'
              'FindCmdLineSwitch'
              'FindFirst'
              'FindNext'
              'FloatToStr'
              'FloatToStrF'
              'ForceDirectories'
              'Format'
              'FormatCurr'
              'FormatDateTime'
              'FormatFloat'
              'Frac'
              'GetCurrentDir'
              'GetLastError'
              'GetMem'
              'Hi'
              'High'
              'IncDay'
              'IncMillisecond'
              'IncMinute'
              'IncMonth'
              'IncSecond'
              'IncYear'
              'InputBox'
              'InputQuery'
              'Int'
              'IntToHex'
              'IntToStr'
              'IOResult'
              'IsInfinite'
              'IsLeapYear'
              'IsMultiThread'
              'IsNaN'
              'LastDelimiter'
              'Length'
              'Ln'
              'Lo'
              'Log'
              'Low'
              'LowerCase'
              'Max'
              'Mean'
              'MessageDlg'
              'MessageDlgPos'
              'Min'
              'MonthOfTheYear'
              'Now'
              'Odd'
              'Ord'
              'ParamCount'
              'ParamStr'
              'Pi'
              'Point'
              'PointsEqual'
              'Pos'
              'Pred'
              'Printer'
              'PromptForFileName'
              'PtInRect'
              'RadToDeg'
              'Random'
              'RandomRange'
              'RecodeDate'
              'RecodeTime'
              'Rect'
              'RemoveDir'
              'RenameFile'
              'Round'
              'SeekEof'
              'SeekEoln'
              'SelectDirectory'
              'SetCurrentDir'
              'Sin'
              'SizeOf'
              'Slice'
              'Sqr'
              'Sqrt'
              'StringOfChar'
              'StringReplace'
              'StringToWideChar'
              'StrScan'
              'StrToCurr'
              'StrToDate'
              'StrToDateTime'
              'StrToFloat'
              'StrToInt'
              'StrToInt'
              'StrToInt'
              'StrToIntDef'
              'StrToTime'
              'StuffString'
              'Succ'
              'Sum'
              'Tan'
              'Time'
              'TimeToStr'
              'Tomorrow'
              'Trim'
              'TrimLeft'
              'TrimRight'
              'Trunc'
              'UpCase'
              'UpperCase'
              'VarType'
              'WideCharToString'
              'WrapText'
              'Yesterday')
          end
          item
            KeywordListNumber = 7
            Name = 'Procedures'
            Keywords.Strings = (
              'Abort'
              'Append'
              'AppendStr'
              'Assign'
              'AssignFile'
              'AssignPrn'
              'Beep'
              'BlockRead'
              'BlockWrite'
              'Break'
              'ChDir'
              'Close'
              'CloseFile'
              'Continue'
              'DateTimeToString'
              'Dec'
              'DecodeDate'
              'DecodeDateTime'
              'DecodeTime'
              'Delete'
              'Dispose'
              'EndThread'
              'Erase'
              'Exclude'
              'Exit'
              'FillChar'
              'Flush'
              'FreeAndNil'
              'FreeMem'
              'GetDir'
              'GetLocaleFormatSettings'
              'Halt'
              'Inc'
              'Include'
              'Insert'
              'MkDir'
              'Move'
              'New'
              'ProcessPath'
              'Randomize'
              'Read'
              'ReadLn'
              'ReallocMem'
              'Rename'
              'ReplaceDate'
              'ReplaceTime'
              'Reset'
              'ReWrite'
              'RmDir'
              'RunError'
              'Seek'
              'SetLength'
              'SetString'
              'ShowMessage'
              'ShowMessageFmt'
              'ShowMessagePos'
              'Str'
              'Truncate'
              'Val'
              'Write'
              'WriteLn')
          end>
        AssignmentOperator = ':='
        EndOfStatementOperator = ';'
        CommentBoxStart = '{'
        CommentBoxEnd = '}'
        CommentBoxMiddle = '*'
        CommentBlock = '//'
        CommentAtLineStart = True
        CommentStreamStart = '{'
        CommentStreamEnd = '}'
        NumStyleBits = 5
      end>
    LanguageManager.SelectedLanguage = 'Pascal'
    FoldDrawFlags = [sciBelowIfNotExpanded]
    KeyCommands = <
      item
        Command = 2300
        ShortCut = 40
      end
      item
        Command = 2301
        ShortCut = 8232
      end
      item
        Command = 2342
        ShortCut = 16424
      end
      item
        Command = 2426
        ShortCut = 41000
      end
      item
        Command = 2302
        ShortCut = 38
      end
      item
        Command = 2303
        ShortCut = 8230
      end
      item
        Command = 2343
        ShortCut = 16422
      end
      item
        Command = 2427
        ShortCut = 40998
      end
      item
        Command = 2415
        ShortCut = 49190
      end
      item
        Command = 2416
        ShortCut = 57382
      end
      item
        Command = 2413
        ShortCut = 49192
      end
      item
        Command = 2414
        ShortCut = 57384
      end
      item
        Command = 2304
        ShortCut = 37
      end
      item
        Command = 2305
        ShortCut = 8229
      end
      item
        Command = 2308
        ShortCut = 16421
      end
      item
        Command = 2309
        ShortCut = 24613
      end
      item
        Command = 2428
        ShortCut = 40997
      end
      item
        Command = 2306
        ShortCut = 39
      end
      item
        Command = 2307
        ShortCut = 8231
      end
      item
        Command = 2310
        ShortCut = 16423
      end
      item
        Command = 2311
        ShortCut = 24615
      end
      item
        Command = 2429
        ShortCut = 40999
      end
      item
        Command = 2390
        ShortCut = 49189
      end
      item
        Command = 2391
        ShortCut = 57381
      end
      item
        Command = 2392
        ShortCut = 49191
      end
      item
        Command = 2393
        ShortCut = 57383
      end
      item
        Command = 2331
        ShortCut = 36
      end
      item
        Command = 2332
        ShortCut = 8228
      end
      item
        Command = 2431
        ShortCut = 40996
      end
      item
        Command = 2316
        ShortCut = 16420
      end
      item
        Command = 2317
        ShortCut = 24612
      end
      item
        Command = 2345
        ShortCut = 32804
      end
      item
        Command = 2314
        ShortCut = 35
      end
      item
        Command = 2315
        ShortCut = 8227
      end
      item
        Command = 2318
        ShortCut = 16419
      end
      item
        Command = 2319
        ShortCut = 24611
      end
      item
        Command = 2347
        ShortCut = 32803
      end
      item
        Command = 2432
        ShortCut = 40995
      end
      item
        Command = 2320
        ShortCut = 33
      end
      item
        Command = 2321
        ShortCut = 8225
      end
      item
        Command = 2433
        ShortCut = 40993
      end
      item
        Command = 2322
        ShortCut = 34
      end
      item
        Command = 2323
        ShortCut = 8226
      end
      item
        Command = 2434
        ShortCut = 40994
      end
      item
        Command = 2180
        ShortCut = 46
      end
      item
        Command = 2177
        ShortCut = 8238
      end
      item
        Command = 2336
        ShortCut = 16430
      end
      item
        Command = 2396
        ShortCut = 24622
      end
      item
        Command = 2324
        ShortCut = 45
      end
      item
        Command = 2179
        ShortCut = 8237
      end
      item
        Command = 2178
        ShortCut = 16429
      end
      item
        Command = 2325
        ShortCut = 27
      end
      item
        Command = 2326
        ShortCut = 8
      end
      item
        Command = 2326
        ShortCut = 8200
      end
      item
        Command = 2335
        ShortCut = 16392
      end
      item
        Command = 2176
        ShortCut = 32776
      end
      item
        Command = 2395
        ShortCut = 24584
      end
      item
        Command = 2176
        ShortCut = 16474
      end
      item
        Command = 2011
        ShortCut = 16473
      end
      item
        Command = 2177
        ShortCut = 16472
      end
      item
        Command = 2178
        ShortCut = 16451
      end
      item
        Command = 2179
        ShortCut = 16470
      end
      item
        Command = 2013
        ShortCut = 16449
      end
      item
        Command = 2327
        ShortCut = 9
      end
      item
        Command = 2328
        ShortCut = 8201
      end
      item
        Command = 2329
        ShortCut = 13
      end
      item
        Command = 2329
        ShortCut = 8205
      end
      item
        Command = 2333
        ShortCut = 16491
      end
      item
        Command = 2334
        ShortCut = 16493
      end
      item
        Command = 2373
        ShortCut = 16495
      end
      item
        Command = 2337
        ShortCut = 16460
      end
      item
        Command = 2338
        ShortCut = 24652
      end
      item
        Command = 2455
        ShortCut = 24660
      end
      item
        Command = 2339
        ShortCut = 16468
      end
      item
        Command = 2469
        ShortCut = 16452
      end
      item
        Command = 2340
        ShortCut = 16469
      end
      item
        Command = 2341
        ShortCut = 24661
      end
      item
        Command = 2011
        ShortCut = 24666
      end>


  end
  object btnExecute: TBitBtn
    Left = 478
    Top = 304
    Width = 107
    Height = 25
    Action = actRun
................................................................................
    end
  end
  object pbExecution: TProgressBar
    Left = 8
    Top = 304
    Width = 464
    Height = 25

    TabOrder = 3
    Visible = False
  end
  object edtUses: TEdit
    Left = 37
    Top = 5
    Width = 496
    Height = 21

    TabOrder = 0
    Text = 'SysUtils, Classes, Windows'
    OnExit = edtUsesExit
  end
  object cbxGUI: TCheckBox
    Left = 539
    Top = 7
    Width = 46
    Height = 17
    Alignment = taLeftJustify

    Caption = '&GUI'
    TabOrder = 1
  end
  object sciAutoComplete: TSciAutoComplete
    IgnoreCase = False
    ChooseSingle = False
    AutoHide = True
    DropRestOfWord = False
    CancelAtStart = True
    Editor = sciCode
    WordCharacters = '_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'
    MaxWidth = 0
    MaxHeight = 5
    OnAutoCSelection = sciAutoCompleteAutoCSelection
    Left = 51
    Top = 220
  end
  object ActionList: TActionList
    Left = 54
    Top = 287
    object actRun: TAction
      Category = 'Run'
      Caption = '&Run'
      ShortCut = 120
      OnExecute = actRunExecute
    end
    object actCompile: TAction
      Category = 'Run'
      Caption = '&Compile'
      ShortCut = 16504
      SecondaryShortCuts.Strings = (
        'Shift+F9')

    end
  end
end








|




>






<
<
<







<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
|
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
|
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
>
>







 







>








>










>



<
<
<
<
<
<
<
<
<
<
<
<
<
<












<


>

  object lblUses: TLabel
    Left = 8
    Top = 8
    Width = 23
    Height = 13
    Caption = '&Uses'
  end
  object sciCode: TMemo
    Left = 8
    Top = 34
    Width = 577
    Height = 264
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clWhite
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Consolas'
    Font.Style = []



    Lines.Strings = (
      'var'
      '  Test: string;'
      'begin'
      '  Test := '#39'Hello world!'#39';'
      '  WriteLn(Test);'
      'end;')





















































    ParentFont = False






















































































































































































    TabOrder = 2




































































































































































































































































































































































































































































































































































































































































































































































































































































































































































    OnKeyDown = sciCodeKeyDown
    OnKeyUp = sciCodeKeyUp
  end
  object btnExecute: TBitBtn
    Left = 478
    Top = 304
    Width = 107
    Height = 25
    Action = actRun
................................................................................
    end
  end
  object pbExecution: TProgressBar
    Left = 8
    Top = 304
    Width = 464
    Height = 25
    Anchors = [akLeft, akTop, akRight]
    TabOrder = 3
    Visible = False
  end
  object edtUses: TEdit
    Left = 37
    Top = 5
    Width = 496
    Height = 21
    Anchors = [akLeft, akTop, akRight]
    TabOrder = 0
    Text = 'SysUtils, Classes, Windows'
    OnExit = edtUsesExit
  end
  object cbxGUI: TCheckBox
    Left = 539
    Top = 7
    Width = 46
    Height = 17
    Alignment = taLeftJustify
    Anchors = [akTop, akRight]
    Caption = '&GUI'
    TabOrder = 1
  end














  object ActionList: TActionList
    Left = 54
    Top = 287
    object actRun: TAction
      Category = 'Run'
      Caption = '&Run'
      ShortCut = 120
      OnExecute = actRunExecute
    end
    object actCompile: TAction
      Category = 'Run'
      Caption = '&Compile'

      SecondaryShortCuts.Strings = (
        'Shift+F9')
      ShortCut = 16504
    end
  end
end

Changes to src/FormMain.pas.

unit FormMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SciAutoComplete, SciLexer, SciLexerMemo, SciLexerMod, StdCtrls, Buttons, ComCtrls,
  ActnList, ToolWin;

type
  TfrmMain = class(TForm)
    sciCode: TScintilla;
    sciAutoComplete: TSciAutoComplete;
    btnExecute: TBitBtn;
    pgResults: TPageControl;
    tsCompiler: TTabSheet;
    mmoCompiler: TMemo;
    tsMessages: TTabSheet;
    tsResult: TTabSheet;
    lvwMessages: TListView;
................................................................................
var
  frmMain: TfrmMain;

implementation
  uses
    TypInfo,
    Registry, ShellAPI,
    ScintillaLanguageManager,
    RunConsoleUnit;

{$R *.dfm}

////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TfrmMain.FormCreate(Sender: TObject);
var
  Keywords: TSciKeyWordsList;
  i: Integer;
begin
  Randomize;

  Keywords := sciCode.LanguageManager.LanguageList.Find('Pascal').Keywords;
  for i := 0 to Keywords.Count - 1 do begin
    sciAutoComplete.AStrings.AddStrings(Keywords.GetKeywordList(i).Keywords);
  end;
//  sciAutoComplete.AStrings.Assign(Keywords.GetKeywordList(0).Keywords);
  sciAutoComplete.FromDocument := False;
//  sciAutoComplete.StartAutoComplete;

  sciCode.SelStart := 31;
  sciCode.SelLength := 41;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TfrmMain.edtUsesExit(Sender: TObject);
................................................................................
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TfrmMain.sciAutoCompleteAutoCSelection(Sender: TObject; text: PAnsiChar);
begin
  sciAutoComplete.Editor.SelText := text;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TfrmMain.sciCodeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if(Key = VK_F9) then begin
    btnExecute.Click;
  end else if (Key = 191{/}) and (Shift = [ssCtrl]) then begin
    sciCode.CommentBlock;
//  end else if (Key = VK_SPACE) and (Shift = [ssCtrl]) then begin
//    if sciAutoComplete.StartAutoCompleteWord(false) = false then begin
//      ShowMessage('not ok');
//    end;
//    Key := 0;
//    Shift := [];
//  end else begin
................................................................................
    Source.SaveToFile(TempFile);
  finally
    FreeAndNil(Source);
  end;

  // Determine the compiler's path
  Reg := TRegistry.Create;

  Reg.RootKey := HKEY_CURRENT_USER;
  if Reg.OpenKeyReadOnly('Software\Borland\BDS\4.0') then begin

    BDSPath := IncludeTrailingPathDelimiter(Reg.ReadString('RootDir'));
    CommandLine := BDSPath + 'bin\dcc32.exe';
  end else begin
    raise Exception.Create('Unable to determine compiler location.');


  end;







  // Run the compiler











  pbExecution.StepIt;
  CommandLine := '"' + CommandLine + '" -CC -H -U"' + BDSPath + 'lib" -W+ --no-config -$Q+ -$R+ "' + TempFile + '"';




  mmoCompiler.Clear;
  mmoCompiler.Lines.Add(CommandLine);
  mmoCompiler.Lines.Add('');
  pgResults.ActivePage := tsCompiler;
  mmoCompiler.Lines.Add(RunConsole(CommandLine, ConsoleExitCode, true));

  // Put warnings and errors in listview
................................................................................
    if Length(Message) > 0 then begin
      MessageItem := lvwMessages.Items.Add();

      // File name
      CharPos := Pos('(', Message);
      ItemText := Copy(Message, 0, CharPos - 1);
      Message := Copy(Message, CharPos + 1, High(integer));
      if StrComp(@ItemText[1], @TempFile[1]) <> 0 then begin
        MessageItem.Caption := ItemText;
      end;

      // Line number
      // take FirstLine, LastLine into account
      CharPos := Pos(')', Message);
      ItemText := Copy(Message, 0, CharPos - 1);
................................................................................
var
  LineNumber: integer;
  ErrorIndex: integer;
begin
  if Length(Item.Caption) = 0 then begin
    Val(Item.SubItems[0], LineNumber, ErrorIndex);
    if ErrorIndex = 0 then begin
      sciCode.GotoLineEnsureVisible(LineNumber - 1);


      sciCode.SetFocus;
    end;
  end;
end;

end.







|
|



|
<







 







|






|
|
|



|
|
|
|
|
|
|







 







|







|
|







 







>
|
|
>
|
|
<
<
>
>
|
>
>
>
>
>
>

<
>
>
>
>
>
>
>
>
>
>
>
|
|
>
>
>
>







 







|







 







|
>
>

unit FormMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, {SciAutoComplete, SciLexer, SciLexerMemo, SciLexerMod,} StdCtrls, Buttons, ComCtrls,
  ActnList, ToolWin, System.Actions;

type
  TfrmMain = class(TForm)
    sciCode: TMemo;

    btnExecute: TBitBtn;
    pgResults: TPageControl;
    tsCompiler: TTabSheet;
    mmoCompiler: TMemo;
    tsMessages: TTabSheet;
    tsResult: TTabSheet;
    lvwMessages: TListView;
................................................................................
var
  frmMain: TfrmMain;

implementation
  uses
    TypInfo,
    Registry, ShellAPI,
//    ScintillaLanguageManager,
    RunConsoleUnit;

{$R *.dfm}

////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TfrmMain.FormCreate(Sender: TObject);
//var
//  Keywords: TSciKeyWordsList;
//  i: Integer;
begin
  Randomize;

//  Keywords := sciCode.LanguageManager.LanguageList.Find('Pascal').Keywords;
//  for i := 0 to Keywords.Count - 1 do begin
//    sciAutoComplete.AStrings.AddStrings(Keywords.GetKeywordList(i).Keywords);
//  end;
////  sciAutoComplete.AStrings.Assign(Keywords.GetKeywordList(0).Keywords);
//  sciAutoComplete.FromDocument := False;
////  sciAutoComplete.StartAutoComplete;

  sciCode.SelStart := 31;
  sciCode.SelLength := 41;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TfrmMain.edtUsesExit(Sender: TObject);
................................................................................
    end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TfrmMain.sciAutoCompleteAutoCSelection(Sender: TObject; text: PAnsiChar);
begin
//  sciAutoComplete.Editor.SelText := text;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TfrmMain.sciCodeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if(Key = VK_F9) then begin
    btnExecute.Click;
  end else if (Shift = [ssCtrl]) and (Key = Ord('/')) then begin
//    sciCode.CommentBlock;
//  end else if (Key = VK_SPACE) and (Shift = [ssCtrl]) then begin
//    if sciAutoComplete.StartAutoCompleteWord(false) = false then begin
//      ShowMessage('not ok');
//    end;
//    Key := 0;
//    Shift := [];
//  end else begin
................................................................................
    Source.SaveToFile(TempFile);
  finally
    FreeAndNil(Source);
  end;

  // Determine the compiler's path
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKeyReadOnly('Software\Borland\BDS\4.0') then begin
      try
        BDSPath := IncludeTrailingPathDelimiter(Reg.ReadString('RootDir'));
        CommandLine := BDSPath + 'bin\dcc32.exe';


      finally
        Reg.CloseKey;
      end;
    end;
    if not FileExists(CommandLine) and Reg.OpenKeyReadOnly('Software\Embarcadero\BDS\15.0') then begin
      try
        // TODO: just get the BDS key, then use Reg.GetKeyNames() to get the highest one
        BDSPath := IncludeTrailingPathDelimiter(Reg.ReadString('RootDir'));
        CommandLine := BDSPath + 'bin\dcc32.exe';


        // TODO: create a batch script, which calls bin\rsvars.bat, then calls dcc32, or msbuild?
      finally
        Reg.CloseKey;
      end;
    end;
  finally
    Reg.Free;
  end;
  if not FileExists(CommandLine) then begin
    raise Exception.Create('Unable to determine compiler location.');
  end else begin
    pbExecution.StepIt;
    CommandLine := '"' + CommandLine + '" -CC -H -U"' + BDSPath + 'lib" -W+ --no-config -$Q+ -$R+ "' + TempFile + '"';
  end;


  // Run the compiler
  mmoCompiler.Clear;
  mmoCompiler.Lines.Add(CommandLine);
  mmoCompiler.Lines.Add('');
  pgResults.ActivePage := tsCompiler;
  mmoCompiler.Lines.Add(RunConsole(CommandLine, ConsoleExitCode, true));

  // Put warnings and errors in listview
................................................................................
    if Length(Message) > 0 then begin
      MessageItem := lvwMessages.Items.Add();

      // File name
      CharPos := Pos('(', Message);
      ItemText := Copy(Message, 0, CharPos - 1);
      Message := Copy(Message, CharPos + 1, High(integer));
      if SameText(ItemText, TempFile) then begin
        MessageItem.Caption := ItemText;
      end;

      // Line number
      // take FirstLine, LastLine into account
      CharPos := Pos(')', Message);
      ItemText := Copy(Message, 0, CharPos - 1);
................................................................................
var
  LineNumber: integer;
  ErrorIndex: integer;
begin
  if Length(Item.Caption) = 0 then begin
    Val(Item.SubItems[0], LineNumber, ErrorIndex);
    if ErrorIndex = 0 then begin
//      sciCode.GotoLineEnsureVisible(LineNumber - 1);
      sciCode.SelStart := sciCode.Perform(EM_LINEINDEX, LineNumber - 1, 0);
      sciCode.Perform(EM_SCROLLCARET, 0, 0);
      sciCode.SetFocus;
    end;
  end;
end;

end.

Deleted src/ImmediatePascal.bdsproj.

<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
	<PersonalityInfo>
		<Option>
			<Option Name="Personality">Delphi.Personality</Option>
			<Option Name="ProjectType"></Option>
			<Option Name="Version">1.0</Option>
			<Option Name="GUID">{90E0D6A8-6A47-4995-8E35-15654F0E3ECF}</Option>
		</Option>
	</PersonalityInfo>
	<Delphi.Personality>
		<Source>
			<Source Name="MainSource">ImmediatePascal.dpr</Source>
		</Source>
		<FileVersion>
			<FileVersion Name="Version">7.0</FileVersion>
		</FileVersion>
		<Compiler>
			<Compiler Name="A">8</Compiler>
			<Compiler Name="B">0</Compiler>
			<Compiler Name="C">1</Compiler>
			<Compiler Name="D">1</Compiler>
			<Compiler Name="E">0</Compiler>
			<Compiler Name="F">0</Compiler>
			<Compiler Name="G">1</Compiler>
			<Compiler Name="H">1</Compiler>
			<Compiler Name="I">1</Compiler>
			<Compiler Name="J">0</Compiler>
			<Compiler Name="K">0</Compiler>
			<Compiler Name="L">1</Compiler>
			<Compiler Name="M">0</Compiler>
			<Compiler Name="N">1</Compiler>
			<Compiler Name="O">1</Compiler>
			<Compiler Name="P">1</Compiler>
			<Compiler Name="Q">0</Compiler>
			<Compiler Name="R">0</Compiler>
			<Compiler Name="S">0</Compiler>
			<Compiler Name="T">0</Compiler>
			<Compiler Name="U">0</Compiler>
			<Compiler Name="V">1</Compiler>
			<Compiler Name="W">0</Compiler>
			<Compiler Name="X">1</Compiler>
			<Compiler Name="Y">1</Compiler>
			<Compiler Name="Z">1</Compiler>
			<Compiler Name="ShowHints">True</Compiler>
			<Compiler Name="ShowWarnings">True</Compiler>
			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
			<Compiler Name="NamespacePrefix"></Compiler>
			<Compiler Name="GenerateDocumentation">False</Compiler>
			<Compiler Name="DefaultNamespace"></Compiler>
			<Compiler Name="SymbolDeprecated">True</Compiler>
			<Compiler Name="SymbolLibrary">True</Compiler>
			<Compiler Name="SymbolPlatform">True</Compiler>
			<Compiler Name="SymbolExperimental">True</Compiler>
			<Compiler Name="UnitLibrary">True</Compiler>
			<Compiler Name="UnitPlatform">True</Compiler>
			<Compiler Name="UnitDeprecated">True</Compiler>
			<Compiler Name="UnitExperimental">True</Compiler>
			<Compiler Name="HResultCompat">True</Compiler>
			<Compiler Name="HidingMember">True</Compiler>
			<Compiler Name="HiddenVirtual">True</Compiler>
			<Compiler Name="Garbage">True</Compiler>
			<Compiler Name="BoundsError">True</Compiler>
			<Compiler Name="ZeroNilCompat">True</Compiler>
			<Compiler Name="StringConstTruncated">True</Compiler>
			<Compiler Name="ForLoopVarVarPar">True</Compiler>
			<Compiler Name="TypedConstVarPar">True</Compiler>
			<Compiler Name="AsgToTypedConst">True</Compiler>
			<Compiler Name="CaseLabelRange">True</Compiler>
			<Compiler Name="ForVariable">True</Compiler>
			<Compiler Name="ConstructingAbstract">True</Compiler>
			<Compiler Name="ComparisonFalse">True</Compiler>
			<Compiler Name="ComparisonTrue">True</Compiler>
			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
			<Compiler Name="UnsupportedConstruct">True</Compiler>
			<Compiler Name="FileOpen">True</Compiler>
			<Compiler Name="FileOpenUnitSrc">True</Compiler>
			<Compiler Name="BadGlobalSymbol">True</Compiler>
			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
			<Compiler Name="InvalidDirective">True</Compiler>
			<Compiler Name="PackageNoLink">True</Compiler>
			<Compiler Name="PackageThreadVar">True</Compiler>
			<Compiler Name="ImplicitImport">True</Compiler>
			<Compiler Name="HPPEMITIgnored">True</Compiler>
			<Compiler Name="NoRetVal">True</Compiler>
			<Compiler Name="UseBeforeDef">True</Compiler>
			<Compiler Name="ForLoopVarUndef">True</Compiler>
			<Compiler Name="UnitNameMismatch">True</Compiler>
			<Compiler Name="NoCFGFileFound">True</Compiler>
			<Compiler Name="ImplicitVariants">True</Compiler>
			<Compiler Name="UnicodeToLocale">True</Compiler>
			<Compiler Name="LocaleToUnicode">True</Compiler>
			<Compiler Name="ImagebaseMultiple">True</Compiler>
			<Compiler Name="SuspiciousTypecast">True</Compiler>
			<Compiler Name="PrivatePropAccessor">True</Compiler>
			<Compiler Name="UnsafeType">False</Compiler>
			<Compiler Name="UnsafeCode">False</Compiler>
			<Compiler Name="UnsafeCast">False</Compiler>
			<Compiler Name="OptionTruncated">True</Compiler>
			<Compiler Name="WideCharReduced">True</Compiler>
			<Compiler Name="DuplicatesIgnored">True</Compiler>
			<Compiler Name="UnitInitSeq">True</Compiler>
			<Compiler Name="LocalPInvoke">True</Compiler>
			<Compiler Name="MessageDirective">True</Compiler>
			<Compiler Name="CodePage"></Compiler>
		</Compiler>
		<Linker>
			<Linker Name="MapFile">0</Linker>
			<Linker Name="OutputObjs">0</Linker>
			<Linker Name="GenerateHpps">False</Linker>
			<Linker Name="ConsoleApp">1</Linker>
			<Linker Name="DebugInfo">False</Linker>
			<Linker Name="RemoteSymbols">False</Linker>
			<Linker Name="GenerateDRC">False</Linker>
			<Linker Name="MinStackSize">16384</Linker>
			<Linker Name="MaxStackSize">1048576</Linker>
			<Linker Name="ImageBase">4194304</Linker>
			<Linker Name="ExeDescription"></Linker>
		</Linker>
		<Directories>
			<Directories Name="OutputDir">..\out</Directories>
			<Directories Name="UnitOutputDir">..\out\dcu</Directories>
			<Directories Name="PackageDLLOutputDir"></Directories>
			<Directories Name="PackageDCPOutputDir"></Directories>
			<Directories Name="SearchPath">C:\MC\Code\Projects\External\Libraries\Text\Scintilla\delphisci-0.23\d10dcu</Directories>
			<Directories Name="Packages"></Directories>
			<Directories Name="Conditionals"></Directories>
			<Directories Name="DebugSourceDirs"></Directories>
			<Directories Name="UsePackages">False</Directories>
		</Directories>
		<Parameters>
			<Parameters Name="RunParams"></Parameters>
			<Parameters Name="HostApplication"></Parameters>
			<Parameters Name="Launcher"></Parameters>
			<Parameters Name="UseLauncher">False</Parameters>
			<Parameters Name="DebugCWD"></Parameters>
			<Parameters Name="Debug Symbols Search Path"></Parameters>
			<Parameters Name="LoadAllSymbols">True</Parameters>
			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
		</Parameters>
		<Language>
			<Language Name="ActiveLang"></Language>
			<Language Name="ProjectLang">$00000000</Language>
			<Language Name="RootDir"></Language>
		</Language>
		<VersionInfo>
			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
			<VersionInfo Name="AutoIncBuild">True</VersionInfo>
			<VersionInfo Name="MajorVer">1</VersionInfo>
			<VersionInfo Name="MinorVer">0</VersionInfo>
			<VersionInfo Name="Release">0</VersionInfo>
			<VersionInfo Name="Build">3</VersionInfo>
			<VersionInfo Name="Debug">False</VersionInfo>
			<VersionInfo Name="PreRelease">False</VersionInfo>
			<VersionInfo Name="Special">False</VersionInfo>
			<VersionInfo Name="Private">False</VersionInfo>
			<VersionInfo Name="DLL">False</VersionInfo>
			<VersionInfo Name="Locale">1043</VersionInfo>
			<VersionInfo Name="CodePage">1252</VersionInfo>
		</VersionInfo>
		<VersionInfoKeys>
			<VersionInfoKeys Name="CompanyName">Voronwë</VersionInfoKeys>
			<VersionInfoKeys Name="FileDescription">Immediate Pascal</VersionInfoKeys>
			<VersionInfoKeys Name="FileVersion">1.0.0.3</VersionInfoKeys>
			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
			<VersionInfoKeys Name="LegalCopyright">© Martijn Coppoolse</VersionInfoKeys>
			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
			<VersionInfoKeys Name="OriginalFilename">ImmediatePascal.exe</VersionInfoKeys>
			<VersionInfoKeys Name="ProductName">Immediate Pascal</VersionInfoKeys>
			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
		</VersionInfoKeys>
	</Delphi.Personality>
	<StarTeamAssociation></StarTeamAssociation>
	<StarTeamNonRelativeFiles></StarTeamNonRelativeFiles>
</BorlandProject>

<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<

Deleted src/ImmediatePascal.cfg.

-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-E"..\out"
-N0"..\out\dcu"
-LE"C:\Documents and Settings\mco\My Documents\Borland Studio Projects\Bpl"
-LN"C:\Documents and Settings\mco\My Documents\Borland Studio Projects\Bpl"
-U"C:\MC\Code\Projects\External\Libraries\Text\Scintilla\delphisci-0.23\d10dcu"
-O"C:\MC\Code\Projects\External\Libraries\Text\Scintilla\delphisci-0.23\d10dcu"
-I"C:\MC\Code\Projects\External\Libraries\Text\Scintilla\delphisci-0.23\d10dcu"
-R"C:\MC\Code\Projects\External\Libraries\Text\Scintilla\delphisci-0.23\d10dcu"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<

Added src/ImmediatePascal.dproj.

 > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >

 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132

 <Project

xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <PropertyGroup> <ProjectGuid>{90E0D6A8-6A47-4995-8E35-15654F0E3ECF}</ProjectGuid> <MainSource>ImmediatePascal.dpr</MainSource> <Base>True</Base> <Config Condition="'$(Config)'==''">Debug</Config> <TargetedPlatforms>1</TargetedPlatforms> <AppType>Application</AppType> <FrameworkType>VCL</FrameworkType> <ProjectVersion>16.0</ProjectVersion> <Platform Condition="'$(Platform)'==''">Win32</Platform> </PropertyGroup> <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> <Base>true</Base> </PropertyGroup> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''"> <Base_Win32>true</Base_Win32> <CfgParent>Base</CfgParent> <Base>true</Base> </PropertyGroup> <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''"> <Base_Win64>true</Base_Win64> <CfgParent>Base</CfgParent> <Base>true</Base> </PropertyGroup> <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''"> <Cfg_1>true</Cfg_1> <CfgParent>Base</CfgParent> <Base>true</Base> </PropertyGroup> <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''"> <Cfg_2>true</Cfg_2> <CfgParent>Base</CfgParent> <Base>true</Base> </PropertyGroup> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''"> <Cfg_2_Win32>true</Cfg_2_Win32> <CfgParent>Cfg_2</CfgParent> <Cfg_2>true</Cfg_2> <Base>true</Base> </PropertyGroup> <PropertyGroup Condition="'$(Base)'!=''"> <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File> <Icon_MainIcon>ImmediatePascal_Icon.ico</Icon_MainIcon> <DCC_DebugInformation>1</DCC_DebugInformation> <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> <DCC_N>true</DCC_N> <VerInfo_Locale>1043</VerInfo_Locale> <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win;$(DCC_Namespace)</DCC_Namespace> <DCC_F>false</DCC_F> <VerInfo_Build>3</VerInfo_Build> <DCC_ImageBase>00400000</DCC_ImageBase> <DCC_S>false</DCC_S> <SanitizedProjectName>ImmediatePascal</SanitizedProjectName> <DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo> <DCC_UnitSearchPath>C:\MC\Code\Projects\External\Libraries\Text\Scintilla\delphisci-0.23\d10dcu;$(DCC_UnitSearchPath)</DCC_UnitSearchPath> <VerInfo_AutoGenVersion>true</VerInfo_AutoGenVersion> <DCC_K>false</DCC_K> <DCC_DcuOutput>..\out\dcu</DCC_DcuOutput> <DCC_ExeOutput>..\out</DCC_ExeOutput> <VerInfo_Keys>CompanyName=Voronwë;FileDescription=Immediate Pascal;FileVersion=1.0.0.3;InternalName=;LegalCopyright=© Martijn Coppoolse;LegalTrademarks=;OriginalFilename=ImmediatePascal.exe;ProductName=Immediate Pascal;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> <DCC_E>false</DCC_E> </PropertyGroup> <PropertyGroup Condition="'$(Base_Win32)'!=''"> <VerInfo_Build>0</VerInfo_Build> <DCC_Namespace>Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon> <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> <VerInfo_Locale>1033</VerInfo_Locale> </PropertyGroup> <PropertyGroup Condition="'$(Base_Win64)'!=''"> <Icon_MainIcon>ImmediatePascal_Icon.ico</Icon_MainIcon> </PropertyGroup> <PropertyGroup Condition="'$(Cfg_1)'!=''"> <DCC_DebugInformation>0</DCC_DebugInformation> <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols> </PropertyGroup> <PropertyGroup Condition="'$(Cfg_2)'!=''"> <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> <DCC_Optimize>false</DCC_Optimize> <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> </PropertyGroup> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <VerInfo_Build>0</VerInfo_Build> <VerInfo_Locale>1033</VerInfo_Locale> <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> </PropertyGroup> <ItemGroup> <DelphiCompile Include="$(MainSource)"> <MainSource>MainSource</MainSource> </DelphiCompile> <DCCReference Include="FormMain.pas"> <Form>frmMain</Form> </DCCReference> <DCCReference Include="RunConsoleUnit.pas"/> <BuildConfiguration Include="Debug"> <Key>Cfg_2</Key> <CfgParent>Base</CfgParent> </BuildConfiguration> <BuildConfiguration Include="Base"> <Key>Base</Key> </BuildConfiguration> <BuildConfiguration Include="Release"> <Key>Cfg_1</Key> <CfgParent>Base</CfgParent> </BuildConfiguration> </ItemGroup> <ProjectExtensions> <Borland.Personality>Delphi.Personality.12</Borland.Personality> <Borland.ProjectType/> <BorlandProject> <Delphi.Personality> <Source> <Source Name="MainSource">ImmediatePascal.dpr</Source> </Source> <Excluded_Packages> <Excluded_Packages Name="$(BDSBIN)\dcloffice2k210.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages> <Excluded_Packages Name="$(BDSBIN)\dclofficexp210.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages> </Excluded_Packages> </Delphi.Personality> <Platforms> <Platform value="Win32">True</Platform> <Platform value="Win64">False</Platform> </Platforms> </BorlandProject> <ProjectFileVersion>12</ProjectFileVersion> </ProjectExtensions> <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/> <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/> </Project>

Deleted src/ImmediatePascal.res.

cannot compute difference between binary files

Changes to src/RunConsoleUnit.pas.

const
   BufferSize = 2400;
var
  Security: TSecurityAttributes;
  ReadPipe, WritePipe: THandle;
  StartupInfo: TStartUpInfo;
  ProcessInfo: TProcessInformation;
  Buffer: PChar;
  BytesRead: DWord;
  AppRunning: DWord;
  BytesAvailable: DWord;
begin
  Result := '';
  With Security do begin
    nLength := SizeOf(TSecurityAttributes);

const
   BufferSize = 2400;
var
  Security: TSecurityAttributes;
  ReadPipe, WritePipe: THandle;
  StartupInfo: TStartUpInfo;
  ProcessInfo: TProcessInformation;
  Buffer: PAnsiChar;
  BytesRead: DWord;
  AppRunning: DWord;
  BytesAvailable: DWord;
begin
  Result := '';
  With Security do begin
    nLength := SizeOf(TSecurityAttributes);