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

Moved the minimum necessary types and constants from commctrl to lcltype to allow compilation of gtk, gtk2, carbon and qt.

Browse Source 
git-svn-id: trunk@12321 -
This commit is contained in:
sekelsenmat 2007-10-04 19:39:15 +00:00
parent 74948a0ce6
commit ea7c9a28a9
8 changed files with 135 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/comctrls.pp
View File

@ -40,7 +40,7 @@ interface
uses
SysUtils, Types, Classes, Math, LCLStrConsts, LResources, LCLIntf, LCLType,
LCLProc, AvgLvlTree, LMessages, ImgList, ActnList, GraphType, Graphics, Menus,
Controls, Forms, StdCtrls, ExtCtrls, ToolWin, CommCtrl, Buttons, Themes;
Controls, Forms, StdCtrls, ExtCtrls, ToolWin, Buttons, Themes;
type
THitTest = (htAbove, htBelow, htNowhere, htOnItem, htOnButton, htOnIcon,

2
lcl/interfaces/carbon/carbonint.pas
View File

@ -165,7 +165,7 @@ uses
CarbonProc, CarbonDbgConsts, CarbonUtils,
Buttons, StdCtrls, PairSplitter, ComCtrls, CListBox, Calendar, Arrow,
Spin, CommCtrl, ExtCtrls, FileCtrl, LResources;
Spin, ExtCtrls, FileCtrl, LResources;
// the implementation of the utility methods
{$I carbonobject.inc}

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

@ -362,7 +362,7 @@ uses
GtkThemes,
////////////////////////////////////////////////////
Buttons, StdCtrls, PairSplitter,
GTKWinApiWindow, ComCtrls, CListBox, Calendar, Arrow, Spin, CommCtrl,
GTKWinApiWindow, ComCtrls, CListBox, Calendar, Arrow, Spin,
ExtCtrls, FileCtrl, LResources, gtkglobals;
{$I gtklistsl.inc}

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

@ -55,7 +55,7 @@ uses
Math, // Math after gtk to get the correct Float type
LMessages, LCLProc, LCLStrConsts, LCLIntf, LCLType, DynHashArray, Maps, Masks,
GraphType, GraphMath, Graphics, GTKWinApiWindow, LResources, Controls, Forms,
Buttons, Menus, StdCtrls, ComCtrls, CommCtrl, ExtCtrls, Dialogs, ExtDlgs,
Buttons, Menus, StdCtrls, ComCtrls, ExtCtrls, Dialogs, ExtDlgs,
FileUtil, ImgList, GtkFontCache, GTKGlobals, gtkDef, GtkExtra, GtkDebug;

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

@ -34,7 +34,7 @@ uses
GLib, Gtk, Gdk,
{$ENDIF}
// LCL
ComCtrls, Classes, FPCAdds, LCLType, LMessages, Controls, Graphics, CommCtrl,
ComCtrls, Classes, FPCAdds, LCLType, LMessages, Controls, Graphics,
StdCtrls, LCLProc, ImgList, Math,
// widgetset
WSComCtrls, WSLCLClasses, WSProc, WSControls,

2
lcl/interfaces/gtk2/gtk2wscomctrls.pp
View File

@ -30,7 +30,7 @@ uses
// libs
GLib2, Gtk2, Gdk2, Gdk2pixbuf,
// LCL
ComCtrls, Classes, FPCAdds, LCLType, LMessages, Controls, Graphics, CommCtrl,
ComCtrls, Classes, FPCAdds, LCLType, LMessages, Controls, Graphics,
StdCtrls, LCLProc, ImgList, Math, Sysutils,
// widgetset
WSComCtrls, WSLCLClasses, WSProc,

2
lcl/interfaces/qt/qtwidgets.pas
View File

@ -36,7 +36,7 @@ uses
// Free Pascal
Classes, SysUtils, Types,
// LCL
LCLType, LCLProc, LCLIntf, LMessages, Buttons, Forms, Controls, ComCtrls, CommCtrl,
LCLType, LCLProc, LCLIntf, LMessages, Buttons, Forms, Controls, ComCtrls,
ExtCtrls, StdCtrls, Menus, Dialogs;
type

128
lcl/lcltype.pp
View File

@ -2428,6 +2428,134 @@ const
MK_XBUTTON1 = $20;
MK_XBUTTON2 = $40;
//==============================================
// Constants from commctrl
//==============================================
//-------------
// Common
//-------------
const
//all controls
NM_FIRST = 0;
NM_OUTOFMEMORY = NM_FIRST - 1;
NM_CLICK = NM_FIRST - 2;
NM_DBLCLK = NM_FIRST - 3;
NM_RETURN = NM_FIRST - 4;
NM_RCLICK = NM_FIRST - 5;
NM_RDBLCLK = NM_FIRST - 6;
NM_SETFOCUS = NM_FIRST - 7;
NM_KILLFOCUS = NM_FIRST - 8;
NM_CUSTOMDRAW = NM_FIRST - 12;
NM_HOVER = NM_FIRST - 13;
NM_NCHITTEST = NM_FIRST - 14;
NM_KEYDOWN = NM_FIRST - 15;
NM_RELEASEDCAPTURE = NM_FIRST - 16;
NM_SETCURSOR = NM_FIRST - 17;
NM_CHAR = NM_FIRST - 18;
NM_LAST = NM_FIRST - 99;
//listview
LVN_FIRST = -100;
LVN_LAST = -199;
//header
HDN_FIRST = -300;
HDN_LAST = -399;
//treeview
TVN_FIRST = -400;
TVN_LAST = -499;
//tooltips
TTN_FIRST = -520;
TTN_LAST = -549;
//tab control
TCN_FIRST = -550;
TCN_LAST = -580;
// toolbar
TBN_First = -700;
TBN_Last = -720;
const
CCS_TOP = $00000001;
CCS_NOMOVEY = $00000002;
CCS_BOTTOM = $00000003;
CCS_NORESIZE = $00000004;
CCS_NOPARENTALIGN = $00000008;
CCS_ADJUSTABLE = $00000020;
CCS_NODIVIDER = $00000040;
CCS_VERT = $00000080;
CCS_LEFT = (CCS_VERT or CCS_TOP);
CCS_RIGHT = (CCS_VERT or CCS_BOTTOM);
CCS_NOMOVEX = (CCS_VERT or CCS_NOMOVEY);
ICC_LISTVIEW_CLASSES = $00000001;
ICC_TREEVIEW_CLASSES = $00000002;
ICC_BAR_CLASSES = $00000004;
ICC_TAB_CLASSES = $00000008;
ICC_UPDOWN_CLASS = $00000010;
ICC_PROGRESS_CLASS = $00000020;
ICC_HOTKEY_CLASS = $00000040;
ICC_ANIMATE_CLASS = $00000080;
ICC_WIN95_CLASSES = $000000FF;
ICC_DATE_CLASSES = $00000100;
ICC_USEREX_CLASSES = $00000200;
ICC_COOL_CLASSES = $00000400;
ICC_INTERNET_CLASSES = $00000800;
ICC_PAGESCROLLER_CLASS = $00001000;
ICC_NATIVEFNTCTL_CLASS = $00002000;
//-------------
// Listview
//-------------
const
LVN_ITEMCHANGING = LVN_FIRST-0;
LVN_ITEMCHANGED = LVN_FIRST-1;
LVN_INSERTITEM = LVN_FIRST-2;
LVN_DELETEITEM = LVN_FIRST-3;
LVN_DELETEALLITEMS = LVN_FIRST-4;
LVN_COLUMNCLICK = LVN_FIRST-8;
LVN_BEGINDRAG = LVN_FIRST-9;
LVN_BEGINRDRAG = LVN_FIRST-11;
const
LVIF_TEXT = $0001;
LVIF_IMAGE = $0002;
LVIF_PARAM = $0004;
LVIF_STATE = $0008;
LVIF_INDENT = $0010;
LVIF_NORECOMPUTE = $0800;
LVIS_FOCUSED = $0001;
LVIS_SELECTED = $0002;
LVIS_CUT = $0004;
LVIS_DROPHILITED = $0008;
LVIS_ACTIVATING = $0020;
LVIS_OVERLAYMASK = $0F00;
LVIS_STATEIMAGEMASK = $F000;
type
PNMListView = ^TNMListView;
TNMListView = packed record
hdr: TNMHDR;
iItem: Integer;
iSubItem: Integer;
uNewState: UINT;
uOldState: UINT;
uChanged: UINT;
ptAction: TPoint;
lParam: LPARAM;
end;
_NM_LISTVIEW = TNMListView;
NM_LISTVIEW = TNMListView;
tagNMLISTVIEW = TNMListView;
Function CS_To_String(CompStyle: Integer): String;
// key mapping