paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 19:20:17 +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; C: Cardinal;
List: TMsgArray; List: TMsgArray;
LMessage: TLMessage; LMessage: TLMessage;
R: TRect;
OwnerObject: TObject; OwnerObject: TObject;
WinProcess: Boolean; WinProcess: Boolean;
Begin Begin
@ -300,12 +301,14 @@ Begin
End; End;
WM_MOVE: WM_MOVE:
Begin Begin
Windows.GetWindowRect(Window, @R);
With TLMMove(LMessage) Do With TLMMove(LMessage) Do
Begin Begin
Msg := LM_MOVE; Msg := LM_MOVE;
MoveType := WParam; // MoveType := WParam; WParam is not defined!
XPos := Lo(LParam); MoveType := 0;
YPos := Hi(LParam); XPos := R.Left;
YPos := R.Top;
End; End;
End; End;
//TODO:LM_MOVEPAGE,LM_MOVETOROW,LM_MOVETOCOLUMN //TODO:LM_MOVEPAGE,LM_MOVETOROW,LM_MOVETOCOLUMN
@ -382,12 +385,13 @@ Begin
End; End;
WM_SIZE: WM_SIZE:
Begin Begin
Windows.GetWindowRect(Window, @R);
With TLMSize(LMessage) Do With TLMSize(LMessage) Do
Begin Begin
Msg := LM_SIZE; Msg := LM_SIZE;
SizeType := WParam; SizeType := WParam;
Width := Lo(LParam); Width := R.Right - R.Left;
Height := Hi(LParam); Height := R.Bottom - R.Top;
End; End;
End; End;
WM_SYSKEYDOWN: WM_SYSKEYDOWN:
@ -464,6 +468,9 @@ End;
{ {
$Log$ $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 Revision 1.14 2002/08/13 07:08:25 lazarus
MG: added gdkpixbuf.pp and changes from Andrew Johnson MG: added gdkpixbuf.pp and changes from Andrew Johnson