1 | unit FormTargetCode;
|
---|
2 |
|
---|
3 | interface
|
---|
4 |
|
---|
5 | uses
|
---|
6 | Classes, SysUtils, FileUtil, SynEdit, SynHighlighterAny, SynHighlighterPas,
|
---|
7 | SynHighlighterCpp, SynHighlighterPHP, SynHighlighterJava,
|
---|
8 | SynHighlighterPython, SynHighlighterJScript, Forms, Controls, Graphics,
|
---|
9 | Dialogs, Menus, ActnList, strutils;
|
---|
10 |
|
---|
11 | type
|
---|
12 |
|
---|
13 | { TFormTargetCode }
|
---|
14 |
|
---|
15 | TFormTargetCode = class(TForm)
|
---|
16 | AShrinkCode: TAction;
|
---|
17 | AFormatCode: TAction;
|
---|
18 | ActionList1: TActionList;
|
---|
19 | MenuItem1: TMenuItem;
|
---|
20 | MenuItem20: TMenuItem;
|
---|
21 | PopupMenuTarget: TPopupMenu;
|
---|
22 | SynEditTarget: TSynEdit;
|
---|
23 | procedure AFormatCodeExecute(Sender: TObject);
|
---|
24 | procedure AShrinkCodeExecute(Sender: TObject);
|
---|
25 | procedure FormCreate(Sender: TObject);
|
---|
26 | public
|
---|
27 | procedure SetHighlighter(SourceExt: string);
|
---|
28 | end;
|
---|
29 |
|
---|
30 |
|
---|
31 | implementation
|
---|
32 |
|
---|
33 | {$R *.lfm}
|
---|
34 |
|
---|
35 | uses
|
---|
36 | Core;
|
---|
37 |
|
---|
38 | { TFormTargetCode }
|
---|
39 |
|
---|
40 | procedure TFormTargetCode.AFormatCodeExecute(Sender: TObject);
|
---|
41 | var
|
---|
42 | Source: string;
|
---|
43 | NewSource: string;
|
---|
44 | Indent: Integer;
|
---|
45 | I: Integer;
|
---|
46 | const
|
---|
47 | IndentText = ' ';
|
---|
48 | begin
|
---|
49 | Source := SynEditTarget.Text;
|
---|
50 | NewSource := '';
|
---|
51 | Indent := 0;
|
---|
52 | for I := 1 to Length(Source) do begin
|
---|
53 | if Source[I] = '[' then begin
|
---|
54 | NewSource := NewSource + LineEnding + DupeString(IndentText, Indent) + Source[I] + LineEnding ;
|
---|
55 | Inc(Indent);
|
---|
56 | NewSource := NewSource + DupeString(IndentText, Indent);
|
---|
57 | end
|
---|
58 | else if Source[I] = ']' then begin
|
---|
59 | Dec(Indent);
|
---|
60 | NewSource := NewSource + LineEnding + DupeString(IndentText, Indent) + Source[I] + LineEnding + DupeString(IndentText, Indent);
|
---|
61 | end
|
---|
62 | else if Ord(Source[I]) > $20 then
|
---|
63 | NewSource := NewSource + Source[I];
|
---|
64 | end;
|
---|
65 | SynEditTarget.Text := NewSource;
|
---|
66 | end;
|
---|
67 |
|
---|
68 | procedure TFormTargetCode.AShrinkCodeExecute(Sender: TObject);
|
---|
69 | var
|
---|
70 | Source: string;
|
---|
71 | Pos: Integer;
|
---|
72 | I: Integer;
|
---|
73 | begin
|
---|
74 | Source := SynEditTarget.Text;
|
---|
75 | Pos := 1;
|
---|
76 | for I := 1 to Length(Source) do begin
|
---|
77 | if Source[I] > ' ' then begin
|
---|
78 | Source[Pos] := Source[I];
|
---|
79 | Inc(Pos);
|
---|
80 | end;
|
---|
81 | end;
|
---|
82 | SetLength(Source, Pos - 1);
|
---|
83 | SynEditTarget.Text := Source;
|
---|
84 | end;
|
---|
85 |
|
---|
86 | procedure TFormTargetCode.FormCreate(Sender: TObject);
|
---|
87 | begin
|
---|
88 | Core.Core.Translator.TranslateComponentRecursive(Self);
|
---|
89 | Core.Core.ThemeManager.UseTheme(Self);
|
---|
90 | end;
|
---|
91 |
|
---|
92 | procedure TFormTargetCode.SetHighlighter(SourceExt: string);
|
---|
93 | begin
|
---|
94 | if Assigned(SynEditTarget.Highlighter) then
|
---|
95 | SynEditTarget.Highlighter.Free;
|
---|
96 | if SourceExt = '.pas' then SynEditTarget.Highlighter := TSynPasSyn.Create(nil)
|
---|
97 | else if SourceExt = '.c' then SynEditTarget.Highlighter := TSynCppSyn.Create(nil)
|
---|
98 | else if SourceExt = '.php' then SynEditTarget.Highlighter := TSynPhpSyn.Create(nil)
|
---|
99 | else if SourceExt = '.java' then SynEditTarget.Highlighter := TSynJavaSyn.Create(nil)
|
---|
100 | else if SourceExt = '.py' then SynEditTarget.Highlighter := TSynPythonSyn.Create(nil)
|
---|
101 | else if SourceExt = '.js' then SynEditTarget.Highlighter := TSynJScriptSyn.Create(nil);
|
---|
102 | end;
|
---|
103 |
|
---|
104 | end.
|
---|
105 |
|
---|