unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
ComboBox1: TComboBox;
procedure Button1Click(Sender: TObject);
procedure ComboSetting();
procedure FormCreate(Sender: TObject);
private
sModsLine: String;
sScreenSize: String;
Faktor: extended;
public
end;
var
Form1: TForm1;
const cMyFileName='..\Binaries\conf.ini';
implementation
{$R *.lfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
procedure TForm1.ComboSetting();
var
MyFile:Text;
Line5,Line6:String;
begin
AssignFile(MyFile,cMyFileName);
Reset(MyFile);
ReadLn(MyFile,Line5);
ReadLn(MyFile,Line6);
sModsLine:=Line5;
sScreenSize:=Line6;
CloseFile(MyFile);
if sScreenSize='size=XL' then
begin
Faktor:=1;
end
else if sScreenSize='size=L' then
begin
Faktor:=1.6;
end
else if sScreenSize='size=M' then
begin
Faktor:=2.4;
end
else if sScreenSize='size=S' then
begin
Faktor:=3.6;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboSetting;
Width:=round(Screen.Width/Faktor);
Height:=round(Screen.Height/Faktor);
end;
end.