removed commented code

micksmix · Aug 21, 2017 · d537d2e · d537d2e
1 parent 4f7541b
commit d537d2e
Showing 1 changed file with 0 additions and 41 deletions.
diff --git a/src/main.pas b/src/main.pas
@@ -418,19 +418,6 @@ procedure TForm1.Saveas2Click(Sender: TObject);
     sExtension := ExtractFileExt(SaveDialog1.Filename);
 
     ExportGrid(SaveDialog1.FileName, sExtension);
-    //    //ExportGrid(TJvDBGridExcelExport);
-    //    if SameText(sExtension, '.xls') then
-    //      ExportGridToExcel(SaveDialog1.FileName, cxGrid1, True, True, True, 'xls')
-    //    else if SameText(sExtension, '.xml') then
-    //      ExportGridToXML(SaveDialog1.FileName, cxGrid1, True, True, 'xml')
-    //        //mxDBGridExport1.ExportType := xtHTML
-    //    else if SameText(sExtension, '.txt') then
-    //      ExportGridToText(SaveDialog1.FileName, cxGrid1, True, True, '   ', '> ',
-    //        ' <', 'txt')
-    //        //mxDBGridExport1.ExportType := xtHTML
-    //    else if SameText(sExtension, '.html') then
-    //      ExportGridToHTML(SaveDialog1.FileName, cxGrid1, True, True, 'html');
-
   end
   else
   begin
@@ -608,36 +595,8 @@ procedure TForm1.ClearResults1Click(Sender: TObject);
 procedure TForm1.Copytoclipboard1Click(Sender: TObject);
 begin
   ShowMessage('not implemented');
-  //  mxDBGridExport1.ExportType := xtClipboard;
-  //  mxDBGridExport1.Execute;
-  //  DBGrid1.Columns[0].Width := 100;
-  //  //DBGrid1.Columns[1].Width := 150;
-  //  DBGrid1.Columns[1].Width := 500;
 end;
 
-//procedure TForm1.cxGrid1DBTableView1GetCellHeight(
-//  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
-//  AItem: TcxCustomGridTableItem; ACellViewInfo: TcxGridTableDataCellViewInfo;
-//  var AHeight: Integer);
-//begin
-//  //
-//end;
-//
-//procedure TForm1.cxGrid1DBTableView1InitEditValue(Sender:
-//  TcxCustomGridTableView; AItem:
-//  TcxCustomGridTableItem; AEdit: TcxCustomEdit; var AValue: Variant);
-//begin
-//  if AEdit is TcxMemo then
-//  begin
-//    AEdit.EditValue := AValue;
-//    if TcxMemo(AEdit).Lines.Count = 2 then
-//      TcxMemo(AEdit).Properties.ScrollBars := ssVertical;
-//
-//    if TcxMemo(AEdit).Lines.Count >= 5 then
-//      TcxMemo(AEdit).Properties.VisibleLineCount := 10;
-//  end;
-//end;
-
 procedure TForm1.Downloadpsexectocurrentdirectory1Click(Sender: TObject);
 var
   asDownloadFile: IAsyncCall;