c4d1e08656
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3687 8e941d3f-bd1b-0410-a28a-d453659cc2b4
593 lines
18 KiB
ObjectPascal
593 lines
18 KiB
ObjectPascal
unit sCSVParamsForm;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
|
ButtonPanel, ExtCtrls, ComCtrls, StdCtrls,
|
|
fpsCSV,
|
|
sCtrls, sFormatsettingsForm;
|
|
|
|
type
|
|
|
|
{ TCSVParamsForm }
|
|
|
|
TCSVParamsForm = class(TForm)
|
|
ButtonPanel: TButtonPanel;
|
|
CbAutoDetectNumberFormat: TCheckBox;
|
|
CbLongDateFormat: TComboBox;
|
|
CbLongTimeFormat: TComboBox;
|
|
CbEncoding: TComboBox;
|
|
EdCurrencySymbol: TEdit;
|
|
CbShortTimeFormat: TComboBox;
|
|
CbShortDateFormat: TComboBox;
|
|
CbDecimalSeparator: TComboBox;
|
|
CbDateSeparator: TComboBox;
|
|
CbTimeSeparator: TComboBox;
|
|
CbThousandSeparator: TComboBox;
|
|
CbLineEnding: TComboBox;
|
|
CbQuoteChar: TComboBox;
|
|
CbDelimiter: TComboBox;
|
|
EdTRUE: TEdit;
|
|
EdFALSE: TEdit;
|
|
EdNumFormat: TEdit;
|
|
GroupBox1: TGroupBox;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
LblDateTimeSample: TLabel;
|
|
LblDecimalSeparator: TLabel;
|
|
LblDecimalSeparator1: TLabel;
|
|
LblDecimalSeparator2: TLabel;
|
|
LblCurrencySymbol: TLabel;
|
|
LbEncoding: TLabel;
|
|
LblShortMonthNames: TLabel;
|
|
LblLongDayNames: TLabel;
|
|
LblShortDayNames: TLabel;
|
|
LblNumFormat1: TLabel;
|
|
LblNumFormat2: TLabel;
|
|
LblNumFormat3: TLabel;
|
|
LblNumFormat4: TLabel;
|
|
LblLongMonthNames: TLabel;
|
|
LblThousandSeparator: TLabel;
|
|
LblNumFormat: TLabel;
|
|
LblQuoteChar: TLabel;
|
|
LblNumFormatInfo: TLabel;
|
|
PageControl: TPageControl;
|
|
PgGeneralParams: TTabSheet;
|
|
PgNumberParams: TTabSheet;
|
|
PgDateTimeParams: TTabSheet;
|
|
PgBoolParams: TTabSheet;
|
|
RgDetectContentType: TRadioGroup;
|
|
PgCurrency: TTabSheet;
|
|
procedure DateTimeFormatChange(Sender: TObject);
|
|
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
FSampleDateTime: TDateTime;
|
|
FDateFormatSample: String;
|
|
FTimeFormatSample: String;
|
|
FEdLongMonthNames: TMonthDayNamesEdit;
|
|
FEdShortMonthNames: TMonthDayNamesEdit;
|
|
FEdLongDayNames: TMonthDayNamesEdit;
|
|
FEdShortDayNames: TMonthDayNamesEdit;
|
|
procedure DateSeparatorToFormatSettings(var ASettings: TFormatSettings);
|
|
procedure DecimalSeparatorToFormatSettings(var ASettings: TFormatSettings);
|
|
// function GetCurrencySymbol: String;
|
|
procedure ThousandSeparatorToFormatSettings(var ASettings: TFormatSettings);
|
|
procedure TimeSeparatorToFormatSettings(var ASettings: TFormatSettings);
|
|
public
|
|
{ public declarations }
|
|
procedure GetParams(var AParams: TsCSVParams);
|
|
procedure SetParams(const AParams: TsCSVParams);
|
|
end;
|
|
|
|
var
|
|
CSVParamsForm: TCSVParamsForm;
|
|
|
|
implementation
|
|
|
|
uses
|
|
LConvEncoding, fpsUtils;
|
|
|
|
resourcestring
|
|
rsLikeSpreadsheet = 'like spreadsheet';
|
|
|
|
var
|
|
CSVParamsPageIndex: Integer = 0;
|
|
|
|
|
|
{ TCSVParamsForm }
|
|
|
|
procedure TCSVParamsForm.DateSeparatorToFormatSettings(var ASettings: TFormatSettings);
|
|
begin
|
|
case CbDateSeparator.ItemIndex of
|
|
0: ASettings.DateSeparator := #0;
|
|
1: ASettings.DateSeparator := '.';
|
|
2: ASettings.DateSeparator := '-';
|
|
3: ASettings.DateSeparator := '/';
|
|
else ASettings.DateSeparator := CbDateSeparator.Text[1];
|
|
end;
|
|
end;
|
|
|
|
procedure TCSVParamsForm.DecimalSeparatorToFormatSettings(var ASettings: TFormatSettings);
|
|
begin
|
|
case CbDecimalSeparator.ItemIndex of
|
|
0: ASettings.DecimalSeparator := #0;
|
|
1: ASettings.DecimalSeparator := '.';
|
|
2: ASettings.DecimalSeparator := ',';
|
|
else ASettings.DecimalSeparator := CbDecimalSeparator.Text[1];
|
|
end;
|
|
end;
|
|
|
|
procedure TCSVParamsForm.DateTimeFormatChange(Sender: TObject);
|
|
var
|
|
fs: TFormatSettings;
|
|
ctrl: TWinControl;
|
|
dt: TDateTime;
|
|
arr: Array[1..12] of String;
|
|
i: Integer;
|
|
begin
|
|
fs := UTF8FormatSettings;
|
|
if CbLongDateFormat.ItemIndex <> 0 then
|
|
fs.LongDateFormat := CbLongDateFormat.Text;
|
|
if CbShortDateFormat.ItemIndex <> 0 then
|
|
fs.ShortDateFormat := CbShortDateFormat.Text;
|
|
if CbLongTimeFormat.ItemIndex <> 0 then
|
|
fs.LongTimeFormat := CbLongTimeFormat.Text;
|
|
if CbShortTimeFormat.ItemIndex <> 0 then
|
|
fs.ShortTimeFormat := CbShortTimeFormat.Text;
|
|
if CbDateSeparator.ItemIndex <> 0 then
|
|
DateSeparatorToFormatSettings(fs);
|
|
if CbTimeSeparator.ItemIndex <> 0 then
|
|
TimeSeparatorToFormatSettings(fs);
|
|
|
|
if FEdLongMonthNames.Text <> rsLikeSpreadsheet then begin
|
|
arr[1] := ''; // to silence the compiler
|
|
FEdLongMonthNames.GetNames(arr);
|
|
for i:=1 to 12 do
|
|
if arr[i] <> '' then fs.LongMonthNames[i] := arr[i];
|
|
end;
|
|
if FEdShortMonthNames.Text <> rsLikeSpreadsheet then begin
|
|
FEdShortMonthNames.GetNames(arr);
|
|
for i:=1 to 12 do
|
|
if arr[i] <> '' then fs.ShortMonthNames[i] := arr[i];
|
|
end;
|
|
if FEdLongDayNames.Text <> rsLikeSpreadsheet then begin
|
|
FEdLongDayNames.GetNames(arr);
|
|
for i:=1 to 7 do
|
|
if arr[i] <> '' then fs.LongDayNames[i] := arr[i];
|
|
end;
|
|
if FEdShortDayNames.Text <> rsLikeSpreadsheet then begin
|
|
FEdShortDayNames.GetNames(arr);
|
|
for i:=1 to 7 do
|
|
if arr[i] <> '' then fs.ShortDayNames[i] := arr[i];
|
|
end;
|
|
|
|
dt := FSampleDateTime;
|
|
ctrl := ActiveControl;
|
|
if (ctrl = CbLongDateFormat) then
|
|
begin
|
|
FDateFormatSample := fs.LongDateFormat;
|
|
LblDateTimeSample.Caption := FormatDateTime(FDateFormatSample, dt, fs);
|
|
end
|
|
else
|
|
if (ctrl = CbShortDateFormat) then
|
|
begin
|
|
FDateFormatSample := fs.ShortDateFormat;
|
|
LblDateTimeSample.Caption := FormatDateTime(FDateFormatSample, dt, fs);
|
|
end
|
|
else
|
|
if (ctrl = CbDateSeparator) then
|
|
LblDateTimeSample.Caption := FormatDateTime(FDateFormatSample, dt, fs)
|
|
else
|
|
if (ctrl = CbLongTimeFormat) then
|
|
begin
|
|
FTimeFormatSample := fs.LongTimeFormat;
|
|
LblDateTimeSample.Caption := FormatDateTime(FTimeFormatSample, dt, fs);
|
|
end
|
|
else
|
|
if (ctrl = CbShortTimeFormat) then
|
|
begin
|
|
FTimeFormatSample := fs.ShortTimeFormat;
|
|
LblDateTimeSample.Caption := FormatDateTime(FTimeFormatSample, dt, fs);
|
|
end
|
|
else
|
|
if (ctrl = CbTimeSeparator) then
|
|
LblDateTimeSample.Caption := FormatDateTime(FTimeFormatSample, dt, fs)
|
|
else
|
|
LblDateTimeSample.Caption := FormatDateTime('c', dt, fs);
|
|
|
|
Application.ProcessMessages;
|
|
end;
|
|
|
|
procedure TCSVParamsForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
|
|
begin
|
|
Unused(Sender, CanClose);
|
|
CSVParamsPageIndex := PageControl.ActivePageIndex;
|
|
end;
|
|
|
|
procedure TCSVParamsForm.FormCreate(Sender: TObject);
|
|
begin
|
|
PageControl.ActivePageIndex := CSVParamsPageIndex;
|
|
|
|
// Populate encoding combobox. Done in code because of the conditional define.
|
|
with CbEncoding.Items do begin
|
|
Add('automatic / UTF8');
|
|
Add('UTF8');
|
|
Add('UTF8 with BOM');
|
|
Add('ISO_8859_1 (Central Europe)');
|
|
Add('ISO_8859_15 (Western European languages)');
|
|
Add('ISO_8859_2 (Eastern Europe)');
|
|
Add('CP1250 (Central Europe)');
|
|
Add('CP1251 (Cyrillic)');
|
|
Add('CP1252 (Latin 1)');
|
|
Add('CP1253 (Greek)');
|
|
Add('CP1254 (Turkish)');
|
|
Add('CP1255 (Hebrew)');
|
|
Add('CP1256 (Arabic)');
|
|
Add('CP1257 (Baltic)');
|
|
Add('CP1258 (Vietnam)');
|
|
Add('CP437 (DOS central Europe)');
|
|
Add('CP850 (DOS western Europe)');
|
|
Add('CP852 (DOS central Europe)');
|
|
Add('CP866 (DOS and Windows console''s cyrillic)');
|
|
Add('CP874 (Thai)');
|
|
{$IFNDEF DisableAsianCodePages}
|
|
// Asian encodings
|
|
Add('CP932 (Japanese)');
|
|
Add('CP936 (Chinese)');
|
|
Add('CP949 (Korea)');
|
|
Add('CP950 (Chinese Complex)');
|
|
{$ENDIF}
|
|
Add('KOI8 (Russian cyrillic)');
|
|
Add('UCS2LE (UCS2-LE 2byte little endian)');
|
|
Add('UCS2BE (UCS2-BE 2byte big endian)');
|
|
end;
|
|
CbEncoding.ItemIndex := 0;
|
|
|
|
FEdLongMonthNames := TMonthDayNamesEdit.Create(self);
|
|
with FEdLongMonthNames do
|
|
begin
|
|
Parent := PgDateTimeParams;
|
|
Left := CbDateSeparator.Left;
|
|
Top := CbDateSeparator.Top + 32;
|
|
{$IFDEF LCL_FULLVERSION AND LCL_FULLVERSION > 1020600}
|
|
Width := CbDateSeparator.Width;
|
|
{$ELSE}
|
|
Width := CbDateSeparator.Width - Button.Width;
|
|
{$ENDIF}
|
|
OnChange := @DateTimeFormatChange;
|
|
OnEnter := @DateTimeFormatChange;
|
|
TabOrder := CbDateSeparator.TabOrder + 1;
|
|
end;
|
|
LblLongMonthNames.FocusControl := FEdLongMonthNames;
|
|
|
|
FEdShortMonthNames := TMonthDayNamesEdit.Create(self);
|
|
with FEdShortMonthNames do
|
|
begin
|
|
Parent := PgDateTimeParams;
|
|
Left := CbDateSeparator.Left;
|
|
Top := CbDateSeparator.Top + 32*2;
|
|
Width := FEdLongMonthNames.Width;
|
|
TabOrder := CbDateSeparator.TabOrder + 2;
|
|
OnChange := @DateTimeFormatChange;
|
|
OnEnter := @DateTimeFormatChange;
|
|
end;
|
|
LblShortMonthNames.FocusControl := FEdShortMonthNames;
|
|
|
|
FEdLongDayNames := TMonthDayNamesEdit.Create(self);
|
|
with FEdLongDayNames do
|
|
begin
|
|
Parent := PgDateTimeParams;
|
|
Left := CbDateSeparator.Left;
|
|
Top := CbDateSeparator.Top + 32*3;
|
|
Width := FEdLongMonthNames.Width;
|
|
TabOrder := CbDateSeparator.TabOrder + 3;
|
|
OnChange := @DateTimeFormatChange;
|
|
OnEnter := @DateTimeFormatChange;
|
|
end;
|
|
LblLongDayNames.FocusControl := FEdLongDayNames;
|
|
|
|
FEdShortDayNames := TMonthDayNamesEdit.Create(self);
|
|
with FEdShortDayNames do
|
|
begin
|
|
Parent := PgDateTimeParams;
|
|
Left := CbDateSeparator.Left;
|
|
Top := CbDateSeparator.Top + 32*4;
|
|
Width := FEdLongMonthNames.Width;
|
|
TabOrder := CbDateSeparator.TabOrder + 4;
|
|
OnChange := @DateTimeFormatChange;
|
|
OnEnter := @DateTimeFormatChange;
|
|
end;
|
|
LblShortDayNames.FocusControl := FEdShortDayNames;
|
|
|
|
FDateFormatSample := UTF8FormatSettings.LongDateFormat;
|
|
FTimeFormatSample := UTF8FormatSettings.LongTimeFormat;
|
|
FSampleDateTime := now();
|
|
end;
|
|
|
|
procedure TCSVParamsForm.GetParams(var AParams: TsCSVParams);
|
|
var
|
|
s: String;
|
|
begin
|
|
// Line endings
|
|
case CbLineEnding.ItemIndex of
|
|
0: AParams.LineEnding := leSystem;
|
|
1: AParams.LineEnding := leCRLF;
|
|
2: AParams.LineEnding := leCR;
|
|
3: AParams.LineEnding := leLF;
|
|
end;
|
|
|
|
// Column delimiter
|
|
case CbDelimiter.ItemIndex of
|
|
0: AParams.Delimiter := ',';
|
|
1: AParams.Delimiter := ';';
|
|
2: AParams.Delimiter := ':';
|
|
3: AParams.Delimiter := '|';
|
|
4: AParams.Delimiter := #9;
|
|
end;
|
|
|
|
// Quote character
|
|
case CbQuoteChar.ItemIndex of
|
|
0: AParams.QuoteChar := #0;
|
|
1: AParams.QuoteChar := '"';
|
|
2: AParams.QuoteChar := '''';
|
|
end;
|
|
|
|
// Encoding
|
|
if CbEncoding.ItemIndex = 0 then
|
|
AParams.Encoding := ''
|
|
else if CbEncoding.ItemIndex = 1 then
|
|
AParams.Encoding := EncodingUTF8BOM
|
|
else
|
|
begin
|
|
s := CbEncoding.Items[CbEncoding.ItemIndex];
|
|
AParams.Encoding := Copy(s, 1, Pos(' ', s)-1);
|
|
end;
|
|
|
|
// Detect content type and convert
|
|
AParams.DetectContentType := RgDetectContentType.ItemIndex <> 0;
|
|
|
|
// Auto-detect number format
|
|
AParams.AutoDetectNumberFormat := CbAutoDetectNumberFormat.Checked;
|
|
|
|
// Number format
|
|
AParams.NumberFormat := EdNumFormat.Text;
|
|
|
|
// Decimal separator
|
|
DecimalSeparatorToFormatSettings(AParams.FormatSettings);
|
|
|
|
// Thousand separator
|
|
ThousandSeparatorToFormatSettings(AParams.FormatSettings);
|
|
|
|
// Currency symbol
|
|
if (EdCurrencySymbol.Text = '') or (EdCurrencySymbol.Text = rsLikeSpreadsheet) then
|
|
AParams.FormatSettings.CurrencyString := ''
|
|
else
|
|
AParams.FormatSettings.CurrencyString := EdCurrencySymbol.Text;
|
|
|
|
// Long date format string
|
|
if (CbLongDateFormat.ItemIndex = 0) or (CbLongDateFormat.Text = '') then
|
|
AParams.FormatSettings.LongDateFormat := ''
|
|
else
|
|
AParams.FormatSettings.LongDateFormat := CbLongDateFormat.Text;
|
|
|
|
// Short date format string
|
|
if (CbShortDateFormat.ItemIndex = 0) or (CbShortDateFormat.Text = '') then
|
|
AParams.FormatSettings.ShortDateFormat := ''
|
|
else
|
|
AParams.FormatSettings.ShortDateFormat := CbShortDateFormat.Text;
|
|
|
|
// Date separator
|
|
DateSeparatorToFormatSettings(AParams.FormatSettings);
|
|
|
|
// Long month names
|
|
FEdLongMonthNames.GetNames(AParams.FormatSettings.LongMonthNames);
|
|
|
|
// Short month names
|
|
FEdShortMonthNames.GetNames(AParams.FormatSettings.ShortMonthNames);
|
|
|
|
// Long day names
|
|
FEdLongDayNames.GetNames(AParams.FormatSettings.LongDayNames);
|
|
|
|
// Short day names
|
|
FEdShortDayNames.GetNames(AParams.FormatSettings.ShortDayNames);
|
|
|
|
// Long time format string
|
|
if CbLongTimeFormat.ItemIndex = 0 then
|
|
AParams.FormatSettings.LongTimeFormat := ''
|
|
else
|
|
AParams.FormatSettings.LongTimeFormat := CbLongTimeFormat.Text;
|
|
|
|
// Short time format string
|
|
if CbShortTimeFormat.ItemIndex = 0 then
|
|
AParams.FormatSettings.ShortTimeFormat := ''
|
|
else
|
|
AParams.FormatSettings.ShortTimeFormat := CbShortTimeFormat.Text;
|
|
|
|
// Time separator
|
|
TimeSeparatorToFormatSettings(AParams.FormatSettings);
|
|
|
|
// Text for "TRUE"
|
|
AParams.TrueText := EdTRUE.Text;
|
|
|
|
// Test for "FALSE"
|
|
AParams.FalseText := EdFALSE.Text;
|
|
end;
|
|
|
|
procedure TCSVParamsForm.SetParams(const AParams: TsCSVParams);
|
|
var
|
|
s: String;
|
|
i: Integer;
|
|
begin
|
|
// Line endings
|
|
case AParams.LineEnding of
|
|
leSystem: CbLineEnding.ItemIndex := 0;
|
|
leCRLF : CbLineEnding.ItemIndex := 1;
|
|
leCR : CbLineEnding.ItemIndex := 2;
|
|
leLF : CbLineEnding.ItemIndex := 3;
|
|
end;
|
|
|
|
// Column delimiter
|
|
case AParams.Delimiter of
|
|
',' : CbDelimiter.ItemIndex := 0;
|
|
';' : CbDelimiter.ItemIndex := 1;
|
|
':' : CbDelimiter.ItemIndex := 2;
|
|
'|' : CbDelimiter.ItemIndex := 3;
|
|
#9 : CbDelimiter.ItemIndex := 4;
|
|
end;
|
|
|
|
// Quote character
|
|
case AParams.QuoteChar of
|
|
#0 : CbQuoteChar.ItemIndex := 0;
|
|
'"' : CbQuoteChar.ItemIndex := 1;
|
|
'''' : CbQuoteChar.ItemIndex := 2;
|
|
end;
|
|
|
|
// String encoding
|
|
if AParams.Encoding = '' then
|
|
CbEncoding.ItemIndex := 0
|
|
else if AParams.Encoding = EncodingUTF8BOM then
|
|
CbEncoding.ItemIndex := 1
|
|
else
|
|
for i:=1 to CbEncoding.Items.Count-1 do
|
|
begin
|
|
s := CbEncoding.Items[i];
|
|
if SameText(AParams.Encoding, Copy(s, 1, Pos(' ', s)-1)) then
|
|
begin
|
|
CbEncoding.ItemIndex := i;
|
|
break;
|
|
end;
|
|
end;
|
|
|
|
// Detect content type
|
|
RgDetectContentType.ItemIndex := ord(AParams.DetectContentType);
|
|
|
|
// Auto-detect number format
|
|
CbAutoDetectNumberFormat.Checked := AParams.AutoDetectNumberFormat;
|
|
|
|
// Number format
|
|
EdNumFormat.Text := AParams.NumberFormat;
|
|
|
|
// Decimal separator
|
|
case AParams.FormatSettings.DecimalSeparator of
|
|
#0 : CbDecimalSeparator.ItemIndex := 0;
|
|
'.' : CbDecimalSeparator.ItemIndex := 1;
|
|
',' : CbDecimalSeparator.ItemIndex := 2;
|
|
else CbDecimalSeparator.Text := AParams.FormatSettings.DecimalSeparator;
|
|
end;
|
|
|
|
// Thousand separator
|
|
case AParams.FormatSettings.ThousandSeparator of
|
|
#0 : CbThousandSeparator.ItemIndex := 0;
|
|
'.' : CbThousandSeparator.ItemIndex := 1;
|
|
',' : CbThousandSeparator.ItemIndex := 2;
|
|
' ' : CbThousandSeparator.ItemIndex := 3;
|
|
else CbThousandSeparator.Text := AParams.FormatSettings.ThousandSeparator;
|
|
end;
|
|
|
|
// Currency symbol
|
|
if AParams.FormatSettings.CurrencyString = '' then
|
|
EdCurrencySymbol.Text := rsLikeSpreadsheet
|
|
else
|
|
EdCurrencySymbol.Text := AParams.FormatSettings.CurrencyString;
|
|
|
|
// Long date format
|
|
if AParams.FormatSettings.LongDateFormat = '' then
|
|
CbLongDateFormat.ItemIndex := 0
|
|
else
|
|
CbLongDateFormat.Text := AParams.FormatSettings.LongDateFormat;
|
|
|
|
// Short date format
|
|
if AParams.FormatSettings.ShortDateFormat = '' then
|
|
CbShortDateFormat.ItemIndex := 0
|
|
else
|
|
CbShortDateFormat.Text := AParams.FormatSettings.ShortDateFormat;
|
|
|
|
// Date separator
|
|
case AParams.FormatSettings.DateSeparator of
|
|
#0 : CbDateSeparator.ItemIndex := 0;
|
|
'.' : CbDateSeparator.ItemIndex := 1;
|
|
'-' : CbDateSeparator.ItemIndex := 2;
|
|
'/' : CbDateSeparator.ItemIndex := 3;
|
|
else CbDateSeparator.Text := AParams.FormatSettings.DateSeparator;
|
|
end;
|
|
|
|
// Long month names
|
|
FEdLongMonthNames.SetNames(AParams.FormatSettings.LongMonthNames, 12, false, rsLikeSpreadsheet);
|
|
|
|
// Short month names
|
|
FEdShortMonthNames.SetNames(AParams.FormatSettings.ShortMonthNames, 12, true, rsLikeSpreadsheet);
|
|
|
|
// Long day names
|
|
FEdLongDayNames.SetNames(AParams.FormatSettings.LongDayNames, 7, false, rsLikeSpreadsheet);
|
|
|
|
// Short month names
|
|
FEdShortDayNames.SetNames(AParams.FormatSettings.ShortDayNames, 7, true, rsLikeSpreadsheet);
|
|
|
|
// Long time format
|
|
if AParams.FormatSettings.LongTimeFormat = '' then
|
|
CbLongTimeFormat.ItemIndex := 0
|
|
else
|
|
CbLongTimeFormat.Text := AParams.FormatSettings.LongTimeFormat;
|
|
|
|
// Short time format
|
|
if AParams.FormatSettings.ShortTimeFormat = '' then
|
|
CbShortTimeFormat.ItemIndex := 0
|
|
else
|
|
CbShortTimeFormat.Text := AParams.FormatSettings.ShortTimeFormat;
|
|
|
|
// Time separator
|
|
case AParams.FormatSettings.TimeSeparator of
|
|
#0 : CbTimeSeparator.ItemIndex := 0;
|
|
'.' : CbTimeSeparator.ItemIndex := 1;
|
|
'-' : CbTimeSeparator.ItemIndex := 2;
|
|
'/' : CbTimeSeparator.ItemIndex := 3;
|
|
':' : CbTimeSeparator.ItemIndex := 4;
|
|
else CbTimeSeparator.Text := AParams.FormatSettings.TimeSeparator;
|
|
end;
|
|
|
|
// Text for "TRUE"
|
|
EdTRUE.Text := AParams.TrueText;
|
|
|
|
// Test for "FALSE"
|
|
EdFALSE.Text := AParams.FalseText;
|
|
|
|
// Update date/time sample display
|
|
DateTimeFormatChange(nil);
|
|
end;
|
|
|
|
procedure TCSVParamsForm.ThousandSeparatorToFormatSettings(var ASettings: TFormatSettings);
|
|
begin
|
|
case CbThousandSeparator.ItemIndex of
|
|
0: ASettings.ThousandSeparator := #0;
|
|
1: ASettings.ThousandSeparator := '.';
|
|
2: ASettings.ThousandSeparator := ',';
|
|
3: ASettings.ThousandSeparator := ' ';
|
|
else ASettings.ThousandSeparator := CbThousandSeparator.Text[1];
|
|
end;
|
|
end;
|
|
|
|
procedure TCSVParamsForm.TimeSeparatorToFormatSettings(var ASettings: TFormatSettings);
|
|
begin
|
|
case CbTimeSeparator.ItemIndex of
|
|
0: ASettings.TimeSeparator := #0;
|
|
1: ASettings.TimeSeparator := '.';
|
|
2: ASettings.TimeSeparator := '-';
|
|
3: ASettings.TimeSeparator := '/';
|
|
4: ASettings.TimeSeparator := ':';
|
|
else ASettings.TimeSeparator := CbTimeSeparator.Text[1];
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
{$I scsvparamsform.lrs}
|
|
|
|
end.
|
|
|