Permalink
Browse files

Check "copy to clipboard" radio button internally, when copying selec…

…ted rows per quick menu. Closes #459.
  • Loading branch information...
ansgarbecker committed Jan 2, 2019
1 parent 5a5d55f commit a4e20cc9bcfce22376debc4ae8791c93399ecc88
Showing with 3 additions and 2 deletions.
  1. +3 −2 source/exportgrid.pas
@@ -107,8 +107,6 @@ procedure TfrmExportGrid.FormCreate(Sender: TObject);
Width := AppSettings.ReadInt(asGridExportWindowWidth);
Height := AppSettings.ReadInt(asGridExportWindowHeight);
editFilename.Text := AppSettings.ReadString(asGridExportFilename);
radioOutputCopyToClipboard.Checked := AppSettings.ReadBool(asGridExportOutputCopy);
radioOutputFile.Checked := AppSettings.ReadBool(asGridExportOutputFile);
FRecentFiles := Explode(DELIM, AppSettings.ReadString(asGridExportRecentFiles));
comboEncoding.Items.Assign(MainForm.FileEncodings);
comboEncoding.Items.Delete(0); // Remove "Auto detect"
@@ -119,6 +117,7 @@ procedure TfrmExportGrid.FormCreate(Sender: TObject);
FHiddenCopyMode := Owner = MainForm.actCopyRows;

if FHiddenCopyMode then begin
radioOutputCopyToClipboard.Checked := True;
grpFormat.ItemIndex := AppSettings.ReadInt(asGridExportClpFormat);
grpSelection.ItemIndex := 0; // Always use selected cells in copy mode
chkIncludeColumnNames.Checked := AppSettings.ReadBool(asGridExportClpColumnNames);
@@ -129,6 +128,8 @@ procedure TfrmExportGrid.FormCreate(Sender: TObject);
FCSVTerminator := AppSettings.ReadString(asGridExportClpTerminator);
FCSVNull := AppSettings.ReadString(asGridExportClpNull);
end else begin
radioOutputCopyToClipboard.Checked := AppSettings.ReadBool(asGridExportOutputCopy);
radioOutputFile.Checked := AppSettings.ReadBool(asGridExportOutputFile);
grpFormat.ItemIndex := AppSettings.ReadInt(asGridExportFormat);
grpSelection.ItemIndex := AppSettings.ReadInt(asGridExportSelection);
chkIncludeColumnNames.Checked := AppSettings.ReadBool(asGridExportColumnNames);

0 comments on commit a4e20cc

Please sign in to comment.