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

bunch of compatibility fixes with fpc 2.2 rtl if win32extra will be cleaned

Browse Source 
git-svn-id: trunk@14098 -
This commit is contained in:
paul 2008-02-12 05:40:57 +00:00
parent 84ee51a2cd
commit 4e33251c35
6 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/win32/win32extra.pas
View File

@ -68,7 +68,7 @@ type
tagIMAGELISTDRAWPARAMS = record
cbSize: DWORD;
himlL: HIMAGELIST;
himl: HIMAGELIST;
i: integer;
hdcDst: HDC;
x: integer;
@ -312,15 +312,6 @@ SWP_DEFERERASE = $2000;
SWP_ASYNCWINDOWPOS = $4000;
SWP_STATECHANGED = $8000; // used by windows but not documented (used even in wine)
{not used anymore
// missing listview macros
function ListView_GetHeader(hwndLV: HWND): HWND;
function ListView_GetExtendedListViewStyle(hwndLV: HWND): DWORD;
function ListView_SetExtendedListViewStyle(hwndLV: HWND; dw: DWORD): BOOL;
function ListView_GetHoverTime(hwndLV: HWND): DWORD;
function ListView_SetHoverTime(hwndLV: HWND; dwHoverTimeMs: DWORD): DWORD;
}
// missing imagelist macros and constants
const

8
lcl/interfaces/win32/win32lclintf.inc
View File

@ -355,10 +355,10 @@ var
Pixel: PRGBAQuad;
begin
case StockID of
idDialogWarning: IconHandle := LoadImage(0, OIC_WARNING, IMAGE_ICON, 0, 0, LR_DEFAULTSIZE or LR_SHARED);
idDialogError : IconHandle := LoadImage(0, OIC_ERROR, IMAGE_ICON, 0, 0, LR_DEFAULTSIZE or LR_SHARED);
idDialogInfo : IconHandle := LoadImage(0, OIC_INFORMATION, IMAGE_ICON, 0, 0, LR_DEFAULTSIZE or LR_SHARED);
idDialogConfirm: IconHandle := LoadImage(0, OIC_QUES, IMAGE_ICON, 0, 0, LR_DEFAULTSIZE or LR_SHARED);
idDialogWarning: IconHandle := LoadImage(0, IDI_WARNING, IMAGE_ICON, 0, 0, LR_DEFAULTSIZE or LR_SHARED);
idDialogError : IconHandle := LoadImage(0, IDI_ERROR, IMAGE_ICON, 0, 0, LR_DEFAULTSIZE or LR_SHARED);
idDialogInfo : IconHandle := LoadImage(0, IDI_INFORMATION, IMAGE_ICON, 0, 0, LR_DEFAULTSIZE or LR_SHARED);
idDialogConfirm: IconHandle := LoadImage(0, IDI_QUESTION, IMAGE_ICON, 0, 0, LR_DEFAULTSIZE or LR_SHARED);
else
IconHandle := 0;
end;

2
lcl/interfaces/win32/win32wscomctrls.pp
View File

@ -28,7 +28,7 @@ interface
uses
// FCL
Windows, Classes, SysUtils, Win32Extra,
CommCtrl, Windows, Classes, SysUtils, Win32Extra,
// LCL
ComCtrls, LCLType, Controls, Graphics,
ImgList, StdCtrls,

10
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -33,9 +33,12 @@ uses
// To get as little as posible circles,
// uncomment only when needed for registration
////////////////////////////////////////////////////
LCLProc, LCLType, Dialogs, Controls, Graphics, SysUtils, Classes, Forms,
////////////////////////////////////////////////////
WSDialogs, WSLCLClasses, Windows, Win32Extra, Win32Int, InterfaceBase,
// rtl
Windows, ShellApi, ActiveX, SysUtils, Classes,
// lcl
LCLProc, LCLType, Dialogs, Controls, Graphics, Forms,
// ws
WSDialogs, WSLCLClasses, Win32Extra, Win32Int, InterfaceBase,
Win32Proc;
type
@ -808,6 +811,7 @@ begin
end;
Result := 0;
end;
class function TWin32WSSelectDirectoryDialog.CreateHandle(const ACommonDialog: TCommonDialog): THandle;
var
bi : TBrowseInfo;

8
lcl/interfaces/win32/win32wsextctrls.pp
View File

@ -32,9 +32,11 @@ uses
// To get as little as posible circles,
// uncomment only when needed for registration
////////////////////////////////////////////////////
SysUtils, Windows, ExtCtrls, Classes, Controls, ImgList, LCLType, LCLIntf,
Themes,
////////////////////////////////////////////////////
// rtl
Windows, CommCtrl, SysUtils, Classes,
// lcl
ExtCtrls, Controls, ImgList, LCLType, LCLIntf, Themes,
// ws
WSControls, WSExtCtrls, WSLCLClasses, WSProc, Win32Extra, Win32Int, Win32Proc,
InterfaceBase, Win32WSControls;

9
lcl/interfaces/win32/win32wsimglist.pp
View File

@ -33,9 +33,12 @@ uses
// To get as little as posible circles,
// uncomment only when needed for registration
////////////////////////////////////////////////////
Windows, SysUtils, Classes, ImgList, GraphType, Graphics, LCLType,
// rtl
Windows, CommCtrl, SysUtils, Classes,
// lcl
ImgList, GraphType, Graphics, LCLType,
// ws
Win32Extra, Win32Int, Win32Proc, InterfaceBase,
////////////////////////////////////////////////////
WSImgList, WSLCLClasses, WSProc, WSReferences;
type
@ -296,7 +299,7 @@ begin
// if it is manifested exe then use winXP algoriphm of gray painting
FillChar(DrawParams, SizeOf(DrawParams), 0);
DrawParams.cbSize := SizeOf(DrawParams);
DrawParams.himlL := AList.Reference._Handle;
DrawParams.himl := AList.Reference._Handle;
DrawParams.i := AIndex;
DrawParams.hdcDst := ADC;
DrawParams.x := ABounds.Left;