Skip to content

Commit

Permalink
Add all files
Browse files Browse the repository at this point in the history
  • Loading branch information
@ArdeshirV
ArdeshirV committed Dec 16, 2019
1 parent a8145ed commit fbc6e71
Show file tree
Hide file tree
Showing 8 changed files with 589 additions and 0 deletions.
20 changes: 20 additions & 0 deletions Projectile.dpr
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,20 @@
// Projectile.dpr - Demonstrate Projectile Motion Equation Entry Point
// Github: https://github.com/ArdeshirV/Projectile
// Copyright© 2002-2003 ArdeshirV@protonmail.com, Licensed under GPLv3+
program Projectile;

uses
Forms,
UMainForm in 'UMainForm.pas' {frmMainForm},
UAbout in 'UAbout.pas' {AboutBox};

{$R *.res}

begin
Application.Initialize;
Application.Title := 'Cinematic';
Application.CreateForm(TfrmMainForm, frmMainForm);
Application.CreateForm(TAboutBox, AboutBox);
Application.Run;
end.

108 changes: 108 additions & 0 deletions Projectile.dproj
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,108 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{355EA451-7CA2-49A0-8AB3-1150376B49E8}</ProjectGuid>
<MainSource>Projectile.dpr</MainSource>
<Config Condition="'$(Config)'==''">Release</Config>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<ProjectVersion>12.0</ProjectVersion>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_ImageBase>00400000</DCC_ImageBase>
<DCC_E>false</DCC_E>
<DCC_Platform>x86</DCC_Platform>
<DCC_DependencyCheckOutputName>Projectile.exe</DCC_DependencyCheckOutputName>
<DCC_N>false</DCC_N>
<DCC_S>false</DCC_S>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_DebugInformation>false</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="Projectile.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="UMainForm.pas">
<Form>frmMainForm</Form>
</DCCReference>
<DCCReference Include="UAbout.pas">
<Form>AboutBox</Form>
</DCCReference>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">Projectile.dpr</Source>
</Source>
<Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">1033</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">ArdeshirV</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription">https://github.com/ArdeshirV/Projectile</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">Projectile</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright">Copyright© 2002-2003 ArdeshirV@protonmail.com, Licensed under GPLv3+</VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks">ArdeshirV.Projectile</VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename">Projectile.exe</VersionInfoKeys>
<VersionInfoKeys Name="ProductName">Projectile</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments">Demonstrate Projectile Motion Equations</VersionInfoKeys>
</VersionInfoKeys>
</Delphi.Personality>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
</Project>
Binary file added Projectile.ico
View file
Binary file not shown.
122 changes: 122 additions & 0 deletions UAbout.dfm
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,122 @@
object AboutBox: TAboutBox
Left = 200
Top = 108
BorderStyle = bsDialog
Caption = 'About'
ClientHeight = 154
ClientWidth = 400
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 8
Top = 8
Width = 384
Height = 105
BevelInner = bvRaised
BevelOuter = bvLowered
ParentColor = True
TabOrder = 0
object ProgramIcon: TImage
Left = 18
Top = 24
Width = 41
Height = 44
Picture.Data = {
055449636F6E0000010002001010100000000000280100002600000020201000
00000000E80200004E0100002800000010000000200000000100040000000000
8000000000000000000000001000000010000000000000000000800000800000
0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000
00FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000009000000000
0000000000000000000000000000000000000900000000000000000000000000
0000900000000000000000000000000000900000000000000000000000000000
9000000000FFF090000000000F111F0000000000F11111F000000000F11111F0
000000000F111F000000000000FFF00000000000FFFD0000FFFF0000FFFF0000
FFFB0000FFFF0000FFF70000FFFF0000FFDF0000FFFF0000FF7F0000C5FB0000
83FD00000000000001FD000083FB0000C7FF0000280000002000000040000000
0100040000000000000200000000000000000000100000001000000000000000
00008000008000000080800080000000800080008080000080808000C0C0C000
0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000
0000000000000000000090000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000900000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000090000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000090000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000900000000000000000000000000000000000000000000000000
0000000000090000000000000000000000000000000000000000000000000000
0000000009000000000000000000000000000000000000000000000000000000
000000090000000000000000000000000000000000000000000000000000FFF0
00009000000000000000000000FF111FF900000000000000000000000F111111
1F00000000000000000000000F1111111F0000000000000000000000F1111111
11F000000000000000000000F111111111F0000000000000000000000F111111
1F00000000000000000000000F1111111F000000000000000000000000FF111F
F000000000000000000000000000FFF0000000000000000000000000FFFFFFF7
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBF
FFFFFFFFFFFFFFFFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFBFFFFFFFFFFFFFFEFFF
FFFFFFFFFFFFBFFFFFFFFFFFFFFEFFFFFFFFFFFFF1F7FFFFC03FFFDF803FFFEF
803FFFF300000000001FFFF3803FFFEF803FFFDFC07FFFFFF1FFFFFF}
Stretch = True
IsControl = True
end
object ProductName: TLabel
Left = 65
Top = 11
Width = 145
Height = 40
Caption = 'Projectile'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -35
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
IsControl = True
end
object Version: TLabel
Left = 221
Top = 32
Width = 53
Height = 13
Caption = 'Version 1.0'
IsControl = True
end
object Copyright: TLabel
Left = 10
Top = 76
Width = 358
Height = 13
Caption =
'Copyright'#169' 2002-2003 ArdeshirV@protonmail.com, Licensed under GP' +
'Lv3+'
IsControl = True
end
object Comments: TLabel
Left = 72
Top = 55
Width = 186
Height = 13
Caption = 'Demonstrate Projectile Motion Equation'
WordWrap = True
IsControl = True
end
end
object OKButton: TButton
Left = 317
Top = 119
Width = 75
Height = 25
Caption = '&OK'
Default = True
ModalResult = 1
TabOrder = 1
end
end
30 changes: 30 additions & 0 deletions UAbout.pas
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,30 @@
// UAbout.pas - Demonstrate Projectile Motion Equation About Box
// Github: https://github.com/ArdeshirV/Projectile
// Copyright© 2002-2003 ArdeshirV@protonmail.com, Licensed under GPLv3+
unit UAbout;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;

type
TAboutBox = class(TForm)
Panel1: TPanel;
Version: TLabel;
Comments: TLabel;
Copyright: TLabel;
OKButton: TButton;
ProgramIcon: TImage;
ProductName: TLabel;
end;

var
AboutBox: TAboutBox;

implementation

{$R *.dfm}

end.

Loading

0 comments on commit fbc6e71

Please sign in to comment.