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

removed obsolete unit vclglobals

Browse Source 
git-svn-id: trunk@5814 -
This commit is contained in:
mattias 2004-08-18 09:31:21 +00:00
parent e28d428309
commit 8fb1867a6b
52 changed files with 373 additions and 369 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -1444,7 +1444,6 @@ lcl/templates/template.pp svneol=native#text/pascal
lcl/textstrings.pas svneol=native#text/pascal
lcl/toolwin.pp svneol=native#text/pascal
lcl/utrace.pp svneol=native#text/pascal
lcl/vclglobals.pp svneol=native#text/pascal
lcl/widgetset/wsactnlist.pp svneol=native#text/pascal
lcl/widgetset/wsarrow.pp svneol=native#text/pascal
lcl/widgetset/wsbuttons.pp svneol=native#text/pascal

7
components/gtk/gtkglarea/gtkglareacontrol.pas
View File

@ -20,10 +20,9 @@ unit GTKGLAreaControl;
interface
uses
Classes, SysUtils, {$IFDEF VER1_0}Linux{$ELSE}Unix{$ENDIF}, Forms,
Controls, Graphics, LMessages, VCLGlobals, InterfaceBase, GTKInt,
WSLCLClasses, WSControls, LResources,
GLib, Gtk, NVGL, GTKGLArea_Int;
Classes, SysUtils, LCLType, {$IFDEF VER1_0}Linux{$ELSE}Unix{$ENDIF}, Forms,
Controls, Graphics, LMessages, InterfaceBase, WSLCLClasses, WSControls,
LResources, GTKInt, GLib, Gtk, NVGL, GTKGLArea_Int;
type
TGtkGlAreaMakeCurrentEvent = procedure(Sender: TObject;

2
components/htmllite/htmllite.pas
View File

@ -15,7 +15,7 @@ interface
{$IFDEF HL_LAZARUS}
uses
Classes, SysUtils, LCLIntf, LMessages, Messages, LCLType, VCLGlobals,
Classes, SysUtils, LCLIntf, LMessages, Messages, LCLType,
GraphType, Graphics, Controls, StdCtrls, Forms, Dialogs, ExtCtrls, Menus,
Clipbrd, LiteUn2, LiteSubs, LiteSbs1, LitePars, LiteReadThd;
{$ELSE not HL_LAZARUS}

8
components/htmllite/lazhtmllite.pas
View File

@ -1,15 +1,15 @@
{ This file was automatically created by Lazarus. Do not edit!
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install
the package LazHTMLLite 0.1.1.
}
}
unit LazHTMLLite;
interface
uses
HTMLLite, LiteDith, LitePars, LiteReadThd, LiteSbs1, LiteSubs, LiteUn2, LiteGIF2, LazarusPackageIntf;
HTMLLite, LiteDith, LitePars, LiteReadThd, LiteSbs1, LiteSubs, LiteUn2,
LiteGIF2, LazarusPackageIntf;
implementation

2
components/htmllite/litedith.pas
View File

@ -104,7 +104,7 @@ interface
////////////////////////////////////////////////////////////////////////////////
uses
{$IFDEF HL_LAZARUS}
Classes, SysUtils, VCLGlobals, LCLType, GraphType, Graphics;
Classes, SysUtils, LCLType, GraphType, Graphics;
{$ELSE}
sysutils,
Windows,

2
components/htmllite/litesubs.pas
View File

@ -43,7 +43,7 @@ unit LiteSubs;
interface
uses
{$IFDEF HL_LAZARUS}
Classes, SysUtils, VCLGlobals, LCLType, LCLIntf, Messages,
Classes, SysUtils, LCLType, LCLIntf, Messages,
GraphType, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ExtCtrls,
LiteUn2, LiteGif2;
{$ELSE}

6
components/htmllite/liteun2.pas
View File

@ -13,7 +13,7 @@ unit LiteUn2;
interface
uses
{$IFDEF HL_LAZARUS}
LCLIntf, LCLType, VCLGlobals, SysUtils, Classes, GraphType,
LCLIntf, LCLType, SysUtils, Classes, GraphType,
Graphics, Controls, Forms, Dialogs, StdCtrls;
{$ELSE}
Windows, SysUtils, Messages, Classes, Graphics, Controls,
@ -1510,10 +1510,8 @@ try
end
else
Result.LoadFromStream(Stream);
{$else}
Result.LoadFromStream(Stream);
{$endif}
{$ENDIF not HL_LAZARUS}
{$endif ver100_plus}
if Transparent = LLCorner then
Mask := GetImageMask(Result, False, 0);
Result := ConvertImage(Result);

4
components/interbase/interbaselaz.pas
View File

@ -1,7 +1,7 @@
{ This file was automatically created by Lazarus. Do not edit!
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install
the package InterbaseLaz 1.0.
}
}
unit InterbaseLaz;

4
components/turbopower_ipro/iphtml.pas
View File

