source: trunk/Packages/Common/Demo/ScaleDPI/UFormTest.pas

Last change on this file was 2, checked in by chronos, 10 years ago
  • Added: TPakFile class for extraction PAK files from original game.
File size: 1.5 KB
Line 
1unit UFormTest;
2
3{$mode objfpc}{$H+}
4
5interface
6
7uses
8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
9 StdCtrls, ExtCtrls, Menus, Calendar;
10
11type
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
61var
62 Form2: TForm2;
63
64implementation
65
66{$R *.lfm}
67
68{ TForm2 }
69
70procedure TForm2.Image1Click(Sender: TObject);
71begin
72
73end;
74
75procedure TForm2.MenuItem3Click(Sender: TObject);
76begin
77
78end;
79
80end.
81
Note: See TracBrowser for help on using the repository browser.