Rev 32 | Rev 36 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 32 | Rev 33 | ||
|---|---|---|---|
| Line 82... | Line 82... | ||
| 82 | ActionSpaceToTab: TAction; |
82 | ActionSpaceToTab: TAction; |
| 83 | Button11: TButton; |
83 | Button11: TButton; |
| 84 | SynEditSearch1: TSynEditSearch; |
84 | SynEditSearch1: TSynEditSearch; |
| 85 | TreeView1: TTreeView; |
85 | TreeView1: TTreeView; |
| 86 | Splitter2: TSplitter; |
86 | Splitter2: TSplitter; |
| - | 87 | btnLint: TButton; |
|
| - | 88 | ActionLint: TAction; |
|
| 87 | procedure Run(Sender: TObject); |
89 | procedure Run(Sender: TObject); |
| 88 | procedure FormShow(Sender: TObject); |
90 | procedure FormShow(Sender: TObject); |
| 89 | procedure FormCreate(Sender: TObject); |
91 | procedure FormCreate(Sender: TObject); |
| 90 | procedure FormDestroy(Sender: TObject); |
92 | procedure FormDestroy(Sender: TObject); |
| 91 | procedure FormClose(Sender: TObject; var Action: TCloseAction); |
93 | procedure FormClose(Sender: TObject; var Action: TCloseAction); |
| Line 118... | Line 120... | ||
| 118 | procedure TreeView1DblClick(Sender: TObject); |
120 | procedure TreeView1DblClick(Sender: TObject); |
| 119 | procedure SynEdit1GutterClick(Sender: TObject; Button: TMouseButton; X, Y, |
121 | procedure SynEdit1GutterClick(Sender: TObject; Button: TMouseButton; X, Y, |
| 120 | Line: Integer; Mark: TSynEditMark); |
122 | Line: Integer; Mark: TSynEditMark); |
| 121 | procedure SynEdit1PaintTransient(Sender: TObject; Canvas: TCanvas; |
123 | procedure SynEdit1PaintTransient(Sender: TObject; Canvas: TCanvas; |
| 122 | TransientType: TTransientType); |
124 | TransientType: TTransientType); |
| - | 125 | procedure ActionLintExecute(Sender: TObject); |
|
| 123 | private |
126 | private |
| 124 | CurSearchTerm: string; |
127 | CurSearchTerm: string; |
| 125 | HlpPrevPageIndex: integer; |
128 | HlpPrevPageIndex: integer; |
| 126 | SrcRep: TSynEditFindReplace; |
129 | SrcRep: TSynEditFindReplace; |
| 127 | {$IFDEF OnlineHelp} |
130 | {$IFDEF OnlineHelp} |
| Line 191... | Line 194... | ||
| 191 | WebBrowser2.SetFocus |
194 | WebBrowser2.SetFocus |
| 192 | else if PageControl2.ActivePage = CodeTabsheet then |
195 | else if PageControl2.ActivePage = CodeTabsheet then |
| 193 | SynEdit1.SetFocus; |
196 | SynEdit1.SetFocus; |
| 194 | end; |
197 | end; |
| 195 | 198 | ||
| - | 199 | procedure TForm1.ActionLintExecute(Sender: TObject); |
|
| - | 200 | begin |
|
| - | 201 | Run(Sender); |
|
| - | 202 | SynEdit1.SetFocus; |
|
| - | 203 | end; |
|
| - | 204 | ||
| 196 | procedure TForm1.ActionOpenExecute(Sender: TObject); |
205 | procedure TForm1.ActionOpenExecute(Sender: TObject); |
| 197 | begin |
206 | begin |
| 198 | If OpenDialog3.Execute then |
207 | If OpenDialog3.Execute then |
| 199 | begin |
208 | begin |
| 200 | ShellExecute(0, 'open', PChar(ParamStr(0)), PChar(OpenDialog3.FileName), '', SW_NORMAL); |
209 | ShellExecute(0, 'open', PChar(ParamStr(0)), PChar(OpenDialog3.FileName), '', SW_NORMAL); |
| Line 347... | Line 356... | ||
| 347 | Application.ProcessMessages; |
356 | Application.ProcessMessages; |
| 348 | 357 | ||
| 349 | try |
358 | try |
| 350 | SynEdit1.Lines.SaveToFile(GetScrapFile); |
359 | SynEdit1.Lines.SaveToFile(GetScrapFile); |
| 351 | 360 | ||
| 352 | memo2.Lines.Text := RunPHPScript(GetScrapFile); |
361 | memo2.Lines.Text := RunPHPScript(GetScrapFile, Sender=ActionLint); |
| 353 | 362 | ||
| 354 | Webbrowser1.LoadHTML(MarkUpLineReference(memo2.Lines.Text), GetScrapFile); |
363 | Webbrowser1.LoadHTML(MarkUpLineReference(memo2.Lines.Text), GetScrapFile); |
| 355 | 364 | ||
| 356 | if IsTextHTML(memo2.lines.text) then |
365 | if IsTextHTML(memo2.lines.text) then |
| 357 | PageControl1.ActivePage := HtmlTabSheet |
366 | PageControl1.ActivePage := HtmlTabSheet |
| Line 435... | Line 444... | ||
| 435 | begin |
444 | begin |
| 436 | Result := Editor.RowColumnToPixels(Editor.BufferToDisplayPos(P)); |
445 | Result := Editor.RowColumnToPixels(Editor.BufferToDisplayPos(P)); |
| 437 | end; |
446 | end; |
| 438 | 447 | ||
| 439 | const |
448 | const |
| 440 | COLOR_FG = clRed; |
449 | COLOR_FG = clGreen; |
| 441 | COLOR_BG = clInfoBk; |
450 | COLOR_BG = clLime; |
| 442 | var |
451 | var |
| 443 | P: TBufferCoord; |
452 | P: TBufferCoord; |
| 444 | Pix: TPoint; |
453 | Pix: TPoint; |
| 445 | D: TDisplayCoord; |
454 | D: TDisplayCoord; |
| 446 | S: UnicodeString; |
455 | S: UnicodeString; |