QTfrontend/playrecordpage.cpp
author koda
Thu, 14 Jan 2010 16:46:50 +0000
changeset 2695 ed789a7ef68d
parent 2631 163b0128bd21
child 2742 21c0d2e69753
permissions -rw-r--r--
makes freepascal code compatible with OBJFPC mode
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
579
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
     1
/*
1066
1f1b3686a2b0 Update copyright headers a bit
unc0rr
parents: 720
diff changeset
     2
 * Hedgewars, a free turn based strategy game
579
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
     3
 * Copyright (c) 2006, 2007 Andrey Korotaev <unC0Rr@gmail.com>
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
     4
 *
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
     6
 * it under the terms of the GNU General Public License as published by
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
     7
 * the Free Software Foundation; version 2 of the License
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
     8
 *
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    12
 * GNU General Public License for more details.
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    13
 *
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    14
 * You should have received a copy of the GNU General Public License
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    15
 * along with this program; if not, write to the Free Software
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    16
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    17
 */
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    18
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    19
#include <QFont>
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    20
#include <QGridLayout>
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    21
#include <QPushButton>
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    22
#include <QListWidget>
627
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    23
#include <QListWidgetItem>
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    24
#include <QFileInfo>
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    25
#include <QMessageBox>
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    26
#include <QInputDialog>
579
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    27
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    28
#include "hwconsts.h"
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    29
#include "playrecordpage.h"
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    30
1153
825931b81ad4 Iconed "Back" button everywhere
unc0rr
parents: 1066
diff changeset
    31
PagePlayDemo::PagePlayDemo(QWidget* parent) : AbstractPage(parent)
579
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    32
{
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    33
	QFont * font14 = new QFont("MS Shell Dlg", 14);
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    34
	QGridLayout * pageLayout = new QGridLayout(this);
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    35
	pageLayout->setColumnStretch(0, 1);
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    36
	pageLayout->setColumnStretch(1, 2);
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    37
	pageLayout->setColumnStretch(2, 1);
720
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
    38
	pageLayout->setRowStretch(2, 100);
579
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    39
1153
825931b81ad4 Iconed "Back" button everywhere
unc0rr
parents: 1066
diff changeset
    40
	BtnBack = addButton(":/res/Exit.png", pageLayout, 3, 0, true);
579
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    41
627
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    42
	BtnPlayDemo = new QPushButton(this);
579
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    43
	BtnPlayDemo->setFont(*font14);
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    44
	BtnPlayDemo->setText(QPushButton::tr("Play demo"));
720
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
    45
	pageLayout->addWidget(BtnPlayDemo, 3, 2);
579
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    46
627
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    47
	BtnRenameRecord = new QPushButton(this);
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    48
	BtnRenameRecord->setText(QPushButton::tr("Rename"));
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    49
	pageLayout->addWidget(BtnRenameRecord, 0, 2);
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    50
720
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
    51
	BtnRemoveRecord = new QPushButton(this);
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
    52
	BtnRemoveRecord->setText(QPushButton::tr("Delete"));
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
    53
	pageLayout->addWidget(BtnRemoveRecord, 1, 2);
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
    54
627
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    55
	DemosList = new QListWidget(this);
579
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    56
	DemosList->setGeometry(QRect(170, 10, 311, 311));
720
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
    57
	pageLayout->addWidget(DemosList, 0, 1, 3, 1);
627
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    58
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    59
	connect(BtnRenameRecord, SIGNAL(clicked()), this, SLOT(renameRecord()));
720
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
    60
	connect(BtnRemoveRecord, SIGNAL(clicked()), this, SLOT(removeRecord()));
579
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    61
}
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    62
581
909141b17f68 Better 'Load' page
unc0rr
parents: 580
diff changeset
    63
