diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/apps/ide/src/frm_main.pas | 194 |
1 files changed, 170 insertions, 24 deletions
diff --git a/examples/apps/ide/src/frm_main.pas b/examples/apps/ide/src/frm_main.pas index 6c1ffb8c..d0b87fa6 100644 --- a/examples/apps/ide/src/frm_main.pas +++ b/examples/apps/ide/src/frm_main.pas @@ -106,7 +106,8 @@ type procedure miTest(Sender: TObject); function GetUnitsNode: TfpgTreeNode; procedure UpdateWindowTitle; - procedure TextEditDrawLine(Sender: TObject; ALineText: TfpgString; ALineIndex: Integer; ACanvas: TfpgCanvas; ATextRect: TfpgRect; var AllowSelfDraw: Boolean); + procedure HighlightObjectPascal(Sender: TObject; ALineText: TfpgString; ALineIndex: Integer; ACanvas: TfpgCanvas; ATextRect: TfpgRect; var AllowSelfDraw: Boolean); + procedure HighlightPatch(Sender: TObject; ALineText: TfpgString; ALineIndex: Integer; ACanvas: TfpgCanvas; ATextRect: TfpgRect; var AllowSelfDraw: Boolean); procedure SetupEditorPreference; public constructor Create(AOwner: TComponent); override; @@ -150,25 +151,6 @@ const cSourceFiles = '*.pas;*.pp;*.lpr;*.dpr;*.inc'; cProjectFiles = '*.project'; - { nicely working so far } - cKeywords1 = '\b(begin|end|read|write|with|try|finally|except|uses|interface' - + '|implementation|procedure|function|constructor|destructor|property|operator' - + '|private|protected|public|published|type|virtual|abstract|overload' - + '|override|class|unit|program|library|set|of|if|then|for|downto|to|as|div|mod|shr|shl' - + '|do|else|while|and|inherited|const|var|initialization|finalization' - + '|on|or|in|raise|not|case|record|array|out|resourcestring|default' - + '|xor|repeat|until|constref|stdcall|cdecl|external|generic|specialize)\b'; - - cComments1 = '(\s*\/\/.*$)|(\{[^\{]*\})'; - cComments2 = '\{[^\{]*\}'; - - cDefines1 = '\{\$[^\{]*\}'; - - cString1 = '''.*'''; - - cDecimal = '\b(([0-9]+)|([0-9]+\.[0-9]+([Ee][-]?[0-9]+)?))\b'; - cHexadecimal = '\$[0-9a-fA-F]+'; - {@VFD_NEWFORM_IMPL} @@ -661,9 +643,14 @@ begin if gINI.ReadBool(cEditor, 'SyntaxHighlighting', True) then begin ext := fpgExtractFileExt(AFilename); - if (ext = '.pas') or (ext = '.pp') or (ext = '.inc') or (ext = '.lpr') - or (ext = '.dpr') then - TfpgTextEdit(ts.Components[0]).OnDrawLine := @TextEditDrawLine; + if (ext = '.pas') or (ext = '.pp') or (ext = '.inc') or (ext = '.lpr') or (ext = '.dpr') then + begin + TfpgTextEdit(ts.Components[0]).OnDrawLine := @HighlightObjectPascal; + end + else if (ext = '.patch') or (ext = '.diff') then + begin + TfpgTextEdit(ts.Components[0]).OnDrawLine := @HighlightPatch; + end; end; ts.Realign; pcEditor.ActivePage := ts; @@ -697,9 +684,28 @@ begin WindowTitle := Format(cTitle, [GProject.ProjectName]); end; -procedure TMainForm.TextEditDrawLine(Sender: TObject; ALineText: TfpgString; +procedure TMainForm.HighlightObjectPascal(Sender: TObject; ALineText: TfpgString; ALineIndex: Integer; ACanvas: TfpgCanvas; ATextRect: TfpgRect; var AllowSelfDraw: Boolean); +const + { nicely working so far } + cKeywords1 = '\b(begin|end|read|write|with|try|finally|except|uses|interface' + + '|implementation|procedure|function|constructor|destructor|property|operator' + + '|private|protected|public|published|type|virtual|abstract|overload' + + '|override|class|unit|program|library|set|of|if|then|for|downto|to|as|div|mod|shr|shl' + + '|do|else|while|and|inherited|const|var|initialization|finalization' + + '|on|or|in|raise|not|case|record|array|out|resourcestring|default' + + '|xor|repeat|until|constref|stdcall|cdecl|external|generic|specialize)\b'; + + cComments1 = '(\s*\/\/.*$)|(\{[^\{]*\})'; + cComments2 = '\{[^\{]*\}'; + + cDefines1 = '\{\$[^\{]*\}'; + + cString1 = '''.*'''; + + cDecimal = '\b(([0-9]+)|([0-9]+\.[0-9]+([Ee][-]?[0-9]+)?))\b'; + cHexadecimal = '\$[0-9a-fA-F]+'; var oldfont: TfpgFont; s: TfpgString; // copy of ALineText we work with @@ -850,6 +856,146 @@ begin // writeln('------'); end; +procedure TMainForm.HighlightPatch(Sender: TObject; ALineText: TfpgString; + ALineIndex: Integer; ACanvas: TfpgCanvas; ATextRect: TfpgRect; + var AllowSelfDraw: Boolean); +const + cRemovedLines = '^(-[^-]|\<|!).*'; // starts with "-" or "<" or "!" symbols + cAddedLines = '^(\+[^\+]|\>).*'; // starts with "+" or ">" symbols + cLeftFile = '^--- .*'; // starts with "--- " symbols + cRightFile = '^(\+\+\+|\*\*\*) .*'; // starts with "+++ " or "*** " symbols + cHunk = '^\@\@.*'; // starts with "@@" symbols + cStartOfFile = '^(diff|index) .*'; // starts with "diff " or "index " symbols +var + oldfont: TfpgFont; + s: TfpgString; // copy of ALineText we work with + i, j, c: integer; // i = position of reserved word; c = last character pos + iLength: integer; // length of reserved word + w: integer; // reserved word loop variable + r: TfpgRect; // string rectangle to draw in + edt: TfpgTextEdit; + lMatchPos, lOffset: integer; // user for regex +begin + edt := TfpgTextEdit(Sender); + AllowSelfDraw := False; + + oldfont := TfpgFont(ACanvas.Font); + ACanvas.Color := clWhite; + + { draw the plain text first } + ACanvas.TextColor := clBlack; + ACanvas.DrawText(ATextRect, ALineText); + + lMatchPos := 0; + lOffset := 0; + + { syntax highlighting for: cRemovedLines } + ACanvas.TextColor := clRed; + FRegex.Expression := cRemovedLines; + if FRegex.Exec(ALineText) then + begin + repeat + lMatchPos := FRegex.MatchPos[0]; + lOffset := FRegex.MatchLen[0]; + s := FRegex.Match[0]; + j := Length(s); + r.SetRect(ATextRect.Left + (edt.FontWidth * (lMatchPos-1)), ATextRect.Top, + (edt.FontWidth * j), ATextRect.Height); + ACanvas.FillRectangle(r); + ACanvas.DrawText(r, s); + until not FRegex.ExecNext; + end; + + { syntax highlighting for: cAddedLines } + ACanvas.TextColor := clGreen; + FRegex.Expression := cAddedLines; + if FRegex.Exec(ALineText) then + begin + repeat + lMatchPos := FRegex.MatchPos[0]; + lOffset := FRegex.MatchLen[0]; + s := FRegex.Match[0]; + j := Length(s); + r.SetRect(ATextRect.Left + (edt.FontWidth * (lMatchPos-1)), ATextRect.Top, + (edt.FontWidth * j), ATextRect.Height); + ACanvas.FillRectangle(r); + ACanvas.DrawText(r, s); + until not FRegex.ExecNext; + end; + + { syntax highlighting for: cLeftFile } + ACanvas.TextColor := clMagenta; + FRegex.Expression := cLeftFile; + if FRegex.Exec(ALineText) then + begin + repeat + lMatchPos := FRegex.MatchPos[0]; + lOffset := FRegex.MatchLen[0]; + s := FRegex.Match[0]; + j := Length(s); + r.SetRect(ATextRect.Left + (edt.FontWidth * (lMatchPos-1)), ATextRect.Top, + (edt.FontWidth * j), ATextRect.Height); + ACanvas.FillRectangle(r); + ACanvas.DrawText(r, s); + until not FRegex.ExecNext; + end; + + { syntax highlighting for: cRightFile } + ACanvas.TextColor := clMagenta; + FRegex.Expression := cRightFile; + if FRegex.Exec(ALineText) then + begin + repeat + lMatchPos := FRegex.MatchPos[0]; + lOffset := FRegex.MatchLen[0]; + s := FRegex.Match[0]; + j := Length(s); + r.SetRect(ATextRect.Left + (edt.FontWidth * (lMatchPos-1)), ATextRect.Top, + (edt.FontWidth * j), ATextRect.Height); + ACanvas.FillRectangle(r); + ACanvas.DrawText(r, s); + until not FRegex.ExecNext; + end; + + { syntax highlighting for: cHunk } + ACanvas.TextColor := clBlue; + FRegex.Expression := cHunk; + if FRegex.Exec(ALineText) then + begin + repeat + lMatchPos := FRegex.MatchPos[0]; + lOffset := FRegex.MatchLen[0]; + s := FRegex.Match[0]; + j := Length(s); + r.SetRect(ATextRect.Left + (edt.FontWidth * (lMatchPos-1)), ATextRect.Top, + (edt.FontWidth * j), ATextRect.Height); + ACanvas.FillRectangle(r); + ACanvas.DrawText(r, s); + until not FRegex.ExecNext; + end; + + { syntax highlighting for: cStartOfFile } + ACanvas.TextColor := clBlack; + ACanvas.Color := clSilver; + FRegex.Expression := cStartOfFile; + if FRegex.Exec(ALineText) then + begin + repeat + lMatchPos := FRegex.MatchPos[0]; + lOffset := FRegex.MatchLen[0]; + s := FRegex.Match[0]; + j := Length(s); + r.SetRect(ATextRect.Left + (edt.FontWidth * (lMatchPos-1)), ATextRect.Top, + (edt.FontWidth * j), ATextRect.Height); + ACanvas.FillRectangle(r); + ACanvas.DrawText(r, s); + until not FRegex.ExecNext; + end; + ACanvas.Color := clWhite; + + ACanvas.Font := oldfont; +end; + procedure TMainForm.SetupEditorPreference; var i: integer; |