@ -41,7 +41,6 @@ interface
uses
{$IFDEF IP_LAZARUS}
//MemCheck,
VCLGlobals,
LCLType,
GraphType,
LCLIntf,
@ -17590,6 +17589,9 @@ initialization
InitScrollProcs;
{
$Log$
Revision 1.14 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.13 2004/05/25 20:18:00 mattias
icon added

2
designer/designerprocs.pas
View File

@ -33,7 +33,7 @@ unit DesignerProcs;
interface
uses
Classes, SysUtils, LCLIntf, Forms, Controls, LCLType, Graphics, VCLGlobals;
Classes, SysUtils, LCLIntf, Forms, Controls, LCLType, Graphics;
type
TDesignerDCFlag = (ddcDCOriginValid, ddcFormOriginValid,

2
examples/listboxtest.pp
View File

@ -23,7 +23,7 @@ program ListBoxTest;
{$mode objfpc}{$H+}
uses
Interfaces, Buttons, Classes, Forms, StdCtrls, SysUtils, Vclglobals, Controls{,
Interfaces, Buttons, Classes, Forms, StdCtrls, SysUtils, Controls{,
CListBox};
type

2
examples/memotest.pp
View File

@ -23,7 +23,7 @@ program MemoTest;
{$mode objfpc}{$H+}
uses
Interfaces, Buttons, Classes, Forms, StdCtrls, SysUtils, VclGlobals;
Interfaces, Buttons, Classes, Forms, StdCtrls, SysUtils;
type
TMemoTestForm = class(TForm)

2
lcl/Makefile
View File

@ -263,7 +263,7 @@ endif
endif
override TARGET_DIRS+=interfaces
override TARGET_UNITS+=alllclunits
override TARGET_IMPLICITUNITS+=actnlist arrow avglvltree buttons calendar checklst clipbrd clistbox comctrls commctrl controls dbactns dbctrls dbgrids dialogs dynamicarray dynhasharray editbtn extctrls extdlgs extendedstrings extgraphics filectrl forms fpcadds graphics graphmath graphtype grids imglist inipropstorage interfacebase lazlinkedlist lclintf lclmemmanager lclproc lclrescache lclstrconsts lcltype lmessages lresources maskedit menus pairsplitter postscriptprinter printers propertystorage spin stdactns stdctrls stringhashlist textstrings toolwin utrace xmlpropstorage vclglobals
override TARGET_IMPLICITUNITS+=actnlist arrow avglvltree buttons calendar checklst clipbrd clistbox comctrls commctrl controls dbactns dbctrls dbgrids dialogs dynamicarray dynhasharray editbtn extctrls extdlgs extendedstrings extgraphics filectrl forms fpcadds graphics graphmath graphtype grids imglist inipropstorage interfacebase lazlinkedlist lclintf lclmemmanager lclproc lclrescache lclstrconsts lcltype lmessages lresources maskedit menus pairsplitter postscriptprinter printers propertystorage spin stdactns stdctrls stringhashlist textstrings toolwin utrace xmlpropstorage
override TARGET_RSTS+=lclstrconsts
override CLEAN_FILES+=$(wildcard $(COMPILER_UNITTARGETDIR)/*$(OEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(PPUEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(RSTEXT)) $(wildcard ./units/*$(OEXT)) $(wildcard ./units/*$(PPUEXT)) $(wildcard ./units/*$(RSTEXT)) $(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
override COMPILER_OPTIONS+=-gl

3
lcl/Makefile.fpc
View File

@ -66,8 +66,7 @@ implicitunits= \
textstrings \
toolwin \
utrace \
xmlpropstorage \
vclglobals
xmlpropstorage
rsts=lclstrconsts

6
lcl/alllclunits.pp
View File

@ -35,8 +35,7 @@ uses
FPCAdds, LazLinkedList, DynHashArray, LCLMemManager, AvgLvlTree,
StringHashList, ExtendedStrings, DynamicArray, UTrace, TextStrings,
// base types and base functions
LCLProc, LCLType, LCLResCache, VCLGlobals, GraphMath, FileCtrl, LMessages,
LResources,
LCLProc, LCLType, LCLResCache, GraphMath, FileCtrl, LMessages, LResources,
// the interface base
InterfaceBase,
{$IFNDEF DisableFPImage}IntfGraphics,{$ENDIF}
@ -64,6 +63,9 @@ end.
{ =============================================================================
$Log$
Revision 1.20 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.19 2004/08/15 14:39:36 mattias
implemented platform independent binary object streamer

2
lcl/arrow.pp
View File

@ -33,7 +33,7 @@ unit Arrow;
interface
uses
SysUtils, Classes, Controls, vclGlobals, lMessages;
SysUtils, Classes, LCLType, Controls, lMessages;
Type

7
lcl/buttons.pp
View File

@ -38,8 +38,8 @@ interface
{$endif}
uses
Classes, SysUtils, VCLGlobals, LCLType, LCLProc, LCLIntf, LCLStrConsts,
GraphType, Graphics, ImgList, ActnList, Controls, StdCtrls, lMessages, Forms;
Classes, SysUtils, LCLType, LCLProc, LCLIntf, LCLStrConsts, GraphType,
Graphics, ImgList, ActnList, Controls, StdCtrls, lMessages, Forms;
type
{ TButton }
@ -381,6 +381,9 @@ end.
{ =============================================================================
$Log$
Revision 1.76 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.75 2004/07/16 10:16:32 mattias
added texttolols.pas and published TBitBtn.Caption

2
lcl/calendar.pp
View File

@ -33,7 +33,7 @@ unit Calendar;
interface
uses
SysUtils, Classes, LCLStrConsts, vclGlobals, lMessages, Controls;
SysUtils, Classes, LCLType, LCLStrConsts, lMessages, Controls;
Type

5
lcl/checklst.pas
View File

@ -28,7 +28,7 @@ unit CheckLst;
interface
uses
Classes, SysUtils, GraphType, Graphics, VCLGlobals, LMessages, Controls,
Classes, SysUtils, LCLType, GraphType, Graphics, LMessages, Controls,
StdCtrls;
@ -162,6 +162,9 @@ end.
{ =============================================================================
$Log$
Revision 1.7 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.6 2004/07/13 10:34:15 mattias
fixed lcl package unit file name checklist.pas

8
lcl/clistbox.pp
View File

@ -30,7 +30,7 @@ unit CListBox;
interface
uses
Classes, Controls, StdCtrls;
Classes, Controls, LCLType, StdCtrls;
type
TCListBox = class(TCustomListBox)
@ -52,9 +52,6 @@ type
implementation
uses
Vclglobals;
{------------------------------------------------------------------------------}
{ constructor TCListBox.Create }
{------------------------------------------------------------------------------}
@ -70,6 +67,9 @@ end.
{ =============================================================================
$Log$
Revision 1.4 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.3 2002/05/10 06:05:48 lazarus
MG: changed license to LGPL

8
lcl/comctrls.pp
View File

@ -38,9 +38,8 @@ interface
uses
SysUtils, Classes, Math, FPCAdds, LCLStrConsts, LResources, LCLIntf, LCLType,
LCLProc, AvgLvlTree, vclGlobals, LMessages, ImgList, ActnList, GraphType,
Graphics, Menus, Controls, Forms, StdCtrls, ExtCtrls, ToolWin, CommCtrl,
Buttons;
LCLProc, AvgLvlTree, LMessages, ImgList, ActnList, GraphType, Graphics, Menus,
Controls, Forms, StdCtrls, ExtCtrls, ToolWin, CommCtrl, Buttons;
type
TStatusPanelStyle = (psText, psOwnerDraw);
@ -2307,6 +2306,9 @@ end.
{ =============================================================================
$Log$
Revision 1.143 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.142 2004/08/15 17:00:58 mattias
improved DefineProperties to read/write endian independent

2
lcl/commctrl.pp
View File

@ -37,7 +37,7 @@ unit CommCtrl;
interface
uses
Classes, lMessages, vclGlobals, LCLType;
Classes, lMessages, LCLType;
//-------------
// Common

5
lcl/controls.pp
View File

@ -40,7 +40,7 @@ interface
{$ENDIF}
uses
Classes, SysUtils, DynHashArray, LCLStrConsts, vclglobals, LCLType, LCLProc,
Classes, SysUtils, DynHashArray, LCLStrConsts, LCLType, LCLProc,
GraphType, Graphics, LMessages, LCLIntf, InterfaceBase, ImgList, UTrace,
PropertyStorage, Menus, ActnList, LCLClasses;
@ -2405,6 +2405,9 @@ end.
{ =============================================================================
$Log$
Revision 1.237 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.236 2004/08/18 09:08:33 mattias
fixed deleting of collection item in prop editor

2
lcl/customtimer.pas
View File

@ -26,7 +26,7 @@ unit CustomTimer;
interface
uses
Classes, SysUtils, LCLStrConsts, LCLType, VCLGlobals, InterfaceBase;
Classes, SysUtils, LCLStrConsts, LCLType, InterfaceBase;
type

7
lcl/dialogs.pp
View File

@ -38,8 +38,8 @@ interface
uses
Classes, SysUtils, LCLIntf, InterfaceBase, FileCtrl, LCLStrConsts, LCLType,
VCLGlobals, LMessages, Forms, Controls, GraphType, Graphics, Buttons,
StdCtrls, LCLClasses;
LMessages, Forms, Controls, GraphType, Graphics, Buttons, StdCtrls,
LCLClasses;
type
@ -419,6 +419,9 @@ end.
{ =============================================================================
$Log$
Revision 1.51 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.50 2004/08/01 14:35:26 micha
publish Title property on dialogs for .dfm streaming

7
lcl/extctrls.pp
View File

@ -45,8 +45,8 @@ interface
{$endif}
uses
SysUtils, Classes, LCLStrConsts, LCLProc, LResources, Controls, Forms,
StdCtrls, vclGlobals, lMessages, GraphType, Graphics, LCLIntf, CustomTimer;
SysUtils, Classes, LCLStrConsts, LCLType, LCLProc, LResources, Controls,
Forms, StdCtrls, lMessages, GraphType, Graphics, LCLIntf, CustomTimer;
type
{ workaround problem with fcl }
@ -967,6 +967,9 @@ end.
{
$Log$
Revision 1.115 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.114 2004/08/15 17:00:58 mattias
improved DefineProperties to read/write endian independent

6
lcl/extdlgs.pas
View File

@ -27,9 +27,9 @@ unit ExtDlgs;
interface
uses
Classes, SysUtils, LCLProc, LResources, VCLGlobals, LCLType, LCLStrConsts,
Controls, Dialogs, GraphType, Graphics, ExtCtrls, StdCtrls, Forms, FileCtrl,
Calendar, Buttons;
Classes, SysUtils, LCLProc, LResources, LCLType, LCLStrConsts, Controls,
Dialogs, GraphType, Graphics, ExtCtrls, StdCtrls, Forms, FileCtrl, Calendar,
Buttons;
type

6
lcl/forms.pp
View File

@ -45,9 +45,9 @@ interface
{$ENDIF}
uses
Classes, Controls, LCLStrConsts, VCLGlobals, SysUtils, LCLType, LCLProc,
LCLIntf, InterfaceBase, LResources, GraphType, Graphics, Menus, LMessages,
CustomTimer, ActnList, ClipBrd, CustApp, LCLClasses;
Classes, SysUtils, LCLStrConsts, LCLType, LCLProc, LCLIntf, InterfaceBase,
LResources, GraphType, Graphics, Menus, LMessages, CustomTimer, ActnList,
ClipBrd, CustApp, LCLClasses, Controls;
type
TProcedure = procedure;

7
lcl/graphics.pp
View File

@ -43,8 +43,8 @@ uses
FPImage, FPReadPNG, FPWritePNG, FPReadBMP, FPWriteBMP, IntfGraphics,
{$ENDIF}
AvgLvlTree,
LCLStrConsts, vclGlobals, LCLType, LCLProc, LMessages, LCLIntf, LResources,
LCLResCache, GraphType, GraphMath;
LCLStrConsts, LCLType, LCLProc, LMessages, LCLIntf, LResources, LCLResCache,
GraphType, GraphMath;
type
PColor = ^TColor;
@ -1745,6 +1745,9 @@ end.
{ =============================================================================
$Log$
Revision 1.143 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.142 2004/08/11 22:05:07 mattias
fixed brush handle cache size

4
lcl/grids.pas
View File

@ -42,8 +42,8 @@ interface
uses
Classes, SysUtils, LCLStrConsts, LCLProc, LCLType, LCLIntf, Controls,
GraphType, Graphics, Forms, VCLGlobals, DynamicArray, LMessages,
XMLCfg, StdCtrls, LResources, MaskEdit;
GraphType, Graphics, Forms, DynamicArray, LMessages, XMLCfg, StdCtrls,
LResources, MaskEdit;
const
//GRIDFILEVERSION = 1; // Original

7
lcl/imglist.pp
View File

@ -54,8 +54,8 @@ interface
{$endif}
uses
SysUtils, Classes, FPCAdds, LCLStrConsts, LCLIntf, LResources, vclGlobals,
LCLType, LCLProc, Graphics, GraphType, LCLClasses
SysUtils, Classes, FPCAdds, LCLStrConsts, LCLIntf, LResources, LCLType,
LCLProc, Graphics, GraphType, LCLClasses
{$IFNDEF DisableFPImage}
,IntfGraphics, FPReadBMP
{$ENDIF}
@ -219,6 +219,9 @@ end.
{
$Log$
Revision 1.24 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.23 2004/08/15 17:00:58 mattias
improved DefineProperties to read/write endian independent

7
lcl/interfacebase.pp
View File

@ -33,8 +33,8 @@ interface
{$endif}
uses
Classes, SysUtils, Math, FPCAdds, LCLStrConsts, LCLType, LCLProc, VCLGlobals,
LMessages, GraphType, GraphMath;
Classes, SysUtils, Math, FPCAdds, LCLStrConsts, LCLType, LCLProc, LMessages,
GraphType, GraphMath;
type
@ -114,6 +114,9 @@ end.
{
$Log$
Revision 1.48 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.47 2004/08/11 20:57:09 mattias
moved intfstrconsts.pp to lclstrconsts.pas, implemented TPenHandleCache

9
lcl/interfaces/gnome/gnomeint.pp
View File

@ -38,9 +38,9 @@ interface
uses
InterfaceBase, {$Ifndef NoGdkPixbufLib}gdkpixbuf,{$EndIf} gtk, gdk,
glib, SysUtils, LMessages, Classes, Controls, Forms, VclGlobals,
LCLIntf, LCLType, gtkDef, DynHashArray, lazlinkedlist, GraphType,
GraphMath, gtkInt, {$Ifndef NoGdkImlib}gdk_imlib,{$EndIf}
glib, SysUtils, LMessages, Classes, Controls, Forms, LCLIntf, LCLType, gtkDef,
DynHashArray, LazLinkedList, GraphType, GraphMath, gtkInt,
{$Ifndef NoGdkImlib}gdk_imlib,{$EndIf}
libgnome, libart, libgnomeui;
type
@ -278,6 +278,9 @@ end.
{
$Log$
Revision 1.27 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.26 2004/07/15 10:43:38 mattias
added TCustomButton, TCustomBitBtn, TCustomSpeedButton

6
lcl/interfaces/gtk/gtkdef.pp
View File

@ -37,8 +37,7 @@ uses
{$ELSE}
glib, gdk, gtk, {$Ifndef NoGdkPixbufLib}gdkpixbuf,{$EndIf}
{$ENDIF}
Classes, LCLIntf, LCLProc, LCLType, VclGlobals, LCLMemManager, DynHashArray,
GraphType;
Classes, LCLIntf, LCLProc, LCLType, LCLMemManager, DynHashArray, GraphType;
type
TGDIType = (gdiBitmap, gdiBrush, gdiFont, gdiPen, gdiRegion, gdiPalette);
@ -575,6 +574,9 @@ end.
{ =============================================================================
$Log$
Revision 1.63 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.62 2004/08/10 17:34:13 mattias
implemented font cache for gtk, which accelerates switching fonts

3
lcl/interfaces/gtk/gtkglobals.pp
View File

@ -25,8 +25,7 @@ uses
{$ELSE}
glib, gdk, gtk,
{$ENDIF}
LMessages, Controls, Forms,
VclGlobals, LCLIntf, LCLType, GTKDef, DynHashArray;
LMessages, Controls, Forms, LCLIntf, LCLType, GTKDef, DynHashArray;
{$I dragicons.inc}

5
lcl/interfaces/gtk/gtkint.pp
View File

@ -76,7 +76,7 @@ uses
{$ENDIF}
// LCL
ExtDlgs, Dialogs, Controls, Forms, LCLStrConsts, LMessages,
VclGlobals, LCLProc, LCLIntf, LCLType, gtkDef, DynHashArray, gtkMsgQueue,
LCLProc, LCLIntf, LCLType, gtkDef, DynHashArray, gtkMsgQueue,
GraphType, GraphMath, Graphics, Menus;
@ -459,6 +459,9 @@ end.
{ =============================================================================
$Log$
Revision 1.185 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.184 2004/08/10 17:34:13 mattias
implemented font cache for gtk, which accelerates switching fonts

2
lcl/interfaces/gtk/gtkproc.pp
View File

@ -45,7 +45,7 @@ uses
{$ELSE}
glib, gdk, gtk, {$Ifndef NoGdkPixbufLib}gdkpixbuf,{$EndIf}
{$ENDIF}
LMessages, VclGlobals, LCLProc, LCLStrConsts, LCLIntf, LCLType, DynHashArray,
LMessages, LCLProc, LCLStrConsts, LCLIntf, LCLType, DynHashArray,
GraphType, GraphMath, Graphics, GTKWinApiWindow, LResources, Controls, Forms,
Buttons, Menus, StdCtrls, ComCtrls, CommCtrl, ExtCtrls, Dialogs, ExtDlgs,
FileCtrl, ImgList, GTKGlobals, gtkDef;

13
lcl/interfaces/gtk2/gtk2int.pas
View File

@ -40,12 +40,10 @@ uses
gdk2pixbuf, gtk2, gdk2, glib2, Pango,
LMessages, Controls, Forms, VclGlobals, LCLProc,
LCLStrConsts, LCLIntf, LCLType, DynHashArray, LazLinkedList,
GraphType, GraphMath, Graphics, Buttons, Menus, GTKWinApiWindow, StdCtrls,
ComCtrls, CListBox, Calendar, Arrow, Spin, CommCtrl, ExtCtrls,
Dialogs, ExtDlgs, FileCtrl, LResources, Math, GTKGlobals,
LMessages, Controls, Forms, LCLProc, LCLStrConsts, LCLIntf, LCLType,
DynHashArray, LazLinkedList, GraphType, GraphMath, Graphics, Buttons, Menus,
GTKWinApiWindow, StdCtrls, ComCtrls, CListBox, Calendar, Arrow, Spin,
CommCtrl, ExtCtrls, Dialogs, ExtDlgs, FileCtrl, LResources, Math, GTKGlobals,
gtkDef, gtkInt;
type
@ -596,6 +594,9 @@ end.
{
$Log$
Revision 1.33 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.32 2004/03/17 19:59:56 marc
* Fixes some typos and changes uses clause cases

5
lcl/interfaces/qt/qtint.pp
View File

@ -33,9 +33,8 @@ interface
{$endif}
uses
InterfaceBase, sysutils, lmessages, Classes, Controls,
extctrls, forms,dialogs, VclGlobals,stdctrls, comctrls,
LCLIntf, qt;
InterfaceBase, sysutils, LCLType, LMessages, Classes, Controls,
ExtCtrls, Forms, Dialogs, StdCtrls, Comctrls, LCLIntf, qt;

5
lcl/interfaces/win32/win32def.pp
View File

@ -30,7 +30,7 @@ Unit Win32Def;
Interface
Uses
Windows, VCLGlobals, Classes, LCLType;
Windows, Classes, LCLType;
Const
// Used by TCalendar
@ -140,6 +140,9 @@ End.
{ =============================================================================
$Log$
Revision 1.11 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.10 2003/12/29 14:22:22 micha
fix a lot of range check errors win32

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

@ -38,7 +38,7 @@ Interface
Uses
Windows, Classes, ComCtrls, Controls, Buttons, Dialogs, DynHashArray,
ExtCtrls, Forms, GraphMath, GraphType, InterfaceBase, LCLIntf, LCLType,
LMessages, StdCtrls, SysUtils, VCLGlobals, Win32Def, Graphics, Menus;
LMessages, StdCtrls, SysUtils, Win32Def, Graphics, Menus;
const
@ -285,6 +285,9 @@ End.
{ =============================================================================
$Log$
Revision 1.92 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.91 2004/07/15 10:43:39 mattias
added TCustomButton, TCustomBitBtn, TCustomSpeedButton

7
lcl/lclintf.pas
View File

@ -41,8 +41,8 @@ unit LCLIntf;
interface
uses
Math, Classes, SysUtils, LCLType, LCLProc, VCLGlobals, GraphType,
InterfaceBase, LResources;
Math, Classes, SysUtils, LCLType, LCLProc, GraphType, InterfaceBase,
LResources;
{$ifdef Trace}
{$ASSERTIONS ON}
@ -182,6 +182,9 @@ end.
{
$Log$
Revision 1.16 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.15 2004/05/02 12:01:15 mattias
removed unneeded units in uses sections

229
lcl/lcltype.pp
View File

@ -49,11 +49,9 @@ uses
{$ifdef win32}
windows,
{$endif win32}
VCLGlobals, Classes;
Classes, SysUtils;
type
//TODO: check this against vclglobals
PRect = ^TRect;
UINT = LongWord;
PPoint = ^TPoint;
@ -1968,6 +1966,89 @@ const
);
const
csNone = 0;
csAlignment = 1;
// csBox = 2;
csButton = 3;
csComboBox = 4;
csCheckbox = 5;
csEdit = 6;
csForm= 7;
csLabel = 8;
// csgtkTable = 9;
csScrollBar = 10;
csListView = 11;
// csMainForm = 12;
csMemo = 13;
csMainMenu = 14;
csMenuBar = 15;
csMenuItem = 16;
csNotebook = 17;
csFileDialog = 18;
csRadioButton = 19;
csScrolledWindow= 20;
csSpinedit = 21;
csStatusBar = 22;
// csTable = 23;
csToggleBox = 24;
//csVScrollBar = 25;
// csFrame = 26;
// csButtonBox = 27;
// csCanvas = 28;
csGroupBox = 29;
// csFont = 30;
// csPen = 31;
// csBrush = 32;
//csTimer = 33;
csPage = 34;
csColorDialog = 35;
csListBox = 36;
csFontDialog = 37;
csProgressBar = 38;
csTrackBar = 39;
csWinControl = 40;
csFixed = csWinControl; //TODO remove
csImage = 41;
csToolbar = 42;
csToolButton = 43;
csBitBtn = 44;
csCListBox = 45;
csSpeedButton = 46;
csPopupMenu = 47;
csHintWindow = 48;
csCalendar = 49;
csArrow = 50;
csPanel = 51;
csScrollBox = 52;
csCheckListBox = 53;
csPairSplitter = 54;
csPairSplitterSide = 55;
csOpenFileDialog = 56;
csSaveFileDialog = 57;
csSelectDirectoryDialog = 58;
csPreviewFileControl = 59;
csPreviewFileDialog = 60;
csNonLCL = 61; // for non LCL controls, that create their own handles
const
// Mouse message key states
MK_LBUTTON = 1;
MK_RBUTTON = 2;
MK_SHIFT = 4;
MK_CONTROL = 8;
MK_MBUTTON = $10;
Function CS_To_String(CompStyle: Integer): String;
// key mapping
type
@ -2008,11 +2089,153 @@ begin
Result:=(int64(nNumber)*int64(nNumerator)) div nDenominator;
end;
{------------------------------------------------------------------------------
Function: CS_To_String
Params: CompStyle - Component Style
Returns: The component style name
Converts a component style identIfier into the correct component style name
------------------------------------------------------------------------------}
Function CS_To_String(CompStyle: Integer): String;
Begin
Case CompStyle of
csNone:
Result := 'csNone';
csAlignment:
Result := 'csAlignment';
// csBox:
// Result := 'csBox';
csButton:
Result := 'csButton';
csComboBox:
Result := 'csComboBox';
csCheckbox:
Result := 'csCheckbox';
csEdit:
Result := 'csEdit';
csForm:
Result := 'csForm';
csLabel:
Result := 'csLabel';
// csGTKTable:
// Result := 'csGTKTable';
csScrollBar:
Result := 'csScrollBar';
csListView:
Result := 'csListView';
// csMainForm:
// Result := 'csMainForm';
csMemo:
Result := 'csMemo';
csMainMenu:
Result := 'csMainMenu';
csMenuBar:
Result := 'csMenuBar';
csMenuItem:
Result := 'csMenuItem';
csNotebook:
Result := 'csNotebook';
csFileDialog:
Result := 'csFileDialog';
csOpenFileDialog:
Result := 'csOpenFileDialog';
csSaveFileDialog:
Result := 'csSaveFileDialog';
csSelectDirectoryDialog:
Result := 'csSelectDirectoryDialog';
csRadioButton:
Result := 'csRadioButton';
csScrolledWinDow:
Result := 'csScrolledWinDow';
csSpinEdit:
Result := 'csSpinEdit';
csStatusBar:
Result := 'csStatusBar';
// csTable:
// Result := 'csTable';
csToggleBox:
Result := 'csToggleBox';
// 25: //csVScrollBar
// Result := 'csVScrollBar';
// csFrame:
// Result := 'csFrame';
// csButtonBox:
// Result := 'csButtonBox';
// csCanvas:
// Result := 'csCanvas';
csGroupBox:
Result := 'csGroupBox';
// csFont:
// Result := 'csFont';
// csPen:
// Result := 'csPen';
// csBrush:
// Result := 'csBrush';
// 33: //csTimer
// Result := 'csTimer';
csPage:
Result := 'csPage';
csColorDialog:
Result := 'csColorDialog';
csListBox:
Result := 'csListBox';
csFontDialog:
Result := 'csFontDialog';
csProgressBar:
Result := 'csProgressBar';
csTrackBar:
Result := 'csTrackBar';
csFixed:
Result := 'csFixed';
csImage:
Result := 'csImage';
csToolbar:
Result := 'csToolbar';
csToolButton:
Result := 'csToolButton';
csBitBtn:
Result := 'csBitBtn';
csCListBox:
Result := 'csCListBox';
csSpeedButton:
Result := 'csSpeedButton';
csPopupMenu:
Result := 'csPopupMenu';
csHintWinDow:
Result := 'csHintWinDow';
csCalendar:
Result := 'csCalendar';
csArrow:
Result := 'csArrow';
csPanel:
Result := 'csPanel';
csScrollBox:
Result := 'csScrollBox';
csCheckListBox:
Result := 'csCheckListBox';
csPairSplitter:
Result := 'csPairSplitter';
csPairSplitterSide:
Result := 'csPairSplitterSide';
csPreviewFileControl:
Result := 'csPreviewFileControl';
csPreviewFileDialog:
Result := 'csPreviewFileDialog';
csNonLCL:
Result := 'csNonLCL';
Else
Result := Format('Unknown component style %D', [CompStyle]);
End; {Case}
End;
end.
{
$Log$
Revision 1.63 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.62 2004/06/30 17:14:11 micha
let synedit use scrollwindowex, if that does not work, use invalidate

5
lcl/lmessages.pp
View File

@ -29,7 +29,7 @@ unit LMessages;
interface
uses Classes, SysUtils, vclGlobals, LCLType, GraphType
uses Classes, SysUtils, LCLType, GraphType
{$ifdef win32}
{$ifndef ver1_0}
,messages
@ -1080,6 +1080,9 @@ end.
{
$Log$
Revision 1.69 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.68 2004/08/11 20:57:09 mattias
moved intfstrconsts.pp to lclstrconsts.pas, implemented TPenHandleCache

8
lcl/menus.pp
View File

@ -45,9 +45,8 @@ interface
{$endif}
uses
Classes, SysUtils, LCLStrConsts, LCLType, LCLProc, VCLGlobals,
LCLIntf, InterfaceBase, LMessages, ActnList, Graphics, ImgList,
LCLClasses;
Classes, SysUtils, LCLStrConsts, LCLType, LCLProc, LCLIntf, InterfaceBase,
LMessages, ActnList, Graphics, ImgList, LCLClasses;
type
@ -411,6 +410,9 @@ end.
{
$Log$
Revision 1.70 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.69 2004/08/13 10:20:19 mattias
fixed codetools ConstSet, implemented notifying TApplication whenmenu popups

2
lcl/nonwin32/messages.pp
View File

@ -28,7 +28,7 @@ unit Messages;
interface
uses
Classes, VCLGlobals, LMessages;
Classes, LCLType, LMessages;
const
WM_DROPFILES = LM_DROPFILES;

4
lcl/pairsplitter.pas
View File

@ -35,8 +35,8 @@ unit PairSplitter;
interface
uses
Classes, SysUtils, LCLProc, LMessages, VCLGlobals, Graphics, GraphType,
LCLIntf, Controls;
Classes, SysUtils, LCLType, LCLProc, LMessages, Graphics, GraphType, LCLIntf,
Controls;
type
TCustomPairSplitter = class;

2
lcl/spin.pp
View File

@ -30,7 +30,7 @@ unit Spin;
interface
uses
Classes, Controls, SysUtils, VCLGlobals, LMessages, ClipBrd, StdCtrls;
Classes, Controls, SysUtils, LCLType, LMessages, ClipBrd, StdCtrls;
type
{ TCustomSpinEdit }

9
lcl/stdctrls.pp
View File

@ -30,9 +30,9 @@ interface
uses
VCLGlobals, Classes, SysUtils, LCLStrConsts, LCLType, LCLProc,
LMessages, Graphics, GraphType, ExtendedStrings, LCLIntf,
ClipBrd, ActnList, GraphMath, Controls, Forms;
Classes, SysUtils, LCLStrConsts, LCLType, LCLProc, LMessages, Graphics,
GraphType, GraphMath, ExtendedStrings, LCLIntf, ClipBrd, ActnList, Controls,
Forms;
type
@ -1172,6 +1172,9 @@ end.
{ =============================================================================
$Log$
Revision 1.161 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.160 2004/08/17 19:01:36 mattias
gtk intf now ignores size notifications of unrealized widgets

5
lcl/templates/template.pp
View File

@ -40,7 +40,7 @@ interface
uses
//glib, gdk, gtk,
Classes, Controls, SysUtils, stdCtrls, vclGlobals, lMessages;
Classes, Controls, SysUtils, LCLType, StdCtrls, lMessages;
type
@ -80,6 +80,9 @@ end.
{
$Log$
Revision 1.2 2004/08/18 09:31:21 mattias
removed obsolete unit vclglobals
Revision 1.1 2000/07/13 10:28:31 michael
+ Initial import

3
lcl/toolwin.pp
View File

@ -41,8 +41,7 @@ interface
{$endif}
uses
Classes, Controls, SysUtils, stdCtrls, GraphType, Graphics, vclGlobals,
LCLType, LCLIntf;
Classes, Controls, SysUtils, GraphType, Graphics, LCLType, LCLIntf, StdCtrls;
type

270
lcl/vclglobals.pp
View File

@ -1,270 +0,0 @@
{/***************************************************************************
vclglobals.pp
-------------
begin : Tue Apr 6 1999
***************************************************************************/
*****************************************************************************
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.LCL, included in this distribution, *
* for details about the copyright. *
* *
* 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. *
* *
*****************************************************************************
This unit will be removed in future. The types will be moved and/or vanish.
}
unit VCLGlobals;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
const
//(*
// Part of LCLType
{These should be moved to the correct area eventually}
WS_EX_CLIENTEDGE = $200;
WS_HSCroll = $100000;
WS_VSCroll = $200000;
WS_BORDER = $800000;
WS_CLIPCHILDREN = $2000000;
{}
//*)
csNone = 0;
csAlignment = 1;
// csBox = 2;
csButton = 3;
csComboBox = 4;
csCheckbox = 5;
csEdit = 6;
csForm= 7;
csLabel = 8;
// csgtkTable = 9;
csScrollBar = 10;
csListView = 11;
// csMainForm = 12;
csMemo = 13;
csMainMenu = 14;
csMenuBar = 15;
csMenuItem = 16;
csNotebook = 17;
csFileDialog = 18;
csRadioButton = 19;
csScrolledWindow= 20;
csSpinedit = 21;
csStatusBar = 22;
// csTable = 23;
csToggleBox = 24;
//csVScrollBar = 25;
// csFrame = 26;
// csButtonBox = 27;
// csCanvas = 28;
csGroupBox = 29;
// csFont = 30;
// csPen = 31;
// csBrush = 32;
//csTimer = 33;
csPage = 34;
csColorDialog = 35;
csListBox = 36;
csFontDialog = 37;
csProgressBar = 38;
csTrackBar = 39;
csWinControl = 40;
csFixed = csWinControl; //TODO remove
csImage = 41;
csToolbar = 42;
csToolButton = 43;
csBitBtn = 44;
csCListBox = 45;
csSpeedButton = 46;
csPopupMenu = 47;
csHintWindow = 48;
csCalendar = 49;
csArrow = 50;
csPanel = 51;
csScrollBox = 52;
csCheckListBox = 53;
csPairSplitter = 54;
csPairSplitterSide = 55;
csOpenFileDialog = 56;
csSaveFileDialog = 57;
csSelectDirectoryDialog = 58;
csPreviewFileControl = 59;
csPreviewFileDialog = 60;
csNonLCL = 61; // for non LCL controls, that create their own handles
const
{Mouse message key states}
MK_LBUTTON = 1;
MK_RBUTTON = 2;
MK_SHIFT = 4;
MK_CONTROL = 8;
MK_MBUTTON = $10;
Function CS_To_String(CompStyle: Integer): String;
implementation
{------------------------------------------------------------------------------
Function: CS_To_String
Params: CompStyle - Component Style
Returns: The component style name
Converts a component style identIfier into the correct component style name
------------------------------------------------------------------------------}
Function CS_To_String(CompStyle: Integer): String;
Begin
Case CompStyle of
csNone:
Result := 'csNone';
csAlignment:
Result := 'csAlignment';
// csBox:
// Result := 'csBox';
csButton:
Result := 'csButton';
csComboBox:
Result := 'csComboBox';
csCheckbox:
Result := 'csCheckbox';
csEdit:
Result := 'csEdit';
csForm:
Result := 'csForm';
csLabel:
Result := 'csLabel';
// csGTKTable:
// Result := 'csGTKTable';
csScrollBar:
Result := 'csScrollBar';
csListView:
Result := 'csListView';
// csMainForm:
// Result := 'csMainForm';
csMemo:
Result := 'csMemo';
csMainMenu:
Result := 'csMainMenu';
csMenuBar:
Result := 'csMenuBar';
csMenuItem:
Result := 'csMenuItem';
csNotebook:
Result := 'csNotebook';
csFileDialog:
Result := 'csFileDialog';
csOpenFileDialog:
Result := 'csOpenFileDialog';
csSaveFileDialog:
Result := 'csSaveFileDialog';
csSelectDirectoryDialog:
Result := 'csSelectDirectoryDialog';
csRadioButton:
Result := 'csRadioButton';
csScrolledWinDow:
Result := 'csScrolledWinDow';
csSpinEdit:
Result := 'csSpinEdit';
csStatusBar:
Result := 'csStatusBar';
// csTable:
// Result := 'csTable';
csToggleBox:
Result := 'csToggleBox';
// 25: //csVScrollBar
// Result := 'csVScrollBar';
// csFrame:
// Result := 'csFrame';
// csButtonBox:
// Result := 'csButtonBox';
// csCanvas:
// Result := 'csCanvas';
csGroupBox:
Result := 'csGroupBox';
// csFont:
// Result := 'csFont';
// csPen:
// Result := 'csPen';
// csBrush:
// Result := 'csBrush';
// 33: //csTimer
// Result := 'csTimer';
csPage:
Result := 'csPage';
csColorDialog:
Result := 'csColorDialog';
csListBox:
Result := 'csListBox';
csFontDialog:
Result := 'csFontDialog';
csProgressBar:
Result := 'csProgressBar';
csTrackBar:
Result := 'csTrackBar';
csFixed:
Result := 'csFixed';
csImage:
Result := 'csImage';
csToolbar:
Result := 'csToolbar';
csToolButton:
Result := 'csToolButton';
csBitBtn:
Result := 'csBitBtn';
csCListBox:
Result := 'csCListBox';
csSpeedButton:
Result := 'csSpeedButton';
csPopupMenu:
Result := 'csPopupMenu';
csHintWinDow:
Result := 'csHintWinDow';
csCalendar:
Result := 'csCalendar';
csArrow:
Result := 'csArrow';
csPanel:
Result := 'csPanel';
csScrollBox:
Result := 'csScrollBox';
csCheckListBox:
Result := 'csCheckListBox';
csPairSplitter:
Result := 'csPairSplitter';
csPairSplitterSide:
Result := 'csPairSplitterSide';
csPreviewFileControl:
Result := 'csPreviewFileControl';
csPreviewFileDialog:
Result := 'csPreviewFileDialog';
csNonLCL:
Result := 'csNonLCL';
Else
Result := Format('Unknown component style %D', [CompStyle]);
End; {Case}
End;
end.