Add files via upload

cricri-pingouin · Apr 28, 2020 · e7f8438 · e7f8438
1 parent 2a6ed3f
commit e7f8438
Show file tree

Hide file tree

Showing 28 changed files with 2,278 additions and 0 deletions.
diff --git a/HIGHSCORES.dcu b/HIGHSCORES.dcu
diff --git a/HIGHSCORES.ddp b/HIGHSCORES.ddp
diff --git a/HIGHSCORES.dfm b/HIGHSCORES.dfm
@@ -0,0 +1,40 @@
+object Form3: TForm3
+  Left = 643
+  Top = 454
+  BorderStyle = bsDialog
+  Caption = 'High Scores'
+  ClientHeight = 277
+  ClientWidth = 405
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -13
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  Scaled = False
+  OnShow = FormShow
+  PixelsPerInch = 120
+  TextHeight = 16
+  object strngrdHS: TStringGrid
+    Left = 0
+    Top = 0
+    Width = 405
+    Height = 277
+    ColCount = 4
+    RowCount = 11
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clNavy
+    Font.Height = -18
+    Font.Name = 'MS Sans Serif'
+    Font.Style = []
+    ParentFont = False
+    ScrollBars = ssNone
+    TabOrder = 0
+    ColWidths = (
+      34
+      206
+      80
+      79)
+  end
+end
diff --git a/HIGHSCORES.pas b/HIGHSCORES.pas
@@ -0,0 +1,42 @@
+unit HIGHSCORES;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, Grids, TETRIS;
+
+type
+  TForm3 = class(TForm)
+    strngrdHS: TStringGrid;
+    procedure FormShow(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form3: TForm3;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm3.FormShow(Sender: TObject);
+var
+  I: Integer;
+begin
+  strngrdHS.Cells[1, 0] := 'Name';
+  strngrdHS.Cells[2, 0] := 'Lines';
+  strngrdHS.Cells[3, 0] := 'Score';
+  for I := 1 to 10 do
+  begin
+    strngrdHS.Cells[0, I] := IntToStr(I);
+    strngrdHS.Cells[1, I] := Form1.HSname[I];
+    strngrdHS.Cells[2, I] := IntToStr(Form1.HSlines[I]);
+    strngrdHS.Cells[3, I] := IntToStr(Form1.HSscore[I]);
+  end;
+end;
+
+end.
diff --git a/OPTIONS.dcu b/OPTIONS.dcu
diff --git a/OPTIONS.ddp b/OPTIONS.ddp
diff --git a/OPTIONS.dfm b/OPTIONS.dfm
diff --git a/OPTIONS.pas b/OPTIONS.pas
@@ -0,0 +1,101 @@
+unit OPTIONS;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, TETRIS, IniFiles;
+
+type
+  tForm2 = class(TForm)
+    lblHeight: TLabel;
+    scrlHeight: TScrollBar;
+    lblDensity: TLabel;
+    scrlDensity: TScrollBar;
+    chkNext: TCheckBox;
+    btnCancel: TButton;
+    btnOk: TButton;
+    lblHeightV: TLabel;
+    lblDensityV: TLabel;
+    lblLevelV: TLabel;
+    scrlSpeed: TScrollBar;
+    lblSpeed: TLabel;
+    scrlLvlChg: TScrollBar;
+    lblLvlChg: TLabel;
+    lblLvlChgV: TLabel;
+    lblSpeedV: TLabel;
+    procedure btnCancelClick(Sender: TObject);
+    procedure btnOkClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure scrlHeightChange(Sender: TObject);
+    procedure scrlDensityChange(Sender: TObject);
+    procedure scrlLvlChgChange(Sender: TObject);
+    procedure scrlSpeedChange(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form2: tForm2;
+
+implementation
+
+{$R *.dfm}
+
+procedure tForm2.btnCancelClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure tForm2.btnOkClick(Sender: TObject);
+var
+  myINI: TINIFile;
+begin
+  Form1.OptHeight := scrlHeight.Position;
+  Form1.OptDensity := scrlDensity.Position;
+  Form1.OptLvlChg := scrlLvlChg.Position;
+  Form1.OptSpeed := scrlSpeed.Position;
+  Form1.OptNext := chkNext.Checked;
+  //SAve settings to INI file
+  myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'SliTris.ini');
+  myINI.WriteInteger('Settings', 'Starting_Height', Form1.OptHeight);
+  myINI.WriteInteger('Settings', 'Starting_Density', Form1.OptDensity);
+  myINI.WriteInteger('Settings', 'Level_Change', Form1.OptLvlChg);
+  myINI.WriteInteger('Settings', 'Speed', Form1.OptSpeed);
+  myINI.WriteBool('Settings', 'Show_Next', Form1.OptNext);
+  myINI.Free;
+  Close;
+end;
+
+procedure tForm2.FormCreate(Sender: TObject);
+begin
+  scrlHeight.Position := Form1.OptHeight;
+  scrlDensity.Position := Form1.OptDensity;
+  scrlLvlChg.Position := Form1.OptLvlChg;
+  scrlSpeed.Position := Form1.OptSpeed;
+  chkNext.Checked := Form1.OptNext;
+end;
+
+procedure tForm2.scrlHeightChange(Sender: TObject);
+begin
+  lblHeightV.Caption := IntToStr(scrlHeight.Position);
+end;
+
+procedure tForm2.scrlDensityChange(Sender: TObject);
+begin
+  lblDensityV.Caption := IntToStr(scrlDensity.Position);
+end;
+
+procedure tForm2.scrlLvlChgChange(Sender: TObject);
+begin
+  lblLvlChgV.Caption := IntToStr(scrlLvlChg.Position);
+end;
+
+procedure tForm2.scrlSpeedChange(Sender: TObject);
+begin
+  lblSpeedV.Caption := IntToStr(scrlSpeed.Position);
+end;
+
+end.
diff --git a/SliTris.bdsproj b/SliTris.bdsproj
@@ -0,0 +1,175 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType">VCLApplication</Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{B75E905D-DCCC-4EE8-8E35-196114A50CDB}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">SliTris.dpr</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">0</Compiler>
+			<Compiler Name="D">0</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">0</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">0</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">0</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">True</Compiler>
+			<Compiler Name="SymbolLibrary">True</Compiler>
+			<Compiler Name="SymbolPlatform">True</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">True</Compiler>
+			<Compiler Name="UnitPlatform">True</Compiler>
+			<Compiler Name="UnitDeprecated">True</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription"></Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir"></Directories>
+			<Directories Name="PackageDLLOutputDir"></Directories>
+			<Directories Name="PackageDCPOutputDir"></Directories>
+			<Directories Name="SearchPath"></Directories>
+			<Directories Name="Packages">vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP</Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">False</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"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/SliTris.bdsproj.local b/SliTris.bdsproj.local
@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject/>
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,2 @@
		<?xml version="1.0" encoding="utf-8"?>
		<BorlandProject/>