paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 12:40:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: set longstrings as default

Browse Source 
git-svn-id: trunk@291 -
This commit is contained in:
lazarus 2001-06-15 10:31:06 +00:00
parent be565cb5d9
commit 3594c19600
14 changed files with 48 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/allunits.pp
View File

@ -8,7 +8,7 @@
/***************************************************************************
}
unit allunits;
{$mode objfpc}
{$mode objfpc}{$H+}
interface
uses
interfacebase, interfaces,
@ -25,6 +25,9 @@ end.
{ =============================================================================
$Log$
Revision 1.7 2001/06/15 10:31:05 lazarus
MG: set longstrings as default
Revision 1.6 2001/03/27 20:55:23 lazarus
MWE:
* changed makefiles so that the LCL is build separate fron interfaces

7
lcl/clipbrd.pp
View File

@ -28,8 +28,8 @@ Clipboard unit. For Copying and Pasting. You know what it's for! Why am I exp
}
unit Clipbrd;
{$H+}
{$MODE Objfpc}
{$MODE Objfpc}{$H+}
interface
@ -124,6 +124,9 @@ end.
{
$Log$
Revision 1.3 2001/06/15 10:31:05 lazarus
MG: set longstrings as default
Revision 1.2 2001/02/16 19:13:30 lazarus
Added some functions
Shane

5
lcl/clistbox.pp
View File

@ -24,7 +24,7 @@
unit CListBox;
{$MODE objfpc}
{$MODE objfpc}{$H+}
interface
@ -69,6 +69,9 @@ end.
{ =============================================================================
$Log$
Revision 1.2 2001/06/15 10:31:05 lazarus
MG: set longstrings as default
Revision 1.1 2000/07/13 10:28:23 michael
+ Initial import

5
lcl/filectrl.pp
View File

@ -29,7 +29,7 @@ This unit contains file and directory controls and supporting handling functions
unit filectrl;
//{$mode delphi}
{$mode objfpc}
{$mode objfpc}{$H+}
interface
@ -62,6 +62,9 @@ end.
{
$Log$
Revision 1.2 2001/06/15 10:31:05 lazarus
MG: set longstrings as default
Revision 1.1 2000/07/13 10:28:23 michael
+ Initial import

5
lcl/imglist.pp
View File

@ -28,7 +28,7 @@ Detailed description of the Unit.
}
unit ImgList;
{$mode objfpc}
{$mode objfpc}{$H+}
interface
@ -148,6 +148,9 @@ end.
{
$Log$
Revision 1.4 2001/06/15 10:31:06 lazarus
MG: set longstrings as default
Revision 1.3 2001/02/06 13:55:23 lazarus
Changed the files from mode delphi to mode objfpc
Shane

4
lcl/include/wincontrol.inc
View File

@ -1906,7 +1906,6 @@ end;
------------------------------------------------------------------------------}
procedure TWinControl.CMVisibleChanged(var Message : TLMessage);
begin
if not FVisible and (Parent <> nil)
then RemoveFocus(False);
@ -1961,6 +1960,9 @@ end;
{ =============================================================================
$Log$
Revision 1.33 2001/06/15 10:31:06 lazarus
MG: set longstrings as default
Revision 1.32 2001/06/14 14:57:59 lazarus
MG: small bugfixes and less notes

6
lcl/lcllinux.pp
View File

@ -32,7 +32,7 @@ the Delphi Windows unit. This is only done for compatibiltiy.
}
unit LCLLinux;
{$mode objfpc}
{$mode objfpc}{$H+}
interface
uses VCLGlobals,Classes;
@ -313,6 +313,7 @@ PM_Remove = 1;
VK_F24 = 135;
VK_NUMLOCK = 144;
VK_SCROLL = 145;
// VK_L & VK_R - left and right Alt, Ctrl and Shift virtual keys.
// Used only as parameters to GetAsyncKeyState() and GetKeyState().
@ -1378,6 +1379,9 @@ end.
{
$Log$
Revision 1.8 2001/06/15 10:31:06 lazarus
MG: set longstrings as default
Revision 1.7 2001/04/06 22:28:09 lazarus
* TTimer uses winapi interface now instead of sendmessage interface, stoppok

5
lcl/lmessages.pp
View File

@ -21,7 +21,7 @@
unit lMessages;
{$mode objfpc}
{$mode objfpc}{$H+}
interface
@ -768,6 +768,9 @@ end.
{
$Log$
Revision 1.10 2001/06/15 10:31:06 lazarus
MG: set longstrings as default
Revision 1.9 2001/02/01 19:34:50 lazarus
TScrollbar created and a lot of code added.

5
lcl/lresources.pp
View File

@ -1,4 +1,3 @@
unit lresources;
{
Author: Mattias Gaertner
@ -17,7 +16,9 @@ unit lresources;
ToDo:
}
{$mode objfpc}
unit lresources;
{$mode objfpc}{$H+}
interface

5
lcl/registry.pp
View File

@ -32,7 +32,7 @@ this will provide access to a file registry or conf file.
unit Registry;
//{$mode delphi}
{$mode objfpc}
{$mode objfpc}{$H+}
interface
@ -184,6 +184,9 @@ end.
{
$Log$
Revision 1.3 2001/06/15 10:31:06 lazarus
MG: set longstrings as default
Revision 1.2 2001/02/04 18:24:41 lazarus
Code cleanup
Shane

2
lcl/spin.pp
View File

@ -21,7 +21,7 @@
unit spin;
{$mode objfpc}
{$mode objfpc}{$H+}
interface

2
lcl/toolwin.pp
View File

@ -30,7 +30,7 @@ Detailed description of the Unit.
unit Toolwin;
//{$mode delphi}
{$mode objfpc}
{$mode objfpc}{$H+}
interface

9
lcl/utrace.pp
View File

@ -1,6 +1,8 @@
unit utrace;
{$mode objfpc}
{$mode objfpc}{$H+}
interface
@ -8,7 +10,7 @@ interface
uses sysutils;
type
TAssertErrorProc = procedure(Const Msg,FN : String;LineNo,TheAddr : Longint);
TAssertErrorProc = procedure(Const Msg,FN : ShortString;LineNo,TheAddr : Longint);
var
TraceFileName : string;
@ -17,10 +19,9 @@ var
implementation
procedure TraceAssertHandler(Const Msg,FN : String;LineNo,TheAddr : Longint);
procedure TraceAssertHandler(Const Msg,FN : ShortString;LineNo,TheAddr : Longint);
var
fileH : Text;
begin
if LowerCase(LeftStr(Msg, 6)) = 'trace:' then

2
lcl/vclglobals.pp
View File

@ -18,7 +18,7 @@
unit vclglobals;
{$mode objfpc}
{$mode objfpc}{$H+}
interface
//uses