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

cleanup

Browse Source 
git-svn-id: trunk@13873 -
This commit is contained in:
paul 2008-01-25 05:45:41 +00:00
parent 3d2824268f
commit 737152c95a
2 changed files with 2 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/lclmessageglue.pas
View File

@ -82,7 +82,6 @@ function LCLSendYearChangedMsg(const Target: TControl): PtrInt;
function LCLSendDayChangedMsg(const Target: TControl): PtrInt; function LCLSendDayChangedMsg(const Target: TControl): PtrInt;
function LCLSendMouseMultiClickMsg(const Target: TControl; XPos, YPos: SmallInt; Button: TMouseButton; ClickCount: Byte = 2; ShiftState: TShiftState = []): PtrInt; function LCLSendMouseMultiClickMsg(const Target: TControl; XPos, YPos: SmallInt; Button: TMouseButton; ClickCount: Byte = 2; ShiftState: TShiftState = []): PtrInt;
function LCLSendDrawListItemMsg(const Target: TControl; const DrawListItemStruct: PDrawListItemStruct): PtrInt; function LCLSendDrawListItemMsg(const Target: TControl; const DrawListItemStruct: PDrawListItemStruct): PtrInt;
function LCLSendInternalPaintMsg(const Target: TControl; DC: HDC): PtrInt;
function LCLSendDropDownMsg(const Target: TControl): PtrInt; function LCLSendDropDownMsg(const Target: TControl): PtrInt;
function LCLSendCloseUpMsg(const Target: TControl): PtrInt; function LCLSendCloseUpMsg(const Target: TControl): PtrInt;
@ -1168,29 +1167,6 @@ begin
Result := DeliverMessage(Target, Mess); Result := DeliverMessage(Target, Mess);
end; end;
{******************************************************************************
* *
* LCLSendInternalPaintMsg *
* *
* Returns : 0 to accept the message, non-zero to reject the message *
* *
* Params *
* *
* Target : The Control that will recieve the message LM_INTERNALPAINT *
* DC : DeviceContext to be painted to. *
* *
******************************************************************************}
function LCLSendInternalPaintMsg(const Target: TControl; DC: HDC): PtrInt;
var
Mess: TLMessage;
begin
FillChar(Mess, SizeOf(Mess), 0);
Mess.Msg := LM_INTERNALPAINT;
Mess.WParam := DC;
Result := DeliverMessage(Target, Mess);
end;
{****************************************************************************** {******************************************************************************
* * * *
* LCLSendDropDownMsg * * LCLSendDropDownMsg *

14
lcl/lmessages.pp
View File

@ -102,7 +102,6 @@ const
LM_GRABFOCUS = LM_LCL + 79; LM_GRABFOCUS = LM_LCL + 79;
LM_DRAWLISTITEM = LM_LCL + 80; LM_DRAWLISTITEM = LM_LCL + 80;
LM_CONTEXTMENU = LM_LCL + 82; LM_CONTEXTMENU = LM_LCL + 82;
LM_INTERNALPAINT = LM_LCL + 90;
// these IDs are reserved for internal messages in the interfaces // these IDs are reserved for internal messages in the interfaces
LM_INTERFACEFIRST = LM_LCL + 99; LM_INTERFACEFIRST = LM_LCL + 99;
@ -855,7 +854,6 @@ begin
LM_USER :Result:='LM_USER'; LM_USER :Result:='LM_USER';
//WM_USER :Result:='';
LM_DESTROY :Result:='LM_DESTROY'; LM_DESTROY :Result:='LM_DESTROY';
LM_ACTIVATEITEM :Result:='LM_ACTIVATEITEM'; LM_ACTIVATEITEM :Result:='LM_ACTIVATEITEM';
LM_CHANGED :Result:='LM_CHANGED'; LM_CHANGED :Result:='LM_CHANGED';
@ -865,9 +863,7 @@ begin
LM_RELEASED :Result:='LM_RELEASED'; LM_RELEASED :Result:='LM_RELEASED';
LM_ENTER :Result:='LM_ENTER'; LM_ENTER :Result:='LM_ENTER';
LM_LEAVE :Result:='LM_LEAVE'; LM_LEAVE :Result:='LM_LEAVE';
//LM_SIZEALLOCATE :Result:='LM_SIZEALLOCATE';
LM_CHECKRESIZE :Result:='LM_CHECKRESIZE'; LM_CHECKRESIZE :Result:='LM_CHECKRESIZE';
//LM_SHOW :Result:='LM_SHOW';
LM_INSERTTEXT :Result:='LM_INSERTTEXT'; LM_INSERTTEXT :Result:='LM_INSERTTEXT';
LM_DELETETEXT :Result:='LM_DELETETEXT'; LM_DELETETEXT :Result:='LM_DELETETEXT';
LM_SETEDITABLE :Result:='LM_SETEDITABLE'; LM_SETEDITABLE :Result:='LM_SETEDITABLE';
@ -881,15 +877,11 @@ begin
LM_CUTTOCLIP :Result:='LM_CUTTOCLIP'; LM_CUTTOCLIP :Result:='LM_CUTTOCLIP';
LM_COPYTOCLIP :Result:='LM_COPYTOCLIP'; LM_COPYTOCLIP :Result:='LM_COPYTOCLIP';
LM_PASTEFROMCLIP :Result:='LM_PASTEFROMCLIP'; LM_PASTEFROMCLIP :Result:='LM_PASTEFROMCLIP';
//LM_MOVERESIZE :Result:='LM_MOVERESIZE';
LM_CONFIGUREEVENT :Result:='LM_CONFIGUREEVENT'; LM_CONFIGUREEVENT :Result:='LM_CONFIGUREEVENT';
//LM_DRAW :Result:='LM_DRAW';
LM_PAINT :Result:='LM_PAINT'; LM_PAINT :Result:='LM_PAINT';
//LM_KEYDOWN :Result:='LM_KEYDOWN'; LM_KEYDOWN :Result:='LM_KEYDOWN';
//LM_KEYUP :Result:='LM_KEYUP'; LM_KEYUP :Result:='LM_KEYUP';
LM_TIMER :Result:='LM_TIMER'; LM_TIMER :Result:='LM_TIMER';
//LM_MOUSEBTNPRESS :Result:='LM_MOUSEBTNPRESS';
//LM_MOUSEBTNRELEASE :Result:='LM_MOUSEBTNRELEASE';
LM_EXIT :Result:='LM_EXIT'; LM_EXIT :Result:='LM_EXIT';
LM_CLOSEQUERY :Result:='LM_CLOSEQUERY'; LM_CLOSEQUERY :Result:='LM_CLOSEQUERY';
LM_DRAGSTART :Result:='LM_DRAGSTART'; LM_DRAGSTART :Result:='LM_DRAGSTART';
@ -914,8 +906,6 @@ begin
LM_DRAWLISTITEM :Result:='LM_DRAWLISTITEM'; LM_DRAWLISTITEM :Result:='LM_DRAWLISTITEM';
LM_INTERNALPAINT :Result:='LM_INTERNALPAINT';
// these IDs are reserved for internal messages in the interfaces // these IDs are reserved for internal messages in the interfaces
LM_INTERFACEFIRST :Result:='LM_INTERFACEFIRST'; LM_INTERFACEFIRST :Result:='LM_INTERFACEFIRST';
LM_INTERFACELAST :Result:='LM_INTERFACELAST'; LM_INTERFACELAST :Result:='LM_INTERFACELAST';