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

Keith: Win32 fixes. Much appreciation to Markus L�din.

Browse Source 
git-svn-id: trunk@3257 -
This commit is contained in:
lazarus 2002-08-28 17:28:11 +00:00
parent fa11d46a46
commit 3e9ae9aac4
6 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
examples/gtkglarea/data/particle.bmp
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 3.1 KiB

After

Width:  |  Height:  |  Size: 645 B

BIN
examples/gtkglarea/data/texture1.bmp
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 3.1 KiB

After

Width:  |  Height:  |  Size: 181 B

BIN
examples/gtkglarea/data/texture2.bmp
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 192 KiB

After

Width:  |  Height:  |  Size: 5.0 KiB

BIN
examples/gtkglarea/data/texture3.bmp
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 768 KiB

After

Width:  |  Height:  |  Size: 68 B

BIN
images/logo_big.jpg
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 25 KiB

After

Width:  |  Height:  |  Size: 77 B

17
lcl/interfaces/win32/win32callback.inc
View File

@ -56,6 +56,7 @@ Var
C: Cardinal;
List: TMsgArray;
LMessage: TLMessage;
R: TRect;
OwnerObject: TObject;
WinProcess: Boolean;
Begin
@ -300,12 +301,14 @@ Begin
End;
WM_MOVE:
Begin
Windows.GetWindowRect(Window, @R);
With TLMMove(LMessage) Do
Begin
Msg := LM_MOVE;
MoveType := WParam;
XPos := Lo(LParam);
YPos := Hi(LParam);
// MoveType := WParam; WParam is not defined!
MoveType := 0;
XPos := R.Left;
YPos := R.Top;
End;
End;
//TODO:LM_MOVEPAGE,LM_MOVETOROW,LM_MOVETOCOLUMN
@ -382,12 +385,13 @@ Begin
End;
WM_SIZE:
Begin
Windows.GetWindowRect(Window, @R);
With TLMSize(LMessage) Do
Begin
Msg := LM_SIZE;
SizeType := WParam;
Width := Lo(LParam);
Height := Hi(LParam);
Width := R.Right - R.Left;
Height := R.Bottom - R.Top;
End;
End;
WM_SYSKEYDOWN:
@ -464,6 +468,9 @@ End;
{
$Log$
Revision 1.15 2002/08/28 17:28:11 lazarus
Keith: Win32 fixes. Much appreciation to Markus Lüdin.
Revision 1.14 2002/08/13 07:08:25 lazarus
MG: added gdkpixbuf.pp and changes from Andrew Johnson