черпай...
код:
procedure TForm1.FormCreate(Sender: TObject);
var
Ini: TIniFile;
begin
FIniPath := ChangeFileExt(Application.ExeName, 'settings.ini');
Ini := TIniFile.Create(FIniPath);
try
Left := Ini.ReadInteger(FORM, 'Left', 0); } это загрузка того самого .ini файла, приложе
Top := Ini.ReadInteger(FORM, 'Top', 0); ние сцитует инфу о положении Form1 и т.п.
Width := Ini.ReadInteger(FORM, 'Width', 0);
Height := Ini.ReadInteger(FORM, 'Height', 0);
ComboBox1.Text := Ini.ReadString(FORM, 'Text', Form1.ComboBox1.Text); (в этом ComboBox1 у тебя можна выбрать 800х600, 1024х768 и т.д.)
finally
Ini.Free;
end;
if Form1.ComboBox1.Text = '800x600' then
begin
Form1.Left := 0;
Form1.Top := 0;
Form1.Image1.Picture.LoadFromFile('Data/Menu/cs_source_wall_800x600.bmp'); (загрузка картинки для меню под данное разрешение)
Form1.Height := 600;
Form1.Width := 800;
end;
if form1.ComboBox1.Text = '1024x768' then
begin
Form1.Left := 0;
Form1.Top := 0;
Form1.Image1.Picture.LoadFromFile('Data/Menu/cs_source_wall_1024x768.bmp'); (загрузка картинки для меню под данное разрешение)
Form1.Height := 768;
Form1.Width := 1024;
Form1.Position := poScreenCenter; (ОЧЕНЬ ВАЖНО)
end;
end;
а это ты когда выбираешь 800х600 и кликаешь в менюшке опций *ОК*
procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
if form1.ComboBox1.Text = '800x600' then
begin
Form1.Left := 0;
Form1.Top := 0;
Form1.ComboBox1.Text := '800x600';
Form1.BorderStyle := bsSingle;
Form1.Position := poScreenCenter;
Form1.Height := 600;
Form1.Width := 800;
Form1.Image1.Picture.LoadFromFile('Data/Menu/cs_source_wall_800x600.bmp');
end;
а это ты когда выбираешь 1024х768 и кликаешь в менюшке опций *ОК*
f form1.ComboBox1.Text = '1024x768' then
begin
Form1.Left := 0;
Form1.Top := 0;
Form1.Position := poScreenCenter;
Form1.ComboBox1.Text := '1024x768';
Form1.BorderStyle := bsSingle;
Form1.Height := 768;
Form1.Width := 1024;
Form1.Image1.Picture.LoadFromFile('Data/Menu/cs_source_wall_1024x768.bmp');
end;
end;
а вот сейчас будет самое важное
procedure TForm1.FormDestroy(Sender: TObject);
var
Ini: TIniFile;
begin
Ini := TIniFile.Create(FIniPath);
try
Ini.WriteInteger(FORM, 'Left', Left); } это ты когда выходишь из игры, то оно
Ini.WriteInteger(FORM, 'Top', Top); записывает последние конфиги.
Ini.WriteInteger(FORM, 'Width', Width);
Ini.WriteInteger(FORM, 'Height', Height);
Ini.WriteString(FORM, 'Text', Form1.ComboBox1.Text);
finally
Ini.Free;
end;
если не разберёшься, то я могу исходники скинуть B)
ах да, вот что ещё
в uses добавь IniFiles и ещё кое что
private
FIniPath: string;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
const
FORM = 'MainForm';
implementation
{$R *.dfm}
ну а дальше Form create
Said: и ты черпай!Есть такой тег у форума "code" - результат применения такой:
Код
Не будешь его использовать,
Не будут видны отступы в коде,
Не будет видно отступов в коде,
Не будет тебе +1 и "аффтор спасиба",
А будет тебя злой дядя Саид понукать.