void PagePlayDemo::FillFromDir(RecordType rectype)
579
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    64
{
581
909141b17f68 Better 'Load' page
unc0rr
parents: 580
diff changeset
    65
	QDir dir;
909141b17f68 Better 'Load' page
unc0rr
parents: 580
diff changeset
    66
	QString extension;
909141b17f68 Better 'Load' page
unc0rr
parents: 580
diff changeset
    67
627
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    68
	recType = rectype;
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    69
581
909141b17f68 Better 'Load' page
unc0rr
parents: 580
diff changeset
    70
	dir.cd(cfgdir->absolutePath());
909141b17f68 Better 'Load' page
unc0rr
parents: 580
diff changeset
    71
	if (rectype == RT_Demo)
909141b17f68 Better 'Load' page
unc0rr
parents: 580
diff changeset
    72
	{
909141b17f68 Better 'Load' page
unc0rr
parents: 580
diff changeset
    73
		dir.cd("Demos");
909141b17f68 Better 'Load' page
unc0rr
parents: 580
diff changeset
    74
		extension = "hwd_" + *cProtoVer;
909141b17f68 Better 'Load' page
unc0rr
parents: 580
diff changeset
    75
		BtnPlayDemo->setText(QPushButton::tr("Play demo"));
909141b17f68 Better 'Load' page
unc0rr
parents: 580
diff changeset
    76
	} else
909141b17f68 Better 'Load' page
unc0rr
parents: 580
diff changeset
    77
	{
909141b17f68 Better 'Load' page
unc0rr
parents: 580
diff changeset
    78
		dir.cd("Saves");
909141b17f68 Better 'Load' page
unc0rr
parents: 580
diff changeset
    79
		extension = "hws_" + *cProtoVer;
909141b17f68 Better 'Load' page
unc0rr
parents: 580
diff changeset
    80
		BtnPlayDemo->setText(QPushButton::tr("Load"));
909141b17f68 Better 'Load' page
unc0rr
parents: 580
diff changeset
    81
	}
579
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    82
	dir.setFilter(QDir::Files);
580
d3ebf84e9fad Working 'Load' page
unc0rr
parents: 579
diff changeset
    83
d3ebf84e9fad Working 'Load' page
unc0rr
parents: 579
diff changeset
    84
	QStringList sl = dir.entryList(QStringList(QString("*.%1").arg(extension)));
603
d7877468653b - Use current screen color depth in engine
unc0rr
parents: 581
diff changeset
    85
	sl.replaceInStrings(QRegExp(QString("^(.*)\\.%1$").arg(extension)), "\\1");
580
d3ebf84e9fad Working 'Load' page
unc0rr
parents: 579
diff changeset
    86
579
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    87
	DemosList->clear();
580
d3ebf84e9fad Working 'Load' page
unc0rr
parents: 579
diff changeset
    88
	DemosList->addItems(sl);
579
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    89
580
d3ebf84e9fad Working 'Load' page
unc0rr
parents: 579
diff changeset
    90
	for (int i = 0; i < DemosList->count(); ++i)
d3ebf84e9fad Working 'Load' page
unc0rr
parents: 579
diff changeset
    91
	{
d3ebf84e9fad Working 'Load' page
unc0rr
parents: 579
diff changeset
    92
		DemosList->item(i)->setData(Qt::UserRole, dir.absoluteFilePath(QString("%1.%2").arg(sl[i], extension)));
d3ebf84e9fad Working 'Load' page
unc0rr
parents: 579
diff changeset
    93
	}
579
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    94
}
94db15de0392 - Some changes to make build process clear
unc0rr
parents:
diff changeset
    95
627
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    96
void PagePlayDemo::renameRecord()
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    97
{
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    98
	QListWidgetItem * curritem = DemosList->currentItem();
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
    99
	if (!curritem)
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   100
	{
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   101
		QMessageBox::critical(this,
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   102
				tr("Error"),
2631
163b0128bd21 A rather tedious rename of "Please," to "Please" triggered by bruce89 in interests of proper grammar. Also updated lrelease-qt4 which should pick up artart78's prior hedgewars_fr.ts fixes. Also a couple of typos in en.txt / fi.txt / pl.txt
nemo
parents: 1153
diff changeset
   103
				tr("Please select record from the list"),
627
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   104
				tr("OK"));
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   105
		return ;
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   106
	}
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   107
	QFile rfile(curritem->data(Qt::UserRole).toString());
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   108
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   109
	QFileInfo finfo(rfile);
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   110
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   111
	bool ok;
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   112
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   113
	QString newname = QInputDialog::getText(this, tr("Rename dialog"), tr("Enter new file name:"), QLineEdit::Normal, finfo.completeBaseName(), &ok);
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   114
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   115
	if(ok && newname.size())
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   116
	{
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   117
		QString newfullname = QString("%1/%2.%3")
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   118
		                              .arg(finfo.absolutePath())
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   119
		                              .arg(newname)
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   120
		                              .arg(finfo.suffix());
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   121
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   122
		ok = rfile.rename(newfullname);
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   123
		if(!ok)
628
1d592e3ae7ae Oops, forgot to save file before commiting
unc0rr
parents: 627
diff changeset
   124
			QMessageBox::critical(this, tr("Error"), tr("Cannot rename to") + newfullname);
627
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   125
		else
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   126
			FillFromDir(recType);
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   127
	}
92e136c3eb46 Button for renaming demo and save files
unc0rr
parents: 603
diff changeset
   128
}
720
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   129
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   130
void PagePlayDemo::removeRecord()
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   131
{
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   132
	QListWidgetItem * curritem = DemosList->currentItem();
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   133
	if (!curritem)
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   134
	{
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   135
		QMessageBox::critical(this,
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   136
				tr("Error"),
2631
163b0128bd21 A rather tedious rename of "Please," to "Please" triggered by bruce89 in interests of proper grammar. Also updated lrelease-qt4 which should pick up artart78's prior hedgewars_fr.ts fixes. Also a couple of typos in en.txt / fi.txt / pl.txt
nemo
parents: 1153
diff changeset
   137
				tr("Please select record from the list"),
720
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   138
				tr("OK"));
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   139
		return ;
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   140
	}
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   141
	QFile rfile(curritem->data(Qt::UserRole).toString());
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   142
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   143
	QFileInfo finfo(rfile);
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   144
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   145
	bool ok;
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   146
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   147
	ok = rfile.remove();
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   148
	if(!ok)
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   149
		QMessageBox::critical(this, tr("Error"), tr("Cannot delete file"));
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   150
	else
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   151
		FillFromDir(recType);
97a9d67d5c3e - Add 'Delete' button to demos and saves pages
unc0rr
parents: 628
diff changeset
   152
}