ClipSave/ClipSaveCreateUDef.pas at main · tomneko/ClipSave · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
unit ClipSaveCreateUDef;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, LIB_ClipSave_UDef;

type
  TCreateUDefForm = class(TForm)
    Panel1: TPanel;
    Btn_OK: TButton;
    Btn_Cancel: TButton;
    Btn_Prefix: TButton;
    Btn_Year: TButton;
    Btn_Month: TButton;
    Btn_Day: TButton;
    Btn_Hour: TButton;
    Btn_Min: TButton;
    Btn_Sec: TButton;
    Btn_MSec: TButton;
    Btn_Ext: TButton;
    Edit_UDef: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Btn_Confirm: TButton;
    Edit_CreatedFName: TEdit;
    Label3: TLabel;
    Btn_Delimiter: TButton;
    Edit_Prefix: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    CMB_Delimiter: TComboBox;
    procedure Btn_PrefixClick(Sender: TObject);
    procedure Btn_YearClick(Sender: TObject);
    procedure Btn_MonthClick(Sender: TObject);
    procedure Btn_DayClick(Sender: TObject);
    procedure Btn_ExtClick(Sender: TObject);
    procedure Btn_HourClick(Sender: TObject);
    procedure Btn_MinClick(Sender: TObject);
    procedure Btn_SecClick(Sender: TObject);
    procedure Btn_MSecClick(Sender: TObject);
    procedure Btn_ConfirmClick(Sender: TObject);
    procedure Btn_DelimiterClick(Sender: TObject);
    procedure Btn_OKClick(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  CreateUDefForm: TCreateUDefForm;

implementation

uses ClipSaveConfig;

{$R *.DFM}

procedure TCreateUDefForm.Btn_PrefixClick(Sender: TObject);
begin
  Edit_Udef.Text := Edit_Udef.Text + StrEsc + ArEscChar[Ord(ecPrefix)];
end;

procedure TCreateUDefForm.Btn_YearClick(Sender: TObject);
begin
  Edit_Udef.Text := Edit_Udef.Text + 'yyyy';
end;

procedure TCreateUDefForm.Btn_MonthClick(Sender: TObject);
begin
  Edit_Udef.Text := Edit_Udef.Text + 'mm';
end;

procedure TCreateUDefForm.Btn_DayClick(Sender: TObject);
begin
  Edit_Udef.Text := Edit_Udef.Text + 'dd';
end;

procedure TCreateUDefForm.Btn_ExtClick(Sender: TObject);
begin
  Edit_Udef.Text := Edit_Udef.Text + StrEsc + ArEscChar[Ord(ecExt)];
end;

procedure TCreateUDefForm.Btn_HourClick(Sender: TObject);
begin
  Edit_Udef.Text := Edit_Udef.Text + 'hh';
end;

procedure TCreateUDefForm.Btn_MinClick(Sender: TObject);
begin
  Edit_Udef.Text := Edit_Udef.Text + 'nn';
end;

procedure TCreateUDefForm.Btn_SecClick(Sender: TObject);
begin
  Edit_Udef.Text := Edit_Udef.Text + 'ss';
end;

procedure TCreateUDefForm.Btn_MSecClick(Sender: TObject);
begin
  Edit_Udef.Text := Edit_Udef.Text + '\i';
end;

procedure TCreateUDefForm.Btn_DelimiterClick(Sender: TObject);
begin
  Edit_Udef.Text := Edit_Udef.Text + StrEsc + ArEscChar[Ord(ecDelimiter)];
end;

procedure TCreateUDefForm.Btn_ConfirmClick(Sender: TObject);
begin
  Edit_CreatedFName.Text:= CreateFileName(Edit_Udef.Text,
                                          Edit_Prefix.Text,
                                          CMB_Delimiter.Text,
                                          '001');
end;

procedure TCreateUDefForm.Btn_OKClick(Sender: TObject);
begin

  if (Edit_Udef.Text = '') then
  begin
    ShowMessage('ユーザー定義文字列が空です');
    Exit;
  end else
  if (CheckUdefString(Edit_UDef.Text, Edit_Prefix.Text, CMB_Delimiter.Text) = False) then
  begin
    ShowMessage('ユーザー定義文字列が不正です');
    Exit;
  end;

  ModalResult := mrOK;
end;

end.