paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: moved resourcestring to lclstrconsts.pas

Browse Source 
git-svn-id: trunk@1771 -
This commit is contained in:
lazarus 2002-07-04 11:46:00 +00:00
parent 277733c08f
commit c4fe5c8a10
6 changed files with 75 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -577,6 +577,7 @@ lcl/interfaces/win32/winext.pas svneol=native#text/pascal
lcl/lazqueue.pp svneol=native#text/pascal
lcl/lcllinux.pp svneol=native#text/pascal
lcl/lclmemmanager.pas svneol=native#text/pascal
lcl/lclstrconsts.pas svneol=native#text/pascal
lcl/lcltype.pp svneol=native#text/pascal
lcl/lmessages.pp svneol=native#text/pascal
lcl/lresources.pp svneol=native#text/pascal

2
lcl/Makefile
View File

@ -199,7 +199,7 @@ override PACKAGE_NAME=lazarus/lcl
override PACKAGE_VERSION=0.8a
override TARGET_DIRS+=interfaces
override TARGET_UNITS+=allunits
override TARGET_IMPLICITUNITS+=arrow buttons calendar clipbrd clistbox comctrls commctrl controls dialogs dynhasharray extctrls filectrl forms graphics graphtype imglist interfacebase lazqueue lcllinux lcltype lmessages lresources menus messages registry spin stdctrls toolwin utrace vclglobals
override TARGET_IMPLICITUNITS+=arrow buttons calendar clipbrd clistbox comctrls commctrl controls dialogs dynhasharray extctrls filectrl forms graphics graphtype imglist interfacebase lazqueue lcllinux lclstrconsts lcltype lmessages lresources menus messages registry spin stdctrls toolwin utrace vclglobals
override TARGET_RSTS+=dialogs
override CLEAN_FILES+=$(wildcard units/*$(OEXT)) $(wildcard units/*$(PPUEXT)) $(wildcard units/*$(RSTEXT))$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
override INSTALL_BUILDUNIT=allunits

8
lcl/Makefile.fpc
View File

@ -12,11 +12,11 @@ dirs=interfaces
units=allunits
implicitunits=arrow buttons calendar clipbrd clistbox comctrls commctrl \
controls dialogs dynhasharray extctrls filectrl forms graphics \
graphtype imglist interfacebase lazqueue lcllinux lcltype lmessages \
lresources menus messages registry spin stdctrls toolwin utrace \
vclglobals
graphtype imglist interfacebase lazqueue lcllinux lclstrconsts lcltype \
lmessages lresources menus messages registry spin stdctrls toolwin \
utrace vclglobals
# !!! do not add interfaces. interfaces.ppu belongs to the interface(s).
# do not add allunits. It is just a dummy unit.
# and do not add allunits. It is just a dummy unit used for compiling.
rsts=dialogs

5
lcl/allunits.pp
View File

@ -25,7 +25,7 @@ unit AllUnits;
interface
uses
InterfaceBase, Interfaces,
InterfaceBase, Interfaces, LCLStrConsts,
Buttons, Extctrls, Registry, VCLGlobals, Calendar,
Clipbrd, Filectrl, Forms, LCLLinux, Spin,
Comctrls, Graphics, LMessages, Stdctrls, Arrow,
@ -40,6 +40,9 @@ end.
{ =============================================================================
$Log$
Revision 1.12 2002/07/04 11:46:00 lazarus
MG: moved resourcestring to lclstrconsts.pas
Revision 1.11 2002/05/10 06:05:48 lazarus
MG: changed license to LGPL

23
lcl/dialogs.pp
View File

@ -248,25 +248,7 @@ implementation
uses
Buttons, StdCtrls, LCLlinux, SysUtils, FileCtrl;
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';
rsMtWarning = 'Warning';
rsMtError = 'Error';
rsMtInformation = 'Information';
rsMtConfirmation = 'Confirmation';
rsMtCustom = 'Custom';
Buttons, StdCtrls, LCLlinux, SysUtils, FileCtrl, LCLStrConsts;
const
cMtCaption : array [TMsgDlgType] of string =
@ -331,6 +313,9 @@ end.
{ =============================================================================
$Log$
Revision 1.15 2002/07/04 11:46:00 lazarus
MG: moved resourcestring to lclstrconsts.pas
Revision 1.14 2002/06/04 15:17:21 lazarus
MG: improved TFont for XLFD font names

61
lcl/lclstrconsts.pas Normal file
View File

@ -0,0 +1,61 @@
{ $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';
rsMtWarning = 'Warning';
rsMtError = 'Error';
rsMtInformation = 'Information';
rsMtConfirmation = 'Confirmation';
rsMtCustom = 'Custom';
implementation
end.