Changeset 91 for trunk/Forms/UFormTargetCode.pas

Timestamp:

Jul 20, 2018, 9:41:37 AM (6 years ago)

Author:

chronos

Message:

• Added: Allow to enable individual code optimization from settings dialog.
• Added: Actions to format or shrink target BF code.

Location:

trunk/Forms

Files:

• . (modified) (1 prop)
• UFormTargetCode.pas (modified) (3 diffs)

trunk/Forms/UFormTargetCode.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Menus;
+  Menus, ActnList, strutils;
 
 type
@@ -14 +14 @@
 
   TFormTargetCode = class(TForm)
+    AShrinkCode: TAction;
+    AFormatCode: TAction;
+    ActionList1: TActionList;
     MemoTarget: TMemo;
+    MenuItem1: TMenuItem;
     MenuItem20: TMenuItem;
     PopupMenuTarget: TPopupMenu;
+    procedure AFormatCodeExecute(Sender: TObject);
+    procedure AShrinkCodeExecute(Sender: TObject);
   private
     { private declarations }
@@ -30 +36 @@
 {$R *.lfm}
 
+{ TFormTargetCode }
+
+procedure TFormTargetCode.AFormatCodeExecute(Sender: TObject);
+var
+  Source: string;
+  NewSource: string;
+  Indent: Integer;
+  I: Integer;
+const
+  IndentText = '  ';
+begin
+  Source := MemoTarget.Text;
+  NewSource := '';
+  Indent := 0;
+  for I := 1 to Length(Source) do begin
+    if Source[I] = '[' then begin
+      NewSource := NewSource + LineEnding + DupeString(IndentText, Indent) + Source[I] + LineEnding ;
+      Inc(Indent);
+      NewSource := NewSource + DupeString(IndentText, Indent);
+    end
+    else if Source[I] = ']' then begin
+      Dec(Indent);
+      NewSource := NewSource + LineEnding + DupeString(IndentText, Indent) + Source[I] + LineEnding + DupeString(IndentText, Indent);
+    end
+    else if Ord(Source[I]) > $20 then
+      NewSource := NewSource + Source[I];
+  end;
+  MemoTarget.Text := NewSource;
+end;
+
+procedure TFormTargetCode.AShrinkCodeExecute(Sender: TObject);
+var
+  Source: string;
+  Pos: Integer;
+  I: Integer;
+begin
+  Source := MemoTarget.Text;
+  Pos := 1;
+  for I := 1 to Length(Source) do begin
+    if Source[I] > ' ' then begin
+      Source[Pos] := Source[I];
+      Inc(Pos);
+    end;
+  end;
+  SetLength(Source, Pos - 1);
+  MemoTarget.Text := Source;
+end;
+
 end.