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

win32: cleanup

Browse Source 
git-svn-id: trunk@17165 -
This commit is contained in:
paul 2008-10-31 09:59:48 +00:00
parent 7a1d79446f
commit a30bd377b0
1 changed files with 7 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -23,16 +23,16 @@
***************************************************************************** *****************************************************************************
} }
Unit Win32Def; unit Win32Def;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
Interface interface
Uses uses
Windows, Classes, LCLType; Windows, Classes, LCLType;
Const const
// Used by TCalendar // Used by TCalendar
MCM_FIRST = $1000; MCM_FIRST = $1000;
MCM_GETCURSEL = MCM_FIRST + 1; MCM_GETCURSEL = MCM_FIRST + 1;
@ -43,85 +43,6 @@ Const
WM_LCL_SOCK_ASYNC = WM_USER + $500; WM_LCL_SOCK_ASYNC = WM_USER + $500;
type type
TGDIType = (gdiBitmap, gdiBrush, gdiFont, gdiPen, gdiRegion);
TGDIBitmapType = (gbBitmap, gbPixmap, gbImage);
PGDIRGB = ^TGDIRGB;
TGDIRGB = Record
Red,
Green,
Blue: Byte;
End;
PGDIRawImage = ^TGDIRawImage;
TGDIRawImage = Record
Height,
Width: Integer;
Depth: Byte;
Data: Array[0..0] Of TGDIRGB;
End;
PGDIObject = ^TGDIObject;
TGDIObject = Record
Case GDIType: TGDIType Of
gdiBitmap:
(
GDIBitmapMaskObject: HICON;
Case GDIBitmapType: TGDIBitmapType Of
gbBitmap: (GDIBitmapObject: HBITMAP);
gbPixmap: (GDIPixmapObject: HICON);
gbImage : (GDIRawImageObject: PGDIRawImage);
);
gdiBrush:
(
GDIBrushColor: COLORREF;
GDIBrushFill: COLORREF;
GDIBrushPixMap: HICON;
);
gdiFont:
(
GDIFontObject: HFONT;
LogFont: TLogFont;
);
gdiPen:
(
GDIPenColor: COLORREF;
GDIPenWidth: Integer;
GDIPenStyle: Word;
);
gdiRegion:
(
);
End;
// move to class ??
PDeviceContext = ^TDeviceContext;
{ Stored record of Device contexts and related GDI information }
TDeviceContext = Record
hWnd: HWND;
GC: HDC;
Drawable: PHANDLE;
PenPos: TPoint;
CurrentBitmap: PGdiObject;
CurrentFont: PGdiObject;
CurrentPen: PGdiObject;
CurrentBrush: PGdiObject;
CurrentTextColor: COLORREF;
CurrentBackColor: COLORREF;
SavedContext: PDeviceContext; // linked list of saved DCs
End;
PWinControlInfo = ^TWinControlInfo;
{ Info needed by the API of a HWND }
TWinControlInfo = Record
ImplementationControl: HWND; // used to be "fixed" or "core-child"
UpdateRect: TRect; // used by LM_Paint, beginpaint etc
WndProc: Integer; // window data
Style: Integer;
ExStyle: Integer;
UserData: Integer;
End;
{ lazarus win32 Interface definition for additional timer data needed to find the callback} { lazarus win32 Interface definition for additional timer data needed to find the callback}
PWin32TimerInfo = ^TWin32Timerinfo; PWin32TimerInfo = ^TWin32Timerinfo;
TWin32TimerInfo = record TWin32TimerInfo = record
@ -133,6 +54,6 @@ var
// FTimerData contains the currently running timers // FTimerData contains the currently running timers
FTimerData : TList; // list of PWin32Timerinfo FTimerData : TList; // list of PWin32Timerinfo
Implementation implementation
End. end.