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

LCLMessageGlue: paramters of fillchar calls were swapped (bug #8379) from Tom Gregorovic

Browse Source 
git-svn-id: trunk@10669 -
This commit is contained in:
vincents 2007-02-22 21:52:32 +00:00
parent 8ff1e3621d
commit 3009865d8e
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lcl/lclmessageglue.pas
View File

@ -140,7 +140,7 @@ var
begin begin
Result := 0; Result := 0;
FillChar(Mess,SizeOf(Mess),#0); FillChar(Mess,SizeOf(Mess),0);
Mess.Msg := LM_ACTIVATE; Mess.Msg := LM_ACTIVATE;
Mess.Active:=Active; Mess.Active:=Active;
Mess.Minimized:=Minimized; Mess.Minimized:=Minimized;
@ -234,7 +234,7 @@ var
Mess: TLMSize; Mess: TLMSize;
begin begin
Result := 0; Result := 0;
FillChar(Mess, 0, SizeOf(Mess)); FillChar(Mess, SizeOf(Mess), 0);
Mess.Msg := LM_SIZE; Mess.Msg := LM_SIZE;
Mess.Width := Width; Mess.Width := Width;
Mess.Height := Height; Mess.Height := Height;
@ -268,7 +268,7 @@ function LCLSendMoveMsg(const Target: TControl; XPos, YPos: SmallInt;
var var
Mess: TLMMove; Mess: TLMMove;
begin begin
FillChar(Mess, 0, SizeOf(Mess)); FillChar(Mess, SizeOf(Mess), 0);
Mess.Msg := LM_MOVE; Mess.Msg := LM_MOVE;
Mess.XPos := XPos; Mess.XPos := XPos;
Mess.YPos := YPos; Mess.YPos := YPos;
@ -299,7 +299,7 @@ var
Mess: TLMMouseMove; Mess: TLMMouseMove;
Keys: PtrInt; Keys: PtrInt;
begin begin
FillChar(Mess, 0, SizeOf(Mess)); FillChar(Mess, SizeOf(Mess), 0);
Mess.Msg := LM_MouseMove; Mess.Msg := LM_MouseMove;
Mess.XPos := XPos; Mess.XPos := XPos;
Mess.YPos := YPos; Mess.YPos := YPos;
@ -336,7 +336,7 @@ var
Mess: TLMMouse; Mess: TLMMouse;
Keys: PtrInt; Keys: PtrInt;
begin begin
FillChar(Mess, 0, SizeOf(Mess)); FillChar(Mess, SizeOf(Mess), 0);
case Button of case Button of
mbLeft : Mess.Msg := LM_LBUTTONDOWN; mbLeft : Mess.Msg := LM_LBUTTONDOWN;
mbMiddle : Mess.Msg := LM_MBUTTONDOWN; mbMiddle : Mess.Msg := LM_MBUTTONDOWN;
@ -377,7 +377,7 @@ var
Mess: TLMMouse; Mess: TLMMouse;
Keys: PtrInt; Keys: PtrInt;
begin begin
FillChar(Mess, 0, SizeOf(Mess)); FillChar(Mess, SizeOf(Mess), 0);
case Button of case Button of
mbLeft : Mess.Msg := LM_LBUTTONUP; mbLeft : Mess.Msg := LM_LBUTTONUP;
mbMiddle : Mess.Msg := LM_MBUTTONUP; mbMiddle : Mess.Msg := LM_MBUTTONUP;
@ -463,7 +463,7 @@ function LCLSendChangedMsg(const Target: TControl; ItemIndex: WPARAM = 0): PtrIn
var var
Mess: TLMessage; Mess: TLMessage;
begin begin
FillChar(Mess, 0, SizeOf(Mess)); FillChar(Mess, SizeOf(Mess), 0);
Mess.Msg := LM_CHANGED; Mess.Msg := LM_CHANGED;
Mess.WParam := ItemIndex; Mess.WParam := ItemIndex;
Result := DeliverMessage(Target, Mess); Result := DeliverMessage(Target, Mess);
@ -853,7 +853,7 @@ function LCLSendPaintMsg(const Target: TControl;const DC: HDC; const PaintStruc
var var
Mess: TLMPaint; Mess: TLMPaint;
begin begin
FillChar(Mess, 0, SizeOf(Mess)); FillChar(Mess, SizeOf(Mess), 0);
Mess.Msg := LM_PAINT; Mess.Msg := LM_PAINT;
Mess.DC := DC; Mess.DC := DC;
Mess.PaintStruct := PaintStruct; Mess.PaintStruct := PaintStruct;
@ -883,7 +883,7 @@ function LCLSendKeyDownEvent(const Target: TControl; var CharCode: Word;
var var
Mess: TLMKeyDown; Mess: TLMKeyDown;
begin begin
FillChar(Mess, 0, SizeOf(Mess)); FillChar(Mess, SizeOf(Mess), 0);
if BeforeEvent then begin if BeforeEvent then begin
if IsSysKey then if IsSysKey then
Mess.Msg := CN_SYSKEYDOWN Mess.Msg := CN_SYSKEYDOWN
@ -922,7 +922,7 @@ function LCLSendKeyUpEvent(const Target: TControl; var CharCode: Word;
var var
Mess: TLMKeyUp; Mess: TLMKeyUp;
begin begin
FillChar(Mess, 0, SizeOf(Mess)); FillChar(Mess, SizeOf(Mess), 0);
if BeforeEvent then begin if BeforeEvent then begin
if IsSysKey then if IsSysKey then
Mess.Msg := CN_SYSKEYUP Mess.Msg := CN_SYSKEYUP
@ -958,7 +958,7 @@ function LCLSendTimerMsg(const Target: TControl; TimerID: WParam;
var var
Mess: TLMessage; Mess: TLMessage;
begin begin
FillChar(Mess, 0, SizeOf(Mess)); FillChar(Mess, SizeOf(Mess), 0);
Mess.Msg := LM_TIMER; Mess.Msg := LM_TIMER;
Mess.WParam := TimerID; Mess.WParam := TimerID;
Mess.LParam := TimerProc; Mess.LParam := TimerProc;
@ -1101,7 +1101,7 @@ var
Mess: TLMMouse; Mess: TLMMouse;
Keys: PtrInt; Keys: PtrInt;
begin begin
FillChar(Mess, 0, SizeOf(Mess)); FillChar(Mess, SizeOf(Mess), 0);
Mess.Msg := LM_UNKNOWN; Mess.Msg := LM_UNKNOWN;
case ClickCount of case ClickCount of
2: 2:
@ -1154,7 +1154,7 @@ function LCLSendDrawListItemMsg(const Target: TControl; const DrawListItemStruct
var var
Mess: TLMDrawListItem; Mess: TLMDrawListItem;
begin begin
FillChar(Mess, 0, SizeOf(Mess)); FillChar(Mess, SizeOf(Mess), 0);
Mess.Msg := LM_DRAWLISTITEM; Mess.Msg := LM_DRAWLISTITEM;
Mess.DrawListItemStruct := DrawListItemStruct; Mess.DrawListItemStruct := DrawListItemStruct;
@ -1177,7 +1177,7 @@ function LCLSendInternalPaintMsg(const Target: TControl; DC: HDC): PtrInt;
var var
Mess: TLMessage; Mess: TLMessage;
begin begin
FillChar(Mess, 0, SizeOf(Mess)); FillChar(Mess, SizeOf(Mess), 0);
Mess.Msg := LM_INTERNALPAINT; Mess.Msg := LM_INTERNALPAINT;
Mess.WParam := DC; Mess.WParam := DC;