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

MG: added TDevContextColorType

Browse Source 
git-svn-id: trunk@2374 -
This commit is contained in:
lazarus 2002-08-17 23:41:18 +00:00
parent c167c2a416
commit ed7dea699c
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -124,7 +124,15 @@ type
dcfPenInvalid // pen is not a valid GDIObject
);
TDeviceContextsFlags = set of TDeviceContextsFlag;
TDevContextsColorType = (
dccNone,
dccCurrentBackColor,
dccCurrentTextColor,
dccGDIBrushColor,
dccGDIPenColor
);
TDeviceContext = class
public
hWnd: HWND;
@ -392,6 +400,9 @@ end.
{ =============================================================================
$Log$
Revision 1.23 2002/10/08 13:42:23 lazarus
MG: added TDevContextColorType
Revision 1.22 2002/10/08 10:08:46 lazarus
MG: accelerated GDIColor allocating