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

use unsigned integer for control styles; fixes compiler warning

Browse Source 
git-svn-id: trunk@5493 -
This commit is contained in:
micha 2004-05-21 11:18:30 +00:00
parent c5117d42da
commit 52f8c1682f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/win32/win32object.inc
View File

@ -2679,7 +2679,7 @@ Var
Handle: HWND; Handle: HWND;
I, Count: Integer; I, Count: Integer;
LVC: LV_COLUMN; LVC: LV_COLUMN;
Style: Integer; Style: dword;
H: THandle; H: THandle;
begin begin
Result := 0; // default if nobody sets it Result := 0; // default if nobody sets it
@ -2705,7 +2705,7 @@ begin
csListView: csListView:
With TListView(Sender) Do With TListView(Sender) Do
Begin Begin
Style := GetWindowLong(Handle, GWL_STYLE); Style := dword(GetWindowLong(Handle, GWL_STYLE));
if (Style and LVS_TYPEMASK) <> LISTVIEWSTYLES[ViewStyle] if (Style and LVS_TYPEMASK) <> LISTVIEWSTYLES[ViewStyle]
then begin then begin
Style := Style and not LVS_TYPEMASK or LISTVIEWSTYLES[ViewStyle]; Style := Style and not LVS_TYPEMASK or LISTVIEWSTYLES[ViewStyle];
@ -2997,6 +2997,9 @@ End;
{ {
$Log$ $Log$
Revision 1.198 2004/05/21 11:18:30 micha
use unsigned integer for control styles; fixes compiler warning
Revision 1.197 2004/05/21 09:03:55 micha Revision 1.197 2004/05/21 09:03:55 micha
implement new borderstyle implement new borderstyle
- centralize to twincontrol (protected) - centralize to twincontrol (protected)