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

Keith:

Browse Source 
* Removed more obsolete code
  * Compiles again!

git-svn-id: trunk@1271 -
This commit is contained in:
lazarus 2002-02-09 01:48:12 +00:00
parent 0f4ef6279a
commit fe884b1796
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/interfaces/win32/win32int.pp
View File

@ -19,11 +19,6 @@
Unit Win32Int; Unit Win32Int;
{ $I checkcompiler.inc}
{$MODE OBJFPC}
{$LONGSTRINGS ON}
Interface Interface
{$IFDEF Trace} {$IFDEF Trace}
@ -39,13 +34,6 @@ Uses
GraphType, InterfaceBase, LCLLinux, LCLType, LMessages, StdCtrls, SysUtils, GraphType, InterfaceBase, LCLLinux, LCLType, LMessages, StdCtrls, SysUtils,
VCLGlobals, Win32Def; VCLGlobals, Win32Def;
Var
AppName: PChar;
FormClassName: PChar;
Const
ClsName = 'LazarusForm';
Type Type
{ Virtual alignment-control record } { Virtual alignment-control record }
TAlignment = Record TAlignment = Record
@ -224,6 +212,7 @@ Type
Const Const
BOOL_RESULT: Array[Boolean] Of String = ('False', 'True'); BOOL_RESULT: Array[Boolean] Of String = ('False', 'True');
ClsName = 'LazarusForm';
Var Var
OldClipboardViewer: HWND; OldClipboardViewer: HWND;
@ -250,6 +239,11 @@ End.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.13 2002/04/03 03:41:29 lazarus
Keith:
* Removed more obsolete code
* Compiles again!
Revision 1.12 2002/04/03 01:52:42 lazarus Revision 1.12 2002/04/03 01:52:42 lazarus
Keith: Removed obsolete code, in preperation of a pending TWin32Object cleanup Keith: Removed obsolete code, in preperation of a pending TWin32Object cleanup