lazarus/lcl/lclstrconsts.pas
lazarus 11279dd04b MG: gradient fill, minor issues from Andrew
git-svn-id: trunk@3328 -
2002-09-12 05:56:15 +00:00

64 lines
2.3 KiB
ObjectPascal

{ $Id$ }
{
/***************************************************************************
lclstrconsts.pas
----------------
This unit contains all resource strings of the LCL (not interfaces)
***************************************************************************/
***************************************************************************
* *
* This source 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 code 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. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
}
unit LCLStrConsts;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
ResourceString
rsMbYes = '&Yes';
rsMbNo = '&No';
rsMbOK = '&OK';
rsMbCancel = 'Cancel';
rsMbAbort = 'Abort';
rsMbRetry = '&Retry';
rsMbIgnore = '&Ignore';
rsMbAll = '&All';
rsMbNoToAll = 'No to all';
rsMbYesToAll = 'Yes to all';
rsMbHelp = '&Help';
rsMbClose = '&Close';
rsMtWarning = 'Warning';
rsMtError = 'Error';
rsMtInformation = 'Information';
rsMtConfirmation = 'Confirmation';
rsMtCustom = 'Custom';
implementation
end.