From 3260749d369d3466c345d40a8b2189c32c8c1b60 Mon Sep 17 00:00:00 2001 From: Alexander Sulfrian Date: Mon, 7 Nov 2011 15:26:44 +0100 Subject: removed pascal code --- src/menu/UMenuInteract.pas | 54 ---------------------------------------------- 1 file changed, 54 deletions(-) delete mode 100644 src/menu/UMenuInteract.pas (limited to 'src/menu/UMenuInteract.pas') diff --git a/src/menu/UMenuInteract.pas b/src/menu/UMenuInteract.pas deleted file mode 100644 index 7cb92025..00000000 --- a/src/menu/UMenuInteract.pas +++ /dev/null @@ -1,54 +0,0 @@ -{* UltraStar Deluxe - Karaoke Game - * - * UltraStar Deluxe is the legal property of its developers, whose names - * are too numerous to list here. Please refer to the COPYRIGHT - * file distributed with this source distribution. - * - * This program is free software; you can redistribute it and/or - * modify it under the terms of the GNU General Public License - * as published by the Free Software Foundation; either version 2 - * of the License, or (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, - * Boston, MA 02110-1301, USA. - * - * $URL$ - * $Id$ - *} - -unit UMenuInteract; - -interface - -{$IFDEF FPC} - {$MODE Delphi} -{$ENDIF} - -{$I switches.inc} - -type - TInteract = record // for moving thru menu - Typ: integer; // 0 - button, 1 - select, 2 - Text, 3 - Select SLide, 5 - ButtonCollection Child - Num: integer; // number of this item in proper list like buttons, selects - end; - - { to handle the area where the mouse is over a control } - TMouseOverRect = record - X, Y: Real; - W, H: Real; - end; - - { to handle the on click action } - TMouseClickAction = (maNone, maReturn, maLeft, maRight); - -implementation - -end. - \ No newline at end of file -- cgit v1.2.3