создал
This commit is contained in:
20
.gitignore
vendored
Normal file
20
.gitignore
vendored
Normal file
@ -0,0 +1,20 @@
|
||||
|
||||
*.exe
|
||||
*.dll
|
||||
*.dcu
|
||||
*.o
|
||||
*.a
|
||||
*.so
|
||||
|
||||
*.identcache
|
||||
*.local
|
||||
*.tvsconfig
|
||||
|
||||
__history/
|
||||
Win32/
|
||||
Win64/
|
||||
Android/
|
||||
iOSDevice/
|
||||
OSX64/
|
||||
|
||||
*.res
|
||||
14
Project1.dpr
Normal file
14
Project1.dpr
Normal file
@ -0,0 +1,14 @@
|
||||
program Project1;
|
||||
|
||||
uses
|
||||
Vcl.Forms,
|
||||
Unit1 in 'Unit1.pas' {Form1};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.MainFormOnTaskbar := True;
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.Run;
|
||||
end.
|
||||
1119
Project1.dproj
Normal file
1119
Project1.dproj
Normal file
File diff suppressed because it is too large
Load Diff
14
Unit1.dfm
Normal file
14
Unit1.dfm
Normal file
@ -0,0 +1,14 @@
|
||||
object Form1: TForm1
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 441
|
||||
ClientWidth = 624
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'Segoe UI'
|
||||
Font.Style = []
|
||||
TextHeight = 15
|
||||
end
|
||||
24
Unit1.pas
Normal file
24
Unit1.pas
Normal file
@ -0,0 +1,24 @@
|
||||
unit Unit1;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
||||
Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
|
||||
|
||||
type
|
||||
TForm1 = class(TForm)
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user