Context Navigation

UFormTest.pas

Last change on this file was 4, checked in by chronos, 9 years ago
Modified: Show drive size and I/O speed with proper units.
File size: 1.5 KB

Line
1	unit UFormTest;
2
3	{$mode objfpc}{$H+}
4
5	interface
6
7	uses
8	Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
9	StdCtrls, ExtCtrls, Menus, Calendar;
10
11	type
12
13	{ TForm2 }
14
15	TForm2 = class(TForm)
16	Button1: TButton;
17	Button2: TButton;
18	Calendar1: TCalendar;
19	CheckBox1: TCheckBox;
20	Edit1: TEdit;
21	Image1: TImage;
22	ImageList1: TImageList;
23	ImageList2: TImageList;
24	ListView1: TListView;
25	MainMenu1: TMainMenu;
26	Memo1: TMemo;
27	MenuItem1: TMenuItem;
28	MenuItem10: TMenuItem;
29	MenuItem11: TMenuItem;
30	MenuItem12: TMenuItem;
31	MenuItem13: TMenuItem;
32	MenuItem2: TMenuItem;
33	MenuItem3: TMenuItem;
34	MenuItem4: TMenuItem;
35	MenuItem5: TMenuItem;
36	MenuItem6: TMenuItem;
37	MenuItem7: TMenuItem;
38	MenuItem8: TMenuItem;
39	MenuItem9: TMenuItem;
40	PageControl1: TPageControl;
41	Panel1: TPanel;
42	RadioGroup1: TRadioGroup;
43	StatusBar1: TStatusBar;
44	TabSheet1: TTabSheet;
45	TabSheet2: TTabSheet;
46	TabSheet3: TTabSheet;
47	ToolBar1: TToolBar;
48	ToolButton1: TToolButton;
49	ToolButton2: TToolButton;
50	ToolButton3: TToolButton;
51	ToolButton4: TToolButton;
52	ToolButton5: TToolButton;
53	procedure Image1Click(Sender: TObject);
54	procedure MenuItem3Click(Sender: TObject);
55	private
56	{ private declarations }
57	public
58	{ public declarations }
59	end;
60
61	var
62	Form2: TForm2;
63
64	implementation
65
66	{$R *.lfm}
67
68	{ TForm2 }
69
70	procedure TForm2.Image1Click(Sender: TObject);
71	begin
72
73	end;
74
75	procedure TForm2.MenuItem3Click(Sender: TObject);
76	begin
77
78	end;
79
80	end.
81

Note: See TracBrowser for help on using the repository browser.