Changeset 199 for trunk/Forms

Timestamp:

Aug 27, 2018, 8:33:25 AM (6 years ago)

Author:

chronos

Message:

• Added: Save to CSV action for document check report.

Location:

trunk/Forms

Files:

• UFormCheck.lfm (modified) (1 diff)
• UFormCheck.pas (modified) (10 diffs)

trunk/Forms/UFormCheck.lfm

@@ -216 +216 @@
     DefaultExt = '.txt'
     Filter = 'Text files (.txt)|*.txt|Any file|*.*'
-    left = 116
-    top = 493
+    left = 544
+    top = 288
   end
   object PopupMenuReport: TPopupMenu
-    left = 378
+    left = 376
     top = 202
     object MenuItemGoTo: TMenuItem
+      Action = AGoToLocation
+      OnClick = MenuItemGoToClick
+    end
+    object MenuItem1: TMenuItem
+      Action = ASaveToCsv
+    end
+  end
+  object ActionList1: TActionList
+    left = 546
+    top = 203
+    object ASaveToCsv: TAction
+      Caption = 'Save to CSV...'
+      OnExecute = ASaveToCsvExecute
+    end
+    object AGoToLocation: TAction
       Caption = 'Go to location'
-      OnClick = MenuItemGoToClick
-    end
+      OnExecute = AGoToLocationExecute
+    end
+  end
+  object SaveDialog1: TSaveDialog
+    left = 378
+    top = 288
   end
 end

trunk/Forms/UFormCheck.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ExtCtrls, ComCtrls, Menus, UAcronym, URegistry, Registry, UCommon, fgl;
+  ExtCtrls, ComCtrls, Menus, ActnList, UAcronym, URegistry, Registry, UCommon,
+  fgl;
 
 type
@@ -23 +24 @@
     function AddNew(Message: string; Position: TPoint;
       Kind: TReportType = rtNone): TReportItem;
+    procedure SaveToCsv(FileName: string);
   end;
 
@@ -28 +30 @@
 
   TFormCheck = class(TForm)
+    AGoToLocation: TAction;
+    ASaveToCsv: TAction;
+    ActionList1: TActionList;
     ButtonLoadFromFile: TButton;
     ButtonAcronymsContent: TButton;
@@ -43 +48 @@
     ListViewReport: TListView;
     MemoDocument: TMemo;
+    MenuItem1: TMenuItem;
     MenuItemGoTo: TMenuItem;
     OpenDialog1: TOpenDialog;
@@ -49 +55 @@
     Panel2: TPanel;
     PopupMenuReport: TPopupMenu;
+    SaveDialog1: TSaveDialog;
     Splitter1: TSplitter;
     TabSheetSource: TTabSheet;
     TabSheetReport: TTabSheet;
+    procedure AGoToLocationExecute(Sender: TObject);
+    procedure ASaveToCsvExecute(Sender: TObject);
     procedure ButtonAcronymsSummaryClick(Sender: TObject);
     procedure ButtonAcronymsContentClick(Sender: TObject);
@@ -119 +128 @@
   SContentAcronyms = 'Content acronyms';
   SAcronymUsedBeforeDefined = 'Acronym %s used before it was defined.';
+  SCSVFilter = 'CSV file (.csv)|*.csv|Any file|*.*';
 
 const
@@ -133 +143 @@
   Result.Kind := Kind;
   Add(Result);
+end;
+
+procedure TReportItems.SaveToCsv(FileName: string);
+var
+  I: Integer;
+  F: TStringList;
+  Line: TStringList;
+begin
+  F := TStringList.Create;
+  Line := TStringList.Create;
+  Line.StrictDelimiter := True;
+  try
+    Line.Clear;
+    for I := 0 to Count - 1 do
+    with TReportItem(Items[I]) do begin
+      Line.Clear;
+      if Position <> Point(0, 0) then
+        Line.Add(IntToStr(Position.X) + ', ' + IntToStr(Position.Y))
+        else Line.Add('');
+      Line.Add(ReportTypeString[Kind]);
+      Line.Add(Message);
+      F.Add(Line.CommaText);
+    end;
+    F.SaveToFile(FileName);
+  finally
+    F.Free;
+    Line.Free;
+  end;
 end;
 
@@ -205 +243 @@
 procedure TFormCheck.MenuItemGoToClick(Sender: TObject);
 begin
-  if Assigned(ListViewReport.Selected) then
-  with TReportItem(ListViewReport.Selected.Data) do
-  if Position <> Point(0, 0) then begin
-    MemoDocument.CaretPos := Position;
-    TabSheetSource.Show;
-  end;
+
 end;
 
@@ -238 +271 @@
   finally
     FreeAndNil(FormAcronyms);
+  end;
+end;
+
+procedure TFormCheck.ASaveToCsvExecute(Sender: TObject);
+begin
+  SaveDialog1.InitialDir := ExtractFileDir(LastDocumentFileName);
+  SaveDialog1.DefaultExt := '.csv';
+  SaveDialog1.FileName := ExtractFileNameWithoutExt(ExtractFileName(LastDocumentFileName)) + SaveDialog1.DefaultExt;
+  SaveDialog1.Filter := SCSVFilter;
+  if SaveDialog1.Execute then begin
+    ReportItems.SaveToCsv(SaveDialog1.FileName);
+  end;
+end;
+
+procedure TFormCheck.AGoToLocationExecute(Sender: TObject);
+begin
+  if Assigned(ListViewReport.Selected) then
+  with TReportItem(ListViewReport.Selected.Data) do
+  if Position <> Point(0, 0) then begin
+    MemoDocument.CaretPos := Position;
+    TabSheetSource.Show;
   end;
 end;
@@ -389 +443 @@
           if HasMeaning1 or HasMeaning2 then begin
             // If plural acronym then try to remove ending 's' character from the meaning
-            if Plural then ReportItems.AddNew(Format(SPluralAcronym, [Acronym]), Point(0, 0));
+            if Plural then ReportItems.AddNew(Format(SPluralAcronym, [Acronym]), Point(0, 0), rtNote);
             if Plural and (Length(Meaning) >= 1) and (Meaning[Length(Meaning)] = 's') then begin
               Meaning := Copy(Meaning, 1, Length(Meaning) - 1);