OSDN > Buscar Software > dirview > SCM > git > dirviewer > Commit

dirview
Fork

dirviewer: Commit

情報ダイアログをつけてみました

--- a/Unit1.fmx

+++ b/Unit1.fmx

		@@ -43,4 +43,24 @@ object Form1: TForm1
43	43	TabOrder = 2
44	44	OnChange = ComboBox1Change
45	45	end
	46	+ object MainMenu1: TMainMenu
	47	+ Left = 136
	48	+ Top = 152
	49	+ object MenuItem1: TMenuItem
	50	+ Text = 'Help'
	51	+ object MenuItem2: TMenuItem
	52	+ Action = About1
	53	+ Locked = True
	54	+ end
	55	+ end
	56	+ end
	57	+ object ActionList1: TActionList
	58	+ Left = 328
	59	+ Top = 160
	60	+ object About1: TAction
	61	+ Category = 'Help'
	62	+ Text = 'About'
	63	+ OnExecute = About1Execute
	64	+ end
	65	+ end
46	66	end

--- a/Unit1.pas

+++ b/Unit1.pas

		@@ -6,18 +6,25 @@ uses
6	6	System.SysUtils, System.Types, System.UITypes, System.Classes,
7	7	System.Variants,
8	8	FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
9		- FMX.ListView.Types, FMX.Layouts, FMX.ListBox, FMX.ListView;
	9	+ FMX.ListView.Types, FMX.Layouts, FMX.ListBox, FMX.ListView, System.Actions,
	10	+ FMX.ActnList, FMX.Menus;
10	11
11	12	type
12	13	TForm1 = class(TForm)
13	14	ListView1: TListView;
14	15	ListBox1: TListBox;
15	16	ComboBox1: TComboBox;
	17	+ MainMenu1: TMainMenu;
	18	+ ActionList1: TActionList;
	19	+ MenuItem1: TMenuItem;
	20	+ MenuItem2: TMenuItem;
	21	+ About1: TAction;
16	22	procedure FormCreate(Sender: TObject);
17	23	procedure ListView1DblClick(Sender: TObject);
18	24	procedure ListBox1Change(Sender: TObject);
19	25	procedure ListBox1DblClick(Sender: TObject);
20	26	procedure ComboBox1Change(Sender: TObject);
	27	+ procedure About1Execute(Sender: TObject);
21	28	private
22	29	{ private 宣言 }
23	30	current: string;

		@@ -37,6 +44,14 @@ implementation
37	44
38	45	{$R *.fmx}
39	46
	47	+uses Unit2;
	48	+{$R *.Macintosh.fmx _MACOS}
	49	+
	50	+procedure TForm1.About1Execute(Sender: TObject);
	51	+begin
	52	+ Form2.ShowModal;
	53	+end;
	54	+
40	55	function TForm1.checkroot(const dir: string): Boolean;
41	56	var
42	57	s: string;

		@@ -113,9 +128,9 @@ begin
113	128	j := 0;
114	129	while i = 0 do
115	130	begin
116		- if rec.Name[1] <> '.' then
	131	+ if (rec.Name[1] <> '.')and(rec.Attr and faHidden = 0) then
117	132	begin
118		- if rec.Attr = faDirectory then
	133	+ if rec.Attr and faDirectory > 0 then
119	134	begin
120	135	ListView1.Items.AddItem(j).Text := rec.Name;
121	136	inc(j);

--- /dev/null

+++ b/Unit2.fmx

--- /dev/null

+++ b/Unit2.pas

		@@ -0,0 +1,32 @@
	1	+unit Unit2;
	2	+
	3	+interface
	4	+
	5	+uses
	6	+ System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
	7	+ FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;
	8	+
	9	+type
	10	+ TForm2 = class(TForm)
	11	+ Button1: TButton;
	12	+ Label1: TLabel;
	13	+ procedure Button1Click(Sender: TObject);
	14	+ private
	15	+ { private 宣言 }
	16	+ public
	17	+ { public 宣言 }
	18	+ end;
	19	+
	20	+var
	21	+ Form2: TForm2;
	22	+
	23	+implementation
	24	+
	25	+{$R *.fmx}
	26	+
	27	+procedure TForm2.Button1Click(Sender: TObject);
	28	+begin
	29	+ ModalResult:=mrOK;
	30	+end;
	31	+
	32	+end.

--- a/Win64/Release/README.txt

+++ /dev/null

		@@ -1,47 +0,0 @@
1		-
2		-***************************
3		-***************************
4		- DirViewer
5		-***************************
6		-***************************
7		-
8		-作者: Hotkey
9		-
10		-URL :http://sound.jp/kainushi
11		-BBS :https://pybbs.herokuapp.com
12		-
13		-***************************
14		-
15		-動作環境　WINDOWS機
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		-

--- a/dirview.dpr

+++ b/dirview.dpr

		@@ -3,12 +3,14 @@ program dirview;
3	3	uses
4	4	System.StartUpCopy,
5	5	FMX.Forms,
6		- Unit1 in 'Unit1.pas' {Form1};
	6	+ Unit1 in 'Unit1.pas' {Form1},
	7	+ Unit2 in 'Unit2.pas' {Form2};
7	8
8	9	{$R *.res}
9	10
10	11	begin
11	12	Application.Initialize;
12	13	Application.CreateForm(TForm1, Form1);
	14	+ Application.CreateForm(TForm2, Form2);
13	15	Application.Run;
14	16	end.

--- a/dirview.dproj

+++ b/dirview.dproj

		@@ -225,6 +225,10 @@
225	225	<Form>Form1</Form>
226	226	<FormType>fmx</FormType>
227	227	</DCCReference>
	228	+ <DCCReference Include="Unit2.pas">
	229	+ <Form>Form2</Form>
	230	+ <FormType>fmx</FormType>
	231	+ </DCCReference>
228	232	<BuildConfiguration Include="Release">
229	233	<Key>Cfg_2</Key>
230	234	<CfgParent>Base</CfgParent>